Return to sf.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pads / host

Annotation of researchv9/jtools/src/pads/host/sf.c, revision 1.1

1.1     ! root        1: #define SF_HASH 823
        !             2: struct SF_CELL {
        !             3:        SF_CELL *link;
        !             4:        char     buf[1];
        !             5: };
        !             6: void sprintf(char*, char* ...);
        !             7: 
        !             8: char *sf(char *f ... )
        !             9: {
        !            10:        int *a = (int*)&f;
        !            11:        static SF_CELL *Table[SF_HASH];
        !            12:        static Calls, Strings, Worst, Bytes;
        !            13:        char x[1024], *p;
        !            14:        unsigned long len, h, i;
        !            15:        struct SF_CELL *s;
        !            16: 
        !            17:        if( !f ){
        !            18:                static char report[128];
        !            19:                sprintf( report, "strings=%d calls=%d worst=%d bytes=%d",
        !            20:                                 Strings,   Calls,   Worst,    Bytes );
        !            21:                return report;
        !            22:        }
        !            23:        ++Calls;                
        !            24:        sprintf( x, f, a[1], a[2], a[3], a[4], a[5], a[6], a[7], a[8], a[9] );
        !            25:        h = 0;
        !            26:        for( len = 0, p = x; *p; )
        !            27:                h += (*p++) << (++len%4);
        !            28:        h %= SF_HASH;
        !            29:        for( s=Table[h],i=1; s; s=s->link,++i )
        !            30:                if(!strcmp(x,s->buf)) return s->buf;
        !            31:        ++Strings;
        !            32:        if( i>Worst ) Worst = i;
        !            33:        len = (len+4+sizeof(SF_CELL*)) / 4 * 4;         /* vax */
        !            34:        s = (SF_CELL*) new char [len];
        !            35:        if( !s ) return "sf(): out of memory";
        !            36:        Bytes += len;
        !            37:        s->link = Table[h];
        !            38:        Table[h] = s;
        !            39:        strcpy( s->buf, x );
        !            40:        return s->buf;
        !            41: }

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