diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/ilnw.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/ilnw.c | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/ilnw.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/ilnw.c deleted file mode 100644 index e8b3d49cf1f..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/ilnw.c +++ /dev/null @@ -1,83 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" -#ifdef __cplusplus -extern "C" { -#endif -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); - } -#ifdef __cplusplus -} -#endif |