|
|
1.1 root 1: /*
2: * Copyright (c) 1980, 1988 Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted provided
6: * that: (1) source distributions retain this entire copyright notice and
7: * comment, and (2) distributions including binaries display the following
8: * acknowledgement: ``This product includes software developed by the
9: * University of California, Berkeley and its contributors'' in the
10: * documentation or other materials provided with the distribution and in
11: * all advertising materials mentioning features or use of this software.
12: * Neither the name of the University nor the names of its contributors may
13: * be used to endorse or promote products derived from this software without
14: * specific prior written permission.
15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
16: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
17: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18: */
19:
20: #ifndef lint
21: char copyright[] =
22: "@(#) Copyright (c) 1980, 1988 Regents of the University of California.\n\
23: All rights reserved.\n";
24: #endif /* not lint */
25:
26: #ifndef lint
27: static char sccsid[] = "@(#)what.c 5.4 (Berkeley) 6/1/90";
28: #endif /* not lint */
29:
30: #include <stdio.h>
31:
32: /*
33: * what
34: */
35: /* ARGSUSED */
36: main(argc, argv)
37: int argc;
38: char **argv;
39: {
40: if (!*++argv)
41: search();
42: else do {
43: if (!freopen(*argv, "r", stdin)) {
44: perror(*argv);
45: exit(1);
46: }
47: printf("%s\n", *argv);
48: search();
49: } while(*++argv);
50: exit(0);
51: }
52:
53: static
54: search()
55: {
56: register int c;
57:
58: while ((c = getchar()) != EOF) {
59: loop: if (c != '@')
60: continue;
61: if ((c = getchar()) != '(')
62: goto loop;
63: if ((c = getchar()) != '#')
64: goto loop;
65: if ((c = getchar()) != ')')
66: goto loop;
67: putchar('\t');
68: while ((c = getchar()) != EOF && c && c != '"' &&
69: c != '>' && c != '\n')
70: putchar(c);
71: putchar('\n');
72: }
73: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.