Return to what.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb

Annotation of 42BSD/ucb/what.c, revision 1.1

1.1     ! root        1: static char *sccsid = "@(#)what.c      4.2 (Berkeley) 11/8/81";
        !             2: #include <stdio.h>
        !             3: 
        !             4: /*
        !             5:  * what
        !             6:  */
        !             7: 
        !             8: char   *infile = "Standard input";
        !             9: 
        !            10: main(argc, argv)
        !            11:        int argc;
        !            12:        char *argv[];
        !            13: {
        !            14: 
        !            15:        argc--, argv++;
        !            16:        do {
        !            17:                if (argc > 0) {
        !            18:                        if (freopen(argv[0], "r", stdin) == NULL) {
        !            19:                                perror(argv[0]);
        !            20:                                exit(1);
        !            21:                        }
        !            22:                        infile = argv[0];
        !            23:                        printf("%s\n", infile);
        !            24:                        argc--, argv++;
        !            25:                }
        !            26:                fseek(stdin, (long) 0, 0);
        !            27:                find();
        !            28:        } while (argc > 0);
        !            29:        exit(0);
        !            30: }
        !            31: 
        !            32: find()
        !            33: {
        !            34:        static char buf[BUFSIZ];
        !            35:        register char *cp;
        !            36:        register int c, cc;
        !            37:        register char *pat;
        !            38: 
        !            39: contin:
        !            40:        while ((c = getchar()) != EOF)
        !            41:                if (c == '@') {
        !            42:                        for (pat = "(#)"; *pat; pat++)
        !            43:                                if ((c = getchar()) != *pat)
        !            44:                                        goto contin;
        !            45:                        putchar('\t');
        !            46:                        while ((c = getchar()) != EOF && c && c != '"' &&
        !            47:                            c != '>' && c != '\n')
        !            48:                                putchar(c);
        !            49:                        putchar('\n');
        !            50:                }
        !            51: }

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