/***************************************************
NAME : RemoveAllDeffunctions
DESCRIPTION : Removes all deffunctions
INPUTS : None
RETURNS : TRUE if all deffunctions
removed, FALSE otherwise
SIDE EFFECTS : Deffunctions removed
NOTES : None
***************************************************/
static intBool RemoveAllDeffunctions(
void *theEnv,
EXEC_STATUS)
{
DEFFUNCTION *dptr,*dtmp;
unsigned oldbusy;
intBool success = TRUE;
#if BLOAD || BLOAD_AND_BSAVE
if (Bloaded(theEnv,execStatus) == TRUE)
return(FALSE);
#endif
dptr = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,execStatus,NULL);
while (dptr != NULL)
{
if (dptr->executing > 0)
{
DeffunctionDeleteError(theEnv,execStatus,EnvGetDeffunctionName(theEnv,execStatus,(void *) dptr));
success = FALSE;
}
else
{
oldbusy = dptr->busy;
ExpressionDeinstall(theEnv,execStatus,dptr->code);
dptr->busy = oldbusy;
ReturnPackedExpression(theEnv,execStatus,dptr->code);
dptr->code = NULL;
}
dptr = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,execStatus,(void *) dptr);
}
dptr = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,execStatus,NULL);
while (dptr != NULL)
{
dtmp = dptr;
dptr = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,execStatus,(void *) dptr);
if (dtmp->executing == 0)
{
if (dtmp->busy > 0)
{
PrintWarningID(theEnv,execStatus,"DFFNXFUN",1,FALSE);
EnvPrintRouter(theEnv,execStatus,WWARNING,"Deffunction ");
EnvPrintRouter(theEnv,execStatus,WWARNING,EnvGetDeffunctionName(theEnv,execStatus,(void *) dtmp));
EnvPrintRouter(theEnv,execStatus,WWARNING," only partially deleted due to usage by other constructs.\n");
SetDeffunctionPPForm((void *) dtmp,NULL);
success = FALSE;
}
else
{
RemoveConstructFromModule(theEnv,execStatus,(struct constructHeader *) dtmp);
RemoveDeffunction(theEnv,execStatus,dtmp);
}
}
}
return(success);
}
Function::pointer Function::next() {
void* nxt;
if ( m_cobj ) {
nxt = EnvGetNextDeffunction( m_environment.cobj(), m_cobj );
if ( nxt )
return Function::create( m_environment, nxt );
}
return Function::pointer();
}
EXPORT void* STDCALL EnvGetNextDeffunction1(void* env, void* ptr)
{
return EnvGetNextDeffunction(env, ptr);
}
static void OutputConstructsCodeInfo(
void *theEnv)
{
#if (! DEFFUNCTION_CONSTRUCT) && (! DEFGENERIC_CONSTRUCT) && (! OBJECT_SYSTEM) && (! DEFRULE_CONSTRUCT)
#pragma unused(theEnv)
#endif
#if DEFFUNCTION_CONSTRUCT
DEFFUNCTION *theDeffunction;
#endif
#if DEFRULE_CONSTRUCT
struct defrule *theDefrule;
#endif
#if DEFGENERIC_CONSTRUCT
DEFGENERIC *theDefgeneric;
DEFMETHOD *theMethod;
unsigned methodIndex;
char methodBuffer[512];
#endif
#if OBJECT_SYSTEM
DEFCLASS *theDefclass;
HANDLER *theHandler;
unsigned handlerIndex;
#endif
#if DEFGENERIC_CONSTRUCT || OBJECT_SYSTEM
char *prefix, *prefixBefore, *prefixAfter;
#endif
char *banner;
banner = "\n*** Deffunctions ***\n\n";
#if DEFFUNCTION_CONSTRUCT
for (theDeffunction = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,NULL);
theDeffunction != NULL;
theDeffunction = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,theDeffunction))
{
OutputProfileInfo(theEnv,EnvGetDeffunctionName(theEnv,theDeffunction),
(struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theDeffunction->header.usrData),
NULL,NULL,NULL,&banner);
}
#endif
banner = "\n*** Defgenerics ***\n";
#if DEFGENERIC_CONSTRUCT
for (theDefgeneric = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,NULL);
theDefgeneric != NULL;
theDefgeneric = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,theDefgeneric))
{
prefixBefore = "\n";
prefix = EnvGetDefgenericName(theEnv,theDefgeneric);
prefixAfter = "\n";
for (methodIndex = EnvGetNextDefmethod(theEnv,theDefgeneric,0);
methodIndex != 0;
methodIndex = EnvGetNextDefmethod(theEnv,theDefgeneric,methodIndex))
{
theMethod = GetDefmethodPointer(theDefgeneric,methodIndex);
EnvGetDefmethodDescription(theEnv,methodBuffer,510,theDefgeneric,methodIndex);
if (OutputProfileInfo(theEnv,methodBuffer,
(struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theMethod->usrData),
prefixBefore,prefix,prefixAfter,&banner))
{
prefixBefore = NULL;
prefix = NULL;
prefixAfter = NULL;
}
}
}
#endif
banner = "\n*** Defclasses ***\n";
#if OBJECT_SYSTEM
for (theDefclass = (DEFCLASS *) EnvGetNextDefclass(theEnv,NULL);
theDefclass != NULL;
theDefclass = (DEFCLASS *) EnvGetNextDefclass(theEnv,theDefclass))
{
prefixAfter = "\n";
prefix = EnvGetDefclassName(theEnv,theDefclass);
prefixBefore = "\n";
for (handlerIndex = EnvGetNextDefmessageHandler(theEnv,theDefclass,0);
handlerIndex != 0;
handlerIndex = EnvGetNextDefmessageHandler(theEnv,theDefclass,handlerIndex))
{
theHandler = GetDefmessageHandlerPointer(theDefclass,handlerIndex);
if (OutputProfileInfo(theEnv,EnvGetDefmessageHandlerName(theEnv,theDefclass,handlerIndex),
(struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,
theHandler->usrData),
prefixBefore,prefix,prefixAfter,&banner))
{
prefixBefore = NULL;
prefix = NULL;
prefixAfter = NULL;
}
}
}
#endif
banner = "\n*** Defrules ***\n\n";
#if DEFRULE_CONSTRUCT
for (theDefrule = (struct defrule *) EnvGetNextDefrule(theEnv,NULL);
theDefrule != NULL;
theDefrule = (struct defrule *) EnvGetNextDefrule(theEnv,theDefrule))
{
OutputProfileInfo(theEnv,EnvGetDefruleName(theEnv,theDefrule),
(struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theDefrule->header.usrData),
NULL,NULL,NULL,&banner);
}
#endif
}
globle void ProfileResetCommand(
void *theEnv)
{
struct FunctionDefinition *theFunction;
int i;
#if DEFFUNCTION_CONSTRUCT
DEFFUNCTION *theDeffunction;
#endif
#if DEFRULE_CONSTRUCT
struct defrule *theDefrule;
#endif
#if DEFGENERIC_CONSTRUCT
DEFGENERIC *theDefgeneric;
unsigned int methodIndex;
DEFMETHOD *theMethod;
#endif
#if OBJECT_SYSTEM
DEFCLASS *theDefclass;
HANDLER *theHandler;
unsigned handlerIndex;
#endif
ProfileFunctionData(theEnv)->ProfileStartTime = 0.0;
ProfileFunctionData(theEnv)->ProfileEndTime = 0.0;
ProfileFunctionData(theEnv)->ProfileTotalTime = 0.0;
ProfileFunctionData(theEnv)->LastProfileInfo = NO_PROFILE;
for (theFunction = GetFunctionList(theEnv);
theFunction != NULL;
theFunction = theFunction->next)
{
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theFunction->usrData));
}
for (i = 0; i < MAXIMUM_PRIMITIVES; i++)
{
if (EvaluationData(theEnv)->PrimitivesArray[i] != NULL)
{
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,EvaluationData(theEnv)->PrimitivesArray[i]->usrData));
}
}
#if DEFFUNCTION_CONSTRUCT
for (theDeffunction = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,NULL);
theDeffunction != NULL;
theDeffunction = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,theDeffunction))
{
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theDeffunction->header.usrData));
}
#endif
#if DEFRULE_CONSTRUCT
for (theDefrule = (struct defrule *) EnvGetNextDefrule(theEnv,NULL);
theDefrule != NULL;
theDefrule = (struct defrule *) EnvGetNextDefrule(theEnv,theDefrule))
{
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theDefrule->header.usrData));
}
#endif
#if DEFGENERIC_CONSTRUCT
for (theDefgeneric = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,NULL);
theDefgeneric != NULL;
theDefgeneric = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,theDefgeneric))
{
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theDefgeneric->header.usrData));
for (methodIndex = EnvGetNextDefmethod(theEnv,theDefgeneric,0);
methodIndex != 0;
methodIndex = EnvGetNextDefmethod(theEnv,theDefgeneric,methodIndex))
{
theMethod = GetDefmethodPointer(theDefgeneric,methodIndex);
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theMethod->usrData));
}
}
#endif
#if OBJECT_SYSTEM
for (theDefclass = (DEFCLASS *) EnvGetNextDefclass(theEnv,NULL);
theDefclass != NULL;
theDefclass = (DEFCLASS *) EnvGetNextDefclass(theEnv,theDefclass))
{
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theDefclass->header.usrData));
for (handlerIndex = EnvGetNextDefmessageHandler(theEnv,theDefclass,0);
handlerIndex != 0;
handlerIndex = EnvGetNextDefmessageHandler(theEnv,theDefclass,handlerIndex))
{
theHandler = GetDefmessageHandlerPointer(theDefclass,handlerIndex);
ResetProfileInfo((struct constructProfileInfo *)
TestUserData(ProfileFunctionData(theEnv)->ProfileDataID,theHandler->usrData));
}
}
#endif
}
/*******************************************************************************
Name: UpdateWindowsMenu
Description: Sets manager menu items to sensitive or unsensitive
Arguments: None
Returns: None
*******************************************************************************/
static void UpdateWindowsMenu()
{
void *theEnv = GetCurrentEnvironment();
/* ==================================================== */
/* Refresh the manager window if nessessary */
/* ==================================================== */
if(list_change || list1_change )
RefreshMngrList();
/* =================================================================== */
/* Set the sensitive state to defrule manager item in the browse menu */
/* =================================================================== */
if(EnvGetNextDefrule(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(defrule_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(defrule_manager, TheArgs, 1);
}
/* ===================================-================================ */
/* Set the sensitive state to deffacts manager item in the browse menu */
/* ==================================================================== */
if(EnvGetNextDeffacts(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(deffact_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(deffact_manager, TheArgs, 1);
}
/* ======================================================================= */
/* Set the sensitive state to deftemplate manager item in the browse menu */
/* ======================================================================= */
if(EnvGetNextDeftemplate(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(deftemplate_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(deftemplate_manager, TheArgs, 1);
}
/* ======================================================================= */
/* Set the sensitive state to deffunction manager item in the browse menu */
/* ======================================================================= */
if(EnvGetNextDeffunction(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(deffunction_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(deffunction_manager, TheArgs, 1);
}
/* ===================================================================== */
/* Set the sensitive state to defglobal manager item in the browse menu */
/* ===================================================================== */
if(EnvGetNextDefglobal(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(defglobal_manager,TheArgs,1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(defglobal_manager,TheArgs,1);
}
/* ====================================================================== */
/* Set the sensitive state to defgeneric manager item in the browse menu */
/* ====================================================================== */
if(EnvGetNextDefgeneric(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(defgeneric_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(defgeneric_manager, TheArgs, 1);
}
/* ======================================================================== */
/* Set the sensitive state to definstances manager item in the browse menu */
/* ======================================================================== */
if(EnvGetNextDefinstances(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(definstances_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(definstances_manager, TheArgs, 1);
}
/* ==================================================================== */
/* Set the sensitive state to defclass manager item in the browse menu */
/* ==================================================================== */
if(EnvGetNextDefclass(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(defclass_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(defclass_manager, TheArgs, 1);
}
/* =================================================================== */
/* Set the sensitive state to agenda manager item in the browse menu */
/* =================================================================== */
if(EnvGetNextActivation(theEnv,NULL))
{
XtSetArg(TheArgs[0], XtNsensitive, True);
XtSetValues(agenda_manager, TheArgs, 1);
}
else
{
XtSetArg(TheArgs[0], XtNsensitive, False);
XtSetValues(agenda_manager, TheArgs, 1);
}
}
/*******************************************************
NAME : DeffunctionsToCode
DESCRIPTION : Writes out static array code for
deffunctions
INPUTS : 1) The base name of the construct set
2) The base id for this construct
3) The file pointer for the header file
4) The base id for the construct set
5) The max number of indices allowed
in an array
RETURNS : 0 on errors,
1 if deffunctions written
SIDE EFFECTS : Code written to files
NOTES : None
*******************************************************/
static bool DeffunctionsToCode(
void *theEnv,
const char *fileName,
const char *pathName,
char *fileNameBuffer,
int fileID,
FILE *headerFP,
int imageID,
int maxIndices)
{
int fileCount = 1;
struct defmodule *theModule;
DEFFUNCTION *theDeffunction;
int moduleCount = 0, moduleArrayCount = 0, moduleArrayVersion = 1;
int deffunctionArrayCount = 0, deffunctionArrayVersion = 1;
FILE *moduleFile = NULL, *deffunctionFile = NULL;
/* ===============================================
Include the appropriate deffunction header file
=============================================== */
fprintf(headerFP,"#include \"dffnxfun.h\"\n");
/* =============================================================
Loop through all the modules and all the deffunctions writing
their C code representation to the file as they are traversed
============================================================= */
theModule = (struct defmodule *) EnvGetNextDefmodule(theEnv,NULL);
while (theModule != NULL)
{
EnvSetCurrentModule(theEnv,(void *) theModule);
moduleFile = OpenFileIfNeeded(theEnv,moduleFile,fileName,pathName,fileNameBuffer,fileID,imageID,&fileCount,
moduleArrayVersion,headerFP,
"DEFFUNCTION_MODULE",ModulePrefix(DeffunctionData(theEnv)->DeffunctionCodeItem),
false,NULL);
if (moduleFile == NULL)
{
CloseDeffunctionFiles(theEnv,moduleFile,deffunctionFile,maxIndices);
return(false);
}
DeffunctionModuleToCode(theEnv,moduleFile,theModule,imageID,maxIndices);
moduleFile = CloseFileIfNeeded(theEnv,moduleFile,&moduleArrayCount,&moduleArrayVersion,
maxIndices,NULL,NULL);
theDeffunction = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,NULL);
while (theDeffunction != NULL)
{
deffunctionFile = OpenFileIfNeeded(theEnv,deffunctionFile,fileName,pathName,fileNameBuffer,fileID,imageID,&fileCount,
deffunctionArrayVersion,headerFP,
"DEFFUNCTION",ConstructPrefix(DeffunctionData(theEnv)->DeffunctionCodeItem),
false,NULL);
if (deffunctionFile == NULL)
{
CloseDeffunctionFiles(theEnv,moduleFile,deffunctionFile,maxIndices);
return(false);
}
SingleDeffunctionToCode(theEnv,deffunctionFile,theDeffunction,imageID,
maxIndices,moduleCount);
deffunctionArrayCount++;
deffunctionFile = CloseFileIfNeeded(theEnv,deffunctionFile,&deffunctionArrayCount,
&deffunctionArrayVersion,maxIndices,NULL,NULL);
theDeffunction = (DEFFUNCTION *) EnvGetNextDeffunction(theEnv,theDeffunction);
}
theModule = (struct defmodule *) EnvGetNextDefmodule(theEnv,theModule);
moduleCount++;
moduleArrayCount++;
}
CloseDeffunctionFiles(theEnv,moduleFile,deffunctionFile,maxIndices);
return(true);
}
globle void *GetNextDeffunction(
void *deffunctionPtr)
{
return EnvGetNextDeffunction(GetCurrentEnvironment(),deffunctionPtr);
}
