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");