1#include "f2c.h"
2#include "fio.h"
3#include "lio.h"
4extern char *f__icptr;
5extern char *f__icend;
6extern icilist *f__svic;
7extern int f__icnum;
8#ifdef KR_headers
9extern void z_putc();
10#else
11extern void z_putc(int);
12#endif
13
14 static int
15z_wSL(Void)
16{
17	while(f__recpos < f__svic->icirlen)
18		z_putc(' ');
19	return z_rnew();
20	}
21
22 static void
23#ifdef KR_headers
24c_liw(a) icilist *a;
25#else
26c_liw(icilist *a)
27#endif
28{
29	f__reading = 0;
30	f__external = 0;
31	f__formatted = 1;
32	f__putn = z_putc;
33	L_len = a->icirlen;
34	f__donewrec = z_wSL;
35	f__svic = a;
36	f__icnum = f__recpos = 0;
37	f__cursor = 0;
38	f__cf = 0;
39	f__curunit = 0;
40	f__icptr = a->iciunit;
41	f__icend = f__icptr + a->icirlen*a->icirnum;
42	f__elist = (cilist *)a;
43	}
44
45 integer
46#ifdef KR_headers
47s_wsni(a) icilist *a;
48#else
49s_wsni(icilist *a)
50#endif
51{
52	cilist ca;
53
54	if(f__init != 1) f_init();
55	f__init = 3;
56	c_liw(a);
57	ca.cifmt = a->icifmt;
58	x_wsne(&ca);
59	z_wSL();
60	return 0;
61	}
62
63 integer
64#ifdef KR_headers
65s_wsli(a) icilist *a;
66#else
67s_wsli(icilist *a)
68#endif
69{
70	if(f__init != 1) f_init();
71	f__init = 3;
72	f__lioproc = l_write;
73	c_liw(a);
74	return(0);
75	}
76
77integer e_wsli(Void)
78{
79	f__init = 1;
80	z_wSL();
81	return(0);
82	}
83