UNIX 7th Ed. - /usr/src/libI77/sfe.c

   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: }

Defined functions