Return to hash.h CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / ooptcfront

Annotation of researchv10no/cmd/cfront/ooptcfront/hash.h, revision 1.1

1.1     ! root        1: /* Compiler interface to hash tables from odi library. */
        !             2: /*
        !             3:        $Source: /usr3/lang/benson/work/stripped_cfront/RCS/hash.h,v $ $RCSfile: hash.h,v $
        !             4:        $Revision: 1.1 $                $Date: 89/11/20 08:50:36 $
        !             5:        $Author: benson $               $Locker:  $
        !             6:        $State: Exp $
        !             7: */
        !             8: 
        !             9: #include <hash.H>
        !            10: #include <string.h>
        !            11: 
        !            12: inline int pointer_hasheq (int a, int b)
        !            13: {
        !            14:     return a == b;
        !            15: };
        !            16: 
        !            17: inline unsigned int pointer_hash_fcn (int x)
        !            18: {
        !            19:     unsigned X = (unsigned) x;
        !            20:     return ((X << 16) | (X >> 16)) ^ x;
        !            21: }
        !            22: 
        !            23: 
        !            24: class pointer_hash : public Hash {
        !            25:   public:
        !            26:     pointer_hash (int sz = 0) : Hash (sz) {
        !            27:        key_hash_function = pointer_hash_fcn;
        !            28:        key_key_equality_function = pointer_hasheq;
        !            29:     }
        !            30: 
        !            31:     pointer_hash (pointer_hash& h) : Hash (h) {};
        !            32: };
        !            33: 
        !            34: inline int string_hasheq (int a, int b)
        !            35: {
        !            36:     return !strcmp((char *)a, (char *) b);
        !            37: };
        !            38: 
        !            39: static unsigned int string_hash_fcn (int x)
        !            40: {
        !            41:     char * str = (char *)x;
        !            42:     int l = strlen(str);
        !            43:        
        !            44:     if(x <= 4) return str[0];
        !            45:     else {
        !            46:        unsigned int * f4 = (unsigned int *) str;
        !            47:        if (l < 8) return ((*f4 << 16) | (*f4 >> 16)) ^ *f4;
        !            48:        else {
        !            49:            unsigned int * s4 = f4 ++;
        !            50:            return ((*f4 << 16) | (*f4 >> 16)) ^ *s4;
        !            51:        }
        !            52:     }
        !            53: };
        !            54: 
        !            55: 
        !            56: class string_hash : public Hash {
        !            57:     public:
        !            58: 
        !            59:     string_hash (int sz = 0) : Hash (sz) {
        !            60:        key_hash_function = string_hash_fcn;
        !            61:        key_key_equality_function = string_hasheq;
        !            62:     };
        !            63: 
        !            64:     string_hash (string_hash& h) : Hash (h) {};
        !            65: };
        !            66: 
        !            67: 
        !            68: /*
        !            69:    $Log:       hash.h,v $
        !            70:  * Revision 1.1  89/11/20  08:50:36  benson
        !            71:  * Initial revision
        !            72:  * 
        !            73:  * Revision 1.1  89/09/26  10:11:51  benson
        !            74:  * Initial revision
        !            75:  * 
        !            76: 
        !            77: 
        !            78:    end_log
        !            79: */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.