int HashFact(
struct fact *theFact)
{
int count = 0;
int hashValue;
/*============================================*/
/* Get a hash value for the deftemplate name. */
/*============================================*/
count += HashSymbol(ValueToString(theFact->whichDeftemplate->header.name),
SIZE_FACT_HASH);
/*=================================================*/
/* Add in the hash value for the rest of the fact. */
/*=================================================*/
count += (int) HashMultifield(&theFact->theProposition,SIZE_FACT_HASH);
/*================================*/
/* Make sure the hash value falls */
/* in the appropriate range. */
/*================================*/
hashValue = (int) (count % SIZE_FACT_HASH);
if (hashValue < 0) hashValue = - hashValue;
/*========================*/
/* Return the hash value. */
/*========================*/
return(hashValue);
}
unsigned long HashFact(
struct fact *theFact)
{
unsigned long count = 0;
/*============================================*/
/* Get a hash value for the deftemplate name. */
/*============================================*/
count += (unsigned long) theFact->whichDeftemplate->header.name->bucket * 73981;
/*=================================================*/
/* Add in the hash value for the rest of the fact. */
/*=================================================*/
count += HashMultifield(&theFact->theProposition,0);
/*================================*/
/* Make sure the hash value falls */
/* in the appropriate range. */
/*================================*/
theFact->hashValue = count;
/*========================*/
/* Return the hash value. */
/*========================*/
return(count);
}
globle int ItemHashValue(
int theType,
void *theValue,
int theRange)
{
switch(theType)
{
case FLOAT:
return(HashFloat(ValueToDouble(theValue),theRange));
case INTEGER:
return(HashInteger(ValueToLong(theValue),theRange));
case SYMBOL:
case STRING:
#if OBJECT_SYSTEM
case INSTANCE_NAME:
#endif
return(HashSymbol(ValueToString(theValue),theRange));
case MULTIFIELD:
return(HashMultifield((struct multifield *) theValue,theRange));
#if DEFTEMPLATE_CONSTRUCT
case FACT_ADDRESS:
return(HashFact((struct fact *) theValue) % theRange);
#endif
case EXTERNAL_ADDRESS:
#if OBJECT_SYSTEM
case INSTANCE_ADDRESS:
#endif
return(((int) theValue) % theRange);
default:
SystemError("UTILITY",1);
return(-1L);
}
return(-1L);
}
globle unsigned long HashMultifield(
struct multifield *theSegment,
unsigned long theRange)
{
unsigned long length, i;
unsigned long tvalue;
unsigned long count;
struct field *fieldPtr;
union
{
double fv;
void *vv;
unsigned long liv;
} fis;
/*================================================*/
/* Initialize variables for computing hash value. */
/*================================================*/
count = 0;
length = theSegment->multifieldLength;
fieldPtr = theSegment->theFields;
/*====================================================*/
/* Loop through each value in the multifield, compute */
/* its hash value, and add it to the running total. */
/*====================================================*/
for (i = 0;
i < length;
i++)
{
switch(fieldPtr[i].type)
{
case MULTIFIELD:
count += HashMultifield((struct multifield *) fieldPtr[i].value,theRange);
break;
case FLOAT:
fis.liv = 0;
fis.fv = ValueToDouble(fieldPtr[i].value);
count += (fis.liv * (i + 29)) +
(unsigned long) ValueToDouble(fieldPtr[i].value);
break;
case INTEGER:
count += (((unsigned long) ValueToLong(fieldPtr[i].value)) * (i + 29)) +
((unsigned long) ValueToLong(fieldPtr[i].value));
break;
case FACT_ADDRESS:
#if OBJECT_SYSTEM
case INSTANCE_ADDRESS:
#endif
fis.liv = 0;
fis.vv = fieldPtr[i].value;
count += (unsigned long) (fis.liv * (i + 29));
break;
case EXTERNAL_ADDRESS:
fis.liv = 0;
fis.vv = ValueToExternalAddress(fieldPtr[i].value);
count += (unsigned long) (fis.liv * (i + 29));
break;
case SYMBOL:
case STRING:
#if OBJECT_SYSTEM
case INSTANCE_NAME:
#endif
tvalue = (unsigned long) HashSymbol(ValueToString(fieldPtr[i].value),theRange);
count += (unsigned long) (tvalue * (i + 29));
break;
}
}
/*========================*/
/* Return the hash value. */
/*========================*/
return(count);
}
