6 extern icilist *f__svic;
12 if (f__recpos++ < f__svic->icirlen)
14 if (f__icptr >= f__icend)
15 err (f__svic->iciend, (EOF), "endfile");
16 return (*(unsigned char *) f__icptr++);
24 if (f__recpos++ < f__svic->icirlen && f__icptr < f__icend)
30 f__icptr = f__svic->iciunit + (++f__icnum) * f__svic->icirlen;
48 f__fatal (131, "I/O recursion");
50 f__elist = (cilist *) a;
51 f__fmtbuf = a->icifmt;
53 f__sequential = f__formatted = 1;
55 if (pars_f (f__fmtbuf) < 0)
56 err (a->icierr, 100, "startint");
58 f__cblank = f__cplus = f__scale = 0;
60 f__icnum = f__recpos = 0;
63 f__icptr = a->iciunit;
64 f__icend = f__icptr + a->icirlen * a->icirnum;
74 f__hiwater = f__recpos = f__cursor = 0;
75 return (f__workdone = 0);
97 if (f__recpos < f__hiwater)
99 f__icptr += f__hiwater - f__recpos;
100 f__recpos = f__hiwater;
102 while (f__recpos++ < f__svic->icirlen)
121 f__dorevert = iw_rev;
122 f__donewrec = z_wnew;
144 if (f__svic->icirnum != 1
145 && (f__icnum > f__svic->icirnum
146 || (f__icnum == f__svic->icirnum && (f__recpos | f__hiwater))))
147 err (f__svic->icierr, 110, "inwrite");
148 if (f__recpos < f__hiwater)
149 f__recpos = f__hiwater;
150 if (f__recpos >= f__svic->icirlen)
151 err (f__svic->icierr, 110, "recend");
152 if (!f__recpos && f__icnum)
154 while (f__recpos++ < f__svic->icirlen)