1 /* -*- buffer-read-only: t -*- 2 !!!!!!! DO NOT EDIT THIS FILE !!!!!!! 3 This file is built by regen_perly.pl from perly.y. 4 Any changes made here will be lost! 5 */ 6 7 #define PERL_BISON_VERSION 30000 8 9 #ifdef PERL_CORE 10 /* A Bison parser, made by GNU Bison 3.0.2. */ 11 12 /* Bison interface for Yacc-like parsers in C 13 14 Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. 15 16 This program is free software: you can redistribute it and/or modify 17 it under the terms of the GNU General Public License as published by 18 the Free Software Foundation, either version 3 of the License, or 19 (at your option) any later version. 20 21 This program is distributed in the hope that it will be useful, 22 but WITHOUT ANY WARRANTY; without even the implied warranty of 23 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 24 GNU General Public License for more details. 25 26 You should have received a copy of the GNU General Public License 27 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 28 29 /* As a special exception, you may create a larger work that contains 30 part or all of the Bison parser skeleton and distribute that work 31 under terms of your choice, so long as that work isn't itself a 32 parser generator using the skeleton or a modified version thereof 33 as a parser skeleton. Alternatively, if you modify or redistribute 34 the parser skeleton itself, you may (at your option) remove this 35 special exception, which will cause the skeleton and the resulting 36 Bison output files to be licensed under the GNU General Public 37 License without this special exception. 38 39 This special exception was added by the Free Software Foundation in 40 version 2.2 of Bison. */ 41 42 /* Debug traces. */ 43 #ifndef YYDEBUG 44 # define YYDEBUG 0 45 #endif 46 #if YYDEBUG 47 extern int yydebug; 48 #endif 49 50 /* Token type. */ 51 #ifndef YYTOKENTYPE 52 # define YYTOKENTYPE 53 enum yytokentype 54 { 55 GRAMPROG = 258, 56 GRAMEXPR = 259, 57 GRAMBLOCK = 260, 58 GRAMBARESTMT = 261, 59 GRAMFULLSTMT = 262, 60 GRAMSTMTSEQ = 263, 61 BAREWORD = 264, 62 METHOD = 265, 63 FUNCMETH = 266, 64 THING = 267, 65 PMFUNC = 268, 66 PRIVATEREF = 269, 67 QWLIST = 270, 68 FUNC0OP = 271, 69 FUNC0SUB = 272, 70 UNIOPSUB = 273, 71 LSTOPSUB = 274, 72 PLUGEXPR = 275, 73 PLUGSTMT = 276, 74 LABEL = 277, 75 FORMAT = 278, 76 SUB = 279, 77 SIGSUB = 280, 78 ANONSUB = 281, 79 ANON_SIGSUB = 282, 80 PACKAGE = 283, 81 USE = 284, 82 WHILE = 285, 83 UNTIL = 286, 84 IF = 287, 85 UNLESS = 288, 86 ELSE = 289, 87 ELSIF = 290, 88 CONTINUE = 291, 89 FOR = 292, 90 GIVEN = 293, 91 WHEN = 294, 92 DEFAULT = 295, 93 LOOPEX = 296, 94 DOTDOT = 297, 95 YADAYADA = 298, 96 FUNC0 = 299, 97 FUNC1 = 300, 98 FUNC = 301, 99 UNIOP = 302, 100 LSTOP = 303, 101 RELOP = 304, 102 EQOP = 305, 103 MULOP = 306, 104 ADDOP = 307, 105 DOLSHARP = 308, 106 DO = 309, 107 HASHBRACK = 310, 108 NOAMP = 311, 109 LOCAL = 312, 110 MY = 313, 111 REQUIRE = 314, 112 COLONATTR = 315, 113 FORMLBRACK = 316, 114 FORMRBRACK = 317, 115 PREC_LOW = 318, 116 OROP = 319, 117 DOROP = 320, 118 ANDOP = 321, 119 NOTOP = 322, 120 ASSIGNOP = 323, 121 OROR = 324, 122 DORDOR = 325, 123 ANDAND = 326, 124 BITOROP = 327, 125 BITANDOP = 328, 126 SHIFTOP = 329, 127 MATCHOP = 330, 128 UMINUS = 331, 129 REFGEN = 332, 130 POWOP = 333, 131 PREINC = 334, 132 PREDEC = 335, 133 POSTINC = 336, 134 POSTDEC = 337, 135 POSTJOIN = 338, 136 ARROW = 339 137 }; 138 #endif 139 140 /* Value type. */ 141 #ifdef PERL_IN_TOKE_C 142 static bool 143 S_is_opval_token(int type) { 144 switch (type) { 145 case BAREWORD: 146 case FUNC0OP: 147 case FUNC0SUB: 148 case FUNCMETH: 149 case LSTOPSUB: 150 case METHOD: 151 case PLUGEXPR: 152 case PLUGSTMT: 153 case PMFUNC: 154 case PRIVATEREF: 155 case QWLIST: 156 case THING: 157 case UNIOPSUB: 158 return 1; 159 } 160 return 0; 161 } 162 #endif /* PERL_IN_TOKE_C */ 163 #endif /* PERL_CORE */ 164 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED 165 typedef union YYSTYPE YYSTYPE; 166 union YYSTYPE 167 { 168 169 I32 ival; /* __DEFAULT__ (marker for regen_perly.pl; 170 must always be 1st union member) */ 171 char *pval; 172 OP *opval; 173 GV *gvval; 174 175 }; 176 # define YYSTYPE_IS_TRIVIAL 1 177 # define YYSTYPE_IS_DECLARED 1 178 #endif 179 180 181 182 int yyparse (void); 183 184 185 /* Generated from: 186 * ac323bb6f3cacf4eb8eda6403a58c41f30954d07a4a6d6f7f00de81577b2c79a perly.y 187 * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl 188 * ex: set ro: */ 189