Return to sfe.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / old

Annotation of researchv10dc/libI77/old/sfe.c, revision 1.1.1.1

1.1       root        1: /*     @(#)sfe.c       1.2     */
                      2: /*     3.0 SID #       1.2     */
                      3: /* sequential formatted external common routines*/
                      4: #include "fio.h"
                      5: extern char *fmtbuf;
                      6: e_rsfe()
                      7: {      int n;
                      8:        n=en_fio();
                      9:        fmtbuf=NULL;
                     10:        return(n);
                     11: }
                     12: c_sfe(a) cilist *a; /* check */
                     13: {      unit *p;
                     14:        if(a->ciunit >= MXUNIT || a->ciunit<0)
                     15:                err(a->cierr,101,"startio");
                     16:        p = &units[a->ciunit];
                     17:        if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
                     18:        if(!p->ufmt) err(a->cierr,102,"sfe")
                     19:        return(0);
                     20: }
                     21: e_wsfe()
                     22: {      return(e_rsfe());
                     23: }

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