/************************************************************
NAME : GetDefclassModuleCommand
DESCRIPTION : Determines to which module a class belongs
INPUTS : None
RETURNS : The symbolic name of the module
SIDE EFFECTS : None
NOTES : H/L Syntax: (defclass-module <class-name>)
************************************************************/
void GetDefclassModuleCommand(
Environment *theEnv,
UDFContext *context,
UDFValue *returnValue)
{
returnValue->value = GetConstructModuleCommand(context,"defclass-module",DefclassData(theEnv)->DefclassConstruct);
}
void DefruleModuleFunction(
UDFContext *context,
CLIPSValue *returnValue)
{
void *theEnv = UDFContextEnvironment(context);
CVSetCLIPSSymbol(returnValue,GetConstructModuleCommand(context,"defrule-module",DefruleData(theEnv)->DefruleConstruct));
}
/************************************************************
NAME : GetDefclassModuleCommand
DESCRIPTION : Determines to which module a class belongs
INPUTS : None
RETURNS : The symbolic name of the module
SIDE EFFECTS : None
NOTES : H/L Syntax: (defclass-module <class-name>)
************************************************************/
globle void *GetDefclassModuleCommand(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,"defclass-module",DefclassData(theEnv)->DefclassConstruct));
}
globle void *DeftemplateModuleFunction(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,(char*)"deftemplate-module",DeftemplateData(theEnv)->DeftemplateConstruct));
}
globle SYMBOL_HN *DefruleModuleFunction(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,"defrule-module",DefruleData(theEnv)->DefruleConstruct));
}
/****************************************************************
NAME : GetDeffunctionModuleCommand
DESCRIPTION : Determines to which module a deffunction belongs
INPUTS : None
RETURNS : The symbolic name of the module
SIDE EFFECTS : None
NOTES : H/L Syntax: (deffunction-module <dfnx-name>)
****************************************************************/
globle void *GetDeffunctionModuleCommand(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,(char*)"deffunction-module",DeffunctionData(theEnv)->DeffunctionConstruct));
}
globle SYMBOL_HN *DefglobalModuleFunction()
{ return(GetConstructModuleCommand("defglobal-module",DefglobalConstruct)); }
/*****************************************************************
NAME : GetDefinstancesModuleCommand
DESCRIPTION : Determines to which module a definstances belongs
INPUTS : None
RETURNS : The symbolic name of the module
SIDE EFFECTS : None
NOTES : H/L Syntax: (definstances-module <defins-name>)
*****************************************************************/
globle void *GetDefinstancesModuleCommand(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,(char*)"definstances-module",DefinstancesData(theEnv)->DefinstancesConstruct));
}
globle void *DefruleModuleFunction(
void *theEnv,
EXEC_STATUS)
{
return(GetConstructModuleCommand(theEnv,execStatus,"defrule-module",DefruleData(theEnv,execStatus)->DefruleConstruct));
}
globle void *DefglobalModuleFunction(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,"defglobal-module",DefglobalData(theEnv)->DefglobalConstruct));
}
/*****************************************************************
NAME : GetDefinstancesModuleCommand
DESCRIPTION : Determines to which module a definstances belongs
INPUTS : None
RETURNS : The symbolic name of the module
SIDE EFFECTS : None
NOTES : H/L Syntax: (definstances-module <defins-name>)
*****************************************************************/
globle SYMBOL_HN *GetDefinstancesModuleCommand(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,"definstances-module",DefinstancesData(theEnv)->DefinstancesConstruct));
}
globle SYMBOL_HN *DeftemplateModuleFunction()
{ return(GetConstructModuleCommand("deftemplate-module",DeftemplateConstruct)); }
/****************************************************************
NAME : GetDeffunctionModuleCommand
DESCRIPTION : Determines to which module a deffunction belongs
INPUTS : None
RETURNS : The symbolic name of the module
SIDE EFFECTS : None
NOTES : H/L Syntax: (deffunction-module <dfnx-name>)
****************************************************************/
globle void *GetDeffunctionModuleCommand(
void *theEnv,
EXEC_STATUS)
{
return(GetConstructModuleCommand(theEnv,execStatus,"deffunction-module",DeffunctionData(theEnv,execStatus)->DeffunctionConstruct));
}
globle void *DeffactsModuleFunction(
void *theEnv)
{
return(GetConstructModuleCommand(theEnv,"deffacts-module",DeffactsData(theEnv)->DeffactsConstruct));
}