diff options
author | David E. O'Brien <obrien@FreeBSD.org> | 1999-09-18 10:51:31 +0000 |
---|---|---|
committer | David E. O'Brien <obrien@FreeBSD.org> | 1999-09-18 10:51:31 +0000 |
commit | c1f999a45c30f40a3964639c48761ad29a52c612 (patch) | |
tree | 0938eb35cebcf917f447463078144fc4832576c6 /contrib/libf2c/libI77/ilnw.c | |
parent | 2a266d02ba4304af542da2cc521ecc0edc1c9706 (diff) | |
download | src-c1f999a45c30f40a3964639c48761ad29a52c612.tar.gz src-c1f999a45c30f40a3964639c48761ad29a52c612.zip |
Virgin import of EGCS 1.1.2's libf2c
Notes
Notes:
svn path=/vendor/gcc/dist/; revision=51363
Diffstat (limited to 'contrib/libf2c/libI77/ilnw.c')
-rw-r--r-- | contrib/libf2c/libI77/ilnw.c | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/contrib/libf2c/libI77/ilnw.c b/contrib/libf2c/libI77/ilnw.c new file mode 100644 index 000000000000..abc64099d313 --- /dev/null +++ b/contrib/libf2c/libI77/ilnw.c @@ -0,0 +1,82 @@ +#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; + + if(f__init != 1) f_init(); + f__init = 3; + 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 +{ + if(f__init != 1) f_init(); + f__init = 3; + f__lioproc = l_write; + c_liw(a); + return(0); + } + +integer e_wsli(Void) +{ + f__init = 1; + z_wSL(); + return(0); + } |