/******************************************************************
NAME : DefmessageHandlerWatchAccess
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()
******************************************************************/
static unsigned DefmessageHandlerWatchAccess(
void *theEnv,
int code,
unsigned newState,
EXPRESSION *argExprs)
{
#if MAC_XCD
#pragma unused(code)
#endif
if (newState)
return(DefmessageHandlerWatchSupport(theEnv,"watch",NULL,newState,
NULL,EnvSetDefmessageHandlerWatch,argExprs));
else
return(DefmessageHandlerWatchSupport(theEnv,"unwatch",NULL,newState,
NULL,EnvSetDefmessageHandlerWatch,argExprs));
}
static BOOLEAN DefmessageHandlerWatchAccess(
int code,
int newState,
EXPRESSION *argExprs)
{
#if MAC_MPW || MAC_MCW || IBM_MCW
#pragma unused(code)
#endif
return(DefmessageHandlerWatchSupport(newState ? "watch" : "unwatch",NULL,newState,
NULL,SetDefmessageHandlerWatch,argExprs));
}
static BOOLEAN DefmessageHandlerWatchPrint(
char *log,
int code,
EXPRESSION *argExprs)
{
#if MAC_MPW || MAC_MCW || IBM_MCW
#pragma unused(code)
#endif
return(DefmessageHandlerWatchSupport("list-watch-items",log,-1,
PrintHandlerWatchFlag,NULL,argExprs));
}
/***********************************************************************
NAME : DefmessageHandlerWatchPrint
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()
***********************************************************************/
static unsigned DefmessageHandlerWatchPrint(
void *theEnv,
const char *logName,
int code,
EXPRESSION *argExprs)
{
#if MAC_XCD
#pragma unused(code)
#endif
return(DefmessageHandlerWatchSupport(theEnv,"list-watch-items",logName,-1,
PrintHandlerWatchFlag,NULL,argExprs));
}
static unsigned DefmessageHandlerWatchAccess(
void *theEnv,
int code,
unsigned newState,
EXPRESSION *argExprs)
{
#if MAC_MCW || IBM_MCW || MAC_XCD
#pragma unused(code)
#endif
return(DefmessageHandlerWatchSupport(theEnv,(char *) (newState ? "watch" : "unwatch"),NULL,(int) newState,
NULL,EnvSetDefmessageHandlerWatch,argExprs));
}
