Return to und.c CVS log

Up to [Research Unix] / researchv10no / cmd

Annotation of researchv10no/cmd/und.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: 
                      3: main(argc, argv)
                      4: char **argv;
                      5: {
                      6:        register bflg, c, n;
                      7:        int undc=8;
                      8: 
                      9:        bflg = 1;
                     10:        if (argc>1 && argv[1][0]=='-') {
                     11:                undc = atoi(&argv[1][1]);
                     12:                if (undc>16)
                     13:                        undc = 0;
                     14:                argc--;
                     15:                argv++;
                     16:        }
                     17:        if (argc>1) {
                     18:                if ((freopen(argv[1], "r", stdin))==NULL) {
                     19:                        fprintf(stderr, "Cannot open %s\n", argv[1]);
                     20:                        exit(1);
                     21:                }
                     22:        }
                     23:        while((c = getchar()) != EOF) {
                     24:                if(c == '\n' || c == 014) {
                     25:                        bflg = 1;
                     26:                        putchar(c);
                     27:                        continue;
                     28:                }
                     29:                if(bflg) {
                     30:                        for (n=0; n<undc; n++)
                     31:                                putchar('\b');
                     32:                        bflg = 0;
                     33:                }
                     34:                putchar(c);
                     35:        }
                     36:        return(0);
                     37: }

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