Return to rsfe.c CVS log

Up to [Research Unix] / researchv10no / libI77

Annotation of researchv10no/libI77/rsfe.c, revision 1.1

1.1     ! root        1: /* read sequential formatted external */
        !             2: #include "f2c.h"
        !             3: #include "fio.h"
        !             4: #include "fmt.h"
        !             5: 
        !             6: xrd_SL(Void)
        !             7: {      int ch;
        !             8:        if(!f__curunit->uend)
        !             9:                while((ch=getc(f__cf))!='\n' && ch!=EOF);
        !            10:        f__cursor=f__recpos=0;
        !            11:        return(1);
        !            12: }
        !            13: x_getc(Void)
        !            14: {      int ch;
        !            15:        if(f__curunit->uend) return(EOF);
        !            16:        ch = getc(f__cf);
        !            17:        if(ch!=EOF && ch!='\n')
        !            18:        {       f__recpos++;
        !            19:                return(ch);
        !            20:        }
        !            21:        if(ch=='\n')
        !            22:        {       (void) ungetc(ch,f__cf);
        !            23:                return(ch);
        !            24:        }
        !            25:        if(f__curunit->uend || feof(f__cf))
        !            26:        {       errno=0;
        !            27:                f__curunit->uend=1;
        !            28:                return(-1);
        !            29:        }
        !            30:        return(-1);
        !            31: }
        !            32: x_endp(Void)
        !            33: {
        !            34:        (void) xrd_SL();
        !            35:        return(0);
        !            36: }
        !            37: x_rev(Void)
        !            38: {
        !            39:        (void) xrd_SL();
        !            40:        return(0);
        !            41: }
        !            42: #ifdef KR_headers
        !            43: integer s_rsfe(a) cilist *a; /* start */
        !            44: #else
        !            45: integer s_rsfe(cilist *a) /* start */
        !            46: #endif
        !            47: {      int n;
        !            48:        if(!f__init) f_init();
        !            49:        if(n=c_sfe(a)) return(n);
        !            50:        f__reading=1;
        !            51:        f__sequential=1;
        !            52:        f__formatted=1;
        !            53:        f__external=1;
        !            54:        f__elist=a;
        !            55:        f__cursor=f__recpos=0;
        !            56:        f__scale=0;
        !            57:        f__fmtbuf=a->cifmt;
        !            58:        f__curunit= &f__units[a->ciunit];
        !            59:        f__cf=f__curunit->ufd;
        !            60:        if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
        !            61:        f__getn= x_getc;
        !            62:        f__doed= rd_ed;
        !            63:        f__doned= rd_ned;
        !            64:        fmt_bg();
        !            65:        f__doend=x_endp;
        !            66:        f__donewrec=xrd_SL;
        !            67:        f__dorevert=x_rev;
        !            68:        f__cblank=f__curunit->ublnk;
        !            69:        f__cplus=0;
        !            70:        if(f__curunit->uwrt && f__nowreading(f__curunit))
        !            71:                err(a->cierr,errno,"read start");
        !            72:        return(0);
        !            73: }

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