1#include "f2c.h" 2#include "fio.h" 3#include "fmt.h" 4#include "lio.h" 5#include "string.h" 6 7#ifdef KR_headers 8integer s_wsle(a) cilist *a; 9#else 10integer s_wsle(cilist *a) 11#endif 12{ 13 int n; 14 if(n=c_le(a)) return(n); 15 f__reading=0; 16 f__external=1; 17 f__formatted=1; 18 f__putn = x_putc; 19 f__lioproc = l_write; 20 L_len = LINE; 21 f__donewrec = x_wSL; 22 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) 23 err(a->cierr, errno, "list output start"); 24 return(0); 25 } 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