1
/* read sequential formatted external */
9
while((ch=getc(f__cf))!='\n')
14
f__cursor=f__recpos=0;
19
if(f__curunit->uend) return(EOF);
21
if(ch!=EOF && ch!='\n')
26
{ (void) ungetc(ch,f__cf);
29
if(f__curunit->uend || feof(f__cf))
39
return f__curunit->uend == 1 ? EOF : 0;
47
integer s_rsfe(a) cilist *a; /* start */
49
integer s_rsfe(cilist *a) /* start */
52
if(!f__init) f_init();
53
if(n=c_sfe(a)) return(n);
59
f__cursor=f__recpos=0;
62
f__curunit= &f__units[a->ciunit];
63
f__cf=f__curunit->ufd;
64
if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
72
f__cblank=f__curunit->ublnk;
74
if(f__curunit->uwrt && f__nowreading(f__curunit))
75
err(a->cierr,errno,"read start");
77
err(f__elist->ciend,(EOF),"read start");