/***************************************************
NAME : SaveDeffunctionHeaders
DESCRIPTION : Writes out deffunction forward
declarations for (save) command
INPUTS : The logical output name
RETURNS : Nothing useful
SIDE EFFECTS : Writes out deffunctions with no
body of actions
NOTES : Used for deffunctions which are
mutually recursive with other
constructs
***************************************************/
static void SaveDeffunctionHeaders(
void *theEnv,
void *theModule,
char *logicalName)
{
DoForAllConstructsInModule(theEnv,theModule,SaveDeffunctionHeader,
DeffunctionData(theEnv)->DeffunctionModuleIndex,
FALSE,(void *) logicalName);
}
/***************************************************
NAME : SaveDefclasses
DESCRIPTION : Prints pretty print form of
defclasses to specified output
INPUTS : The logical name of the output
RETURNS : Nothing useful
SIDE EFFECTS : None
NOTES : None
***************************************************/
globle void SaveDefclasses(
void *theEnv,
void *theModule,
const char *logName)
{
#if DEBUGGING_FUNCTIONS
DoForAllConstructsInModule(theEnv,theModule,SaveDefclass,DefclassData(theEnv)->DefclassModuleIndex,FALSE,(void *) logName);
#else
#if MAC_XCD
#pragma unused(theEnv,theModule,logName)
#endif
#endif
}
globle void SaveDefclasses(
void *theEnv,
EXEC_STATUS,
void *theModule,
char *logName)
{
#if DEBUGGING_FUNCTIONS
DoForAllConstructsInModule(theEnv,execStatus,theModule,SaveDefclass,DefclassData(theEnv,execStatus)->DefclassModuleIndex,FALSE,(void *) logName);
#else
#if MAC_MCW || WIN_MCW || MAC_XCD
#pragma unused(theEnv,execStatus,theModule,logName)
#endif
#endif
}
