Mercurial > hg > Members > nobuyasu > myCompiler
view Bison-Flex/BasicCompiler-StackBase/UTF8/script-parser.cc @ 3:3cea2e8a0e4b
add function goto
author | nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 10 May 2011 10:48:02 +0900 |
parents | fbe42292d479 |
children |
line wrap: on
line source
/* A Bison parser, made by GNU Bison 2.3. */ /* Skeleton implementation for Bison LALR(1) parsers in C++ Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 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. 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. */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this 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. */ #include "script-parser.hh" /* User implementation prologue. */ #line 36 "script-parser.yy" #include "compiler.h" /* Line 317 of lalr1.cc. */ #line 46 "script-parser.cc" #ifndef YY_ # if defined YYENABLE_NLS && YYENABLE_NLS # if ENABLE_NLS # include <libintl.h> /* FIXME: INFRINGES ON USER NAME SPACE */ # define YY_(msgid) dgettext ("bison-runtime", msgid) # endif # endif # ifndef YY_ # define YY_(msgid) msgid # endif #endif /* Suppress unused-variable warnings by "using" E. */ #define YYUSE(e) ((void) (e)) /* A pseudo ostream that takes yydebug_ into account. */ # define YYCDEBUG \ for (bool yydebugcond_ = yydebug_; yydebugcond_; yydebugcond_ = false) \ (*yycdebug_) /* Enable debugging if requested. */ #if YYDEBUG # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ do { \ if (yydebug_) \ { \ *yycdebug_ << Title << ' '; \ yy_symbol_print_ ((Type), (Value), (Location)); \ *yycdebug_ << std::endl; \ } \ } while (false) # define YY_REDUCE_PRINT(Rule) \ do { \ if (yydebug_) \ yy_reduce_print_ (Rule); \ } while (false) # define YY_STACK_PRINT() \ do { \ if (yydebug_) \ yystack_print_ (); \ } while (false) #else /* !YYDEBUG */ # define YY_SYMBOL_PRINT(Title, Type, Value, Location) # define YY_REDUCE_PRINT(Rule) # define YY_STACK_PRINT() #endif /* !YYDEBUG */ #define YYACCEPT goto yyacceptlab #define YYABORT goto yyabortlab #define YYERROR goto yyerrorlab namespace yy { #if YYERROR_VERBOSE /* Return YYSTR after stripping away unnecessary quotes and backslashes, so that it's suitable for yyerror. The heuristic is that double-quoting is unnecessary unless the string contains an apostrophe, a comma, or backslash (other than backslash-backslash). YYSTR is taken from yytname. */ std::string script_parser::yytnamerr_ (const char *yystr) { if (*yystr == '"') { std::string yyr = ""; char const *yyp = yystr; for (;;) switch (*++yyp) { case '\'': case ',': goto do_not_strip_quotes; case '\\': if (*++yyp != '\\') goto do_not_strip_quotes; /* Fall through. */ default: yyr += *yyp; break; case '"': return yyr; } do_not_strip_quotes: ; } return yystr; } #endif /// Build a parser object. script_parser::script_parser (compiler& driver_yyarg) : yydebug_ (false), yycdebug_ (&std::cerr), driver (driver_yyarg) { } script_parser::~script_parser () { } #if YYDEBUG /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ inline void script_parser::yy_symbol_value_print_ (int yytype, const semantic_type* yyvaluep, const location_type* yylocationp) { YYUSE (yylocationp); YYUSE (yyvaluep); switch (yytype) { default: break; } } void script_parser::yy_symbol_print_ (int yytype, const semantic_type* yyvaluep, const location_type* yylocationp) { *yycdebug_ << (yytype < yyntokens_ ? "token" : "nterm") << ' ' << yytname_[yytype] << " (" << *yylocationp << ": "; yy_symbol_value_print_ (yytype, yyvaluep, yylocationp); *yycdebug_ << ')'; } #endif /* ! YYDEBUG */ void script_parser::yydestruct_ (const char* yymsg, int yytype, semantic_type* yyvaluep, location_type* yylocationp) { YYUSE (yylocationp); YYUSE (yymsg); YYUSE (yyvaluep); YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); switch (yytype) { case 4: /* "\"identifier\"" */ #line 70 "script-parser.yy" { delete (yyvaluep->sval); }; #line 206 "script-parser.cc" break; case 41: /* "assign" */ #line 73 "script-parser.yy" { delete (yyvaluep->assign); }; #line 211 "script-parser.cc" break; case 42: /* "comp_expr" */ #line 76 "script-parser.yy" { delete (yyvaluep->expr); }; #line 216 "script-parser.cc" break; case 43: /* "expr" */ #line 75 "script-parser.yy" { delete (yyvaluep->expr); }; #line 221 "script-parser.cc" break; case 44: /* "value" */ #line 74 "script-parser.yy" { delete (yyvaluep->expr); }; #line 226 "script-parser.cc" break; case 45: /* "args" */ #line 72 "script-parser.yy" { delete (yyvaluep->args); }; #line 231 "script-parser.cc" break; default: break; } } void script_parser::yypop_ (unsigned int n) { yystate_stack_.pop (n); yysemantic_stack_.pop (n); yylocation_stack_.pop (n); } std::ostream& script_parser::debug_stream () const { return *yycdebug_; } void script_parser::set_debug_stream (std::ostream& o) { yycdebug_ = &o; } script_parser::debug_level_type script_parser::debug_level () const { return yydebug_; } void script_parser::set_debug_level (debug_level_type l) { yydebug_ = l; } int script_parser::parse () { /// Look-ahead and look-ahead in internal form. int yychar = yyempty_; int yytoken = 0; /* State. */ int yyn; int yylen = 0; int yystate = 0; /* Error handling. */ int yynerrs_ = 0; int yyerrstatus_ = 0; /// Semantic value of the look-ahead. semantic_type yylval; /// Location of the look-ahead. location_type yylloc; /// The locations where the error started and ended. location yyerror_range[2]; /// $$. semantic_type yyval; /// @$. location_type yyloc; int yyresult; YYCDEBUG << "Starting parse" << std::endl; /* User initialization code. */ #line 20 "script-parser.yy" { // ロケーション初期化 yylloc.begin.filename = yylloc.end.filename = &driver.get_filename(); } /* Line 555 of yacc.c. */ #line 313 "script-parser.cc" /* Initialize the stacks. The initial state will be pushed in yynewstate, since the latter expects the semantical and the location values to have been already stored, initialize these stacks with a primary value. */ yystate_stack_ = state_stack_type (0); yysemantic_stack_ = semantic_stack_type (0); yylocation_stack_ = location_stack_type (0); yysemantic_stack_.push (yylval); yylocation_stack_.push (yylloc); /* New state. */ yynewstate: yystate_stack_.push (yystate); YYCDEBUG << "Entering state " << yystate << std::endl; goto yybackup; /* Backup. */ yybackup: /* Try to take a decision without look-ahead. */ yyn = yypact_[yystate]; if (yyn == yypact_ninf_) goto yydefault; /* Read a look-ahead token. */ if (yychar == yyempty_) { YYCDEBUG << "Reading a token: "; yychar = yylex (&yylval, &yylloc, driver); } /* Convert token to internal form. */ if (yychar <= yyeof_) { yychar = yytoken = yyeof_; YYCDEBUG << "Now at end of input." << std::endl; } else { yytoken = yytranslate_ (yychar); YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); } /* If the proper action on seeing token YYTOKEN is to reduce or to detect an error, take that action. */ yyn += yytoken; if (yyn < 0 || yylast_ < yyn || yycheck_[yyn] != yytoken) goto yydefault; /* Reduce or error. */ yyn = yytable_[yyn]; if (yyn <= 0) { if (yyn == 0 || yyn == yytable_ninf_) goto yyerrlab; yyn = -yyn; goto yyreduce; } /* Accept? */ if (yyn == yyfinal_) goto yyacceptlab; /* Shift the look-ahead token. */ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); /* Discard the token being shifted unless it is eof. */ if (yychar != yyeof_) yychar = yyempty_; yysemantic_stack_.push (yylval); yylocation_stack_.push (yylloc); /* Count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus_) --yyerrstatus_; yystate = yyn; goto yynewstate; /*-----------------------------------------------------------. | yydefault -- do the default action for the current state. | `-----------------------------------------------------------*/ yydefault: yyn = yydefact_[yystate]; if (yyn == 0) goto yyerrlab; goto yyreduce; /*-----------------------------. | yyreduce -- Do a reduction. | `-----------------------------*/ yyreduce: yylen = yyr2_[yyn]; /* If YYLEN is nonzero, implement the default value of the action: `$$ = $1'. Otherwise, use the top of the stack. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison users should not rely upon it. */ if (yylen) yyval = yysemantic_stack_[yylen - 1]; else yyval = yysemantic_stack_[0]; { slice<location_type, location_stack_type> slice (yylocation_stack_, yylen); YYLLOC_DEFAULT (yyloc, slice, yylen); } YY_REDUCE_PRINT (yyn); switch (yyn) { case 6: #line 92 "script-parser.yy" { driver.EndStatement((yylocation_stack_[(1) - (1)])); ;} break; case 7: #line 93 "script-parser.yy" { driver.AssignStatement((yylocation_stack_[(1) - (1)]), (yysemantic_stack_[(1) - (1)].assign)); ;} break; case 8: #line 94 "script-parser.yy" { driver.IfStatement((yylocation_stack_[(3) - (1)]), (yysemantic_stack_[(3) - (2)].expr)); ;} break; case 9: #line 95 "script-parser.yy" { driver.ElseStatement((yylocation_stack_[(1) - (1)])); ;} break; case 10: #line 96 "script-parser.yy" { driver.EndifStatement((yylocation_stack_[(1) - (1)])); ;} break; case 11: #line 97 "script-parser.yy" { driver.ForStatement((yylocation_stack_[(6) - (1)]), (yysemantic_stack_[(6) - (2)].assign), (yysemantic_stack_[(6) - (4)].expr), (yysemantic_stack_[(6) - (6)].expr)); ;} break; case 12: #line 98 "script-parser.yy" { driver.ForStatement((yylocation_stack_[(4) - (1)]), (yysemantic_stack_[(4) - (2)].assign), (yysemantic_stack_[(4) - (4)].expr), NULL); ;} break; case 13: #line 99 "script-parser.yy" { driver.NextStatement((yylocation_stack_[(1) - (1)])); ;} break; case 14: #line 100 "script-parser.yy" { driver.WhileStatement((yylocation_stack_[(2) - (1)]), (yysemantic_stack_[(2) - (2)].expr)); ;} break; case 15: #line 101 "script-parser.yy" { driver.WendStatement((yylocation_stack_[(1) - (1)])); ;} break; case 16: #line 102 "script-parser.yy" { driver.PrintStatement((yylocation_stack_[(2) - (1)]), (yysemantic_stack_[(2) - (2)].args)); ;} break; case 17: #line 103 "script-parser.yy" { driver.MakeGotoLabel((yylocation_stack_[(2) - (1)]), (yysemantic_stack_[(2) - (1)].sval)); ;} break; case 18: #line 104 "script-parser.yy" { driver.GotoLabel((yylocation_stack_[(2) - (1)]), (yysemantic_stack_[(2) - (2)].sval)); ;} break; case 20: #line 108 "script-parser.yy" { (yyval.assign) = new CAssign((yylocation_stack_[(3) - (1)]), '=', (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 21: #line 111 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_EQ, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 22: #line 112 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_NE, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 23: #line 113 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_GT, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 24: #line 114 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_GE, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 25: #line 115 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_LT, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 26: #line 116 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_LE, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 27: #line 119 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_MINUS, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 28: #line 120 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_PLUS, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 29: #line 121 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_TIMES, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 30: #line 122 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_DIVIDE, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 31: #line 123 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(3) - (1)]), OP_MOD, (yysemantic_stack_[(3) - (1)].expr), (yysemantic_stack_[(3) - (3)].expr)); ;} break; case 32: #line 124 "script-parser.yy" { (yyval.expr) = CNode::MakeNode(driver, (yylocation_stack_[(2) - (1)]), OP_NEG, (yysemantic_stack_[(2) - (2)].expr)); ;} break; case 33: #line 125 "script-parser.yy" { (yyval.expr) = (yysemantic_stack_[(3) - (2)].expr); ;} break; case 34: #line 126 "script-parser.yy" { (yyval.expr) = (yysemantic_stack_[(1) - (1)].expr); ;} break; case 35: #line 127 "script-parser.yy" { (yyval.expr) = new CNode((yylocation_stack_[(1) - (1)]), OP_CONST, (yysemantic_stack_[(1) - (1)].ival)); ;} break; case 36: #line 128 "script-parser.yy" { (yyval.expr) = new CNode((yylocation_stack_[(4) - (1)]), OP_RANDFUNC, (yysemantic_stack_[(4) - (3)].expr)); ;} break; case 37: #line 131 "script-parser.yy" { (yyval.expr) = new CValueNode((yylocation_stack_[(1) - (1)]), (yysemantic_stack_[(1) - (1)].sval)); ;} break; case 38: #line 135 "script-parser.yy" { (yyval.args) = new CArgs((yylocation_stack_[(1) - (1)]), (yysemantic_stack_[(1) - (1)].expr)); ;} break; case 39: #line 136 "script-parser.yy" { (yyval.args) = (yysemantic_stack_[(3) - (1)].args)->Add((yylocation_stack_[(3) - (3)]), (yysemantic_stack_[(3) - (3)].expr)); ;} break; /* Line 675 of lalr1.cc. */ #line 595 "script-parser.cc" default: break; } YY_SYMBOL_PRINT ("-> $$ =", yyr1_[yyn], &yyval, &yyloc); yypop_ (yylen); yylen = 0; YY_STACK_PRINT (); yysemantic_stack_.push (yyval); yylocation_stack_.push (yyloc); /* Shift the result of the reduction. */ yyn = yyr1_[yyn]; yystate = yypgoto_[yyn - yyntokens_] + yystate_stack_[0]; if (0 <= yystate && yystate <= yylast_ && yycheck_[yystate] == yystate_stack_[0]) yystate = yytable_[yystate]; else yystate = yydefgoto_[yyn - yyntokens_]; goto yynewstate; /*------------------------------------. | yyerrlab -- here on detecting error | `------------------------------------*/ yyerrlab: /* If not already recovering from an error, report this error. */ if (!yyerrstatus_) { ++yynerrs_; error (yylloc, yysyntax_error_ (yystate, yytoken)); } yyerror_range[0] = yylloc; if (yyerrstatus_ == 3) { /* If just tried and failed to reuse look-ahead token after an error, discard it. */ if (yychar <= yyeof_) { /* Return failure if at end of input. */ if (yychar == yyeof_) YYABORT; } else { yydestruct_ ("Error: discarding", yytoken, &yylval, &yylloc); yychar = yyempty_; } } /* Else will try to reuse look-ahead token after shifting the error token. */ goto yyerrlab1; /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ yyerrorlab: /* Pacify compilers like GCC when the user code never invokes YYERROR and the label yyerrorlab therefore never appears in user code. */ if (false) goto yyerrorlab; yyerror_range[0] = yylocation_stack_[yylen - 1]; /* Do not reclaim the symbols of the rule which action triggered this YYERROR. */ yypop_ (yylen); yylen = 0; yystate = yystate_stack_[0]; goto yyerrlab1; /*-------------------------------------------------------------. | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: yyerrstatus_ = 3; /* Each real token shifted decrements this. */ for (;;) { yyn = yypact_[yystate]; if (yyn != yypact_ninf_) { yyn += yyterror_; if (0 <= yyn && yyn <= yylast_ && yycheck_[yyn] == yyterror_) { yyn = yytable_[yyn]; if (0 < yyn) break; } } /* Pop the current state because it cannot handle the error token. */ if (yystate_stack_.height () == 1) YYABORT; yyerror_range[0] = yylocation_stack_[0]; yydestruct_ ("Error: popping", yystos_[yystate], &yysemantic_stack_[0], &yylocation_stack_[0]); yypop_ (); yystate = yystate_stack_[0]; YY_STACK_PRINT (); } if (yyn == yyfinal_) goto yyacceptlab; yyerror_range[1] = yylloc; // Using YYLLOC is tempting, but would change the location of // the look-ahead. YYLOC is available though. YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2); yysemantic_stack_.push (yylval); yylocation_stack_.push (yyloc); /* Shift the error token. */ YY_SYMBOL_PRINT ("Shifting", yystos_[yyn], &yysemantic_stack_[0], &yylocation_stack_[0]); yystate = yyn; goto yynewstate; /* Accept. */ yyacceptlab: yyresult = 0; goto yyreturn; /* Abort. */ yyabortlab: yyresult = 1; goto yyreturn; yyreturn: if (yychar != yyeof_ && yychar != yyempty_) yydestruct_ ("Cleanup: discarding lookahead", yytoken, &yylval, &yylloc); /* Do not reclaim the symbols of the rule which action triggered this YYABORT or YYACCEPT. */ yypop_ (yylen); while (yystate_stack_.height () != 1) { yydestruct_ ("Cleanup: popping", yystos_[yystate_stack_[0]], &yysemantic_stack_[0], &yylocation_stack_[0]); yypop_ (); } return yyresult; } // Generate an error message. std::string script_parser::yysyntax_error_ (int yystate, int tok) { std::string res; YYUSE (yystate); #if YYERROR_VERBOSE int yyn = yypact_[yystate]; if (yypact_ninf_ < yyn && yyn <= yylast_) { /* Start YYX at -YYN if negative to avoid negative indexes in YYCHECK. */ int yyxbegin = yyn < 0 ? -yyn : 0; /* Stay within bounds of both yycheck and yytname. */ int yychecklim = yylast_ - yyn + 1; int yyxend = yychecklim < yyntokens_ ? yychecklim : yyntokens_; int count = 0; for (int x = yyxbegin; x < yyxend; ++x) if (yycheck_[x + yyn] == x && x != yyterror_) ++count; // FIXME: This method of building the message is not compatible // with internationalization. It should work like yacc.c does it. // That is, first build a string that looks like this: // "syntax error, unexpected %s or %s or %s" // Then, invoke YY_ on this string. // Finally, use the string as a format to output // yytname_[tok], etc. // Until this gets fixed, this message appears in English only. res = "syntax error, unexpected "; res += yytnamerr_ (yytname_[tok]); if (count < 5) { count = 0; for (int x = yyxbegin; x < yyxend; ++x) if (yycheck_[x + yyn] == x && x != yyterror_) { res += (!count++) ? ", expecting " : " or "; res += yytnamerr_ (yytname_[x]); } } } else #endif res = YY_("syntax error"); return res; } /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ const signed char script_parser::yypact_ninf_ = -23; const signed char script_parser::yypact_[] = { 90, -23, -15, -23, 23, -23, -23, 5, -23, 23, -23, -23, 23, 6, 69, -23, 7, -23, -17, -23, -23, -23, -11, 23, 23, 11, 39, -23, 27, -23, 91, 18, -23, -23, -23, -23, 23, 23, -23, -22, -23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 91, -7, -23, 91, 91, 91, 91, 34, 34, -23, -23, -23, 91, 91, 25, 91, -23, 23, 91 }; /* YYDEFACT[S] -- default rule to reduce with in state S when YYTABLE doesn't specify something else to do. Zero means the default is an error. */ const unsigned char script_parser::yydefact_[] = { 0, 19, 37, 5, 0, 9, 10, 0, 13, 0, 15, 6, 0, 0, 0, 2, 0, 7, 0, 17, 35, 37, 0, 0, 0, 0, 0, 34, 0, 14, 38, 16, 18, 1, 3, 4, 0, 0, 32, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 0, 33, 21, 22, 24, 26, 28, 27, 29, 30, 31, 23, 25, 12, 39, 36, 0, 11 }; /* YYPGOTO[NTERM-NUM]. */ const signed char script_parser::yypgoto_[] = { -23, -23, 42, -23, 51, 59, -12, 1, -23 }; /* YYDEFGOTO[NTERM-NUM]. */ const signed char script_parser::yydefgoto_[] = { -1, 14, 15, 16, 17, 25, 26, 27, 31 }; /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If positive, shift that token. If negative, reduce the rule which number is the opposite. If zero, do what YYDEFACT says. */ const signed char script_parser::yytable_ninf_ = -1; const unsigned char script_parser::yytable_[] = { 30, 18, 45, 46, 47, 48, 49, 19, 18, 21, 32, 38, 39, 56, 36, 18, 35, 45, 46, 47, 48, 49, 40, 37, 54, 55, 20, 21, 70, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 52, 22, 41, 42, 43, 44, 23, 45, 46, 47, 48, 49, 53, 71, 34, 24, 28, 72, 47, 48, 49, 45, 46, 47, 48, 49, 29, 33, 1, 50, 51, 2, 0, 0, 0, 0, 3, 4, 0, 5, 6, 7, 0, 8, 9, 10, 11, 0, 12, 1, 13, 0, 2, 0, 0, 0, 0, 3, 4, 0, 5, 6, 7, 0, 8, 9, 10, 11, 0, 12, 0, 13, 0, 45, 46, 47, 48, 49 }; /* YYCHECK. */ const signed char script_parser::yycheck_[] = { 12, 0, 24, 25, 26, 27, 28, 22, 7, 4, 4, 23, 24, 35, 31, 14, 9, 24, 25, 26, 27, 28, 11, 34, 36, 37, 3, 4, 35, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 15, 20, 5, 6, 7, 8, 25, 24, 25, 26, 27, 28, 36, 30, 14, 34, 7, 71, 26, 27, 28, 24, 25, 26, 27, 28, 9, 0, 1, 32, 33, 4, -1, -1, -1, -1, 9, 10, -1, 12, 13, 14, -1, 16, 17, 18, 19, -1, 21, 1, 23, -1, 4, -1, -1, -1, -1, 9, 10, -1, 12, 13, 14, -1, 16, 17, 18, 19, -1, 21, -1, 23, -1, 24, 25, 26, 27, 28 }; /* STOS_[STATE-NUM] -- The (internal number of the) accessing symbol of state STATE-NUM. */ const unsigned char script_parser::yystos_[] = { 0, 1, 4, 9, 10, 12, 13, 14, 16, 17, 18, 19, 21, 23, 38, 39, 40, 41, 44, 22, 3, 4, 20, 25, 34, 42, 43, 44, 41, 42, 43, 45, 4, 0, 39, 9, 31, 34, 43, 43, 11, 5, 6, 7, 8, 24, 25, 26, 27, 28, 32, 33, 15, 36, 43, 43, 35, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 35, 30, 43 }; #if YYDEBUG /* TOKEN_NUMBER_[YYLEX-NUM] -- Internal symbol number corresponding to YYLEX-NUM. */ const unsigned short int script_parser::yytoken_number_[] = { 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 43, 45, 42, 47, 37, 279, 280, 61, 62, 60, 40, 41, 44 }; #endif /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ const unsigned char script_parser::yyr1_[] = { 0, 37, 38, 38, 39, 39, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 41, 42, 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 44, 45, 45 }; /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ const unsigned char script_parser::yyr2_[] = { 0, 2, 1, 2, 2, 1, 1, 1, 3, 1, 1, 6, 4, 1, 2, 1, 2, 2, 2, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 1, 1, 4, 1, 1, 3 }; #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. First, the terminals, then, starting at \a yyntokens_, nonterminals. */ const char* const script_parser::yytname_[] = { "\"end of file\"", "error", "$undefined", "\"ival\"", "\"identifier\"", "\"==\"", "\"!=\"", "\">=\"", "\"<=\"", "\"\\n\"", "\"if\"", "\"then\"", "\"else\"", "\"endif\"", "\"for\"", "\"to\"", "\"next\"", "\"while\"", "\"wend\"", "\"end\"", "\"rand\"", "\"print\"", "\":\"", "\"goto\"", "'+'", "'-'", "'*'", "'/'", "'%'", "NEG", "\"step\"", "'='", "'>'", "'<'", "'('", "')'", "','", "$accept", "unit", "states", "statement", "assign", "comp_expr", "expr", "value", "args", 0 }; #endif #if YYDEBUG /* YYRHS -- A `-1'-separated list of the rules' RHS. */ const script_parser::rhs_number_type script_parser::yyrhs_[] = { 38, 0, -1, 39, -1, 38, 39, -1, 40, 9, -1, 9, -1, 19, -1, 41, -1, 10, 42, 11, -1, 12, -1, 13, -1, 14, 41, 15, 43, 30, 43, -1, 14, 41, 15, 43, -1, 16, -1, 17, 42, -1, 18, -1, 21, 45, -1, 4, 22, -1, 23, 4, -1, 1, -1, 44, 31, 43, -1, 43, 5, 43, -1, 43, 6, 43, -1, 43, 32, 43, -1, 43, 7, 43, -1, 43, 33, 43, -1, 43, 8, 43, -1, 43, 25, 43, -1, 43, 24, 43, -1, 43, 26, 43, -1, 43, 27, 43, -1, 43, 28, 43, -1, 25, 43, -1, 34, 43, 35, -1, 44, -1, 3, -1, 20, 34, 43, 35, -1, 4, -1, 43, -1, 45, 36, 43, -1 }; /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in YYRHS. */ const unsigned char script_parser::yyprhs_[] = { 0, 0, 3, 5, 8, 11, 13, 15, 17, 21, 23, 25, 32, 37, 39, 42, 44, 47, 50, 53, 55, 59, 63, 67, 71, 75, 79, 83, 87, 91, 95, 99, 103, 106, 110, 112, 114, 119, 121, 123 }; /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ const unsigned char script_parser::yyrline_[] = { 0, 84, 84, 85, 88, 89, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 108, 111, 112, 113, 114, 115, 116, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 131, 135, 136 }; // Print the state stack on the debug stream. void script_parser::yystack_print_ () { *yycdebug_ << "Stack now"; for (state_stack_type::const_iterator i = yystate_stack_.begin (); i != yystate_stack_.end (); ++i) *yycdebug_ << ' ' << *i; *yycdebug_ << std::endl; } // Report on the debug stream that the rule \a yyrule is going to be reduced. void script_parser::yy_reduce_print_ (int yyrule) { unsigned int yylno = yyrline_[yyrule]; int yynrhs = yyr2_[yyrule]; /* Print the symbols being reduced, and their result. */ *yycdebug_ << "Reducing stack by rule " << yyrule - 1 << " (line " << yylno << "), "; /* The symbols being reduced. */ for (int yyi = 0; yyi < yynrhs; yyi++) YY_SYMBOL_PRINT (" $" << yyi + 1 << " =", yyrhs_[yyprhs_[yyrule] + yyi], &(yysemantic_stack_[(yynrhs) - (yyi + 1)]), &(yylocation_stack_[(yynrhs) - (yyi + 1)])); } #endif // YYDEBUG /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ script_parser::token_number_type script_parser::yytranslate_ (int t) { static const token_number_type translate_table[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 28, 2, 2, 34, 35, 26, 24, 36, 25, 2, 27, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 33, 31, 32, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 29, 30 }; if ((unsigned int) t <= yyuser_token_number_max_) return translate_table[t]; else return yyundef_token_; } const int script_parser::yyeof_ = 0; const int script_parser::yylast_ = 119; const int script_parser::yynnts_ = 9; const int script_parser::yyempty_ = -2; const int script_parser::yyfinal_ = 33; const int script_parser::yyterror_ = 1; const int script_parser::yyerrcode_ = 256; const int script_parser::yyntokens_ = 37; const unsigned int script_parser::yyuser_token_number_max_ = 280; const script_parser::token_number_type script_parser::yyundef_token_ = 2; } // namespace yy #line 139 "script-parser.yy" void yy::script_parser::error(const yy::script_parser::location_type& l, const std::string& m) { driver.error(l, m); }