diff options
author | Toon Moene <toon@moene.indiv.nluug.nl> | 2004-07-15 18:52:49 +0200 |
---|---|---|
committer | Toon Moene <toon@gcc.gnu.org> | 2004-07-15 16:52:49 +0000 |
commit | 3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9 (patch) | |
tree | 5f8cfd6717d2fc2edd87b592618718293587582c /libf2c/libI77/rsli.c | |
parent | 48b456474c69a132da15996c61009e35efa59492 (diff) | |
download | gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.zip gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.gz gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.bz2 |
libf2c: Removed.
2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>
* libf2c: Removed.
* gcc/gccbug.in: Updated because of libf2c removal.
* maintainer-scripts/gcc_release: Ditto.
From-SVN: r84759
Diffstat (limited to 'libf2c/libI77/rsli.c')
-rw-r--r-- | libf2c/libI77/rsli.c | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/libf2c/libI77/rsli.c b/libf2c/libI77/rsli.c deleted file mode 100644 index c07632a..0000000 --- a/libf2c/libI77/rsli.c +++ /dev/null @@ -1,99 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include "lio.h" -#include "fmt.h" /* for f__doend */ - -extern flag f__lquit; -extern int f__lcount; -extern char *f__icptr; -extern char *f__icend; -extern icilist *f__svic; -extern int f__icnum, f__recpos; - -static int -i_getc (void) -{ - if (f__recpos >= f__svic->icirlen) - { - if (f__recpos++ == f__svic->icirlen) - return '\n'; - z_rnew (); - } - f__recpos++; - if (f__icptr >= f__icend) - return EOF; - return (*f__icptr++); -} - -static int -i_ungetc (int ch __attribute__ ((__unused__)), - FILE * f __attribute__ ((__unused__))) -{ - if (--f__recpos == f__svic->icirlen) - return '\n'; - if (f__recpos < -1) - err (f__svic->icierr, 110, "recend"); - /* *--icptr == ch, and icptr may point to read-only memory */ - return *--f__icptr /* = ch */ ; -} - -static void -c_lir (icilist * a) -{ - extern int l_eof; - if (f__init != 1) - f_init (); - f__init = 3; - f__reading = 1; - f__external = 0; - f__formatted = 1; - f__svic = a; - L_len = a->icirlen; - f__recpos = -1; - f__icnum = f__recpos = 0; - f__cursor = 0; - l_getc = i_getc; - l_ungetc = i_ungetc; - l_eof = 0; - f__icptr = a->iciunit; - f__icend = f__icptr + a->icirlen * a->icirnum; - f__cf = 0; - f__curunit = 0; - f__elist = (cilist *) a; -} - - -integer -s_rsli (icilist * a) -{ - f__lioproc = l_read; - f__lquit = 0; - f__lcount = 0; - c_lir (a); - f__doend = 0; - return (0); -} - -integer -e_rsli (void) -{ - f__init = 1; - return 0; -} - -extern int x_rsne (cilist *); - -integer -s_rsni (icilist * a) -{ - extern int nml_read; - integer rv; - cilist ca; - ca.ciend = a->iciend; - ca.cierr = a->icierr; - ca.cifmt = a->icifmt; - c_lir (a); - rv = x_rsne (&ca); - nml_read = 0; - return rv; -} |