1 #include "f2c.h"
2 #include "fio.h"
3 #include "fmt.h"
4 #include "lio.h"
5 
6 #ifdef KR_headers
s_wsle(a)7 integer 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)26 integer 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