Return to wc.c CVS log

Up to [Research Unix] / researchv10no / cmd

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

1.1     ! root        1: #include       <stdio.h>
        !             2: 
        !             3: #define                NBUF            (64*1024)
        !             4: int space[256];
        !             5: char   *opt="lwc";
        !             6: long   twords;
        !             7: long   tlines;
        !             8: long   tchars;
        !             9: 
        !            10: main(argc, argv)
        !            11:        char *argv[];
        !            12: {
        !            13:        register i, fd, status=0;
        !            14:        if(argc>1 && argv[1][0]=='-'){
        !            15:                opt=++argv[1];
        !            16:                --argc, argv++;
        !            17:        }
        !            18:        for(i = 0; i < 256; i++)
        !            19:                space[i] = 0;
        !            20:        space[' '] = space['\t'] = space['\n'] = 1;
        !            21:        if(argc==1)
        !            22:                count(0, (char *)0);
        !            23:        else for(i=1; i<argc; i++){
        !            24:                fd=open(argv[i], 0);
        !            25:                if(fd<0){
        !            26:                        fprintf(stderr, "wc: ");
        !            27:                        perror(argv[i]);
        !            28:                        status=1;
        !            29:                        continue;
        !            30:                }
        !            31:                count(fd, argv[i]);     
        !            32:        }
        !            33:        if(argc>2)
        !            34:                printout(tchars, twords, tlines, "total");
        !            35:        return status;
        !            36: }
        !            37: unsigned char buf[NBUF+2];     /* 2 for sentinels */
        !            38: count(fd, name)
        !            39:        char *name;
        !            40: {
        !            41:        register n;
        !            42:        register unsigned char *cp, *cpend;
        !            43:        register long chars=0, lines=0, words=0;
        !            44: 
        !            45:        for(;;){
        !            46:                if((n=read(fd, buf, NBUF))<=0)
        !            47:                        goto done;
        !            48:                chars+=n;
        !            49:                cp=buf;
        !            50:                *(cpend = buf+n) = ' ';
        !            51:                cpend[1] = 'a';
        !            52: dospace:
        !            53:                for(;;){
        !            54:                        if(*cp == '\n')
        !            55:                                lines++;
        !            56:                        if(space[*cp++] == 0){
        !            57:                                if(cp > cpend)
        !            58:                                        break;
        !            59:                                goto doword;
        !            60:                        }
        !            61:                }
        !            62:        }
        !            63:        for(;;){
        !            64:                if((n=read(fd, buf, NBUF))<=0)
        !            65:                        goto done;
        !            66:                chars+=n;
        !            67:                cp=buf;
        !            68:                *(cpend = buf+n) = ' ';
        !            69:                cpend[1] = 'a';
        !            70: doword:
        !            71:                for(;;){
        !            72:                        if(space[*cp++]){
        !            73:                                if(cp > cpend)
        !            74:                                        break;
        !            75:                                words++;
        !            76:                                if(cp[-1] == '\n')
        !            77:                                        lines++;
        !            78:                                goto dospace;
        !            79:                        }
        !            80:                }
        !            81:        }
        !            82: done:
        !            83:        close(fd);
        !            84:        printout(chars, words, lines, name);
        !            85:        tchars+=chars;
        !            86:        twords+=words;
        !            87:        tlines+=lines;
        !            88: }
        !            89: printout(charct, wordct, linect, name)
        !            90:        long charct, wordct, linect;
        !            91:        char *name;
        !            92: {
        !            93:        register char *wd=opt;
        !            94:        while (*wd) switch (*wd++) {
        !            95:        case 'l':
        !            96:                printf("%7ld ", linect);
        !            97:                break;
        !            98: 
        !            99:        case 'w':
        !           100:                printf("%7ld ", wordct);
        !           101:                break;
        !           102: 
        !           103:        case 'c':
        !           104:                printf("%7ld", charct);
        !           105:                break;
        !           106:        }
        !           107:        if(name)
        !           108:                printf(" %s\n", name);
        !           109:        else
        !           110:                printf("\n");
        !           111: }
        !           112: 

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