|
|
|
@ -1,14 +1,14 @@ |
|
|
|
/* A Bison parser, made by GNU Bison 2.3. */ |
|
|
|
/* A Bison parser, made by GNU Bison 2.4.2. */ |
|
|
|
|
|
|
|
/* Skeleton implementation for Bison's Yacc-like parsers in C |
|
|
|
|
|
|
|
Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
|
|
|
Free Software Foundation, Inc. |
|
|
|
Copyright (C) 1984, 1989-1990, 2000-2006, 2009-2010 Free Software |
|
|
|
Foundation, Inc. |
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify |
|
|
|
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, or (at your option) |
|
|
|
any later version. |
|
|
|
the Free Software Foundation, either version 3 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 |
|
|
|
@ -16,9 +16,7 @@ |
|
|
|
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., 51 Franklin Street, Fifth Floor, |
|
|
|
Boston, MA 02110-1301, USA. */ |
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
|
|
|
|
|
|
|
/* As a special exception, you may create a larger work that contains |
|
|
|
part or all of the Bison parser skeleton and distribute that work |
|
|
|
@ -47,7 +45,7 @@ |
|
|
|
#define YYBISON 1 |
|
|
|
|
|
|
|
/* Bison version. */ |
|
|
|
#define YYBISON_VERSION "2.3" |
|
|
|
#define YYBISON_VERSION "2.4.2" |
|
|
|
|
|
|
|
/* Skeleton name. */ |
|
|
|
#define YYSKELETON_NAME "yacc.c" |
|
|
|
@ -55,6 +53,12 @@ |
|
|
|
/* Pure parsers. */ |
|
|
|
#define YYPURE 1 |
|
|
|
|
|
|
|
/* Push parsers. */ |
|
|
|
#define YYPUSH 0 |
|
|
|
|
|
|
|
/* Pull parsers. */ |
|
|
|
#define YYPULL 1 |
|
|
|
|
|
|
|
/* Using locations. */ |
|
|
|
#define YYLSP_NEEDED 1 |
|
|
|
|
|
|
|
@ -68,37 +72,10 @@ |
|
|
|
#define yynerrs PPnerrs |
|
|
|
#define yylloc PPlloc |
|
|
|
|
|
|
|
/* Tokens. */ |
|
|
|
#ifndef YYTOKENTYPE |
|
|
|
# define YYTOKENTYPE |
|
|
|
/* Put the tokens into the symbol table, so that GDB and other debuggers |
|
|
|
know about them. */ |
|
|
|
enum yytokentype { |
|
|
|
TOK_NUM = 258, |
|
|
|
TOK_STR = 259, |
|
|
|
TOK_LE = 260, |
|
|
|
TOK_GE = 261, |
|
|
|
TOK_NE = 262, |
|
|
|
TOK_LRANGE = 263, |
|
|
|
TOK_RRANGE = 264, |
|
|
|
NEG = 265 |
|
|
|
}; |
|
|
|
#endif |
|
|
|
/* Tokens. */ |
|
|
|
#define TOK_NUM 258 |
|
|
|
#define TOK_STR 259 |
|
|
|
#define TOK_LE 260 |
|
|
|
#define TOK_GE 261 |
|
|
|
#define TOK_NE 262 |
|
|
|
#define TOK_LRANGE 263 |
|
|
|
#define TOK_RRANGE 264 |
|
|
|
#define NEG 265 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Copy the first part of user declarations. */ |
|
|
|
#line 1 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 189 of yacc.c */ |
|
|
|
#line 1 "./parse-bison.y" |
|
|
|
|
|
|
|
|
|
|
|
#include <stdio.h> |
|
|
|
@ -134,6 +111,9 @@ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Line 189 of yacc.c */ |
|
|
|
#line 116 "parse-bison.c" |
|
|
|
|
|
|
|
/* Enabling traces. */ |
|
|
|
#ifndef YYDEBUG |
|
|
|
# define YYDEBUG 1 |
|
|
|
@ -152,20 +132,45 @@ |
|
|
|
# define YYTOKEN_TABLE 0 |
|
|
|
#endif |
|
|
|
|
|
|
|
|
|
|
|
/* Tokens. */ |
|
|
|
#ifndef YYTOKENTYPE |
|
|
|
# define YYTOKENTYPE |
|
|
|
/* Put the tokens into the symbol table, so that GDB and other debuggers |
|
|
|
know about them. */ |
|
|
|
enum yytokentype { |
|
|
|
TOK_NUM = 258, |
|
|
|
TOK_STR = 259, |
|
|
|
TOK_LE = 260, |
|
|
|
TOK_GE = 261, |
|
|
|
TOK_NE = 262, |
|
|
|
TOK_LRANGE = 263, |
|
|
|
TOK_RRANGE = 264, |
|
|
|
NEG = 265 |
|
|
|
}; |
|
|
|
#endif |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED |
|
|
|
typedef union YYSTYPE |
|
|
|
#line 50 "parse-bison.y" |
|
|
|
{ |
|
|
|
|
|
|
|
/* Line 214 of yacc.c */ |
|
|
|
#line 50 "./parse-bison.y" |
|
|
|
|
|
|
|
double num; |
|
|
|
const char *str; |
|
|
|
struct pnode *pnode; |
|
|
|
} |
|
|
|
/* Line 187 of yacc.c. */ |
|
|
|
#line 165 "parse-bison.c" |
|
|
|
YYSTYPE; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Line 214 of yacc.c */ |
|
|
|
#line 170 "parse-bison.c" |
|
|
|
} YYSTYPE; |
|
|
|
# define YYSTYPE_IS_TRIVIAL 1 |
|
|
|
# define yystype YYSTYPE /* obsolescent; will be withdrawn */ |
|
|
|
# define YYSTYPE_IS_DECLARED 1 |
|
|
|
# define YYSTYPE_IS_TRIVIAL 1 |
|
|
|
#endif |
|
|
|
|
|
|
|
#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED |
|
|
|
@ -185,8 +190,8 @@ typedef struct YYLTYPE |
|
|
|
/* Copy the second part of user declarations. */ |
|
|
|
|
|
|
|
|
|
|
|
/* Line 216 of yacc.c. */ |
|
|
|
#line 190 "parse-bison.c" |
|
|
|
/* Line 264 of yacc.c */ |
|
|
|
#line 195 "parse-bison.c" |
|
|
|
|
|
|
|
#ifdef short |
|
|
|
# undef short |
|
|
|
@ -236,7 +241,7 @@ typedef short int yytype_int16; |
|
|
|
#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) |
|
|
|
|
|
|
|
#ifndef YY_ |
|
|
|
# if YYENABLE_NLS |
|
|
|
# if defined YYENABLE_NLS && YYENABLE_NLS |
|
|
|
# if ENABLE_NLS |
|
|
|
# include <libintl.h> /* INFRINGES ON USER NAME SPACE */ |
|
|
|
# define YY_(msgid) dgettext ("bison-runtime", msgid) |
|
|
|
@ -261,14 +266,14 @@ typedef short int yytype_int16; |
|
|
|
#if (defined __STDC__ || defined __C99__FUNC__ \ |
|
|
|
|| defined __cplusplus || defined _MSC_VER) |
|
|
|
static int |
|
|
|
YYID (int i) |
|
|
|
YYID (int yyi) |
|
|
|
#else |
|
|
|
static int |
|
|
|
YYID (i) |
|
|
|
int i; |
|
|
|
YYID (yyi) |
|
|
|
int yyi; |
|
|
|
#endif |
|
|
|
{ |
|
|
|
return i; |
|
|
|
return yyi; |
|
|
|
} |
|
|
|
#endif |
|
|
|
|
|
|
|
@ -350,9 +355,9 @@ void free (void *); /* INFRINGES ON USER NAME SPACE */ |
|
|
|
/* A type that is properly aligned for any stack member. */ |
|
|
|
union yyalloc |
|
|
|
{ |
|
|
|
yytype_int16 yyss; |
|
|
|
YYSTYPE yyvs; |
|
|
|
YYLTYPE yyls; |
|
|
|
yytype_int16 yyss_alloc; |
|
|
|
YYSTYPE yyvs_alloc; |
|
|
|
YYLTYPE yyls_alloc; |
|
|
|
}; |
|
|
|
|
|
|
|
/* The size of the maximum gap between one aligned stack and the next. */ |
|
|
|
@ -387,12 +392,12 @@ union yyalloc |
|
|
|
elements in the stack, and YYPTR gives the new location of the |
|
|
|
stack. Advance YYPTR to a properly aligned location for the next |
|
|
|
stack. */ |
|
|
|
# define YYSTACK_RELOCATE(Stack) \ |
|
|
|
# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ |
|
|
|
do \ |
|
|
|
{ \ |
|
|
|
YYSIZE_T yynewbytes; \ |
|
|
|
YYCOPY (&yyptr->Stack, Stack, yysize); \ |
|
|
|
Stack = &yyptr->Stack; \ |
|
|
|
YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ |
|
|
|
Stack = &yyptr->Stack_alloc; \ |
|
|
|
yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ |
|
|
|
yyptr += yynewbytes / sizeof (*yyptr); \ |
|
|
|
} \ |
|
|
|
@ -659,9 +664,18 @@ static const yytype_uint8 yystos[] = |
|
|
|
|
|
|
|
/* Like YYERROR except do call yyerror. This remains here temporarily |
|
|
|
to ease the transition to the new meaning of YYERROR, for GCC. |
|
|
|
Once GCC version 2 has supplanted version 1, this can go. */ |
|
|
|
Once GCC version 2 has supplanted version 1, this can go. However, |
|
|
|
YYFAIL appears to be in use. Nevertheless, it is formally deprecated |
|
|
|
in Bison 2.4.2's NEWS entry, where a plan to phase it out is |
|
|
|
discussed. */ |
|
|
|
|
|
|
|
#define YYFAIL goto yyerrlab |
|
|
|
#if defined YYFAIL |
|
|
|
/* This is here to suppress warnings from the GCC cpp's |
|
|
|
-Wunused-macros. Normally we don't worry about that warning, but |
|
|
|
some users do, and we want to make it easy for users to remove |
|
|
|
YYFAIL uses, which will produce warnings from Bison 2.5. */ |
|
|
|
#endif |
|
|
|
|
|
|
|
#define YYRECOVERING() (!!yyerrstatus) |
|
|
|
|
|
|
|
@ -718,7 +732,7 @@ while (YYID (0)) |
|
|
|
we won't break user code: when these are the locations we know. */ |
|
|
|
|
|
|
|
#ifndef YY_LOCATION_PRINT |
|
|
|
# if YYLTYPE_IS_TRIVIAL |
|
|
|
# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL |
|
|
|
# define YY_LOCATION_PRINT(File, Loc) \ |
|
|
|
fprintf (File, "%d.%d-%d.%d", \ |
|
|
|
(Loc).first_line, (Loc).first_column, \ |
|
|
|
@ -840,17 +854,20 @@ yy_symbol_print (yyoutput, yytype, yyvaluep, yylocationp, line, retval) |
|
|
|
#if (defined __STDC__ || defined __C99__FUNC__ \ |
|
|
|
|| defined __cplusplus || defined _MSC_VER) |
|
|
|
static void |
|
|
|
yy_stack_print (yytype_int16 *bottom, yytype_int16 *top) |
|
|
|
yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) |
|
|
|
#else |
|
|
|
static void |
|
|
|
yy_stack_print (bottom, top) |
|
|
|
yytype_int16 *bottom; |
|
|
|
yytype_int16 *top; |
|
|
|
yy_stack_print (yybottom, yytop) |
|
|
|
yytype_int16 *yybottom; |
|
|
|
yytype_int16 *yytop; |
|
|
|
#endif |
|
|
|
{ |
|
|
|
YYFPRINTF (stderr, "Stack now"); |
|
|
|
for (; bottom <= top; ++bottom) |
|
|
|
YYFPRINTF (stderr, " %d", *bottom); |
|
|
|
for (; yybottom <= yytop; yybottom++) |
|
|
|
{ |
|
|
|
int yybot = *yybottom; |
|
|
|
YYFPRINTF (stderr, " %d", yybot); |
|
|
|
} |
|
|
|
YYFPRINTF (stderr, "\n"); |
|
|
|
} |
|
|
|
|
|
|
|
@ -887,11 +904,11 @@ yy_reduce_print (yyvsp, yylsp, yyrule, line, retval) |
|
|
|
/* The symbols being reduced. */ |
|
|
|
for (yyi = 0; yyi < yynrhs; yyi++) |
|
|
|
{ |
|
|
|
fprintf (stderr, " $%d = ", yyi + 1); |
|
|
|
YYFPRINTF (stderr, " $%d = ", yyi + 1); |
|
|
|
yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], |
|
|
|
&(yyvsp[(yyi + 1) - (yynrhs)]) |
|
|
|
, &(yylsp[(yyi + 1) - (yynrhs)]) , line, retval); |
|
|
|
fprintf (stderr, "\n"); |
|
|
|
YYFPRINTF (stderr, "\n"); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
@ -1177,10 +1194,8 @@ yydestruct (yymsg, yytype, yyvaluep, yylocationp, line, retval) |
|
|
|
break; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
/* Prevent warnings from -Wmissing-prototypes. */ |
|
|
|
|
|
|
|
#ifdef YYPARSE_PARAM |
|
|
|
#if defined __STDC__ || defined __cplusplus |
|
|
|
int yyparse (void *YYPARSE_PARAM); |
|
|
|
@ -1199,10 +1214,9 @@ int yyparse (); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*----------. |
|
|
|
| yyparse. | |
|
|
|
`----------*/ |
|
|
|
/*-------------------------. |
|
|
|
| yyparse or yypush_parse. | |
|
|
|
`-------------------------*/ |
|
|
|
|
|
|
|
#ifdef YYPARSE_PARAM |
|
|
|
#if (defined __STDC__ || defined __C99__FUNC__ \ |
|
|
|
@ -1227,34 +1241,25 @@ yyparse (line, retval) |
|
|
|
#endif |
|
|
|
#endif |
|
|
|
{ |
|
|
|
/* The look-ahead symbol. */ |
|
|
|
/* The lookahead symbol. */ |
|
|
|
int yychar; |
|
|
|
|
|
|
|
/* The semantic value of the look-ahead symbol. */ |
|
|
|
/* The semantic value of the lookahead symbol. */ |
|
|
|
YYSTYPE yylval; |
|
|
|
|
|
|
|
/* Number of syntax errors so far. */ |
|
|
|
int yynerrs; |
|
|
|
/* Location data for the look-ahead symbol. */ |
|
|
|
/* Location data for the lookahead symbol. */ |
|
|
|
YYLTYPE yylloc; |
|
|
|
|
|
|
|
/* Number of syntax errors so far. */ |
|
|
|
int yynerrs; |
|
|
|
|
|
|
|
int yystate; |
|
|
|
int yyn; |
|
|
|
int yyresult; |
|
|
|
/* Number of tokens to shift before error messages enabled. */ |
|
|
|
int yyerrstatus; |
|
|
|
/* Look-ahead token as an internal (translated) token number. */ |
|
|
|
int yytoken = 0; |
|
|
|
#if YYERROR_VERBOSE |
|
|
|
/* Buffer for error messages, and its allocated size. */ |
|
|
|
char yymsgbuf[128]; |
|
|
|
char *yymsg = yymsgbuf; |
|
|
|
YYSIZE_T yymsg_alloc = sizeof yymsgbuf; |
|
|
|
#endif |
|
|
|
|
|
|
|
/* Three stacks and their tools: |
|
|
|
`yyss': related to states, |
|
|
|
`yyvs': related to semantic values, |
|
|
|
/* The stacks and their tools: |
|
|
|
`yyss': related to states. |
|
|
|
`yyvs': related to semantic values. |
|
|
|
`yyls': related to locations. |
|
|
|
|
|
|
|
Refer to the stacks thru separate pointers, to allow yyoverflow |
|
|
|
@ -1262,34 +1267,52 @@ YYLTYPE yylloc; |
|
|
|
|
|
|
|
/* The state stack. */ |
|
|
|
yytype_int16 yyssa[YYINITDEPTH]; |
|
|
|
yytype_int16 *yyss = yyssa; |
|
|
|
yytype_int16 *yyss; |
|
|
|
yytype_int16 *yyssp; |
|
|
|
|
|
|
|
/* The semantic value stack. */ |
|
|
|
YYSTYPE yyvsa[YYINITDEPTH]; |
|
|
|
YYSTYPE *yyvs = yyvsa; |
|
|
|
YYSTYPE *yyvs; |
|
|
|
YYSTYPE *yyvsp; |
|
|
|
|
|
|
|
/* The location stack. */ |
|
|
|
YYLTYPE yylsa[YYINITDEPTH]; |
|
|
|
YYLTYPE *yyls = yylsa; |
|
|
|
YYLTYPE *yyls; |
|
|
|
YYLTYPE *yylsp; |
|
|
|
|
|
|
|
/* The locations where the error started and ended. */ |
|
|
|
YYLTYPE yyerror_range[2]; |
|
|
|
|
|
|
|
#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N)) |
|
|
|
|
|
|
|
YYSIZE_T yystacksize = YYINITDEPTH; |
|
|
|
YYSIZE_T yystacksize; |
|
|
|
|
|
|
|
int yyn; |
|
|
|
int yyresult; |
|
|
|
/* Lookahead token as an internal (translated) token number. */ |
|
|
|
int yytoken; |
|
|
|
/* The variables used to return semantic value and location from the |
|
|
|
action routines. */ |
|
|
|
YYSTYPE yyval; |
|
|
|
YYLTYPE yyloc; |
|
|
|
|
|
|
|
#if YYERROR_VERBOSE |
|
|
|
/* Buffer for error messages, and its allocated size. */ |
|
|
|
char yymsgbuf[128]; |
|
|
|
char *yymsg = yymsgbuf; |
|
|
|
YYSIZE_T yymsg_alloc = sizeof yymsgbuf; |
|
|
|
#endif |
|
|
|
|
|
|
|
#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N)) |
|
|
|
|
|
|
|
/* The number of symbols on the RHS of the reduced rule. |
|
|
|
Keep to zero when no symbol should be popped. */ |
|
|
|
int yylen = 0; |
|
|
|
|
|
|
|
yytoken = 0; |
|
|
|
yyss = yyssa; |
|
|
|
yyvs = yyvsa; |
|
|
|
yyls = yylsa; |
|
|
|
yystacksize = YYINITDEPTH; |
|
|
|
|
|
|
|
YYDPRINTF ((stderr, "Starting parse\n")); |
|
|
|
|
|
|
|
yystate = 0; |
|
|
|
@ -1301,25 +1324,28 @@ YYLTYPE yylloc; |
|
|
|
Waste one element of value and location stack |
|
|
|
so that they stay on the same level as the state stack. |
|
|
|
The wasted elements are never initialized. */ |
|
|
|
|
|
|
|
yyssp = yyss; |
|
|
|
yyvsp = yyvs; |
|
|
|
yylsp = yyls; |
|
|
|
#if YYLTYPE_IS_TRIVIAL |
|
|
|
|
|
|
|
#if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL |
|
|
|
/* Initialize the default location before parsing starts. */ |
|
|
|
yylloc.first_line = yylloc.last_line = 1; |
|
|
|
yylloc.first_column = yylloc.last_column = 0; |
|
|
|
yylloc.first_column = yylloc.last_column = 1; |
|
|
|
#endif |
|
|
|
|
|
|
|
/* User initialization code. */ |
|
|
|
|
|
|
|
/* User initialization code. */ |
|
|
|
#line 102 "parse-bison.y" |
|
|
|
/* Line 1251 of yacc.c */ |
|
|
|
#line 102 "./parse-bison.y" |
|
|
|
{ |
|
|
|
yylval.num = 0.0; |
|
|
|
} |
|
|
|
/* Line 1069 of yacc.c. */ |
|
|
|
#line 1322 "parse-bison.c" |
|
|
|
|
|
|
|
/* Line 1251 of yacc.c */ |
|
|
|
#line 1347 "parse-bison.c" |
|
|
|
yyvsp[0] = yylval; |
|
|
|
|
|
|
|
goto yysetstate; |
|
|
|
|
|
|
|
/*------------------------------------------------------------. |
|
|
|
@ -1356,6 +1382,7 @@ YYLTYPE yylloc; |
|
|
|
&yyvs1, yysize * sizeof (*yyvsp), |
|
|
|
&yyls1, yysize * sizeof (*yylsp), |
|
|
|
&yystacksize); |
|
|
|
|
|
|
|
yyls = yyls1; |
|
|
|
yyss = yyss1; |
|
|
|
yyvs = yyvs1; |
|
|
|
@ -1377,9 +1404,9 @@ YYLTYPE yylloc; |
|
|
|
(union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); |
|
|
|
if (! yyptr) |
|
|
|
goto yyexhaustedlab; |
|
|
|
YYSTACK_RELOCATE (yyss); |
|
|
|
YYSTACK_RELOCATE (yyvs); |
|
|
|
YYSTACK_RELOCATE (yyls); |
|
|
|
YYSTACK_RELOCATE (yyss_alloc, yyss); |
|
|
|
YYSTACK_RELOCATE (yyvs_alloc, yyvs); |
|
|
|
YYSTACK_RELOCATE (yyls_alloc, yyls); |
|
|
|
# undef YYSTACK_RELOCATE |
|
|
|
if (yyss1 != yyssa) |
|
|
|
YYSTACK_FREE (yyss1); |
|
|
|
@ -1400,6 +1427,9 @@ YYLTYPE yylloc; |
|
|
|
|
|
|
|
YYDPRINTF ((stderr, "Entering state %d\n", yystate)); |
|
|
|
|
|
|
|
if (yystate == YYFINAL) |
|
|
|
YYACCEPT; |
|
|
|
|
|
|
|
goto yybackup; |
|
|
|
|
|
|
|
/*-----------. |
|
|
|
@ -1408,16 +1438,16 @@ YYLTYPE yylloc; |
|
|
|
yybackup: |
|
|
|
|
|
|
|
/* Do appropriate processing given the current state. Read a |
|
|
|
look-ahead token if we need one and don't already have one. */ |
|
|
|
lookahead token if we need one and don't already have one. */ |
|
|
|
|
|
|
|
/* First try to decide what to do without reference to look-ahead token. */ |
|
|
|
/* First try to decide what to do without reference to lookahead token. */ |
|
|
|
yyn = yypact[yystate]; |
|
|
|
if (yyn == YYPACT_NINF) |
|
|
|
goto yydefault; |
|
|
|
|
|
|
|
/* Not known => get a look-ahead token if don't already have one. */ |
|
|
|
/* Not known => get a lookahead token if don't already have one. */ |
|
|
|
|
|
|
|
/* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */ |
|
|
|
/* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ |
|
|
|
if (yychar == YYEMPTY) |
|
|
|
{ |
|
|
|
YYDPRINTF ((stderr, "Reading a token: ")); |
|
|
|
@ -1449,19 +1479,15 @@ yybackup: |
|
|
|
goto yyreduce; |
|
|
|
} |
|
|
|
|
|
|
|
if (yyn == YYFINAL) |
|
|
|
YYACCEPT; |
|
|
|
|
|
|
|
/* Count tokens shifted since error; after three, turn off error |
|
|
|
status. */ |
|
|
|
if (yyerrstatus) |
|
|
|
yyerrstatus--; |
|
|
|
|
|
|
|
/* Shift the look-ahead token. */ |
|
|
|
/* Shift the lookahead token. */ |
|
|
|
YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); |
|
|
|
|
|
|
|
/* Discard the shifted token unless it is eof. */ |
|
|
|
if (yychar != YYEOF) |
|
|
|
/* Discard the shifted token. */ |
|
|
|
yychar = YYEMPTY; |
|
|
|
|
|
|
|
yystate = yyn; |
|
|
|
@ -1503,22 +1529,30 @@ yyreduce: |
|
|
|
switch (yyn) |
|
|
|
{ |
|
|
|
case 2: |
|
|
|
#line 113 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 113 "./parse-bison.y" |
|
|
|
{ *retval = NULL; ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 3: |
|
|
|
#line 114 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 114 "./parse-bison.y" |
|
|
|
{ *retval = (yyvsp[(1) - (1)].pnode); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 5: |
|
|
|
#line 119 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 119 "./parse-bison.y" |
|
|
|
{ (yyvsp[(1) - (2)].pnode)->pn_next = (yyvsp[(2) - (2)].pnode); (yyvsp[(2) - (2)].pnode)->pn_use ++; (yyval.pnode) = (yyvsp[(1) - (2)].pnode); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 6: |
|
|
|
#line 123 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 123 "./parse-bison.y" |
|
|
|
{ |
|
|
|
(yyvsp[(1) - (1)].pnode)->pn_name = copy_substring((yylsp[(1) - (1)]).start, (yylsp[(1) - (1)]).stop); |
|
|
|
(yyval.pnode) = (yyvsp[(1) - (1)].pnode); |
|
|
|
@ -1526,129 +1560,178 @@ yyreduce: |
|
|
|
break; |
|
|
|
|
|
|
|
case 7: |
|
|
|
#line 130 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 130 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mknnode((yyvsp[(1) - (1)].num)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 8: |
|
|
|
#line 131 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 131 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mksnode((yyvsp[(1) - (1)].str)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 9: |
|
|
|
#line 133 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 133 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_COMMA, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 10: |
|
|
|
#line 134 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 134 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_PLUS, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 11: |
|
|
|
#line 135 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 135 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_MINUS, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 12: |
|
|
|
#line 136 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 136 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_TIMES, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 13: |
|
|
|
#line 137 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 137 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_MOD, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 14: |
|
|
|
#line 138 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 138 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_DIVIDE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 15: |
|
|
|
#line 139 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 139 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_POWER, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 16: |
|
|
|
#line 141 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 141 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = (yyvsp[(2) - (3)].pnode); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 17: |
|
|
|
#line 143 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 143 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkunode(PT_OP_UMINUS, (yyvsp[(2) - (2)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 18: |
|
|
|
#line 144 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 144 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkunode(PT_OP_NOT, (yyvsp[(2) - (2)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 19: |
|
|
|
#line 146 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 146 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkfnode((yyvsp[(1) - (4)].str), (yyvsp[(3) - (4)].pnode)); if(!(yyval.pnode)) YYABORT; ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 20: |
|
|
|
#line 148 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 148 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_EQ, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 21: |
|
|
|
#line 149 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 149 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_NE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 22: |
|
|
|
#line 150 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 150 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_GT, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 23: |
|
|
|
#line 151 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 151 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_LT, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 24: |
|
|
|
#line 152 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 152 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_GE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 25: |
|
|
|
#line 153 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 153 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_LE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 26: |
|
|
|
#line 155 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 155 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_AND, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 27: |
|
|
|
#line 156 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 156 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_OR, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 28: |
|
|
|
#line 158 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 158 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_INDX, (yyvsp[(1) - (4)].pnode), (yyvsp[(3) - (4)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 29: |
|
|
|
#line 159 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 159 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_RANGE, (yyvsp[(1) - (4)].pnode), (yyvsp[(3) - (4)].pnode)); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
case 30: |
|
|
|
#line 160 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 160 "./parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_TERNARY,(yyvsp[(1) - (5)].pnode), |
|
|
|
mkbnode(PT_OP_COMMA,(yyvsp[(3) - (5)].pnode),(yyvsp[(5) - (5)].pnode))); ;} |
|
|
|
break; |
|
|
|
|
|
|
|
|
|
|
|
/* Line 1267 of yacc.c. */ |
|
|
|
#line 1652 "parse-bison.c" |
|
|
|
|
|
|
|
/* Line 1464 of yacc.c */ |
|
|
|
#line 1735 "parse-bison.c" |
|
|
|
default: break; |
|
|
|
} |
|
|
|
YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); |
|
|
|
@ -1724,7 +1807,7 @@ yyerrlab: |
|
|
|
|
|
|
|
if (yyerrstatus == 3) |
|
|
|
{ |
|
|
|
/* If just tried and failed to reuse look-ahead token after an |
|
|
|
/* If just tried and failed to reuse lookahead token after an |
|
|
|
error, discard it. */ |
|
|
|
|
|
|
|
if (yychar <= YYEOF) |
|
|
|
@ -1741,7 +1824,7 @@ yyerrlab: |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
/* Else will try to reuse look-ahead token after shifting the error |
|
|
|
/* Else will try to reuse lookahead token after shifting the error |
|
|
|
token. */ |
|
|
|
goto yyerrlab1; |
|
|
|
|
|
|
|
@ -1799,14 +1882,11 @@ yyerrlab1: |
|
|
|
YY_STACK_PRINT (yyss, yyssp); |
|
|
|
} |
|
|
|
|
|
|
|
if (yyn == YYFINAL) |
|
|
|
YYACCEPT; |
|
|
|
|
|
|
|
*++yyvsp = yylval; |
|
|
|
|
|
|
|
yyerror_range[1] = yylloc; |
|
|
|
/* Using YYLLOC is tempting, but would change the location of |
|
|
|
the look-ahead. YYLOC is available though. */ |
|
|
|
the lookahead. YYLOC is available though. */ |
|
|
|
YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2); |
|
|
|
*++yylsp = yyloc; |
|
|
|
|
|
|
|
@ -1831,7 +1911,7 @@ yyabortlab: |
|
|
|
yyresult = 1; |
|
|
|
goto yyreturn; |
|
|
|
|
|
|
|
#ifndef yyoverflow |
|
|
|
#if !defined(yyoverflow) || YYERROR_VERBOSE |
|
|
|
/*-------------------------------------------------. |
|
|
|
| yyexhaustedlab -- memory exhaustion comes here. | |
|
|
|
`-------------------------------------------------*/ |
|
|
|
@ -1842,7 +1922,7 @@ yyexhaustedlab: |
|
|
|
#endif |
|
|
|
|
|
|
|
yyreturn: |
|
|
|
if (yychar != YYEOF && yychar != YYEMPTY) |
|
|
|
if (yychar != YYEMPTY) |
|
|
|
yydestruct ("Cleanup: discarding lookahead", |
|
|
|
yytoken, &yylval, &yylloc, line, retval); |
|
|
|
/* Do not reclaim the symbols of the rule which action triggered |
|
|
|
@ -1868,7 +1948,9 @@ yyreturn: |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#line 164 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1684 of yacc.c */ |
|
|
|
#line 164 "./parse-bison.y" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
r29173
15 years ago