| 1 | # include "stdio.h" |
| 2 | # include "ctype.h" |
| 3 | |
| 4 | grepcall (in, out, arg) |
| 5 | char *in, *out, *arg; |
| 6 | { |
| 7 | char line[200], *s, argig[100], *cv[50]; |
| 8 | char *inp, inb[500]; |
| 9 | extern char gfile[]; |
| 10 | FILE *qf, *gf; |
| 11 | int c, oldc = 0, alph = 0, nv = 0; |
| 12 | int sv0, sv1; |
| 13 | strcpy (argig, arg); strcat(argig, ".ig"); |
| 14 | strcpy (inp=inb, in); |
| 15 | if (gfile[0]==0) |
| 16 | sprintf(gfile, "/tmp/rj%dg", getpid()); |
| 17 | # if D1 |
| 18 | fprintf(stderr, "in grepcall, gfile %s in %o out %o\n", gfile,in,out); |
| 19 | # endif |
| 20 | for(cv[nv++] = "fgrep"; c = *inp; inp++) |
| 21 | { |
| 22 | if (c== ' ') |
| 23 | c = *inp = 0; |
| 24 | else if (isupper(c)) |
| 25 | *inp = tolower(c); |
| 26 | alph = (c==0) ? 0 : alph+1; |
| 27 | if (alph == 1) |
| 28 | cv[nv++] = inp; |
| 29 | if (alph > 6) |
| 30 | *inp = 0; |
| 31 | oldc=c; |
| 32 | } |
| 33 | # if D1 |
| 34 | fprintf(stderr, "%d args set up\n", nv); |
| 35 | # endif |
| 36 | { |
| 37 | sv0 = dup(0); |
| 38 | close(0); |
| 39 | if (open (argig, 0) != 0) |
| 40 | err("Can't read fgrep index %s", argig); |
| 41 | sv1 = dup(1); |
| 42 | close(1); |
| 43 | if (creat(gfile, 0666) != 1) |
| 44 | err("Can't write fgrep output %s", gfile); |
| 45 | fgrep(nv, cv); |
| 46 | # if D1 |
| 47 | fprintf(stderr, "fgrep returned, output is..\n"); |
| 48 | # endif |
| 49 | close (0); dup(sv0); close(sv0); |
| 50 | close (1); dup(sv1); close(sv1); |
| 51 | } |
| 52 | |
| 53 | # if D1 |
| 54 | fprintf(stderr, "back from fgrep\n"); |
| 55 | # endif |
| 56 | gf = fopen(gfile, "r"); |
| 57 | if (gf==NULL) |
| 58 | err("can't read fgrep output %s", gfile); |
| 59 | while (fgets(line, 100, gf) == line) |
| 60 | { |
| 61 | line[100]=0; |
| 62 | # if D1 |
| 63 | fprintf(stderr, "read line as //%s//\n",line); |
| 64 | # endif |
| 65 | for(s=line; *s && (*s != '\t'); s++); |
| 66 | if (*s == '\t') |
| 67 | { |
| 68 | *s++ = '\n'; |
| 69 | *s++ = 0; |
| 70 | } |
| 71 | if (line[0]) |
| 72 | strcat(out, line); |
| 73 | # if D1 |
| 74 | fprintf(stderr, "out now /%s/\n",out); |
| 75 | # endif |
| 76 | while (*s) s++; |
| 77 | # if D1 |
| 78 | fprintf(stderr, "line %o s %o s-1 %o\n",line,s,s[-1]); |
| 79 | # endif |
| 80 | if (s[-1]!= '\n') |
| 81 | while (!feof(gf) && getc(gf)!= '\n') ; |
| 82 | } |
| 83 | fclose(gf); |
| 84 | # if D1 |
| 85 | fprintf(stderr, "back from reading %, out %s\n",out); |
| 86 | # else |
| 87 | unlink (gfile); |
| 88 | # endif |
| 89 | return(0); |
| 90 | } |
| 91 | |
| 92 | clfgrep() |
| 93 | { |
| 94 | if (gfile[0]) |
| 95 | unlink(gfile); |
| 96 | } |