1 /* read sequential formatted external */
10 while((ch
=getc(f__cf
))!='\n')
15 f__cursor
=f__recpos
=0;
20 if(f__curunit
->uend
) return(EOF
);
22 if(ch
!=EOF
&& ch
!='\n')
27 { (void) ungetc(ch
,f__cf
);
30 if(f__curunit
->uend
|| feof(f__cf
))
40 return f__curunit
->uend
== 1 ? EOF
: 0;
48 integer
s_rsfe(a
) cilist
*a
; /* start */
50 integer
s_rsfe(cilist
*a
) /* start */
53 if(f__init
!= 1) f_init();
59 if(n
=c_sfe(a
)) return(n
);
61 f__cursor
=f__recpos
=0;
64 f__curunit
= &f__units
[a
->ciunit
];
65 f__cf
=f__curunit
->ufd
;
66 if(pars_f(f__fmtbuf
)<0) err(a
->cierr
,100,"startio");
74 f__cblank
=f__curunit
->ublnk
;
76 if(f__curunit
->uwrt
&& f__nowreading(f__curunit
))
77 err(a
->cierr
,errno
,"read start");
79 err(f__elist
->ciend
,(EOF
),"read start");