struct constraintRecord *AddConstraint(
Environment *theEnv,
struct constraintRecord *theConstraint)
{
struct constraintRecord *tmpPtr;
unsigned long hashValue;
if (theConstraint == NULL) return NULL;
hashValue = HashConstraint(theConstraint);
for (tmpPtr = ConstraintData(theEnv)->ConstraintHashtable[hashValue];
tmpPtr != NULL;
tmpPtr = tmpPtr->next)
{
if (ConstraintCompare(theConstraint,tmpPtr))
{
tmpPtr->count++;
ReturnConstraintRecord(theEnv,theConstraint);
return tmpPtr;
}
}
InstallConstraintRecord(theEnv,theConstraint);
theConstraint->count = 1;
theConstraint->bucket = (unsigned int) hashValue;
theConstraint->installed = true;
theConstraint->next = ConstraintData(theEnv)->ConstraintHashtable[hashValue];
ConstraintData(theEnv)->ConstraintHashtable[hashValue] = theConstraint;
return theConstraint;
}
globle struct constraintRecord *AddConstraint(
void *theEnv,
struct constraintRecord *theConstraint)
{
struct constraintRecord *tmpPtr;
unsigned long hashValue;
if (theConstraint == NULL) return(NULL);
hashValue = HashConstraint(theConstraint);
for (tmpPtr = ConstraintData(theEnv)->ConstraintHashtable[hashValue];
tmpPtr != NULL;
tmpPtr = tmpPtr->next)
{
if (ConstraintCompare(theConstraint,tmpPtr))
{
tmpPtr->count++;
ReturnConstraintRecord(theEnv,theConstraint);
return(tmpPtr);
}
}
InstallConstraintRecord(theEnv,theConstraint);
theConstraint->count = 1;
theConstraint->bucket = hashValue;
theConstraint->next = ConstraintData(theEnv)->ConstraintHashtable[hashValue];
ConstraintData(theEnv)->ConstraintHashtable[hashValue] = theConstraint;
return(theConstraint);
}
unsigned long HashConstraint(
struct constraintRecord *theConstraint)
{
unsigned short i = 0;
unsigned long count = 0;
unsigned long hashValue;
struct expr *tmpPtr;
count +=
(theConstraint->anyAllowed * 17) +
(theConstraint->symbolsAllowed * 5) +
(theConstraint->stringsAllowed * 23) +
(theConstraint->floatsAllowed * 19) +
(theConstraint->integersAllowed * 29) +
(theConstraint->instanceNamesAllowed * 31) +
(theConstraint->instanceAddressesAllowed * 17);
count +=
(theConstraint->externalAddressesAllowed * 29) +
(theConstraint->voidAllowed * 29) +
(theConstraint->multifieldsAllowed * 29) +
(theConstraint->factAddressesAllowed * 79) +
(theConstraint->anyRestriction * 59) +
(theConstraint->symbolRestriction * 61);
count +=
(theConstraint->stringRestriction * 3) +
(theConstraint->floatRestriction * 37) +
(theConstraint->integerRestriction * 9) +
(theConstraint->classRestriction * 11) +
(theConstraint->instanceNameRestriction * 7);
for (tmpPtr = theConstraint->classList; tmpPtr != NULL; tmpPtr = tmpPtr->nextArg)
{ count += GetAtomicHashValue(tmpPtr->type,tmpPtr->value,i++); }
for (tmpPtr = theConstraint->restrictionList; tmpPtr != NULL; tmpPtr = tmpPtr->nextArg)
{ count += GetAtomicHashValue(tmpPtr->type,tmpPtr->value,i++); }
for (tmpPtr = theConstraint->minValue; tmpPtr != NULL; tmpPtr = tmpPtr->nextArg)
{ count += GetAtomicHashValue(tmpPtr->type,tmpPtr->value,i++); }
for (tmpPtr = theConstraint->maxValue; tmpPtr != NULL; tmpPtr = tmpPtr->nextArg)
{ count += GetAtomicHashValue(tmpPtr->type,tmpPtr->value,i++); }
for (tmpPtr = theConstraint->minFields; tmpPtr != NULL; tmpPtr = tmpPtr->nextArg)
{ count += GetAtomicHashValue(tmpPtr->type,tmpPtr->value,i++); }
for (tmpPtr = theConstraint->maxFields; tmpPtr != NULL; tmpPtr = tmpPtr->nextArg)
{ count += GetAtomicHashValue(tmpPtr->type,tmpPtr->value,i++); }
if (theConstraint->multifield != NULL)
{ count += HashConstraint(theConstraint->multifield); }
hashValue = count % SIZE_CONSTRAINT_HASH;
return hashValue;
}
