Return to make.c CVS log

Up to [Research Unix] / researchv10no / cmd / cref

Annotation of researchv10no/cmd/cref/make.c, revision 1.1

1.1     ! root        1: #
        !             2: # include "mcons.c"
        !             3: char   ib1[518];
        !             4: char   *ibuf   &ib1;
        !             5: struct htab    (
        !             6:                int     hsiz;
        !             7:                int     ssiz;
        !             8:                int     nsym;
        !             9:                int     curb;
        !            10:                int     *hptr;
        !            11:                char    *symt;
        !            12:                );
        !            13: 
        !            14: struct htab    itab;
        !            15: struct htab    xtab;
        !            16: 
        !            17: int    ipsp[PTRI];
        !            18: char   issp[CHARI];
        !            19: search(symbol,length,params,install)
        !            20:        char    *symbol;
        !            21:        int     length;
        !            22:        struct  htab    *params;
        !            23:        int     install;
        !            24: {
        !            25:        char    *sp,*p;
        !            26:        int     curb,*hptr,hsiz,nsym,ssiz;
        !            27:        char    *symt;
        !            28:        auto    h,i,j,k;
        !            29: 
        !            30:        hptr = params->hptr;
        !            31:        hsiz = params->hsiz;
        !            32:        symt = params->symt;
        !            33:        ssiz = params->ssiz;
        !            34:        curb = params->curb;
        !            35:        nsym = params->nsym;
        !            36: 
        !            37:        symbol[length] = '\0';
        !            38:        sp = symbol;
        !            39: 
        !            40:        i = length;
        !            41:        h = 1;
        !            42:        while(i--)
        !            43:                h =* *sp++;
        !            44: 
        !            45:        if(h == 0100000)h = 1;
        !            46:        h = h<0?(-h)%hsiz:h%hsiz;
        !            47:        if(h == 0)      h++;
        !            48: /*     printf("%s %d\n",symbol,h);     /*DEBUG*/
        !            49: 
        !            50:        while((p = &symt[hptr[h]]) > symt) {
        !            51:                j = length + 1;
        !            52:                sp = symbol;
        !            53:                while(j--) {
        !            54:                        if(*p++ != *sp++)       goto no;
        !            55:                }
        !            56:                return(*p);
        !            57: no:
        !            58:                h = (h + h)%hsiz;
        !            59:        }
        !            60:        if(install) {
        !            61:                if(++nsym >= hsiz)      err("too many","symbols");
        !            62: 
        !            63:                hptr[h] = curb;
        !            64:                length++;
        !            65:                if((curb + length) >= ssiz)     err("too many","chars");
        !            66: 
        !            67:                while(length--)
        !            68:                        symt[curb++] = *symbol++;
        !            69:                symt[curb++] = install;
        !            70:                params->curb = curb;
        !            71:                params->nsym = nsym;
        !            72:        }
        !            73:        return(0);
        !            74: }
        !            75: 
        !            76: main(argc,argv)        char **argv; 
        !            77: {
        !            78: 
        !            79:        auto    ifile,ofile,i,c,error,val;
        !            80:        char t[20];
        !            81: 
        !            82:        if(argc != 3)exit();
        !            83: 
        !            84:        ifile = fopen(argv[1],ibuf);
        !            85:        if(ifile < 0)err("open",argv[1]);
        !            86: 
        !            87:        ofile = creat(argv[2],0644);
        !            88:        if(ofile < 0)err("creat",argv[2]);
        !            89: 
        !            90:        xtab.hptr = &ipsp;
        !            91:        xtab.symt = &issp;
        !            92:        xtab.hsiz = PTRI;
        !            93:        xtab.ssiz = CHARI;
        !            94:        xtab.nsym = 0;
        !            95:        xtab.curb = 1;
        !            96: 
        !            97:        i = xtab.hsiz;
        !            98:        while(i)xtab.hptr[--i] = 0;
        !            99: 
        !           100:        i = -1;
        !           101:        while((t[++i] = getc(ibuf)) >= 0){
        !           102:                if(t[i] == '\n'){
        !           103:                        i = search(t,i,&xtab,1);
        !           104:                        i = -1;
        !           105:                } else {
        !           106:                        if(t[i] == '\t') {
        !           107:                                val = gen();
        !           108:                                search(t,i,&xtab,val);
        !           109:                                i = -1;
        !           110:                        }
        !           111:                }
        !           112:        }
        !           113: 
        !           114: /*     printf("collisions = %d\nsymbols = %d\n",ncol,nsym); /*INSTR*/
        !           115:        i = 0100200;
        !           116:        error = write(ofile,&i,2);
        !           117:        if(error < 0)err("write",argv[2]);
        !           118:        i = 2*xtab.hsiz;
        !           119:        error = write(ofile,&i,2);
        !           120:        if(error < 0)err("write",argv[2]);
        !           121:        error = write(ofile,&xtab.ssiz,2);
        !           122:        if(error < 0)err("write",argv[2]);
        !           123:        error = write(ofile,xtab.hptr,i);
        !           124:        if(error < 0)err("write",argv[2]);
        !           125:        error = write(ofile,xtab.symt,xtab.ssiz);
        !           126:        if(error < 0)err("write",argv[2]);
        !           127:        return;
        !           128: }
        !           129: 
        !           130: err(a,b)
        !           131:        char    *a,*b;
        !           132: {
        !           133:        printf("%s %s\n",a,b);
        !           134:        exit();
        !           135: }
        !           136: 
        !           137: gen()
        !           138: {
        !           139:        auto i,v;
        !           140: 
        !           141:        v = 0;
        !           142:        while((i = getc(ibuf)) != -1) {
        !           143:                if(i == '\n')   break;
        !           144:                v = v*10 + (i - '0');
        !           145:        }
        !           146:        return(v);
        !           147: }
        !           148: 

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