| 1 | #include "f2c.h" |
| 2 | #include "fio.h" |
| 3 | #include "fmt.h" |
| 4 | #include "lio.h" |
| 5 | |
| 6 | #ifdef KR_headers |
| 7 | integer s_wsle(a) cilist *a; |
| 8 | #else |
| 9 | integer s_wsle(cilist *a) |
| 10 | #endif |
| 11 | { |
| 12 | int n; |
| 13 | if(!f__init) f_init(); |
| 14 | if(n=c_le(a)) return(n); |
| 15 | f__reading=0; |
| 16 | f__external=1; |
| 17 | f__formatted=1; |
| 18 | f__putn = t_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 | |
| 27 | integer e_wsle(Void) |
| 28 | { |
| 29 | t_putc('\n'); |
| 30 | f__recpos=0; |
| 31 | if (f__cf == stdout) |
| 32 | fflush(stdout); |
| 33 | else if (f__cf == stderr) |
| 34 | fflush(stderr); |
| 35 | return(0); |
| 36 | } |