#define USE_EXPRSTRING 0
-static void scm_lreadparen PARAMS ((int));
-static int scm_skip_ws PARAMS ((void));
-static void scm_read_token PARAMS ((int, int));
-static LONGEST scm_istring2number PARAMS ((char *, int, int));
-static LONGEST scm_istr2int PARAMS ((char *, int, int));
-static void scm_lreadr PARAMS ((int));
+static void scm_lreadparen (int);
+static int scm_skip_ws (void);
+static void scm_read_token (int, int);
+static LONGEST scm_istring2number (char *, int, int);
+static LONGEST scm_istr2int (char *, int, int);
+static void scm_lreadr (int);
static LONGEST
-scm_istr2int (str, len, radix)
- char *str;
- int len;
- int radix;
+scm_istr2int (char *str, int len, int radix)
{
int i = 0;
LONGEST inum = 0;
}
static LONGEST
-scm_istring2number (str, len, radix)
- char *str;
- int len;
- int radix;
+scm_istring2number (char *str, int len, int radix)
{
int i = 0;
char ex = 0;
}
static void
-scm_read_token (c, weird)
- int c;
- int weird;
+scm_read_token (int c, int weird)
{
while (1)
{
}
static int
-scm_skip_ws ()
+scm_skip_ws (void)
{
register int c;
while (1)
}
static void
-scm_lreadparen (skipping)
- int skipping;
+scm_lreadparen (int skipping)
{
for (;;)
{
}
static void
-scm_lreadr (skipping)
- int skipping;
+scm_lreadr (int skipping)
{
int c, j;
struct stoken str;
}
int
-scm_parse ()
+scm_parse (void)
{
char *start;
while (*lexptr == ' ')