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: }
Last modified: 1985-07-03
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 454
Valid CSS Valid XHTML 1.0 Strict