Return to mkey3.c CVS log

Up to [Research Unix] / researchv10no / cmd / ap / apkeys

Annotation of researchv10no/cmd/ap/apkeys/mkey3.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: # include "assert.h"
        !             3: char *comname = "/usr/lib/eign";
        !             4: static int cgate = 0;
        !             5: extern char *comname;
        !             6: # define COMNUM 500
        !             7: # define COMTSIZE 997
        !             8: int comcount = 400;
        !             9: static char cbuf[COMNUM*9];
        !            10: static char *cwds[COMTSIZE];
        !            11: static char *cbp;
        !            12: 
        !            13: common (s)
        !            14:        char *s;
        !            15: {
        !            16: if (cgate==0) cominit();
        !            17: return (c_look(s, 1));
        !            18: }
        !            19: cominit()
        !            20: {
        !            21: int i;
        !            22: FILE *f;
        !            23: cgate=1;
        !            24: f = fopen(comname, "r");
        !            25: if (f==NULL) return;
        !            26: cbp=cbuf;
        !            27: for(i=0; i<comcount; i++)
        !            28:        {
        !            29:        if (fgets(cbp, 15, f)==NULL)
        !            30:                break;
        !            31:        trimnl(cbp);
        !            32:        c_look (cbp, 0);
        !            33:        while (*cbp++);
        !            34:        }
        !            35: fclose(f);
        !            36: }
        !            37: c_look (s, fl)
        !            38:        char *s;
        !            39: {
        !            40: int h;
        !            41: h = hash(s) % (COMTSIZE);
        !            42: while (cwds[h] != 0)
        !            43:        {
        !            44:        if (strcmp(s, cwds[h])==0)
        !            45:                return(1);
        !            46:        h = (h+1) % (COMTSIZE);
        !            47:        }
        !            48: if (fl==0)
        !            49:        cwds[h] = s;
        !            50: return(0);
        !            51: }
        !            52: hash (s)
        !            53:        char *s;
        !            54: {
        !            55: int c, n;
        !            56: for(n=0; c= *s; s++)
        !            57:        n += (c*n+ c << (n%4));
        !            58: return(n>0 ? n : -n);
        !            59: }
        !            60: char *
        !            61: svc(s)
        !            62:        char *s;
        !            63: {
        !            64: char *p, *calloc();
        !            65: p = calloc(strlen(s)+1,1);
        !            66: assert(p!=0);
        !            67: strcpy(p,s);
        !            68: return(p);
        !            69: }

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