/****************************************************************
NAME : ClearDefgenerics
DESCRIPTION : Deletes all generic headers
INPUTS : None
RETURNS : TRUE if all methods deleted, FALSE otherwise
SIDE EFFECTS : Generic headers deleted (and any implicit system
function methods)
NOTES : None
****************************************************************/
globle int ClearDefgenerics(
void *theEnv)
{
register DEFGENERIC *gfunc,*gtmp;
int success = TRUE;
#if BLOAD || BLOAD_AND_BSAVE
if (Bloaded(theEnv) == TRUE) return(FALSE);
#endif
gfunc = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,NULL);
while (gfunc != NULL)
{
gtmp = gfunc;
gfunc = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,(void *) gfunc);
if (RemoveAllExplicitMethods(theEnv,gtmp) == FALSE)
{
CantDeleteItemErrorMessage(theEnv,(char*)"generic function",EnvGetDefgenericName(theEnv,gtmp));
success = FALSE;
}
else
{
RemoveConstructFromModule(theEnv,(struct constructHeader *) gtmp);
RemoveDefgeneric(theEnv,(void *) gtmp);
}
}
return(success);
}
/************************************************************
NAME : ClearDefmethods
DESCRIPTION : Deletes all defmethods - generic headers
are left intact
INPUTS : None
RETURNS : TRUE if all methods deleted, FALSE otherwise
SIDE EFFECTS : Defmethods deleted
NOTES : Clearing generic functions is done in
two stages
1) Delete all methods (to clear any
references to other constructs)
2) Delete all generic headers
This allows other constructs which
mutually refer to generic functions
to be cleared
************************************************************/
globle int ClearDefmethods()
{
register DEFGENERIC *gfunc;
int success = TRUE;
#if BLOAD || BLOAD_AND_BSAVE
if (Bloaded() == TRUE) return(FALSE);
#endif
gfunc = (DEFGENERIC *) GetNextDefgeneric(NULL);
while (gfunc != NULL)
{
if (RemoveAllExplicitMethods(gfunc) == FALSE)
success = FALSE;
gfunc = (DEFGENERIC *) GetNextDefgeneric((void *) gfunc);
}
return(success);
}
/************************************************************
NAME : ClearDefmethods
DESCRIPTION : Deletes all defmethods - generic headers
are left intact
INPUTS : None
RETURNS : TRUE if all methods deleted, FALSE otherwise
SIDE EFFECTS : Defmethods deleted
NOTES : Clearing generic functions is done in
two stages
1) Delete all methods (to clear any
references to other constructs)
2) Delete all generic headers
This allows other constructs which
mutually refer to generic functions
to be cleared
************************************************************/
globle int ClearDefmethods(
void *theEnv,
EXEC_STATUS)
{
register DEFGENERIC *gfunc;
int success = TRUE;
#if BLOAD || BLOAD_AND_BSAVE
if (Bloaded(theEnv,execStatus) == TRUE) return(FALSE);
#endif
gfunc = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,execStatus,NULL);
while (gfunc != NULL)
{
if (RemoveAllExplicitMethods(theEnv,execStatus,gfunc) == FALSE)
success = FALSE;
gfunc = (DEFGENERIC *) EnvGetNextDefgeneric(theEnv,execStatus,(void *) gfunc);
}
return(success);
}
