Return to fpipe.c CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / lisp

Annotation of 3BSD/cmd/lisp/fpipe.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: FILE *_dofpip(iodes)
                      3: int iodes;
                      4: {
                      5:        register FILE *p;
                      6: 
                      7:        for(p=_iob; (p->_flag&(_IOWRT|_IOREAD))!=0; p++)
                      8:                if (p >= _iob+_NFILE)
                      9:                        return(NULL);
                     10:        p->_file = iodes;
                     11:        p->_cnt = 0;
                     12:        p->_base = p->_ptr = NULL;
                     13:        return(p);
                     14: }
                     15: 
                     16: FILE * fpipe(info)
                     17: FILE *info[2];
                     18: {
                     19:        register FILE *p;
                     20:        int descrips[2];
                     21: 
                     22:        if(0 > pipe(descrips)) return( (FILE *) -1);
                     23: 
                     24:        if(NULL==(p = _dofpip(descrips[0]))) return( (FILE *) -1);
                     25:        p->_flag = (_IONBF|_IOREAD);
                     26:        info[0] = p;
                     27: 
                     28:        if(NULL==(p = _dofpip(descrips[1]))) return( (FILE *) -1);
                     29:        p->_flag = _IOWRT;
                     30:        info[1] = p;
                     31:        return((FILE *) 2); /*indicate sucess*/
                     32: }

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