OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Daily bump.
[pf3gnuchains/gcc-fork.git]
/
libf2c
/
libI77
/
ilnw.c
1
#include "config.h"
2
#include "f2c.h"
3
#include "fio.h"
4
#include "lio.h"
5
extern char *f__icptr;
6
extern char *f__icend;
7
extern icilist *f__svic;
8
extern int f__icnum;
9
extern void z_putc (int);
10
11
static int
12
z_wSL (void)
13
{
14
while (f__recpos < f__svic->icirlen)
15
z_putc (' ');
16
return z_rnew ();
17
}
18
19
static void
20
c_liw (icilist * a)
21
{
22
f__reading = 0;
23
f__external = 0;
24
f__formatted = 1;
25
f__putn = z_putc;
26
L_len = a->icirlen;
27
f__donewrec = z_wSL;
28
f__svic = a;
29
f__icnum = f__recpos = 0;
30
f__cursor = 0;
31
f__cf = 0;
32
f__curunit = 0;
33
f__icptr = a->iciunit;
34
f__icend = f__icptr + a->icirlen * a->icirnum;
35
f__elist = (cilist *) a;
36
}
37
38
integer
39
s_wsni (icilist * a)
40
{
41
cilist ca;
42
43
if (f__init != 1)
44
f_init ();
45
f__init = 3;
46
c_liw (a);
47
ca.cifmt = a->icifmt;
48
x_wsne (&ca);
49
z_wSL ();
50
return 0;
51
}
52
53
integer
54
s_wsli (icilist * a)
55
{
56
if (f__init != 1)
57
f_init ();
58
f__init = 3;
59
f__lioproc = l_write;
60
c_liw (a);
61
return (0);
62
}
63
64
integer
65
e_wsli (void)
66
{
67
f__init = 1;
68
z_wSL ();
69
return (0);
70
}