/*****************************************************************
NAME : CountSubclasses
DESCRIPTION : Counts the number of direct or indirect
subclasses for a class
INPUTS : 1) Address of class
2) Include (1) or exclude (0) indirect subclasses
3) Traversal id
RETURNS : The number of subclasses
SIDE EFFECTS : None
NOTES : None
*****************************************************************/
static unsigned CountSubclasses(
DEFCLASS *cls,
int inhp,
int tvid)
{
long i,cnt;
register DEFCLASS *subcls;
for (cnt = 0 , i = 0 ; i < cls->directSubclasses.classCount ; i++)
{
subcls = cls->directSubclasses.classArray[i];
if (TestTraversalID(subcls->traversalRecord,tvid) == 0)
{
cnt++;
SetTraversalID(subcls->traversalRecord,tvid);
if (inhp && (subcls->directSubclasses.classCount != 0))
cnt += CountSubclasses(subcls,inhp,tvid);
}
}
return(cnt);
}
/**************************************************************************
NAME : ClassSubclassAddresses
DESCRIPTION : Groups the class addresses of subclasses for a class into a
multifield value for dynamic perusal
INPUTS : 1) Generic pointer to class
2) Data object buffer to hold the sublclasses of the class
3) Include (1) or exclude (0) indirect subclasses
RETURNS : Nothing useful
SIDE EFFECTS : Creates a multifield storing the subclass
addresss of the class
NOTES : None
**************************************************************************/
globle void ClassSubclassAddresses(
void *clsptr,
DATA_OBJECT *result,
int inhp)
{
register int i,id;
if ((id = GetTraversalID()) == -1)
return;
i = CountSubclasses((DEFCLASS *) clsptr,inhp,id);
ReleaseTraversalID();
result->type = MULTIFIELD;
result->begin = 0;
result->end = i - 1;
result->value = (void *) CreateMultifield(i);
if (i == 0)
return;
if ((id = GetTraversalID()) == -1)
return;
StoreSubclasses(result->value,1,(DEFCLASS *) clsptr,inhp,id,FALSE);
ReleaseTraversalID();
}
/**************************************************************************
NAME : ClassSubclassAddresses
DESCRIPTION : Groups the class addresses of subclasses for a class into a
multifield value for dynamic perusal
INPUTS : 1) Generic pointer to class
2) Data object buffer to hold the sublclasses of the class
3) Include (1) or exclude (0) indirect subclasses
RETURNS : Nothing useful
SIDE EFFECTS : Creates a multifield storing the subclass
addresss of the class
NOTES : None
**************************************************************************/
globle void ClassSubclassAddresses(
void *theEnv,
void *clsptr,
DATA_OBJECT *result,
int inhp)
{
register int i; // Bug fix 2014-07-18: Previously unsigned and SetpDOEnd decremented to -1.
register int id;
if ((id = GetTraversalID(theEnv)) == -1)
return;
i = CountSubclasses((DEFCLASS *) clsptr,inhp,id);
ReleaseTraversalID(theEnv);
result->type = MULTIFIELD;
result->begin = 0;
SetpDOEnd(result,i);
result->value = (void *) EnvCreateMultifield(theEnv,i);
if (i == 0)
return;
if ((id = GetTraversalID(theEnv)) == -1)
return;
StoreSubclasses(result->value,1,(DEFCLASS *) clsptr,inhp,id,FALSE);
ReleaseTraversalID(theEnv);
}
/**************************************************************************
NAME : EnvClassSubclasses
DESCRIPTION : Groups the names of subclasses for a class into a
multifield value for dynamic perusal
INPUTS : 1) Generic pointer to class
2) Data object buffer to hold the sublclasses of the class
3) Include (1) or exclude (0) indirect subclasses
RETURNS : Nothing useful
SIDE EFFECTS : Creates a multifield storing the names
the subclasses of the class
NOTES : None
**************************************************************************/
globle void EnvClassSubclasses(
void *theEnv,
void *clsptr,
DATA_OBJECT *result,
int inhp)
{
register unsigned i;
register int id;
if ((id = GetTraversalID(theEnv)) == -1)
return;
i = CountSubclasses((DEFCLASS *) clsptr,inhp,id);
ReleaseTraversalID(theEnv);
result->type = MULTIFIELD;
result->begin = 0;
SetpDOEnd(result,i);
result->value = (void *) EnvCreateMultifield(theEnv,i);
if (i == 0)
return;
if ((id = GetTraversalID(theEnv)) == -1)
return;
StoreSubclasses(result->value,1,(DEFCLASS *) clsptr,inhp,id,TRUE);
ReleaseTraversalID(theEnv);
}
