2001-05-16 20:59:29 +02:00
|
|
|
#include "config.h"
|
1998-02-01 02:37:08 +01:00
|
|
|
#include "f2c.h"
|
|
|
|
#include "fio.h"
|
|
|
|
#include "lio.h"
|
|
|
|
extern char *f__icptr;
|
|
|
|
extern char *f__icend;
|
|
|
|
extern icilist *f__svic;
|
|
|
|
extern int f__icnum;
|
1998-05-19 12:52:03 +02:00
|
|
|
extern void z_putc(int);
|
1998-02-01 02:37:08 +01:00
|
|
|
|
|
|
|
static int
|
g2c.hin, [...]: Kill VOID, Void and Int.
* g2c.hin, libF77/d_cnjg.c, libF77/main.c, libF77/r_cnjg.c,
libF77/s_cat.c, libF77/s_paus.c, libF77/s_rnge.c, libF77/setarg.c,
libF77/setsig.c, libF77/signal1.h0, libI77/dfe.c, libI77/due.c,
libI77/err.c, libI77/fio.h, libI77/fmt.c, libI77/iio.c,
libI77/ilnw.c, libI77/lread.c, libI77/lwrite.c, libI77/rsfe.c,
libI77/rsli.c, libI77/rsne.c, libI77/sfe.c, libI77/sue.c,
libI77/util.c, libI77/wrtfmt.c, libI77/wsfe.c, libI77/wsle.c,
libI77/xwsne.c, libU77/date_.c: Kill VOID, Void and Int.
From-SVN: r54134
2002-06-01 03:58:10 +02:00
|
|
|
z_wSL(void)
|
1998-02-01 02:37:08 +01:00
|
|
|
{
|
|
|
|
while(f__recpos < f__svic->icirlen)
|
|
|
|
z_putc(' ');
|
|
|
|
return z_rnew();
|
|
|
|
}
|
|
|
|
|
1998-05-19 12:52:03 +02:00
|
|
|
static void
|
1998-02-01 02:37:08 +01:00
|
|
|
c_liw(icilist *a)
|
|
|
|
{
|
|
|
|
f__reading = 0;
|
|
|
|
f__external = 0;
|
|
|
|
f__formatted = 1;
|
|
|
|
f__putn = z_putc;
|
|
|
|
L_len = a->icirlen;
|
|
|
|
f__donewrec = z_wSL;
|
|
|
|
f__svic = a;
|
|
|
|
f__icnum = f__recpos = 0;
|
|
|
|
f__cursor = 0;
|
|
|
|
f__cf = 0;
|
|
|
|
f__curunit = 0;
|
|
|
|
f__icptr = a->iciunit;
|
|
|
|
f__icend = f__icptr + a->icirlen*a->icirnum;
|
|
|
|
f__elist = (cilist *)a;
|
|
|
|
}
|
|
|
|
|
|
|
|
integer
|
|
|
|
s_wsni(icilist *a)
|
|
|
|
{
|
|
|
|
cilist ca;
|
|
|
|
|
|
|
|
if(f__init != 1) f_init();
|
|
|
|
f__init = 3;
|
|
|
|
c_liw(a);
|
|
|
|
ca.cifmt = a->icifmt;
|
|
|
|
x_wsne(&ca);
|
|
|
|
z_wSL();
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
integer
|
|
|
|
s_wsli(icilist *a)
|
|
|
|
{
|
|
|
|
if(f__init != 1) f_init();
|
|
|
|
f__init = 3;
|
|
|
|
f__lioproc = l_write;
|
|
|
|
c_liw(a);
|
|
|
|
return(0);
|
|
|
|
}
|
|
|
|
|
g2c.hin, [...]: Kill VOID, Void and Int.
* g2c.hin, libF77/d_cnjg.c, libF77/main.c, libF77/r_cnjg.c,
libF77/s_cat.c, libF77/s_paus.c, libF77/s_rnge.c, libF77/setarg.c,
libF77/setsig.c, libF77/signal1.h0, libI77/dfe.c, libI77/due.c,
libI77/err.c, libI77/fio.h, libI77/fmt.c, libI77/iio.c,
libI77/ilnw.c, libI77/lread.c, libI77/lwrite.c, libI77/rsfe.c,
libI77/rsli.c, libI77/rsne.c, libI77/sfe.c, libI77/sue.c,
libI77/util.c, libI77/wrtfmt.c, libI77/wsfe.c, libI77/wsle.c,
libI77/xwsne.c, libU77/date_.c: Kill VOID, Void and Int.
From-SVN: r54134
2002-06-01 03:58:10 +02:00
|
|
|
integer e_wsli(void)
|
1998-02-01 02:37:08 +01:00
|
|
|
{
|
|
|
|
f__init = 1;
|
|
|
|
z_wSL();
|
|
|
|
return(0);
|
|
|
|
}
|