1 /*
2 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
3 * Use is subject to license terms.
4 */
5
6 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
7 /* All Rights Reserved */
8
9 /*
10 * Copyright (c) 1980 Regents of the University of California.
11 * All rights reserved. The Berkeley software License Agreement
12 * specifies the terms and conditions for redistribution.
13 */
14
15 #pragma ident "%Z%%M% %I% %E% SMI"
16
17
18 #include <stdio.h>
19 #include <ctype.h>
20
21 extern char gfile[];
22
23 void
grepcall(char * in,char * out,char * arg)24 grepcall(char *in, char *out, char *arg)
25 {
26 char line[200], *s, argig[100], *cv[50];
27 char *inp, inb[500];
28 FILE *qf, *gf;
29 int c, oldc = 0, alph = 0, nv = 0;
30 int sv0, sv1;
31 strcpy(argig, arg);
32 strcat(argig, ".ig");
33 strcpy(inp = inb, in);
34 if (gfile[0] == 0)
35 sprintf(gfile, "/tmp/rj%dg", getpid());
36 #if D1
37 fprintf(stderr, "in grepcall, gfile %s in %o out %o\n",
38 gfile, in, out);
39 #endif
40 for (cv[nv++] = "fgrep"; c = *inp; inp++) {
41 if (c == ' ')
42 c = *inp = 0;
43 else if (isupper(c))
44 *inp = tolower(c);
45 alph = (c == 0) ? 0 : alph+1;
46 if (alph == 1)
47 cv[nv++] = inp;
48 if (alph > 6)
49 *inp = 0;
50 oldc = c;
51 }
52 #if D1
53 fprintf(stderr, "%d args set up\n", nv);
54 #endif
55 {
56 sv0 = dup(0);
57 close(0);
58 if (open(argig, 0) != 0)
59 err("Can't read fgrep index %s", argig);
60 sv1 = dup(1);
61 close(1);
62 if (creat(gfile, 0666) != 1)
63 err("Can't write fgrep output %s", gfile);
64 fgrep(nv, cv);
65 #if D1
66 fprintf(stderr, "fgrep returned, output is..\n");
67 #endif
68 close(0);
69 dup(sv0);
70 close(sv0);
71 close(1);
72 dup(sv1);
73 close(sv1);
74 }
75
76 #if D1
77 fprintf(stderr, "back from fgrep\n");
78 #endif
79 gf = fopen(gfile, "r");
80 if (gf == NULL)
81 err("can't read fgrep output %s", gfile);
82 while (fgets(line, 100, gf) == line) {
83 line[100] = 0;
84 #if D1
85 fprintf(stderr, "read line as //%s//\n", line);
86 #endif
87 for (s = line; *s && (*s != '\t'); s++)
88 ;
89 if (*s == '\t') {
90 *s++ = '\n';
91 *s++ = 0;
92 }
93 if (line[0])
94 strcat(out, line);
95 #if D1
96 fprintf(stderr, "out now /%s/\n", out);
97 #endif
98 while (*s) s++;
99 #if D1
100 fprintf(stderr, "line %o s %o s-1 %o\n", line, s, s[-1]);
101 #endif
102 if (s[-1] != '\n')
103 while (!feof(gf) && getc(gf) != '\n')
104 ;
105 }
106 fclose(gf);
107 #if D1
108 fprintf(stderr, "back from reading %, out %s\n", out);
109 #else
110 unlink(gfile);
111 #endif
112 }
113
114 void
clfgrep(void)115 clfgrep(void)
116 {
117 if (gfile[0])
118 unlink(gfile);
119 }
120