Return to comm.c CVS log

Up to [Research Unix] / researchv10no / cmd

Annotation of researchv10no/cmd/comm.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #define LB 2048
        !             3: int    one;
        !             4: int    two;
        !             5: int    three;
        !             6: 
        !             7: char   *ldr[3];
        !             8: 
        !             9: FILE *ib1;
        !            10: FILE *ib2;
        !            11: FILE *openfil();
        !            12: main(argc,argv)
        !            13: char   *argv[];
        !            14: {
        !            15:        int     l;
        !            16:        char    lb1[LB],lb2[LB];
        !            17: 
        !            18:        ldr[0] = "";
        !            19:        ldr[1] = "\t";
        !            20:        ldr[2] = "\t\t";
        !            21:        if(argc > 1)  {
        !            22:                if(*argv[1] == '-' && argv[1][1] != 0) {
        !            23:                        l = 1;
        !            24:                        while(*++argv[1]) {
        !            25:                                switch(*argv[1]) {
        !            26:                                case'1':
        !            27:                                        if(!one) {
        !            28:                                                one = 1;
        !            29:                                                ldr[1][0] =
        !            30:                                                ldr[2][l--] = '\0';
        !            31:                                        }
        !            32:                                        break;
        !            33:                                case '2':
        !            34:                                        if(!two) {
        !            35:                                                two = 1;
        !            36:                                                ldr[2][l--] = '\0';
        !            37:                                        }
        !            38:                                        break;
        !            39:                                case '3':
        !            40:                                        three = 1;
        !            41:                                        break;
        !            42:                                default:
        !            43:                                fprintf(stderr,"comm: illegal flag\n");
        !            44:                                exit(1);
        !            45:                                }
        !            46:                        }
        !            47:                        argv++;
        !            48:                        argc--;
        !            49:                }
        !            50:        }
        !            51: 
        !            52:        if(argc < 3) {
        !            53:                fprintf(stderr,"comm: arg count\n");
        !            54:                exit(1);
        !            55:        }
        !            56: 
        !            57:        ib1 = openfil(argv[1]);
        !            58:        ib2 = openfil(argv[2]);
        !            59: 
        !            60: 
        !            61:        if(rd(ib1,lb1) < 0) {
        !            62:                if(rd(ib2,lb2) < 0)     exit(0);
        !            63:                copy(ib2,lb2,2);
        !            64:        }
        !            65:        if(rd(ib2,lb2) < 0)     copy(ib1,lb1,1);
        !            66: 
        !            67:        while(1) {
        !            68: 
        !            69:                switch(compare(lb1,lb2)) {
        !            70: 
        !            71:                        case 0:
        !            72:                                wr(lb1,3);
        !            73:                                if(rd(ib1,lb1) < 0) {
        !            74:                                        if(rd(ib2,lb2) < 0)     exit(0);
        !            75:                                        copy(ib2,lb2,2);
        !            76:                                }
        !            77:                                if(rd(ib2,lb2) < 0)     copy(ib1,lb1,1);
        !            78:                                continue;
        !            79: 
        !            80:                        case 1:
        !            81:                                wr(lb1,1);
        !            82:                                if(rd(ib1,lb1) < 0)     copy(ib2,lb2,2);
        !            83:                                continue;
        !            84: 
        !            85:                        case 2:
        !            86:                                wr(lb2,2);
        !            87:                                if(rd(ib2,lb2) < 0)     copy(ib1,lb1,1);
        !            88:                                continue;
        !            89:                }
        !            90:        }
        !            91: }
        !            92: 
        !            93: rd(file,buf)
        !            94: FILE *file;
        !            95: char *buf;
        !            96: {
        !            97: 
        !            98:        register int i, c;
        !            99:        i = 0;
        !           100:        while((c = getc(file)) != EOF) {
        !           101:                *buf = c;
        !           102:                if(c == '\n' || i > LB-2) {
        !           103:                        *buf = '\0';
        !           104:                        return(0);
        !           105:                }
        !           106:                i++;
        !           107:                buf++;
        !           108:        }
        !           109:        return(-1);
        !           110: }
        !           111: 
        !           112: wr(str,n)
        !           113:        char    *str;
        !           114: {
        !           115: 
        !           116:        switch(n) {
        !           117: 
        !           118:                case 1:
        !           119:                        if(one) return;
        !           120:                        break;
        !           121: 
        !           122:                case 2:
        !           123:                        if(two) return;
        !           124:                        break;
        !           125: 
        !           126:                case 3:
        !           127:                        if(three)       return;
        !           128:        }
        !           129:        printf("%s%s\n",ldr[n-1],str);
        !           130: }
        !           131: 
        !           132: copy(ibuf,lbuf,n)
        !           133: FILE *ibuf;
        !           134: char *lbuf;
        !           135: {
        !           136:        do {
        !           137:                wr(lbuf,n);
        !           138:        } while(rd(ibuf,lbuf) >= 0);
        !           139: 
        !           140:        exit(0);
        !           141: }
        !           142: 
        !           143: compare(a,b)
        !           144:        char    *a,*b;
        !           145: {
        !           146:        register char *ra,*rb;
        !           147: 
        !           148:        ra = --a;
        !           149:        rb = --b;
        !           150:        while(*++ra == *++rb)
        !           151:                if(*ra == '\0') return(0);
        !           152:        if(*ra < *rb)   return(1);
        !           153:        return(2);
        !           154: }
        !           155: FILE *openfil(s)
        !           156: char *s;
        !           157: {
        !           158:        FILE *b;
        !           159:        if(s[0]=='-' && s[1]==0)
        !           160:                b = stdin;
        !           161:        else if((b=fopen(s,"r")) == NULL) {
        !           162:                fprintf(stderr,"comm: cannot open %s\n",s);
        !           163:                exit(1);
        !           164:        }
        !           165:        return(b);
        !           166: }

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