home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libI77 / sfe.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  451 b   |  22 lines
  1. /* sequential formatted external common routines*/
  2. #include "fio.h"
  3. extern char *fmtbuf;
  4. e_rsfe()
  5. {    int n;
  6.     n=en_fio();
  7.     fmtbuf=NULL;
  8.     return(n);
  9. }
  10. c_sfe(a,flag) cilist *a; /* check */
  11. {    unit *p;
  12.     if(a->ciunit >= MXUNIT || a->ciunit<0)
  13.         err(a->cierr,101,"startio");
  14.     p = &units[a->ciunit];
  15.     if(p->ufd==NULL && fk_open(flag,SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
  16.     if(!p->ufmt) err(a->cierr,102,"sfe")
  17.     return(0);
  18. }
  19. e_wsfe()
  20. {    return(e_rsfe());
  21. }
  22.