home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / ext / SDBM_File / sdbm / hash.c < prev    next >
C/C++ Source or Header  |  1999-07-20  |  953b  |  48 lines
  1. /*
  2.  * sdbm - ndbm work-alike hashed database library
  3.  * based on Per-Aake Larson's Dynamic Hashing algorithms. BIT 18 (1978).
  4.  * author: oz@nexus.yorku.ca
  5.  * status: public domain. keep it that way.
  6.  *
  7.  * hashing routine
  8.  */
  9.  
  10. #include "config.h"
  11. #include "EXTERN.h"
  12. #include "sdbm.h"
  13. /*
  14.  * polynomial conversion ignoring overflows
  15.  * [this seems to work remarkably well, in fact better
  16.  * then the ndbm hash function. Replace at your own risk]
  17.  * use: 65599    nice.
  18.  *      65587   even better. 
  19.  */
  20. long
  21. sdbm_hash(register char *str, register int len)
  22. {
  23.     register unsigned long n = 0;
  24.  
  25. #ifdef DUFF
  26.  
  27. #define HASHC    n = *str++ + 65599 * n
  28.  
  29.     if (len > 0) {
  30.         register int loop = (len + 8 - 1) >> 3;
  31.  
  32.         switch(len & (8 - 1)) {
  33.         case 0:    do {
  34.             HASHC;    case 7:    HASHC;
  35.         case 6:    HASHC;    case 5:    HASHC;
  36.         case 4:    HASHC;    case 3:    HASHC;
  37.         case 2:    HASHC;    case 1:    HASHC;
  38.             } while (--loop);
  39.         }
  40.  
  41.     }
  42. #else
  43.     while (len--)
  44.         n = *str++ + 65599 * n;
  45. #endif
  46.     return n;
  47. }
  48.