|
|
|
@ -1,24 +1,23 @@ |
|
|
|
/* A Bison parser, made by GNU Bison 2.3. */ |
|
|
|
|
|
|
|
/* Skeleton implementation for Bison's Yacc-like parsers in C |
|
|
|
/* A Bison parser, made by GNU Bison 2.4.1. */ |
|
|
|
|
|
|
|
Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
|
|
|
/* 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. |
|
|
|
|
|
|
|
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 |
|
|
|
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., 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 |
|
|
|
@ -29,7 +28,7 @@ |
|
|
|
special exception, which will cause the skeleton and the resulting |
|
|
|
Bison output files to be licensed under the GNU General Public |
|
|
|
License without this special exception. |
|
|
|
|
|
|
|
|
|
|
|
This special exception was added by the Free Software Foundation in |
|
|
|
version 2.2 of Bison. */ |
|
|
|
|
|
|
|
@ -47,7 +46,7 @@ |
|
|
|
#define YYBISON 1 |
|
|
|
|
|
|
|
/* Bison version. */ |
|
|
|
#define YYBISON_VERSION "2.3" |
|
|
|
#define YYBISON_VERSION "2.4.1" |
|
|
|
|
|
|
|
/* Skeleton name. */ |
|
|
|
#define YYSKELETON_NAME "yacc.c" |
|
|
|
@ -55,49 +54,28 @@ |
|
|
|
/* Pure parsers. */ |
|
|
|
#define YYPURE 1 |
|
|
|
|
|
|
|
/* Push parsers. */ |
|
|
|
#define YYPUSH 0 |
|
|
|
|
|
|
|
/* Pull parsers. */ |
|
|
|
#define YYPULL 1 |
|
|
|
|
|
|
|
/* Using locations. */ |
|
|
|
#define YYLSP_NEEDED 1 |
|
|
|
|
|
|
|
/* Substitute the variable and function names. */ |
|
|
|
#define yyparse PPparse |
|
|
|
#define yylex PPlex |
|
|
|
#define yyerror PPerror |
|
|
|
#define yylval PPlval |
|
|
|
#define yychar PPchar |
|
|
|
#define yydebug PPdebug |
|
|
|
#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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define yyparse PPparse |
|
|
|
#define yylex PPlex |
|
|
|
#define yyerror PPerror |
|
|
|
#define yylval PPlval |
|
|
|
#define yychar PPchar |
|
|
|
#define yydebug PPdebug |
|
|
|
#define yynerrs PPnerrs |
|
|
|
#define yylloc PPlloc |
|
|
|
|
|
|
|
/* Copy the first part of user declarations. */ |
|
|
|
|
|
|
|
/* Line 189 of yacc.c */ |
|
|
|
#line 1 "parse-bison.y" |
|
|
|
|
|
|
|
|
|
|
|
@ -134,6 +112,9 @@ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Line 189 of yacc.c */ |
|
|
|
#line 117 "parse-bison.c" |
|
|
|
|
|
|
|
/* Enabling traces. */ |
|
|
|
#ifndef YYDEBUG |
|
|
|
# define YYDEBUG 1 |
|
|
|
@ -152,20 +133,55 @@ |
|
|
|
# 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 |
|
|
|
/* 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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#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 181 "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 +201,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 206 "parse-bison.c" |
|
|
|
|
|
|
|
#ifdef short |
|
|
|
# undef short |
|
|
|
@ -261,14 +277,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 +366,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 +403,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); \ |
|
|
|
} \ |
|
|
|
@ -483,10 +499,10 @@ static const yytype_int8 yyrhs[] = |
|
|
|
/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ |
|
|
|
static const yytype_uint8 yyrline[] = |
|
|
|
{ |
|
|
|
0, 113, 113, 114, 118, 119, 123, 130, 131, 133, |
|
|
|
134, 135, 136, 137, 138, 139, 141, 143, 144, 146, |
|
|
|
148, 149, 150, 151, 152, 153, 155, 156, 158, 159, |
|
|
|
160 |
|
|
|
0, 114, 114, 115, 119, 120, 124, 131, 132, 134, |
|
|
|
135, 136, 137, 138, 139, 140, 142, 144, 145, 147, |
|
|
|
149, 150, 151, 152, 153, 154, 156, 157, 159, 160, |
|
|
|
161 |
|
|
|
}; |
|
|
|
#endif |
|
|
|
|
|
|
|
@ -840,17 +856,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 +906,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 +1196,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 +1216,9 @@ int yyparse (); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*----------. |
|
|
|
| yyparse. | |
|
|
|
`----------*/ |
|
|
|
/*-------------------------. |
|
|
|
| yyparse or yypush_parse. | |
|
|
|
`-------------------------*/ |
|
|
|
|
|
|
|
#ifdef YYPARSE_PARAM |
|
|
|
#if (defined __STDC__ || defined __C99__FUNC__ \ |
|
|
|
@ -1227,99 +1243,112 @@ 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; |
|
|
|
|
|
|
|
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 |
|
|
|
/* Number of syntax errors so far. */ |
|
|
|
int yynerrs; |
|
|
|
|
|
|
|
/* Three stacks and their tools: |
|
|
|
`yyss': related to states, |
|
|
|
`yyvs': related to semantic values, |
|
|
|
`yyls': related to locations. |
|
|
|
int yystate; |
|
|
|
/* Number of tokens to shift before error messages enabled. */ |
|
|
|
int yyerrstatus; |
|
|
|
|
|
|
|
Refer to the stacks thru separate pointers, to allow yyoverflow |
|
|
|
to reallocate them elsewhere. */ |
|
|
|
/* The stacks and their tools: |
|
|
|
`yyss': related to states. |
|
|
|
`yyvs': related to semantic values. |
|
|
|
`yyls': related to locations. |
|
|
|
|
|
|
|
/* The state stack. */ |
|
|
|
yytype_int16 yyssa[YYINITDEPTH]; |
|
|
|
yytype_int16 *yyss = yyssa; |
|
|
|
yytype_int16 *yyssp; |
|
|
|
Refer to the stacks thru separate pointers, to allow yyoverflow |
|
|
|
to reallocate them elsewhere. */ |
|
|
|
|
|
|
|
/* The semantic value stack. */ |
|
|
|
YYSTYPE yyvsa[YYINITDEPTH]; |
|
|
|
YYSTYPE *yyvs = yyvsa; |
|
|
|
YYSTYPE *yyvsp; |
|
|
|
/* The state stack. */ |
|
|
|
yytype_int16 yyssa[YYINITDEPTH]; |
|
|
|
yytype_int16 *yyss; |
|
|
|
yytype_int16 *yyssp; |
|
|
|
|
|
|
|
/* The location stack. */ |
|
|
|
YYLTYPE yylsa[YYINITDEPTH]; |
|
|
|
YYLTYPE *yyls = yylsa; |
|
|
|
YYLTYPE *yylsp; |
|
|
|
/* The locations where the error started and ended. */ |
|
|
|
YYLTYPE yyerror_range[2]; |
|
|
|
/* The semantic value stack. */ |
|
|
|
YYSTYPE yyvsa[YYINITDEPTH]; |
|
|
|
YYSTYPE *yyvs; |
|
|
|
YYSTYPE *yyvsp; |
|
|
|
|
|
|
|
#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N)) |
|
|
|
/* The location stack. */ |
|
|
|
YYLTYPE yylsa[YYINITDEPTH]; |
|
|
|
YYLTYPE *yyls; |
|
|
|
YYLTYPE *yylsp; |
|
|
|
|
|
|
|
/* The locations where the error started and ended. */ |
|
|
|
YYLTYPE yyerror_range[2]; |
|
|
|
|
|
|
|
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; |
|
|
|
yyerrstatus = 0; |
|
|
|
yynerrs = 0; |
|
|
|
yychar = YYEMPTY; /* Cause a token to be read. */ |
|
|
|
yychar = YYEMPTY; /* Cause a token to be read. */ |
|
|
|
|
|
|
|
/* Initialize stack pointers. |
|
|
|
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 |
|
|
|
/* 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 1242 of yacc.c */ |
|
|
|
#line 102 "parse-bison.y" |
|
|
|
{ |
|
|
|
yylval.num = 0.0; |
|
|
|
yylloc.start = yylloc.stop = NULL; |
|
|
|
} |
|
|
|
/* Line 1069 of yacc.c. */ |
|
|
|
#line 1322 "parse-bison.c" |
|
|
|
|
|
|
|
/* Line 1242 of yacc.c */ |
|
|
|
#line 1350 "parse-bison.c" |
|
|
|
yyvsp[0] = yylval; |
|
|
|
|
|
|
|
goto yysetstate; |
|
|
|
|
|
|
|
/*------------------------------------------------------------. |
|
|
|
@ -1356,6 +1385,7 @@ YYLTYPE yylloc; |
|
|
|
&yyvs1, yysize * sizeof (*yyvsp), |
|
|
|
&yyls1, yysize * sizeof (*yylsp), |
|
|
|
&yystacksize); |
|
|
|
|
|
|
|
yyls = yyls1; |
|
|
|
yyss = yyss1; |
|
|
|
yyvs = yyvs1; |
|
|
|
@ -1377,9 +1407,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 +1430,9 @@ YYLTYPE yylloc; |
|
|
|
|
|
|
|
YYDPRINTF ((stderr, "Entering state %d\n", yystate)); |
|
|
|
|
|
|
|
if (yystate == YYFINAL) |
|
|
|
YYACCEPT; |
|
|
|
|
|
|
|
goto yybackup; |
|
|
|
|
|
|
|
/*-----------. |
|
|
|
@ -1408,16 +1441,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,20 +1482,16 @@ 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) |
|
|
|
yychar = YYEMPTY; |
|
|
|
/* Discard the shifted token. */ |
|
|
|
yychar = YYEMPTY; |
|
|
|
|
|
|
|
yystate = yyn; |
|
|
|
*++yyvsp = yylval; |
|
|
|
@ -1503,152 +1532,209 @@ yyreduce: |
|
|
|
switch (yyn) |
|
|
|
{ |
|
|
|
case 2: |
|
|
|
#line 113 "parse-bison.y" |
|
|
|
{ *retval = NULL; ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 114 "parse-bison.y" |
|
|
|
{ *retval = NULL; } |
|
|
|
break; |
|
|
|
|
|
|
|
case 3: |
|
|
|
#line 114 "parse-bison.y" |
|
|
|
{ *retval = (yyvsp[(1) - (1)].pnode); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 115 "parse-bison.y" |
|
|
|
{ *retval = (yyvsp[(1) - (1)].pnode); } |
|
|
|
break; |
|
|
|
|
|
|
|
case 5: |
|
|
|
#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); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 120 "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 1455 of yacc.c */ |
|
|
|
#line 124 "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); |
|
|
|
;} |
|
|
|
} |
|
|
|
break; |
|
|
|
|
|
|
|
case 7: |
|
|
|
#line 130 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mknnode((yyvsp[(1) - (1)].num)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 131 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mknnode((yyvsp[(1) - (1)].num)); } |
|
|
|
break; |
|
|
|
|
|
|
|
case 8: |
|
|
|
#line 131 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mksnode((yyvsp[(1) - (1)].str)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 132 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mksnode((yyvsp[(1) - (1)].str)); } |
|
|
|
break; |
|
|
|
|
|
|
|
case 9: |
|
|
|
#line 133 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_COMMA, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 134 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_PLUS, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 135 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_MINUS, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 136 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_TIMES, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 137 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_MOD, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 138 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_DIVIDE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 139 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_POWER, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 140 "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" |
|
|
|
{ (yyval.pnode) = (yyvsp[(2) - (3)].pnode); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 142 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = (yyvsp[(2) - (3)].pnode); } |
|
|
|
break; |
|
|
|
|
|
|
|
case 17: |
|
|
|
#line 143 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkunode(PT_OP_UMINUS, (yyvsp[(2) - (2)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 144 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkunode(PT_OP_UMINUS, (yyvsp[(2) - (2)].pnode)); } |
|
|
|
break; |
|
|
|
|
|
|
|
case 18: |
|
|
|
#line 144 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkunode(PT_OP_NOT, (yyvsp[(2) - (2)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 145 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkunode(PT_OP_NOT, (yyvsp[(2) - (2)].pnode)); } |
|
|
|
break; |
|
|
|
|
|
|
|
case 19: |
|
|
|
#line 146 "parse-bison.y" |
|
|
|
{ (yyval.pnode) = mkfnode((yyvsp[(1) - (4)].str), (yyvsp[(3) - (4)].pnode)); if(!(yyval.pnode)) YYABORT; ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 147 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_EQ, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 149 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_NE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 150 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_GT, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 151 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_LT, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 152 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_GE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 153 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_LE, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 154 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_AND, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 156 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_OR, (yyvsp[(1) - (3)].pnode), (yyvsp[(3) - (3)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 157 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_INDX, (yyvsp[(1) - (4)].pnode), (yyvsp[(3) - (4)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 159 "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" |
|
|
|
{ (yyval.pnode) = mkbnode(PT_OP_RANGE, (yyvsp[(1) - (4)].pnode), (yyvsp[(3) - (4)].pnode)); ;} |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 160 "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 1455 of yacc.c */ |
|
|
|
#line 161 "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))); ;} |
|
|
|
mkbnode(PT_OP_COMMA,(yyvsp[(3) - (5)].pnode),(yyvsp[(5) - (5)].pnode))); } |
|
|
|
break; |
|
|
|
|
|
|
|
|
|
|
|
/* Line 1267 of yacc.c. */ |
|
|
|
#line 1652 "parse-bison.c" |
|
|
|
|
|
|
|
/* Line 1455 of yacc.c */ |
|
|
|
#line 1738 "parse-bison.c" |
|
|
|
default: break; |
|
|
|
} |
|
|
|
YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); |
|
|
|
@ -1724,7 +1810,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 +1827,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 +1885,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 +1914,7 @@ yyabortlab: |
|
|
|
yyresult = 1; |
|
|
|
goto yyreturn; |
|
|
|
|
|
|
|
#ifndef yyoverflow |
|
|
|
#if !defined(yyoverflow) || YYERROR_VERBOSE |
|
|
|
/*-------------------------------------------------. |
|
|
|
| yyexhaustedlab -- memory exhaustion comes here. | |
|
|
|
`-------------------------------------------------*/ |
|
|
|
@ -1842,7 +1925,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 +1951,9 @@ yyreturn: |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#line 164 "parse-bison.y" |
|
|
|
|
|
|
|
/* Line 1675 of yacc.c */ |
|
|
|
#line 165 "parse-bison.y" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|