void InitializeDefglobals(
Environment *theEnv)
{
struct entityRecord globalInfo = { "GBL_VARIABLE", GBL_VARIABLE,0,0,0,
NULL,
NULL,
NULL,
(EntityEvaluationFunction *) EntityGetDefglobalValue,
NULL,NULL,
NULL,NULL,NULL,NULL,NULL,NULL };
struct entityRecord defglobalPtrRecord = { "DEFGLOBAL_PTR", DEFGLOBAL_PTR,0,0,0,
NULL,NULL,NULL,
(EntityEvaluationFunction *) QGetDefglobalUDFValue,
NULL,
(EntityBusyCountFunction *) DecrementDefglobalBusyCount,
(EntityBusyCountFunction *) IncrementDefglobalBusyCount,
NULL,NULL,NULL,NULL,NULL };
AllocateEnvironmentData(theEnv,DEFGLOBAL_DATA,sizeof(struct defglobalData),DeallocateDefglobalData);
memcpy(&DefglobalData(theEnv)->GlobalInfo,&globalInfo,sizeof(struct entityRecord));
memcpy(&DefglobalData(theEnv)->DefglobalPtrRecord,&defglobalPtrRecord,sizeof(struct entityRecord));
DefglobalData(theEnv)->ResetGlobals = true;
DefglobalData(theEnv)->LastModuleIndex = -1;
InstallPrimitive(theEnv,&DefglobalData(theEnv)->GlobalInfo,GBL_VARIABLE);
InstallPrimitive(theEnv,&DefglobalData(theEnv)->GlobalInfo,MF_GBL_VARIABLE);
InstallPrimitive(theEnv,&DefglobalData(theEnv)->DefglobalPtrRecord,DEFGLOBAL_PTR);
InitializeDefglobalModules(theEnv);
DefglobalBasicCommands(theEnv);
DefglobalCommandDefinitions(theEnv);
DefglobalData(theEnv)->DefglobalConstruct =
AddConstruct(theEnv,"defglobal","defglobals",ParseDefglobal,
(FindConstructFunction *) FindDefglobal,
GetConstructNamePointer,GetConstructPPForm,
GetConstructModuleItem,
(GetNextConstructFunction *) GetNextDefglobal,
SetNextConstruct,
(IsConstructDeletableFunction *) DefglobalIsDeletable,
(DeleteConstructFunction *) Undefglobal,
(FreeConstructFunction *) ReturnDefglobal);
}
globle void InitializeDefglobals(
void *theEnv)
{
struct entityRecord globalInfo = { "GBL_VARIABLE", GBL_VARIABLE,0,0,0,
NULL,
NULL,
NULL,
GetDefglobalValue2,
NULL,NULL,
NULL,NULL,NULL };
struct entityRecord defglobalPtrRecord = { "DEFGLOBAL_PTR", DEFGLOBAL_PTR,0,0,0,
NULL,NULL,NULL,
QGetDefglobalValue,
NULL,
DecrementDefglobalBusyCount,
IncrementDefglobalBusyCount,
NULL,NULL,NULL,NULL };
AllocateEnvironmentData(theEnv,DEFGLOBAL_DATA,sizeof(struct defglobalData),DeallocateDefglobalData);
memcpy(&DefglobalData(theEnv)->GlobalInfo,&globalInfo,sizeof(struct entityRecord));
memcpy(&DefglobalData(theEnv)->DefglobalPtrRecord,&defglobalPtrRecord,sizeof(struct entityRecord));
DefglobalData(theEnv)->ResetGlobals = TRUE;
DefglobalData(theEnv)->LastModuleIndex = -1;
InstallPrimitive(theEnv,&DefglobalData(theEnv)->GlobalInfo,GBL_VARIABLE);
InstallPrimitive(theEnv,&DefglobalData(theEnv)->DefglobalPtrRecord,DEFGLOBAL_PTR);
InitializeDefglobalModules(theEnv);
DefglobalBasicCommands(theEnv);
DefglobalCommandDefinitions(theEnv);
DefglobalData(theEnv)->DefglobalConstruct =
AddConstruct(theEnv,"defglobal","defglobals",ParseDefglobal,EnvFindDefglobal,
GetConstructNamePointer,GetConstructPPForm,
GetConstructModuleItem,EnvGetNextDefglobal,SetNextConstruct,
EnvIsDefglobalDeletable,EnvUndefglobal,ReturnDefglobal);
}
