1 /*write sequential formatted external*/
11 int n = f__putbuf ('\n');
12 f__hiwater = f__recpos = f__cursor = 0;
28 f__hiwater = f__recpos = f__cursor = 0;
41 f__hiwater = f__recpos = f__cursor = 0;
46 s_wsfe (cilist * a) /*start */
59 f__hiwater = 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)
66 err (a->cierr, 100, "startio");
75 f__cblank = f__curunit->ublnk;
76 if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit))
77 err (a->cierr, errno, "write start");