for(p
=_iob
; (p
->_flag
&(_IOWRT
|_IOREAD
))!=0; p
++)
p
->_base
= p
->_ptr
= NULL
;
if(0 > pipe(descrips
)) return( (FILE *) -1);
if(NULL
==(p
= _dofpip(descrips
[0]))) return( (FILE *) -1);
p
->_flag
= (_IONBF
|_IOREAD
);
if(NULL
==(p
= _dofpip(descrips
[1]))) return( (FILE *) -1);
return((FILE *) 2); /*indicate sucess*/