globle BOOLEAN DefruleWatchPrint( char *log, int code, struct expr *argExprs) { if (code) return(ConstructPrintWatchAccess(DefruleConstruct,log,argExprs, GetDefruleWatchActivations,SetDefruleWatchActivations)); else return(ConstructPrintWatchAccess(DefruleConstruct,log,argExprs, GetDefruleWatchActivations,SetDefruleWatchActivations)); }
globle unsigned DefruleWatchPrint( void *theEnv, char *log, int code, struct expr *argExprs) { if (code) return(ConstructPrintWatchAccess(theEnv,DefruleData(theEnv)->DefruleConstruct,log,argExprs, EnvGetDefruleWatchActivations,EnvSetDefruleWatchActivations)); else return(ConstructPrintWatchAccess(theEnv,DefruleData(theEnv)->DefruleConstruct,log,argExprs, EnvGetDefruleWatchActivations,EnvSetDefruleWatchActivations)); }
/*********************************************************************** NAME : DefclassWatchPrint DESCRIPTION : Parses a list of class names passed by AddWatchItem() and displays the traces accordingly INPUTS : 1) The logical name of the output 2) A code indicating which trace flag is to be examined 0 - Watch instance creation/deletion 1 - Watch slot changes to instances 3) A list of expressions containing the names of the classes for which to examine traces RETURNS : TRUE if all OK, FALSE otherwise SIDE EFFECTS : Watch flags displayed for specified classes NOTES : Accessory function for AddWatchItem() ***********************************************************************/ globle unsigned DefclassWatchPrint( void *theEnv, const char *logName, int code, EXPRESSION *argExprs) { if (code) return(ConstructPrintWatchAccess(theEnv,DefclassData(theEnv)->DefclassConstruct,logName,argExprs, EnvGetDefclassWatchSlots,EnvSetDefclassWatchSlots)); else return(ConstructPrintWatchAccess(theEnv,DefclassData(theEnv)->DefclassConstruct,logName,argExprs, EnvGetDefclassWatchInstances,EnvSetDefclassWatchInstances)); }
globle unsigned DefruleWatchPrint( void *theEnv, EXEC_STATUS, char *logName, int code, struct expr *argExprs) { if (code) return(ConstructPrintWatchAccess(theEnv,execStatus,DefruleData(theEnv,execStatus)->DefruleConstruct,logName,argExprs, EnvGetDefruleWatchActivations,EnvSetDefruleWatchActivations)); else return(ConstructPrintWatchAccess(theEnv,execStatus,DefruleData(theEnv,execStatus)->DefruleConstruct,logName,argExprs, EnvGetDefruleWatchActivations,EnvSetDefruleWatchActivations)); }
/*********************************************************************** NAME : DeffunctionWatchPrint DESCRIPTION : Parses a list of deffunction names passed by AddWatchItem() and displays the traces accordingly INPUTS : 1) The logical name of the output 2) A code indicating which trace flag is to be examined Ignored 3) A list of expressions containing the names of the deffunctions for which to examine traces RETURNS : TRUE if all OK, FALSE otherwise SIDE EFFECTS : Watch flags displayed for specified deffunctions NOTES : Accessory function for AddWatchItem() ***********************************************************************/ static unsigned DeffunctionWatchPrint( void *theEnv, char *logName, int code, EXPRESSION *argExprs) { return(ConstructPrintWatchAccess(theEnv,DeffunctionData(theEnv)->DeffunctionConstruct,logName,argExprs, EnvGetDeffunctionWatch,EnvSetDeffunctionWatch)); }
static BOOLEAN DefglobalWatchPrint( char *log, int code, EXPRESSION *argExprs) { #if MAC_MPW || MAC_MCW || IBM_MCW #pragma unused(code) #endif return(ConstructPrintWatchAccess(DefglobalConstruct,log,argExprs, GetDefglobalWatch,SetDefglobalWatch)); }
globle unsigned DeftemplateWatchPrint( void *theEnv, char *logName, int code, EXPRESSION *argExprs) { #if MAC_MCW || WIN_MCW || MAC_XCD #pragma unused(code) #endif return(ConstructPrintWatchAccess(theEnv,DeftemplateData(theEnv)->DeftemplateConstruct,logName,argExprs, EnvGetDeftemplateWatch,EnvSetDeftemplateWatch)); }
static unsigned DefglobalWatchPrint( void *theEnv, const char *logName, int code, EXPRESSION *argExprs) { #if MAC_XCD #pragma unused(code) #endif return(ConstructPrintWatchAccess(theEnv,DefglobalData(theEnv)->DefglobalConstruct,logName,argExprs, EnvGetDefglobalWatch,EnvSetDefglobalWatch)); }
static unsigned DeffunctionWatchPrint( void *theEnv, EXEC_STATUS, char *logName, int code, EXPRESSION *argExprs) { #if MAC_MCW || WIN_MCW || MAC_XCD #pragma unused(code) #endif return(ConstructPrintWatchAccess(theEnv,execStatus,DeffunctionData(theEnv,execStatus)->DeffunctionConstruct,logName,argExprs, EnvGetDeffunctionWatch,EnvSetDeffunctionWatch)); }