Return to glue3.c CVS log

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

Annotation of 43BSD/usr.bin/refer/glue3.c, revision 1.1

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

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