summaryrefslogtreecommitdiffstats
path: root/contrib/gdb/gdb/scm-exp.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/gdb/gdb/scm-exp.c')
-rw-r--r--contrib/gdb/gdb/scm-exp.c274
1 files changed, 173 insertions, 101 deletions
diff --git a/contrib/gdb/gdb/scm-exp.c b/contrib/gdb/gdb/scm-exp.c
index 6399563..7464ecf 100644
--- a/contrib/gdb/gdb/scm-exp.c
+++ b/contrib/gdb/gdb/scm-exp.c
@@ -1,21 +1,22 @@
/* Scheme/Guile language support routines for GDB, the GNU debugger.
- Copyright 1995 Free Software Foundation, Inc.
+ Copyright 1995, 1996, 2000 Free Software Foundation, Inc.
-This file is part of GDB.
+ This file is part of GDB.
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
#include "defs.h"
#include "symtab.h"
@@ -30,63 +31,80 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#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;
int c;
int sign = 0;
- if (0 >= len) return SCM_BOOL_F; /* zero scm_length */
+ if (0 >= len)
+ return SCM_BOOL_F; /* zero scm_length */
switch (str[0])
- { /* leading sign */
+ { /* leading sign */
case '-':
case '+':
sign = str[0];
- if (++i==len)
- return SCM_BOOL_F; /* bad if lone `+' or `-' */
+ if (++i == len)
+ return SCM_BOOL_F; /* bad if lone `+' or `-' */
}
- do {
- switch (c = str[i++]) {
- case '0': case '1': case '2': case '3': case '4':
- case '5': case '6': case '7': case '8': case '9':
- c = c - '0';
- goto accumulate;
- case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
- c = c-'A'+10;
- goto accumulate;
- case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
- c = c-'a'+10;
- accumulate:
- if (c >= radix) return SCM_BOOL_F; /* bad digit for radix */
- inum *= radix;
- inum += c;
- break;
- default:
- return SCM_BOOL_F; /* not a digit */
+ do
+ {
+ switch (c = str[i++])
+ {
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ case '8':
+ case '9':
+ c = c - '0';
+ goto accumulate;
+ case 'A':
+ case 'B':
+ case 'C':
+ case 'D':
+ case 'E':
+ case 'F':
+ c = c - 'A' + 10;
+ goto accumulate;
+ case 'a':
+ case 'b':
+ case 'c':
+ case 'd':
+ case 'e':
+ case 'f':
+ c = c - 'a' + 10;
+ accumulate:
+ if (c >= radix)
+ return SCM_BOOL_F; /* bad digit for radix */
+ inum *= radix;
+ inum += c;
+ break;
+ default:
+ return SCM_BOOL_F; /* not a digit */
+ }
}
- } while (i < len);
+ while (i < len);
if (sign == '-')
inum = -inum;
return SCM_MAKINUM (inum);
}
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;
@@ -94,40 +112,73 @@ scm_istring2number(str, len, radix)
#if 0
SCM res;
#endif
- if (len==1)
- if (*str=='+' || *str=='-') /* Catches lone `+' and `-' for speed */
+ if (len == 1)
+ if (*str == '+' || *str == '-') /* Catches lone `+' and `-' for speed */
return SCM_BOOL_F;
- while ((len-i) >= 2 && str[i]=='#' && ++i)
- switch (str[i++]) {
- case 'b': case 'B': if (rx_p++) return SCM_BOOL_F; radix = 2; break;
- case 'o': case 'O': if (rx_p++) return SCM_BOOL_F; radix = 8; break;
- case 'd': case 'D': if (rx_p++) return SCM_BOOL_F; radix = 10; break;
- case 'x': case 'X': if (rx_p++) return SCM_BOOL_F; radix = 16; break;
- case 'i': case 'I': if (ex_p++) return SCM_BOOL_F; ex = 2; break;
- case 'e': case 'E': if (ex_p++) return SCM_BOOL_F; ex = 1; break;
- default: return SCM_BOOL_F;
- }
+ while ((len - i) >= 2 && str[i] == '#' && ++i)
+ switch (str[i++])
+ {
+ case 'b':
+ case 'B':
+ if (rx_p++)
+ return SCM_BOOL_F;
+ radix = 2;
+ break;
+ case 'o':
+ case 'O':
+ if (rx_p++)
+ return SCM_BOOL_F;
+ radix = 8;
+ break;
+ case 'd':
+ case 'D':
+ if (rx_p++)
+ return SCM_BOOL_F;
+ radix = 10;
+ break;
+ case 'x':
+ case 'X':
+ if (rx_p++)
+ return SCM_BOOL_F;
+ radix = 16;
+ break;
+ case 'i':
+ case 'I':
+ if (ex_p++)
+ return SCM_BOOL_F;
+ ex = 2;
+ break;
+ case 'e':
+ case 'E':
+ if (ex_p++)
+ return SCM_BOOL_F;
+ ex = 1;
+ break;
+ default:
+ return SCM_BOOL_F;
+ }
- switch (ex) {
- case 1:
- return scm_istr2int(&str[i], len-i, radix);
- case 0:
- return scm_istr2int(&str[i], len-i, radix);
+ switch (ex)
+ {
+ case 1:
+ return scm_istr2int (&str[i], len - i, radix);
+ case 0:
+ return scm_istr2int (&str[i], len - i, radix);
#if 0
- if NFALSEP(res) return res;
+ if NFALSEP
+ (res) return res;
#ifdef FLOATS
- case 2: return scm_istr2flo(&str[i], len-i, radix);
+ case 2:
+ return scm_istr2flo (&str[i], len - i, radix);
#endif
#endif
- }
+ }
return SCM_BOOL_F;
}
static void
-scm_read_token (c, weird)
- int c;
- int weird;
+scm_read_token (int c, int weird)
{
while (1)
{
@@ -140,11 +191,14 @@ scm_read_token (c, weird)
case ')':
case '\"':
case ';':
- case ' ': case '\t': case '\r': case '\f':
+ case ' ':
+ case '\t':
+ case '\r':
+ case '\f':
case '\n':
if (weird)
goto default_case;
- case '\0': /* End of line */
+ case '\0': /* End of line */
eof_case:
--lexptr;
return;
@@ -180,8 +234,8 @@ scm_read_token (c, weird)
}
}
-static int
-scm_skip_ws ()
+static int
+scm_skip_ws (void)
{
register int c;
while (1)
@@ -201,7 +255,11 @@ scm_skip_ws ()
case '\n':
break;
}
- case ' ': case '\t': case '\r': case '\f': case '\n':
+ case ' ':
+ case '\t':
+ case '\r':
+ case '\f':
+ case '\n':
break;
default:
return c;
@@ -209,8 +267,7 @@ scm_skip_ws ()
}
static void
-scm_lreadparen (skipping)
- int skipping;
+scm_lreadparen (int skipping)
{
for (;;)
{
@@ -225,13 +282,12 @@ scm_lreadparen (skipping)
}
static void
-scm_lreadr (skipping)
- int skipping;
+scm_lreadr (int skipping)
{
int c, j;
struct stoken str;
LONGEST svalue = 0;
- tryagain:
+tryagain:
c = *lexptr++;
switch (c)
{
@@ -252,7 +308,7 @@ scm_lreadr (skipping)
scm_lreadr (skipping);
if (!skipping)
{
- value_ptr val = scm_evaluate_string (str.ptr, lexptr - str.ptr);
+ struct value *val = scm_evaluate_string (str.ptr, lexptr - str.ptr);
if (!is_scmvalue_type (VALUE_TYPE (val)))
error ("quoted scm form yields non-SCM value");
svalue = extract_signed_integer (VALUE_CONTENTS (val),
@@ -274,28 +330,36 @@ scm_lreadr (skipping)
case '(':
scm_lreadparen (skipping);
return;
- case 't': case 'T':
+ case 't':
+ case 'T':
svalue = SCM_BOOL_T;
goto handle_immediate;
- case 'f': case 'F':
+ case 'f':
+ case 'F':
svalue = SCM_BOOL_F;
goto handle_immediate;
- case 'b': case 'B':
- case 'o': case 'O':
- case 'd': case 'D':
- case 'x': case 'X':
- case 'i': case 'I':
- case 'e': case 'E':
+ case 'b':
+ case 'B':
+ case 'o':
+ case 'O':
+ case 'd':
+ case 'D':
+ case 'x':
+ case 'X':
+ case 'i':
+ case 'I':
+ case 'e':
+ case 'E':
lexptr--;
c = '#';
goto num;
- case '*': /* bitvector */
+ case '*': /* bitvector */
scm_read_token (c, 0);
return;
case '{':
scm_read_token (c, 1);
return;
- case '\\': /* character */
+ case '\\': /* character */
c = *lexptr++;
scm_read_token (c, 0);
return;
@@ -352,14 +416,22 @@ scm_lreadr (skipping)
}
}
return;
- case '0': case '1': case '2': case '3': case '4':
- case '5': case '6': case '7': case '8': case '9':
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ case '8':
+ case '9':
case '.':
case '-':
case '+':
num:
{
- str.ptr = lexptr-1;
+ str.ptr = lexptr - 1;
scm_read_token (c, 0);
if (!skipping)
{
@@ -377,7 +449,7 @@ scm_lreadr (skipping)
do_symbol:
#endif
default:
- str.ptr = lexptr-1;
+ str.ptr = lexptr - 1;
scm_read_token (c, 0);
tok:
if (!skipping)
@@ -394,7 +466,7 @@ scm_lreadr (skipping)
}
return;
}
- handle_immediate:
+handle_immediate:
if (!skipping)
{
write_exp_elt_opcode (OP_LONG);
@@ -405,9 +477,9 @@ scm_lreadr (skipping)
}
int
-scm_parse ()
+scm_parse (void)
{
- char* start;
+ char *start;
while (*lexptr == ' ')
lexptr++;
start = lexptr;
OpenPOWER on IntegriCloud