* libF77/main.c (main): Avoid implicit int.
* libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise.
* libI77/due.c (c_due): Likewise.
* libI77/err.c (f__canseek, f__nowreading, f__nowwriting):
Likewise.
* libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio):
Likewise.
* libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise.
* libI77/lread.c (t_getc, c_le, l_read): Likewise.
* libI77/lwrite.c (l_write): Likewise.
* libI77/open.c (fk_open): Likewise.
* libI77/rdfmt.c (rd_ed, rd_ned): Likewise.
* libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise.
* libI77/rsne.c (t_getc, x_rsne): Likewise.
* libI77/sfe.c (c_sfe): Likewise.
* libI77/sue.c (c_sue): Likewise.
* libI77/uio.c (do_us): Likewise.
* libI77/wref.c (wrt_E, wrt_F): Likewise.
* libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise.
From-SVN: r54169
+Sun Jun 2 08:59:50 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
+
+ * libF77/main.c (main): Avoid implicit int.
+ * libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise.
+ * libI77/due.c (c_due): Likewise.
+ * libI77/err.c (f__canseek, f__nowreading, f__nowwriting):
+ Likewise.
+ * libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio):
+ Likewise.
+ * libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise.
+ * libI77/lread.c (t_getc, c_le, l_read): Likewise.
+ * libI77/lwrite.c (l_write): Likewise.
+ * libI77/open.c (fk_open): Likewise.
+ * libI77/rdfmt.c (rd_ed, rd_ned): Likewise.
+ * libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise.
+ * libI77/rsne.c (t_getc, x_rsne): Likewise.
+ * libI77/sfe.c (c_sfe): Likewise.
+ * libI77/sue.c (c_sue): Likewise.
+ * libI77/uio.c (do_us): Likewise.
+ * libI77/wref.c (wrt_E, wrt_F): Likewise.
+ * libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise.
+
Sun Jun 2 08:58:05 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* libI77/rdfmt.c (rd_I): Delete unused variable(s).
extern void f_init (void);
extern int MAIN__ (void);
+int
main (int argc, char **argv)
{
f_setarg (argc, argv);
#include "fio.h"
#include "fmt.h"
+int
y_rsk (void)
{
if (f__curunit->uend || f__curunit->url <= f__recpos
return 0;
}
+int
y_getc (void)
{
int ch;
return (1);
}
+int
c_dfe (cilist * a)
{
f__sequential = 0;
#include "f2c.h"
#include "fio.h"
+int
c_due (cilist * a)
{
if (f__init != 1)
};
#define MAXERR (sizeof(F_err)/sizeof(char *)+100)
+int
f__canseek (FILE * f) /*SYSDEP*/
{
#ifdef NON_UNIX_STDIO
p->uwrt = 1;
}
+int
f__nowreading (unit * x)
{
off_t loc;
return 0;
}
+int
f__nowwriting (unit * x)
{
off_t loc;
/*NOTREACHED*/ return 0;
}
-static
+static int
op_gen (int a, int b, int c, int d)
{
struct syl *p = &f__syl[f__pc];
return (s);
}
-static
+static int
ne_d (char *s, char **p)
{
int n, x, sign = 0;
return (1);
}
-static
+static int
e_d (char *s, char **p)
{
int i, im, n, w, d, e, found = 0, x = 0;
return (NULL);
}
+int
pars_f (char *s)
{
char *e;
int f__cnt[STKSZ], f__ret[STKSZ], f__cp, f__rp;
flag f__workdone, f__nonl;
-static
+static int
type_f (int n)
{
switch (n)
return (0);
}
+int
en_fio (void)
{
ftnint one = 1;
extern icilist *f__svic;
int f__icnum;
extern int f__hiwater;
+int
z_getc (void)
{
if (f__recpos++ < f__svic->icirlen)
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;
return 0;
}
+int
c_si (icilist * a)
{
if (f__init & 2)
return (0);
}
+int
z_wnew (void)
{
if (f__recpos < f__hiwater)
extern int ungetc (int, FILE *); /* for systems with a buggy stdio.h */
#endif
+int
t_getc (void)
{
int ch;
}
}
+int
c_le (cilist * a)
{
if (f__init != 1)
return (0);
}
+int
l_read (ftnint * number, char *ptr, ftnlen len, ftnint type)
{
#define Ptr ((flex *)ptr)
l_put (bb);
PUT (')');
}
+
+int
l_write (ftnint * number, char *ptr, ftnlen len, ftnint type)
{
#define Ptr ((flex *)ptr)
return (0);
}
+int
fk_open (int seq, int fmt, ftnint n)
{
char nbuf[10];
return (1);
}
+int
rd_ed (struct syl * p, char *ptr, ftnlen len)
{
int ch;
return (errno);
}
+int
rd_ned (struct syl * p)
{
switch (p->op)
#include "fio.h"
#include "fmt.h"
+int
xrd_SL (void)
{
int ch;
return (1);
}
+int
x_getc (void)
{
int ch;
return (-1);
}
+int
x_endp (void)
{
xrd_SL ();
return f__curunit->uend == 1 ? EOF : 0;
}
+int
x_rev (void)
{
(void) xrd_SL ();
extern flag f__lquit;
extern int f__lcount, nml_read;
-extern t_getc (void);
+extern int t_getc (void);
#undef abs
#undef min
static char where0[] = "namelist read start ";
+int
x_rsne (cilist * a)
{
int ch, got1, k, n, nd, quote, readall;
return (n);
}
+int
c_sfe (cilist * a) /* check */
{
unit *p;
extern uiolen f__reclen;
off_t f__recloc;
+int
c_sue (cilist * a)
{
f__external = f__sequential = 1;
#include <sys/types.h>
uiolen f__reclen;
+int
do_us (ftnint * number, char *ptr, ftnlen len)
{
if (f__reading)
#include "fmt.h"
#include "fp.h"
+int
wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
{
char buf[FMAX + EXPMAXDIGS + 4], *s, *se;
return 0;
}
+int
wrt_F (ufloat * p, int w, int d, ftnlen len)
{
int d1, sign, n;
return (1);
}
+int
wrt_L (Uint * n, int len, ftnlen sz)
{
int i;
return (wrt_E (p, w, d, e, len));
}
+int
w_ed (struct syl * p, char *ptr, ftnlen len)
{
int i;
}
}
+int
w_ned (struct syl * p)
{
switch (p->op)