Return to sfe.c CVS log

Up to [Research Unix] / researchv10no / libI77

Annotation of researchv10no/libI77/sfe.c, revision 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.