/***************************************************
NAME : UpdateAlpha
DESCRIPTION : Updates all the pointers for an
alpha node based on the binary
image indices
INPUTS : 1) A pointer to the binary
image alpha node buffer
2) The index of the actual
alpha node in the array
RETURNS : Nothing useful
SIDE EFFECTS : Alpha node updated
NOTES : None
***************************************************/
static void UpdateAlpha(
void *theEnv,
EXEC_STATUS,
void *buf,
long obji)
{
BSAVE_OBJECT_ALPHA_NODE *bap;
OBJECT_ALPHA_NODE *ap;
bap = (BSAVE_OBJECT_ALPHA_NODE *) buf;
ap = (OBJECT_ALPHA_NODE *) &ObjectReteBinaryData(theEnv,execStatus)->AlphaArray[obji];
UpdatePatternNodeHeader(theEnv,execStatus,&ap->header,&bap->header);
ap->matchTimeTag = 0L;
ap->classbmp = BitMapPointer(bap->classbmp);
if (bap->slotbmp != -1L)
{
ap->slotbmp = BitMapPointer(bap->slotbmp);
IncrementBitMapCount(ap->slotbmp);
}
else
ap->slotbmp = NULL;
IncrementBitMapCount(ap->classbmp);
ap->patternNode = ObjectPatternPointer(bap->patternNode);
ap->nxtInGroup = ObjectAlphaPointer(bap->nxtInGroup);
ap->nxtTerminal = ObjectAlphaPointer(bap->nxtTerminal);
ap->bsaveID = 0L;
}
static void UpdateDefclass(
void *buf,
long obji)
{
BSAVE_DEFCLASS *bcls;
DEFCLASS *cls;
bcls = (BSAVE_DEFCLASS *) buf;
cls = (DEFCLASS *) &defclassArray[obji];
UpdateConstructHeader(&bcls->header,&cls->header,
(int) sizeof(DEFCLASS_MODULE),(void *) ModuleArray,
(int) sizeof(DEFCLASS),(void *) defclassArray);
cls->abstract = bcls->abstract;
cls->reactive = bcls->reactive;
cls->system = bcls->system;
cls->id = bcls->id;
ClassIDMap[cls->id] = cls;
#if DEBUGGING_FUNCTIONS
cls->traceInstances = WatchInstances;
cls->traceSlots = WatchSlots;
#endif
cls->slotCount = bcls->slotCount;
cls->instanceSlotCount = bcls->instanceSlotCount;
cls->localInstanceSlotCount = bcls->localInstanceSlotCount;
cls->maxSlotNameID = bcls->maxSlotNameID;
cls->handlerCount = bcls->handlerCount;
cls->directSuperclasses.classCount =bcls->directSuperclasses.classCount;
cls->directSuperclasses.classArray = LinkPointer(bcls->directSuperclasses.classArray);
cls->directSubclasses.classCount =bcls->directSubclasses.classCount;
cls->directSubclasses.classArray = LinkPointer(bcls->directSubclasses.classArray);
cls->allSuperclasses.classCount =bcls->allSuperclasses.classCount;
cls->allSuperclasses.classArray = LinkPointer(bcls->allSuperclasses.classArray);
cls->slots = SlotPointer(bcls->slots);
cls->instanceTemplate = TemplateSlotPointer(bcls->instanceTemplate);
cls->slotNameMap = OrderedSlotPointer(bcls->slotNameMap);
cls->instanceList = NULL;
cls->handlers = HandlerPointer(bcls->handlers);
cls->handlerOrderMap = OrderedHandlerPointer(bcls->handlers);
cls->installed = 1;
cls->busy = 0;
cls->instanceList = NULL;
cls->instanceListBottom = NULL;
#if DEFMODULE_CONSTRUCT
cls->scopeMap = BitMapPointer(bcls->scopeMap);
IncrementBitMapCount(cls->scopeMap);
#else
cls->scopeMap = NULL;
#endif
PutClassInTable(cls);
}
