Return to sfe.c CVS log

Up to [Research Unix] / researchv10dc / libI77

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

1.1       root        1: /* sequential formatted external common routines*/
                      2: #include "f2c.h"
                      3: #include "fio.h"
                      4: 
                      5: extern char *f__fmtbuf;
                      6: 
                      7: integer e_rsfe(Void)
                      8: {      int n;
                      9:        n=en_fio();
                     10:        if (f__cf == stdout)
                     11:                fflush(stdout);
                     12:        else if (f__cf == stderr)
                     13:                fflush(stderr);
                     14:        f__fmtbuf=NULL;
                     15:        return(n);
                     16: }
                     17: #ifdef KR_headers
                     18: c_sfe(a) cilist *a; /* check */
                     19: #else
                     20: c_sfe(cilist *a) /* check */
                     21: #endif
                     22: {      unit *p;
                     23:        if(a->ciunit >= MXUNIT || a->ciunit<0)
                     24:                err(a->cierr,101,"startio");
                     25:        p = &f__units[a->ciunit];
                     26:        if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
                     27:        if(!p->ufmt) err(a->cierr,102,"sfe")
                     28:        return(0);
                     29: }
                     30: integer e_wsfe(Void)
                     31: {      return(e_rsfe());
                     32: }

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