1: /* $Header$ */ 2: 3: /* 4: * Author: Peter J. Nicklin 5: */ 6: 7: /* 8: * hthash() returns a hash value for string, s. 9: */ 10: #include "hash.h" 11: 12: hthash(s, hash) 13: register char *s; /* string */ 14: HASH *hash; /* hash table */ 15: { 16: register int hashval; /* hash value for string */ 17: 18: for (hashval = 0; *s != '\0'; s++) 19: hashval += *s; 20: return(hashval % hash->hashsiz); 21: }