1 #include "f2c.h" 2 #include "fio.h" 3 #include "fmt.h" 4 #include "lio.h" 5 6 #ifdef KR_headers s_wsle(a)7integer s_wsle(a) cilist *a; 8 #else 9 integer s_wsle(cilist *a) 10 #endif 11 { 12 int n; 13 if(n=c_le(a)) return(n); 14 f__reading=0; 15 f__external=1; 16 f__formatted=1; 17 f__putn = t_putc; 18 f__lioproc = l_write; 19 L_len = LINE; 20 f__donewrec = x_wSL; 21 if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) 22 err(a->cierr, errno, "list output start"); 23 return(0); 24 } 25 e_wsle(Void)26integer e_wsle(Void) 27 { 28 t_putc('\n'); 29 f__recpos=0; 30 #ifdef ALWAYS_FLUSH 31 if (fflush(f__cf)) 32 err(f__elist->cierr, errno, "write end"); 33 #else 34 if (f__cf == stdout) 35 fflush(stdout); 36 else if (f__cf == stderr) 37 fflush(stderr); 38 #endif 39 return(0); 40 } 41