/***********************************************************
NAME : ValidClassName
DESCRIPTION : Determines if a new class of the given
name can be defined in the current module
INPUTS : 1) The new class name
2) Buffer to hold class address
RETURNS : TRUE if OK, FALSE otherwise
SIDE EFFECTS : Error message printed if not OK
NOTES : GetConstructNameAndComment() (called before
this function) ensures that the defclass
name does not conflict with one from
another module
***********************************************************/
static intBool ValidClassName(
void *theEnv,
char *theClassName,
DEFCLASS **theDefclass)
{
*theDefclass = (DEFCLASS *) EnvFindDefclass(theEnv,theClassName);
if (*theDefclass != NULL)
{
/* ===================================
System classes (which are visible
in all modules) cannot be redefined
=================================== */
if ((*theDefclass)->system)
{
PrintErrorID(theEnv,"CLASSPSR",2,FALSE);
EnvPrintRouter(theEnv,WERROR,"Cannot redefine a predefined system class.\n");
return(FALSE);
}
/* ===============================================
A class in the current module can only be
redefined if it is not in use, e.g., instances,
generic function method restrictions, etc.
=============================================== */
if ((EnvIsDefclassDeletable(theEnv,(void *) *theDefclass) == FALSE) &&
(! ConstructData(theEnv)->CheckSyntaxMode))
{
PrintErrorID(theEnv,"CLASSPSR",3,FALSE);
EnvPrintRouter(theEnv,WERROR,EnvGetDefclassName(theEnv,(void *) *theDefclass));
EnvPrintRouter(theEnv,WERROR," class cannot be redefined while\n");
EnvPrintRouter(theEnv,WERROR," outstanding references to it still exist.\n");
return(FALSE);
}
}
return(TRUE);
}
globle intBool IsDefclassDeletable(
void *ptr)
{
return EnvIsDefclassDeletable(GetCurrentEnvironment(),ptr);
}