1 /*write sequential formatted external*/
10 int n
= f__putbuf('\n');
11 f__hiwater
= f__recpos
= f__cursor
= 0;
26 f__hiwater
= f__recpos
= f__cursor
= 0;
38 f__hiwater
= f__recpos
= f__cursor
= 0;
43 integer
s_wsfe(a
) cilist
*a
; /*start*/
45 integer
s_wsfe(cilist
*a
) /*start*/
48 if(f__init
!= 1) f_init();
54 if(n
=c_sfe(a
)) return(n
);
56 f__hiwater
= f__cursor
=f__recpos
=0;
60 f__curunit
= &f__units
[a
->ciunit
];
61 f__cf
=f__curunit
->ufd
;
62 if(pars_f(f__fmtbuf
)<0) err(a
->cierr
,100,"startio");
71 f__cblank
=f__curunit
->ublnk
;
72 if(f__curunit
->uwrt
!= 1 && f__nowwriting(f__curunit
))
73 err(a
->cierr
,errno
,"write start");