Commit | Line | Data |
---|---|---|
bae7117f WH |
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 | } |