diff options
Diffstat (limited to 'libf2c/libI77/iio.c')
| -rw-r--r-- | libf2c/libI77/iio.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libf2c/libI77/iio.c b/libf2c/libI77/iio.c index 435b4b6..a660a38 100644 --- a/libf2c/libI77/iio.c +++ b/libf2c/libI77/iio.c @@ -6,6 +6,7 @@ char *f__icend; extern icilist *f__svic; int f__icnum; extern int f__hiwater; +int z_getc (void) { if (f__recpos++ < f__svic->icirlen) @@ -23,6 +24,7 @@ z_putc (int c) if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen) *f__icptr++ = c; } +int z_rnew (void) { f__icptr = f__svic->iciunit + (++f__icnum) * f__svic->icirlen; @@ -39,6 +41,7 @@ z_endp (void) return 0; } +int c_si (icilist * a) { if (f__init & 2) @@ -88,6 +91,7 @@ s_rsfi (icilist * a) return (0); } +int z_wnew (void) { if (f__recpos < f__hiwater) |