usr/src/libI77/rsfe.c

/* read sequential formatted external */
#include "fio.h"
#include "fmt.h"
extern int x_getc(),rd_ed(),rd_ned();
extern int x_endp(),x_rev(),xrd_SL();
s_rsfe(a) cilist *a; /* start */
{       int n;
        if(!init) f_init();
        if(n=c_sfe(a,READ)) return(n);
        reading=1;
        sequential=1;
        formatted=1;
        external=1;
        elist=a;
        cursor=recpos=0;
        scale=0;
        fmtbuf=a->cifmt;
        if(pars_f(fmtbuf)<0) err(a->cierr,100,"startio");
        curunit= &units[a->ciunit];
        cf=curunit->ufd;
        getn= x_getc;
        doed= rd_ed;
        doned= rd_ned;
        fmt_bg();
        doend=x_endp;
        donewrec=xrd_SL;
        dorevert=x_rev;
        cblank=curunit->ublnk;
        cplus=0;
        if(curunit->uwrt) nowreading(curunit);
        return(0);
}
xrd_SL()
{       int ch;
        if(!curunit->uend)
                while((ch=getc(cf))!='\n' && ch!=EOF);
        cursor=recpos=0;
        return(1);
}
x_getc()
{       int ch;
        if(curunit->uend) return(EOF);
        if((ch=getc(cf))!=EOF && ch!='\n')
        {       recpos++;
                return(ch);
        }
        if(ch=='\n')
        {       ungetc(ch,cf);
                return(ch);
        }
        if(feof(cf))
        {       errno=0;
                curunit->uend=1;
                return(-1);
        }
        return(-1);
}
x_endp()
{
        xrd_SL();
        return(0);
}
x_rev()
{
        xrd_SL();
        return(0);
}