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 != 1) f_init();
58 if(n=c_sfe(a)) return(n);
60 f__cursor=f__recpos=0;
63 f__curunit= &f__units[a->ciunit];
64 f__cf=f__curunit->ufd;
65 if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
73 f__cblank=f__curunit->ublnk;
75 if(f__curunit->uwrt && f__nowreading(f__curunit))
76 err(a->cierr,errno,"read start");
78 err(f__elist->ciend,(EOF),"read start");