static void DestroyDeftemplate(
void *theEnv,
void *vTheConstruct)
{
struct deftemplate *theConstruct = (struct deftemplate *) vTheConstruct;
#if (! BLOAD_ONLY) && (! RUN_TIME)
struct templateSlot *slotPtr, *nextSlot;
#endif
if (theConstruct == NULL) return;
#if (! BLOAD_ONLY) && (! RUN_TIME)
slotPtr = theConstruct->slotList;
while (slotPtr != NULL)
{
nextSlot = slotPtr->next;
rtn_struct(theEnv,templateSlot,slotPtr);
slotPtr = nextSlot;
}
#endif
DestroyFactPatternNetwork(theEnv,theConstruct->patternNetwork);
/*==================================*/
/* Free storage used by the header. */
/*==================================*/
#if (! BLOAD_ONLY) && (! RUN_TIME)
DeinstallConstructHeader(theEnv,&theConstruct->header);
rtn_struct(theEnv,deftemplate,theConstruct);
#endif
}
globle void DestroyFactPatternNetwork(
void *theEnv,
struct factPatternNode *thePattern)
{
struct factPatternNode *patternPtr;
if (thePattern == NULL) return;
while (thePattern != NULL)
{
patternPtr = thePattern->rightNode;
DestroyFactPatternNetwork(theEnv,thePattern->nextLevel);
DestroyAlphaBetaMemory(theEnv,thePattern->header.alphaMemory);
#if (! BLOAD_ONLY) && (! RUN_TIME)
rtn_struct(theEnv,factPatternNode,thePattern);
#endif
thePattern = patternPtr;
}
}