1283625Sdim#include "f2c.h" 2283625Sdim#include "fio.h" 3283625Sdim#include "fmt.h" 4283625Sdim#include "lio.h" 5283625Sdim#include "string.h" 6283625Sdim 7283625Sdim#ifdef KR_headers 8283625Sdiminteger s_wsle(a) cilist *a; 9283625Sdim#else 10283625Sdiminteger s_wsle(cilist *a) 11283625Sdim#endif 12283625Sdim{ 13283625Sdim int n; 14283625Sdim if(n=c_le(a)) return(n); 15283625Sdim f__reading=0; 16283625Sdim f__external=1; 17283625Sdim f__formatted=1; 18283625Sdim f__putn = x_putc; 19283625Sdim f__lioproc = l_write; 20283625Sdim L_len = LINE; 21283625Sdim f__donewrec = x_wSL; 22283625Sdim if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) 23283625Sdim err(a->cierr, errno, "list output start"); 24283625Sdim return(0); 25283625Sdim } 26 27integer e_wsle(Void) 28{ 29 int n; 30 f__init = 1; 31 n = f__putbuf('\n'); 32 f__recpos=0; 33#ifdef ALWAYS_FLUSH 34 if (!n && fflush(f__cf)) 35 err(f__elist->cierr, errno, "write end"); 36#endif 37 return(n); 38 } 39