/****************************************************************
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 : DeffunctionDeleteError
DESCRIPTION : Prints out an error message when
a deffunction deletion attempt fails
INPUTS : The deffunction name
RETURNS : Nothing useful
SIDE EFFECTS : Error message printed
NOTES : None
****************************************************/
static void DeffunctionDeleteError(
void *theEnv,
EXEC_STATUS,
char *dfnxName)
{
CantDeleteItemErrorMessage(theEnv,execStatus,"deffunction",dfnxName);
}
/****************************************************
NAME : DeffunctionDeleteError
DESCRIPTION : Prints out an error message when
a deffunction deletion attempt fails
INPUTS : The deffunction name
RETURNS : Nothing useful
SIDE EFFECTS : Error message printed
NOTES : None
****************************************************/
static void DeffunctionDeleteError(
void *theEnv,
char *dfnxName)
{
CantDeleteItemErrorMessage(theEnv,(char*)"deffunction",dfnxName);
}
/***************************************************
NAME : DefinstancesDeleteError
DESCRIPTION : Prints an error message for
unsuccessful definstances
deletion attempts
INPUTS : The name of the definstances
RETURNS : Nothing useful
SIDE EFFECTS : Error message printed
NOTES : None
***************************************************/
static void DefinstancesDeleteError(
void *theEnv,
char *dname)
{
CantDeleteItemErrorMessage(theEnv,(char*)"definstances",dname);
}
