/********************************************************
NAME : EnvUndefclass
DESCRIPTION : Deletes the named defclass
INPUTS : None
RETURNS : TRUE if deleted, or FALSE
SIDE EFFECTS : Defclass and handlers removed
NOTES : Interface for AddConstruct()
********************************************************/
globle intBool EnvUndefclass(
void *theEnv,
void *theDefclass)
{
#if RUN_TIME || BLOAD_ONLY
return(FALSE);
#else
DEFCLASS *cls;
cls = (DEFCLASS *) theDefclass;
#if BLOAD || BLOAD_AND_BSAVE
if (Bloaded(theEnv))
return(FALSE);
#endif
if (cls == NULL)
return(RemoveAllUserClasses(theEnv));
return(DeleteClassUAG(theEnv,cls));
#endif
}
/********************************************************
NAME : EnvUndefclass
DESCRIPTION : Deletes the named defclass
INPUTS : None
RETURNS : TRUE if deleted, or FALSE
SIDE EFFECTS : Defclass and handlers removed
NOTES : Interface for AddConstruct()
********************************************************/
globle intBool EnvUndefclass(
void *theEnv,
EXEC_STATUS,
void *theDefclass)
{
#if (MAC_MCW || WIN_MCW) && (RUN_TIME || BLOAD_ONLY)
#pragma unused(theEnv,execStatus,theDefclass)
#endif
#if RUN_TIME || BLOAD_ONLY
return(FALSE);
#else
DEFCLASS *cls;
cls = (DEFCLASS *) theDefclass;
#if BLOAD || BLOAD_AND_BSAVE
if (Bloaded(theEnv,execStatus))
return(FALSE);
#endif
if (cls == NULL)
return(RemoveAllUserClasses(theEnv,execStatus));
return(DeleteClassUAG(theEnv,execStatus,cls));
#endif
}
/*****************************************************************************
NAME : AddClass
DESCRIPTION : Determines the precedence list of the new class.
If it is valid, the routine checks to see if the class
already exists. If it does not, all the subclass
links are made from the class's direct superclasses,
and the class is inserted in the hash table. If it
does, all sublclasses are deleted. An error will occur
if any instances of the class (direct or indirect) exist.
If all checks out, the old definition is replaced by the new.
INPUTS : The new class description
RETURNS : Nothing useful
SIDE EFFECTS : The class is deleted if there is an error.
NOTES : No change in the class graph state will occur
if there were any errors.
Assumes class is not busy!!!
*****************************************************************************/
static void AddClass(
void *theEnv,
DEFCLASS *cls)
{
DEFCLASS *ctmp;
#if DEBUGGING_FUNCTIONS
int oldTraceInstances = FALSE,
oldTraceSlots = FALSE;
#endif
/* ===============================================
If class does not already exist, insert and
form progeny links with all direct superclasses
=============================================== */
cls->hashTableIndex = HashClass(GetDefclassNamePointer((void *) cls));
ctmp = (DEFCLASS *) EnvFindDefclass(theEnv,EnvGetDefclassName(theEnv,(void *) cls));
if (ctmp != NULL)
{
#if DEBUGGING_FUNCTIONS
oldTraceInstances = ctmp->traceInstances;
oldTraceSlots = ctmp->traceSlots;
#endif
DeleteClassUAG(theEnv,ctmp);
}
PutClassInTable(theEnv,cls);
BuildSubclassLinks(theEnv,cls);
InstallClass(theEnv,cls,TRUE);
AddConstructToModule((struct constructHeader *) cls);
FormInstanceTemplate(theEnv,cls);
FormSlotNameMap(theEnv,cls);
AssignClassID(theEnv,cls);
#if DEBUGGING_FUNCTIONS
if (cls->abstract)
{
cls->traceInstances = FALSE;
cls->traceSlots = FALSE;
}
else
{
if (oldTraceInstances)
cls->traceInstances = TRUE;
if (oldTraceSlots)
cls->traceSlots = TRUE;
}
#endif
#if DEBUGGING_FUNCTIONS
if (EnvGetConserveMemory(theEnv) == FALSE)
SetDefclassPPForm((void *) cls,CopyPPBuffer(theEnv));
#endif
#if DEFMODULE_CONSTRUCT
/* =========================================
Create a bitmap indicating whether this
class is in scope or not for every module
========================================= */
cls->scopeMap = (BITMAP_HN *) CreateClassScopeMap(theEnv,cls);
#endif
/* ==============================================
Define get- and put- handlers for public slots
============================================== */
CreatePublicSlotMessageHandlers(theEnv,cls);
}
