/************************************************************
NAME : TestForFirstInChain
DESCRIPTION : Processes all classes in a restriction chain
until success or done
INPUTS : 1) The current chain
2) The index of the chain restriction
(e.g. the 4th query-variable)
RETURNS : TRUE if query succeeds, FALSE otherwise
SIDE EFFECTS : Sets current restriction class
Instance variable values set
NOTES : None
************************************************************/
static int TestForFirstInChain(
void *theEnv,
EXEC_STATUS,
QUERY_CLASS *qchain,
int indx)
{
QUERY_CLASS *qptr;
int id;
InstanceQueryData(theEnv,execStatus)->AbortQuery = TRUE;
for (qptr = qchain ; qptr != NULL ; qptr = qptr->chain)
{
InstanceQueryData(theEnv,execStatus)->AbortQuery = FALSE;
if ((id = GetTraversalID(theEnv,execStatus)) == -1)
return(FALSE);
if (TestForFirstInstanceInClass(theEnv,execStatus,qptr->theModule,id,qptr->cls,qchain,indx))
{
ReleaseTraversalID(theEnv,execStatus);
return(TRUE);
}
ReleaseTraversalID(theEnv,execStatus);
if ((execStatus->HaltExecution == TRUE) || (InstanceQueryData(theEnv,execStatus)->AbortQuery == TRUE))
return(FALSE);
}
return(FALSE);
}
/**************************************************************************
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 : TestForFirstInChain
DESCRIPTION : Processes all classes in a restriction chain
until success or done
INPUTS : 1) The current chain
2) The index of the chain restriction
(e.g. the 4th query-variable)
RETURNS : TRUE if query succeeds, FALSE otherwise
SIDE EFFECTS : Sets current restriction class
Instance variable values set
NOTES : None
************************************************************/
static int TestForFirstInChain(
QUERY_CLASS *qchain,
int indx)
{
QUERY_CLASS *qptr;
int id;
AbortQuery = TRUE;
for (qptr = qchain ; qptr != NULL ; qptr = qptr->chain)
{
AbortQuery = FALSE;
if ((id = GetTraversalID()) == -1)
return(FALSE);
if (TestForFirstInstanceInClass(qptr->theModule,id,qptr->cls,qchain,indx))
{
ReleaseTraversalID();
return(TRUE);
}
ReleaseTraversalID();
if ((HaltExecution == TRUE) || (AbortQuery == TRUE))
return(FALSE);
}
return(FALSE);
}
/**************************************************************************
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);
}
/************************************************************
NAME : TestEntireChain
DESCRIPTION : Processes all classes in a restriction chain
until done
INPUTS : 1) The current chain
2) The index of the chain restriction
(i.e. the 4th query-variable)
RETURNS : Nothing useful
SIDE EFFECTS : Sets current restriction class
Query instance variables set
Solution sets stored in global list
NOTES : None
************************************************************/
static void TestEntireChain(
QUERY_CLASS *qchain,
int indx)
{
QUERY_CLASS *qptr;
int id;
AbortQuery = TRUE;
for (qptr = qchain ; qptr != NULL ; qptr = qptr->chain)
{
AbortQuery = FALSE;
if ((id = GetTraversalID()) == -1)
return;
TestEntireClass(qptr->theModule,id,qptr->cls,qchain,indx);
ReleaseTraversalID();
if ((HaltExecution == TRUE) || (AbortQuery == TRUE))
return;
}
}
/************************************************************
NAME : TestEntireChain
DESCRIPTION : Processes all classes in a restriction chain
until done
INPUTS : 1) The current chain
2) The index of the chain restriction
(i.e. the 4th query-variable)
RETURNS : Nothing useful
SIDE EFFECTS : Sets current restriction class
Query instance variables set
Solution sets stored in global list
NOTES : None
************************************************************/
static void TestEntireChain(
void *theEnv,
QUERY_CLASS *qchain,
int indx)
{
QUERY_CLASS *qptr;
int id;
InstanceQueryData(theEnv)->AbortQuery = TRUE;
for (qptr = qchain ; qptr != NULL ; qptr = qptr->chain)
{
InstanceQueryData(theEnv)->AbortQuery = FALSE;
if ((id = GetTraversalID(theEnv)) == -1)
return;
TestEntireClass(theEnv,qptr->theModule,id,qptr->cls,qchain,indx);
ReleaseTraversalID(theEnv);
if ((EvaluationData(theEnv)->HaltExecution == TRUE) || (InstanceQueryData(theEnv)->AbortQuery == TRUE))
return;
}
}