1 /* read sequential formatted external */
11 if (!f__curunit->uend)
12 while ((ch = getc (f__cf)) != '\n')
18 f__cursor = f__recpos = 0;
29 if (ch != EOF && ch != '\n')
36 (void) ungetc (ch, f__cf);
39 if (f__curunit->uend || feof (f__cf))
52 return f__curunit->uend == 1 ? EOF : 0;
63 s_rsfe (cilist * a) /* start */
76 f__cursor = f__recpos = 0;
79 f__curunit = &f__units[a->ciunit];
80 f__cf = f__curunit->ufd;
81 if (pars_f (f__fmtbuf) < 0)
82 err (a->cierr, 100, "startio");
90 f__cblank = f__curunit->ublnk;
92 if (f__curunit->uwrt && f__nowreading (f__curunit))
93 err (a->cierr, errno, "read start");
95 err (f__elist->ciend, (EOF), "read start");