/**************************************************************** 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); }