globle intBool RemoveClearFunction(
const char *name)
{
return EnvRemoveClearFunction(GetCurrentEnvironment(),name);
}
static int ClearBload(
void *theEnv)
{
struct BinaryItem *biPtr;
struct callFunctionItem *bfPtr;
int ready,error;
/*=================================================*/
/* Make sure it's safe to clear the bloaded image. */
/*=================================================*/
error = FALSE;
for (bfPtr = BloadData(theEnv)->ClearBloadReadyFunctions;
bfPtr != NULL;
bfPtr = bfPtr->next)
{
if (bfPtr->environmentAware)
{ ready = (* ((int (*)(void *)) bfPtr->func))(theEnv); }
else
{ ready = (* ((int (*)(void)) bfPtr->func))(); }
if (ready == FALSE)
{
if (! error)
{
PrintErrorID(theEnv,"BLOAD",5,FALSE);
EnvPrintRouter(theEnv,WERROR,
"Some constructs are still in use by the current binary image:\n");
}
EnvPrintRouter(theEnv,WERROR," ");
EnvPrintRouter(theEnv,WERROR,bfPtr->name);
EnvPrintRouter(theEnv,WERROR,"\n");
error = TRUE;
}
}
/*==================================================*/
/* If some constructs are still in use and can't be */
/* cleared, indicate the binary load can't continue */
/* and return FALSE to indicate this condition. */
/*==================================================*/
if (error == TRUE)
{
EnvPrintRouter(theEnv,WERROR,"Binary clear cannot continue.\n");
return(FALSE);
}
/*=============================*/
/* Call bload clear functions. */
/*=============================*/
for (biPtr = BsaveData(theEnv)->ListOfBinaryItems;
biPtr != NULL;
biPtr = biPtr->next)
{ if (biPtr->clearFunction != NULL) (*biPtr->clearFunction)(theEnv); }
/*===========================*/
/* Free bloaded expressions. */
/*===========================*/
ClearBloadedExpressions(theEnv);
/*===========================*/
/* Free bloaded constraints. */
/*===========================*/
ClearBloadedConstraints(theEnv);
/*==================================*/
/* Remove the bload clear function. */
/*==================================*/
BloadData(theEnv)->BloadActive = FALSE;
EnvRemoveClearFunction(theEnv,"bload");
/*====================================*/
/* Return TRUE to indicate the binary */
/* image was successfully cleared. */
/*====================================*/
return(TRUE);
}
