/****************************************************************
NAME : DescribeClassCommand
DESCRIPTION : Displays direct superclasses and
subclasses and the entire precedence
list for a class
INPUTS : None
RETURNS : Nothing useful
SIDE EFFECTS : None
NOTES : Syntax : (describe-class <class-name>)
****************************************************************/
globle void DescribeClassCommand(
void *theEnv)
{
char *cname;
DEFCLASS *cls;
cname = GetClassNameArgument(theEnv,"describe-class");
if (cname == NULL)
return;
cls = CheckClass(theEnv,"describe-class",cname);
if (cls == NULL)
return;
EnvDescribeClass(theEnv,WDISPLAY,(void *) cls);
}
/****************************************************************
NAME : DescribeClassCommand
DESCRIPTION : Displays direct superclasses and
subclasses and the entire precedence
list for a class
INPUTS : None
RETURNS : Nothing useful
SIDE EFFECTS : None
NOTES : Syntax : (describe-class <class-name>)
****************************************************************/
void DescribeClassCommand(
Environment *theEnv,
UDFContext *context,
UDFValue *returnValue)
{
const char *className;
Defclass *theDefclass;
className = GetClassNameArgument(context);
if (className == NULL)
{ return; }
theDefclass = CheckClass(theEnv,"describe-class",className);
if (theDefclass == NULL)
{ return; }
DescribeClass(theDefclass,STDOUT);
}
