Return to glue3.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / refer

Annotation of 40BSD/cmd/refer/glue3.c, revision 1.1

1.1     ! root        1: # include "refer..c"
        !             2: corout(in, out, rprog, arg, outlen)
        !             3:        char *in, *out, *rprog;
        !             4: {
        !             5: # define move(x, y) close(y); dup(x); close(x);
        !             6: int pipev[2], fr1, fr2, fw1, fw2, n;
        !             7: 
        !             8: if (strcmp (rprog, "hunt") ==0)
        !             9:        return(callhunt(in, out, arg, outlen));
        !            10: if (strcmp (rprog, "deliv")==0)
        !            11:        return(dodeliv(in, out, arg, outlen));
        !            12: pipe (pipev); fr1= pipev[0]; fw1 = pipev[1];
        !            13: pipe (pipev); fr2= pipev[0]; fw2 = pipev[1];
        !            14: if (fork()==0)
        !            15:        {
        !            16:        close (fw1); close (fr2);
        !            17:        move (fr1, 0);
        !            18:        move (fw2, 1);
        !            19:        if (rprog[0]!= '/')
        !            20:                chdir("/usr/lib/refer");
        !            21:        execl(rprog, "deliv", arg, 0);
        !            22:        err ("Can't run %s", rprog);
        !            23:        }
        !            24: close(fw2); close(fr1);
        !            25: write (fw1, in , strlen(in));
        !            26: close(fw1);
        !            27: wait(0);
        !            28: n = read (fr2, out, outlen);
        !            29: out[n]=0;
        !            30: close(fr2);
        !            31: }
        !            32: callhunt(in, out, arg, outlen)
        !            33:        char *in, *out, *arg;
        !            34: {
        !            35: # define ALEN 50
        !            36: char *argv[20], abuff[ALEN];
        !            37: extern int typeindex;
        !            38: int argc;
        !            39: extern char one[];
        !            40: extern int onelen;
        !            41: argv[0] = "hunt";
        !            42: argv[1] = "-i";
        !            43: argv[2] = in;
        !            44: argv[3] = "-t";
        !            45: argv[4] = out;
        !            46: argv[5] = outlen;
        !            47: argv[6] = "-T";
        !            48: argv[7] = "-F1";
        !            49: argv[8] = "-o";
        !            50: argv[9] = one;
        !            51: argv[10] = onelen;
        !            52: argv[11] = abuff; strcpy (abuff,arg);
        !            53: if (strlen(abuff) > ALEN)
        !            54:        err("abuff not big enough %d", strlen(abuff));
        !            55: argc = 6;
        !            56: huntmain (argc,argv);
        !            57: return(0);
        !            58: }
        !            59: dodeliv(in, out, arg, outlen)
        !            60:        char *in, *out, *arg;
        !            61: {
        !            62: # if D1
        !            63: fprintf(stderr, "in dodeliv, arg /%s/\n", arg?arg:"");
        !            64: # endif
        !            65: if (arg && arg[0])
        !            66:        chdir(arg);
        !            67: findline(in, out, outlen, 0L);
        !            68: restodir();
        !            69: }

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