globle BOOLEAN DefruleWatchAccess(
int code,
int newState,
struct expr *argExprs)
{
if (code)
return(ConstructSetWatchAccess(DefruleConstruct,newState,argExprs,
GetDefruleWatchActivations,SetDefruleWatchActivations));
else
return(ConstructSetWatchAccess(DefruleConstruct,newState,argExprs,
GetDefruleWatchFirings,SetDefruleWatchFirings));
}
globle unsigned DefruleWatchAccess(
void *theEnv,
int code,
unsigned newState,
struct expr *argExprs)
{
if (code)
return(ConstructSetWatchAccess(theEnv,DefruleData(theEnv)->DefruleConstruct,newState,argExprs,
EnvGetDefruleWatchActivations,EnvSetDefruleWatchActivations));
else
return(ConstructSetWatchAccess(theEnv,DefruleData(theEnv)->DefruleConstruct,newState,argExprs,
EnvGetDefruleWatchFirings,EnvSetDefruleWatchFirings));
}
/******************************************************************
NAME : DefclassWatchAccess
DESCRIPTION : Parses a list of class names passed by
AddWatchItem() and sets the traces accordingly
INPUTS : 1) A code indicating which trace flag is to be set
0 - Watch instance creation/deletion
1 - Watch slot changes to instances
2) The value to which to set the trace flags
3) A list of expressions containing the names
of the classes for which to set traces
RETURNS : TRUE if all OK, FALSE otherwise
SIDE EFFECTS : Watch flags set in specified classes
NOTES : Accessory function for AddWatchItem()
******************************************************************/
globle unsigned DefclassWatchAccess(
void *theEnv,
int code,
unsigned newState,
EXPRESSION *argExprs)
{
if (code)
return(ConstructSetWatchAccess(theEnv,DefclassData(theEnv)->DefclassConstruct,newState,argExprs,
EnvGetDefclassWatchSlots,EnvSetDefclassWatchSlots));
else
return(ConstructSetWatchAccess(theEnv,DefclassData(theEnv)->DefclassConstruct,newState,argExprs,
EnvGetDefclassWatchInstances,EnvSetDefclassWatchInstances));
}
/******************************************************************
NAME : DeffunctionWatchAccess
DESCRIPTION : Parses a list of deffunction names passed by
AddWatchItem() and sets the traces accordingly
INPUTS : 1) A code indicating which trace flag is to be set
Ignored
2) The value to which to set the trace flags
3) A list of expressions containing the names
of the deffunctions for which to set traces
RETURNS : TRUE if all OK, FALSE otherwise
SIDE EFFECTS : Watch flags set in specified deffunctions
NOTES : Accessory function for AddWatchItem()
******************************************************************/
static unsigned DeffunctionWatchAccess(
void *theEnv,
int code,
unsigned newState,
EXPRESSION *argExprs)
{
return(ConstructSetWatchAccess(theEnv,DeffunctionData(theEnv)->DeffunctionConstruct,newState,argExprs,
EnvGetDeffunctionWatch,EnvSetDeffunctionWatch));
}
static BOOLEAN DefglobalWatchAccess(
int code,
int newState,
EXPRESSION *argExprs)
{
#if MAC_MPW || MAC_MCW || IBM_MCW
#pragma unused(code)
#endif
return(ConstructSetWatchAccess(DefglobalConstruct,newState,argExprs,
GetDefglobalWatch,SetDefglobalWatch));
}
globle unsigned DeftemplateWatchAccess(
void *theEnv,
int code,
unsigned newState,
EXPRESSION *argExprs)
{
#if MAC_MCW || WIN_MCW || MAC_XCD
#pragma unused(code)
#endif
return(ConstructSetWatchAccess(theEnv,DeftemplateData(theEnv)->DeftemplateConstruct,newState,argExprs,
EnvGetDeftemplateWatch,EnvSetDeftemplateWatch));
}
static unsigned DefglobalWatchAccess(
void *theEnv,
int code,
unsigned newState,
EXPRESSION *argExprs)
{
#if MAC_XCD
#pragma unused(code)
#endif
return(ConstructSetWatchAccess(theEnv,DefglobalData(theEnv)->DefglobalConstruct,newState,argExprs,
EnvGetDefglobalWatch,EnvSetDefglobalWatch));
}
static unsigned DeffunctionWatchAccess(
void *theEnv,
EXEC_STATUS,
int code,
unsigned newState,
EXPRESSION *argExprs)
{
#if MAC_MCW || WIN_MCW || MAC_XCD
#pragma unused(code)
#endif
return(ConstructSetWatchAccess(theEnv,execStatus,DeffunctionData(theEnv,execStatus)->DeffunctionConstruct,newState,argExprs,
EnvGetDeffunctionWatch,EnvSetDeffunctionWatch));
}
