Return to glue4.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / refer

Annotation of 43BSDTahoe/usr.bin/refer/glue4.c, revision 1.1

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

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