/************************************************************************
NAME : ClassSubclassesCommand
DESCRIPTION : Groups subclasses for a class into a multifield value
for dynamic perusal
INPUTS : Data object buffer to hold the subclasses of the class
RETURNS : Nothing useful
SIDE EFFECTS : Creates a multifield storing the names of
the subclasses of the class
NOTES : Syntax: (class-subclasses <class> [inherit])
************************************************************************/
globle void ClassSubclassesCommand(
DATA_OBJECT *result)
{
int inhp;
void *clsptr;
clsptr = ClassInfoFnxArgs("class-subclasses",&inhp);
if (clsptr == NULL)
{
SetMultifieldErrorValue(result);
return;
}
ClassSubclasses(clsptr,result,inhp);
}
/************************************************************************
NAME : ClassSubclassesCommand
DESCRIPTION : Groups subclasses for a class into a multifield value
for dynamic perusal
INPUTS : Data object buffer to hold the subclasses of the class
RETURNS : Nothing useful
SIDE EFFECTS : Creates a multifield storing the names of
the subclasses of the class
NOTES : Syntax: (class-subclasses <class> [inherit])
************************************************************************/
globle void ClassSubclassesCommand(
void *theEnv,
DATA_OBJECT *result)
{
int inhp;
void *clsptr;
clsptr = ClassInfoFnxArgs(theEnv,"class-subclasses",&inhp);
if (clsptr == NULL)
{
EnvSetMultifieldErrorValue(theEnv,result);
return;
}
EnvClassSubclasses(theEnv,clsptr,result,inhp);
}
/*****************************************************************************
NAME : ListDefmessageHandlersCommand
DESCRIPTION : Depending on arguments, does lists handlers which
match restrictions
INPUTS : None
RETURNS : Nothing useful
SIDE EFFECTS : None
NOTES : H/L Syntax: (list-defmessage-handlers [<class> [inherit]]))
*****************************************************************************/
globle void ListDefmessageHandlersCommand()
{
int inhp;
void *clsptr;
if (RtnArgCount() == 0)
ListDefmessageHandlers(WDISPLAY,NULL,0);
else
{
clsptr = ClassInfoFnxArgs("list-defmessage-handlers",&inhp);
if (clsptr == NULL)
return;
ListDefmessageHandlers(WDISPLAY,clsptr,inhp);
}
}
/*****************************************************************************
NAME : ListDefmessageHandlersCommand
DESCRIPTION : Depending on arguments, does lists handlers which
match restrictions
INPUTS : None
RETURNS : Nothing useful
SIDE EFFECTS : None
NOTES : H/L Syntax: (list-defmessage-handlers [<class> [inherit]]))
*****************************************************************************/
globle void ListDefmessageHandlersCommand(
void *theEnv)
{
int inhp;
void *clsptr;
if (EnvRtnArgCount(theEnv) == 0)
EnvListDefmessageHandlers(theEnv,WDISPLAY,NULL,0);
else
{
clsptr = ClassInfoFnxArgs(theEnv,"list-defmessage-handlers",&inhp);
if (clsptr == NULL)
return;
EnvListDefmessageHandlers(theEnv,WDISPLAY,clsptr,inhp);
}
}
/***********************************************************************
NAME : GetDefmessageHandlersListCmd
DESCRIPTION : Groups message-handlers for a class into a multifield
value for dynamic perusal
INPUTS : Data object buffer to hold the handlers of the class
RETURNS : Nothing useful
SIDE EFFECTS : Creates a multifield storing the names of
the message-handlers of the class
NOTES : Syntax: (get-defmessage-handler-list <class> [inherit])
***********************************************************************/
globle void GetDefmessageHandlersListCmd(
DATA_OBJECT *result)
{
int inhp;
void *clsptr;
if (RtnArgCount () == 0)
GetDefmessageHandlerList(NULL,result,0);
else
{
clsptr = ClassInfoFnxArgs("get-defmessage-handler-list",&inhp);
if (clsptr == NULL)
{
SetMultifieldErrorValue(result);
return;
}
GetDefmessageHandlerList(clsptr,result,inhp);
}
}
/***********************************************************************
NAME : GetDefmessageHandlersListCmd
DESCRIPTION : Groups message-handlers for a class into a multifield
value for dynamic perusal
INPUTS : Data object buffer to hold the handlers of the class
RETURNS : Nothing useful
SIDE EFFECTS : Creates a multifield storing the names of
the message-handlers of the class
NOTES : Syntax: (get-defmessage-handler-list <class> [inherit])
***********************************************************************/
globle void GetDefmessageHandlersListCmd(
void *theEnv,
DATA_OBJECT *result)
{
int inhp;
void *clsptr;
if (EnvRtnArgCount(theEnv) == 0)
EnvGetDefmessageHandlerList(theEnv,NULL,result,0);
else
{
clsptr = ClassInfoFnxArgs(theEnv,"get-defmessage-handler-list",&inhp);
if (clsptr == NULL)
{
EnvSetMultifieldErrorValue(theEnv,result);
return;
}
EnvGetDefmessageHandlerList(theEnv,clsptr,result,inhp);
}
}