Help for this page

Select Code to Download


  1. or download this
    #define PERL_HASH(hash,str,len) \
     STMT_START    { \
    register char *s_PeRlHaSh = str; \
...
    } STMT_END
  2. or download this
    /* FYI: This is the "One-at-a-Time" algorithm by Bob Jenkins */
/* from requirements by Colin Plumb. */
/* (http://burtleburtle.net/bob/hash/doobs.html) */
...
    (hash) = (hash_PeRlHaSh + (hash_PeRlHaSh << 15)); \
    } STMT_END