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