Return to makpipe.c CVS log

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

Annotation of 43BSD/usr.bin/learn/makpipe.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)makpipe.c  4.3     (Berkeley)      5/15/86";
                      3: #endif not lint
                      4: 
                      5: #include "stdio.h"
                      6: 
                      7: makpipe()
                      8: {
                      9:        int f[2];
                     10: 
                     11:        pipe(f);
                     12:        if (fork()==0) {
                     13:                close(f[1]);
                     14:                close(0);
                     15:                dup(f[0]);
                     16:                close(f[0]);
                     17: #if BSD4_2
                     18:                execl ("/bin/sh", "sh", "-i", 0);
                     19:                execl ("/usr/ucb/bin/sh", "sh", "-i", 0);
                     20: #else
                     21:                execlp("/bin/csh", "csh", "-if", 0);
                     22:                /*execl ("/usr/ucb/bin/csh", "csh", "-if", 0);*/
                     23: #endif
                     24:                write(2, "Exec error\n", 11);
                     25:        }
                     26:        close(f[0]);
                     27:        sleep(2);       /* so shell won't eat up too much input */
                     28:        return(f[1]);
                     29: }

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