Return to paste.c CVS log

Up to [Research Unix] / researchv8dc / cmd

Annotation of researchv8dc/cmd/paste.c, revision 1.1

1.1     ! root        1: static char sccsid[] = "@(#)paste.c    1.1";
        !             2: #
        !             3: /* paste: concatenate corresponding lines of each file in parallel. Release 1.4 (GWRL) */
        !             4: /*     (-s option: serial concatenation like old (127's) paste command */
        !             5: # include <stdio.h>    /* make :  cc paste.c  */
        !             6: # define MAXOPNF 12    /* maximal no. of open files (not with -s option) */
        !             7: # define MAXLINE 512   /* maximal line length */
        !             8: #define RUB  '\177'
        !             9:        char del[MAXLINE] = {"\t"};
        !            10:   
        !            11: main(argc, argv)
        !            12: int argc;
        !            13: char ** argv;
        !            14: {
        !            15:        int i, j, k, eofcount, nfiles, maxline, glue;
        !            16:        int delcount = { 1 } ;
        !            17:        int onefile  = { 0 } ;
        !            18:        register int c ;
        !            19:        char outbuf[MAXLINE], l, t;
        !            20:        register char *p;
        !            21:        FILE *inptr[MAXOPNF];
        !            22:   
        !            23:        maxline = MAXLINE -2;
        !            24:  
        !            25:        while (argc > 1 && argv[1][0] == '-' && (c = argv[1][1]) != '\0'){
        !            26:                switch (c) {
        !            27:                        case 's' :  onefile++;
        !            28:                                c = argv[1][2];
        !            29:                                argv[1]++;
        !            30:                                break ;
        !            31:                        case 'd' : argv[1] += 2;
        !            32:                                if((delcount = move(argv[1], &del[0])) == 0) diag("no delimiters\n",1);;
        !            33:                                break;
        !            34:                        default :
        !            35:                                diag("Usage: paste [-s] [-d<delimiterstring>] file1 file2 ...", 1);
        !            36:                                break;
        !            37:                }
        !            38:                --argc;
        !            39:                ++argv;
        !            40:        } /* end options */
        !            41:        --argc;
        !            42:  
        !            43:        if ( ! onefile) {       /* not -s option: parallel line merging */
        !            44:                for (i = 0; argc >0 && i < MAXOPNF; i++) {
        !            45:                        if (argv[i + 1][0] == '-') {
        !            46:                                inptr[i] = stdin;
        !            47:                        } else inptr[i] = fopen(argv[i + 1], "r");
        !            48:                        if (inptr[i] == NULL) {
        !            49:                                diag(argv[i + 1], 0);
        !            50:                                diag(" : cannot open\n", 1);
        !            51:                        }
        !            52:                argc--;
        !            53:                }
        !            54:                if (argc > 0) diag("too many files\n",1);
        !            55:                nfiles = i;
        !            56:   
        !            57:                do {
        !            58:                        p = &outbuf[0];
        !            59:                        eofcount = 0;
        !            60:                        j = k = 0;
        !            61:                        for (i = 0; i < nfiles; i++) {
        !            62:                                while((c = getc(inptr[i])) != '\n' && c != EOF)   {
        !            63:                                        if (++j <= maxline) *p++ = c ;
        !            64:                                        else {
        !            65:                                        diag("line too long\n",1);
        !            66:                                        }
        !            67:                                }
        !            68:                                if ( (l = del[k]) != RUB) *p++ = l;
        !            69:                                k = (k + 1) % delcount;
        !            70:                                if( c == EOF) eofcount++;
        !            71:                        }
        !            72:                        if (l != RUB) *--p = '\n'; else  *p = '\n';
        !            73:                        *++p = 0;
        !            74:                        if (eofcount < nfiles) fputs(outbuf, stdout);
        !            75:                }while (eofcount < nfiles);
        !            76:   
        !            77:        } else {        /* -s option: serial file pasting (old 127 paste command) */
        !            78:                p = &outbuf[0];
        !            79:                glue = 0;
        !            80:                j = 0;
        !            81:                k = 0;
        !            82:                t = 0;
        !            83:                for (i = 1; i <= argc; i++) {
        !            84:                        if (argv[i][0] == '-') {
        !            85:                                inptr[0] = stdin;
        !            86:                        } else inptr[0] = fopen(argv[i], "r");
        !            87:                        if (inptr[0] == NULL) {
        !            88:                                diag(argv[i], 0);
        !            89:                                diag(" : cannot open\n", 1);
        !            90:                        }
        !            91:          
        !            92:                        while((c = getc(inptr[0])) != EOF)   {
        !            93:                                if (j >= maxline) {
        !            94:                                        t = *--p;
        !            95:                                        *++p = 0;
        !            96:                                        fputs(outbuf, stdout);
        !            97:                                        p = &outbuf[0];
        !            98:                                        j = 0;
        !            99:                                }
        !           100:                                if (glue) {
        !           101:                                        glue = 0;
        !           102:                                        l = del[k];
        !           103:                                        if (l != RUB) {
        !           104:                                                *p++ = l ;
        !           105:                                                t = l ;
        !           106:                                                j++;
        !           107:                                        }
        !           108:                                        k = (k + 1) % delcount;
        !           109:                                }
        !           110:                                if(c != '\n') {
        !           111:                                        *p++ = c;
        !           112:                                        t = c;
        !           113:                                        j++;
        !           114:                                } else glue++;
        !           115:                        }
        !           116:                        if (t != '\n') {
        !           117:                                *p++ = '\n';
        !           118:                                j++;
        !           119:                        }
        !           120:                        if (j > 0) {
        !           121:                                *p = 0;
        !           122:                                fputs(outbuf, stdout);
        !           123:                        }
        !           124:                }
        !           125:        }
        !           126: }
        !           127: diag(s,r)
        !           128: char *s;
        !           129: int r;
        !           130: {
        !           131:        write(2, "paste : ", 8);
        !           132:        while(*s)write(2,s++,1);
        !           133:        if(r != 0) exit(r);
        !           134: }
        !           135:   
        !           136: move(from, to)
        !           137: char *from, *to;
        !           138: {
        !           139: int c, i;
        !           140:        i = 0;
        !           141:        do {
        !           142:                c = *from++;
        !           143:                i++;
        !           144:                if (c != '\\') *to++ = c;
        !           145:                else { c = *from++;
        !           146:                        switch (c) {
        !           147:                                case '0' : *to++ = RUB;
        !           148:                                                break;
        !           149:                                case 't' : *to++ = '\t';
        !           150:                                                break;
        !           151:                                case 'n' : *to++ = '\n';
        !           152:                                                break;
        !           153:                                default  : *to++ = c;
        !           154:                                                break;
        !           155:                        }
        !           156:                }
        !           157:        } while (c) ;
        !           158: return(--i);
        !           159: }

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