38d2602fc1
the function naming problem for complex double function i've recently aksed for in -committers. (The recently committed rev 1.5 of proc.c was actually also part of this update.) Should the mailing lists come to an agreement that f2c better belongs into the ports, this could be done nevertheless. For the time being, we've at least got a current version now. Thanks, Steve! Submitted by: Steve Kargl <sgk@troutmask.apl.washington.edu>
78 lines
1.0 KiB
C
78 lines
1.0 KiB
C
#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;
|
|
#ifdef KR_headers
|
|
extern void z_putc();
|
|
#else
|
|
extern void z_putc(int);
|
|
#endif
|
|
|
|
static int
|
|
z_wSL(Void)
|
|
{
|
|
while(f__recpos < f__svic->icirlen)
|
|
z_putc(' ');
|
|
return z_rnew();
|
|
}
|
|
|
|
static void
|
|
#ifdef KR_headers
|
|
c_liw(a) icilist *a;
|
|
#else
|
|
c_liw(icilist *a)
|
|
#endif
|
|
{
|
|
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
|
|
#ifdef KR_headers
|
|
s_wsni(a) icilist *a;
|
|
#else
|
|
s_wsni(icilist *a)
|
|
#endif
|
|
{
|
|
cilist ca;
|
|
|
|
c_liw(a);
|
|
ca.cifmt = a->icifmt;
|
|
x_wsne(&ca);
|
|
z_wSL();
|
|
return 0;
|
|
}
|
|
|
|
integer
|
|
#ifdef KR_headers
|
|
s_wsli(a) icilist *a;
|
|
#else
|
|
s_wsli(icilist *a)
|
|
#endif
|
|
{
|
|
f__lioproc = l_write;
|
|
c_liw(a);
|
|
return(0);
|
|
}
|
|
|
|
integer e_wsli(Void)
|
|
{
|
|
z_wSL();
|
|
return(0);
|
|
}
|