Return to sysv.sum.c CVS log

Up to [Research Unix] / researchv10no / cmd / sum / old

Annotation of researchv10no/cmd/sum/old/sysv.sum.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Sum bytes in file mod 2^16
        !             3:  */
        !             4: 
        !             5: char xxxnotused[] = "@(#)sum.c 1.5";
        !             6: 
        !             7: #define WDMSK 0177777L
        !             8: #define BUFSIZE 512
        !             9: #include <stdio.h>
        !            10: struct part {
        !            11:        short unsigned hi,lo;
        !            12: };
        !            13: union hilo { /* this only works right in case short is 1/2 of long */
        !            14:        struct part hl;
        !            15:        long    lg;
        !            16: } tempa, suma;
        !            17: 
        !            18: main(argc,argv)
        !            19: char **argv;
        !            20: {
        !            21:        register unsigned sum;
        !            22:        register i, c;
        !            23:        register FILE *f;
        !            24:        register long nbytes;
        !            25:        int     alg, ca, errflg = 0;
        !            26:        unsigned lsavhi,lsavlo;
        !            27: 
        !            28:        alg = 0;
        !            29:        i = 1;
        !            30:        if(argv[1][0]=='-' && argv[1][1]=='r') {
        !            31:                alg = 1;
        !            32:                i = 2;
        !            33:        }
        !            34: 
        !            35:        do {
        !            36:                if(i < argc) {
        !            37:                        if((f = fopen(argv[i], "r")) == NULL) {
        !            38:                                (void) fprintf(stderr, "sum: Can't open %s\n", argv[i]);
        !            39:                                errflg += 10;
        !            40:                                continue;
        !            41:                        }
        !            42:                } else
        !            43:                        f = stdin;
        !            44:                sum = 0;
        !            45:                suma.lg = 0;
        !            46:                nbytes = 0;
        !            47:                if(alg == 1) {
        !            48:                        while((c = getc(f)) != EOF) {
        !            49:                                nbytes++;
        !            50:                                if(sum & 01)
        !            51:                                        sum = (sum >> 1) + 0x8000;
        !            52:                                else
        !            53:                                        sum >>= 1;
        !            54:                                sum += c;
        !            55:                                sum &= 0xFFFF;
        !            56:                        }
        !            57:                } else {
        !            58:                        while((ca = getc(f)) != EOF) {
        !            59:                                nbytes++;
        !            60:                                suma.lg += ca & WDMSK;
        !            61:                        }
        !            62:                }
        !            63:                if(ferror(f)) {
        !            64:                        errflg++;
        !            65:                        (void) fprintf(stderr, "sum: read error on %s\n", argc>1?argv[i]:"-");
        !            66:                }
        !            67:                if (alg == 1)
        !            68:                        (void) printf("%.5u%6ld", sum, (nbytes+BUFSIZE-1)/BUFSIZE);
        !            69:                else {
        !            70:                        tempa.lg = (suma.hl.lo & WDMSK) + (suma.hl.hi & WDMSK);
        !            71:                        lsavhi = (unsigned) tempa.hl.hi;
        !            72:                        lsavlo = (unsigned) tempa.hl.lo;
        !            73:                        (void) printf("%u %ld", (unsigned)(lsavhi + lsavlo), (nbytes+BUFSIZE-1)/BUFSIZE);
        !            74:                }
        !            75:                if(argc > 1)
        !            76:                        (void) printf(" %s", argv[i]==(char *)0?"":argv[i]);
        !            77:                (void) printf("\n");
        !            78:                (void) fclose(f);
        !            79:        } while(++i < argc);
        !            80:        exit(errflg);
        !            81: }

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