Return to refer3.c CVS log

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

Annotation of 42BSD/usr.bin/refer/refer3.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char *sccsid = "@(#)refer3.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:        int status;
                     13: 
                     14:        pipe(pipev); 
                     15:        fr1 = pipev[0]; 
                     16:        fw1 = pipev[1];
                     17:        pipe(pipev); 
                     18:        fr2 = pipev[0]; 
                     19:        fw2 = pipev[1];
                     20:        if (fork() == 0)
                     21:        {
                     22:                close(fw1); 
                     23:                close(fr2);
                     24:                move(fr1, 0);
                     25:                move(fw2, 1);
                     26:                execl(rprog, "deliv", arg, 0);
                     27:                err("Can't run %s", (void) rprog);
                     28:        }
                     29:        close(fw2); 
                     30:        close(fr1);
                     31:        write(fw1, in , strlen(in));
                     32:        close(fw1);
                     33:        wait(&status);
                     34:        n = read(fr2, out, outlen);
                     35:        out[n] = 0;
                     36:        close(fr2);
                     37:        return(n);
                     38: }

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