static void ClearBload()
{
long i;
unsigned long space;
struct portItem *theList;
/*===========================*/
/* Decrement in use counters */
/* used by the binary image. */
/*===========================*/
for (i = 0; i < NumberOfDefmodules; i++)
{
DecrementSymbolCount(DefmoduleArray[i].name);
for (theList = DefmoduleArray[i].importList;
theList != NULL;
theList = theList->next)
{
if (theList->moduleName != NULL) DecrementSymbolCount(theList->moduleName);
if (theList->constructType != NULL) DecrementSymbolCount(theList->constructType);
if (theList->constructName != NULL) DecrementSymbolCount(theList->constructName);
}
for (theList = DefmoduleArray[i].exportList;
theList != NULL;
theList = theList->next)
{
if (theList->moduleName != NULL) DecrementSymbolCount(theList->moduleName);
if (theList->constructType != NULL) DecrementSymbolCount(theList->constructType);
if (theList->constructName != NULL) DecrementSymbolCount(theList->constructName);
}
rm(DefmoduleArray[i].itemsArray,(int) sizeof(void *) * GetNumberOfModuleItems());
}
/*================================*/
/* Deallocate the space used for */
/* the defmodule data structures. */
/*================================*/
space = NumberOfDefmodules * sizeof(struct defmodule);
if (space != 0) genlongfree((void *) DefmoduleArray,space);
/*================================*/
/* Deallocate the space used for */
/* the port item data structures. */
/*================================*/
space = NumberOfPortItems * sizeof(struct portItem);
if (space != 0) genlongfree((void *) PortItemArray,space);
/*===========================*/
/* Reset module information. */
/*===========================*/
SetListOfDefmodules(NULL);
CreateMainModule();
MainModuleRedefinable = TRUE;
}
static void ClearDefmodules(
void *theEnv)
{
#if (BLOAD || BLOAD_AND_BSAVE || BLOAD_ONLY) && (! RUN_TIME)
if (Bloaded(theEnv) == TRUE) return;
#endif
#if (! RUN_TIME)
RemoveAllDefmodules(theEnv);
CreateMainModule(theEnv);
DefmoduleData(theEnv)->MainModuleRedefinable = TRUE;
#else
#endif
}
static void ClearDefmodules(
void *theEnv)
{
#if (BLOAD || BLOAD_AND_BSAVE || BLOAD_ONLY) && (! RUN_TIME)
if (Bloaded(theEnv) == true) return;
#endif
#if (! RUN_TIME)
RemoveAllDefmodules(theEnv);
CreateMainModule(theEnv);
DefmoduleData(theEnv)->MainModuleRedefinable = true;
#else
#if MAC_XCD
#pragma unused(theEnv)
#endif
#endif
}
void InitializeDefmodules(
Environment *theEnv)
{
DefmoduleBasicCommands(theEnv);
#if (! RUN_TIME)
CreateMainModule(theEnv,NULL);
#endif
#if DEFMODULE_CONSTRUCT && (! RUN_TIME) && (! BLOAD_ONLY)
AddConstruct(theEnv,"defmodule","defmodules",ParseDefmodule,NULL,NULL,NULL,NULL,
NULL,NULL,NULL,NULL,NULL);
#endif
#if (! RUN_TIME) && DEFMODULE_CONSTRUCT
AddUDF(theEnv,"get-current-module","y",0,0,NULL,GetCurrentModuleCommand,"GetCurrentModuleCommand",NULL);
AddUDF(theEnv,"set-current-module","y",1,1,"y",SetCurrentModuleCommand,"SetCurrentModuleCommand",NULL);
#endif
}
globle void InitializeDefmodules(
void *theEnv)
{
DefmoduleBasicCommands(theEnv);
#if (! RUN_TIME)
CreateMainModule(theEnv);
#endif
#if DEFMODULE_CONSTRUCT && (! RUN_TIME) && (! BLOAD_ONLY)
AddConstruct(theEnv,"defmodule","defmodules",ParseDefmodule,NULL,NULL,NULL,NULL,
NULL,NULL,NULL,NULL,NULL);
#endif
#if (! RUN_TIME) && DEFMODULE_CONSTRUCT
EnvDefineFunction2(theEnv,"get-current-module", 'w',
PTIEF GetCurrentModuleCommand,
"GetCurrentModuleCommand", "00");
EnvDefineFunction2(theEnv,"set-current-module", 'w',
PTIEF SetCurrentModuleCommand,
"SetCurrentModuleCommand", "11w");
#endif
}
static void ClearBload(
void *theEnv)
{
long i;
size_t space;
struct portItem *theList;
/*===========================*/
/* Decrement in use counters */
/* used by the binary image. */
/*===========================*/
for (i = 0; i < DefmoduleData(theEnv)->BNumberOfDefmodules; i++)
{
DecrementSymbolCount(theEnv,DefmoduleData(theEnv)->DefmoduleArray[i].name);
for (theList = DefmoduleData(theEnv)->DefmoduleArray[i].importList;
theList != NULL;
theList = theList->next)
{
if (theList->moduleName != NULL) DecrementSymbolCount(theEnv,theList->moduleName);
if (theList->constructType != NULL) DecrementSymbolCount(theEnv,theList->constructType);
if (theList->constructName != NULL) DecrementSymbolCount(theEnv,theList->constructName);
}
for (theList = DefmoduleData(theEnv)->DefmoduleArray[i].exportList;
theList != NULL;
theList = theList->next)
{
if (theList->moduleName != NULL) DecrementSymbolCount(theEnv,theList->moduleName);
if (theList->constructType != NULL) DecrementSymbolCount(theEnv,theList->constructType);
if (theList->constructName != NULL) DecrementSymbolCount(theEnv,theList->constructName);
}
rm(theEnv,DefmoduleData(theEnv)->DefmoduleArray[i].itemsArray,sizeof(void *) * GetNumberOfModuleItems(theEnv));
}
/*================================*/
/* Deallocate the space used for */
/* the defmodule data structures. */
/*================================*/
space = DefmoduleData(theEnv)->BNumberOfDefmodules * sizeof(struct defmodule);
if (space != 0) genfree(theEnv,(void *) DefmoduleData(theEnv)->DefmoduleArray,space);
DefmoduleData(theEnv)->BNumberOfDefmodules = 0;
/*================================*/
/* Deallocate the space used for */
/* the port item data structures. */
/*================================*/
space = DefmoduleData(theEnv)->NumberOfPortItems * sizeof(struct portItem);
if (space != 0) genfree(theEnv,(void *) DefmoduleData(theEnv)->PortItemArray,space);
DefmoduleData(theEnv)->NumberOfPortItems = 0;
/*===========================*/
/* Reset module information. */
/*===========================*/
SetListOfDefmodules(theEnv,NULL);
CreateMainModule(theEnv);
DefmoduleData(theEnv)->MainModuleRedefinable = TRUE;
}