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 30003
8
9 #ifdef PERL_CORE
10 /* A Bison parser, made by GNU Bison 3.3. */
11
12 /* Bison interface for Yacc-like parsers in C
13
14 Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation,
15 Inc.
16
17 This program is free software: you can redistribute it and/or modify
18 it under the terms of the GNU General Public License as published by
19 the Free Software Foundation, either version 3 of the License, or
20 (at your option) any later version.
21
22 This program is distributed in the hope that it will be useful,
23 but WITHOUT ANY WARRANTY; without even the implied warranty of
24 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 GNU General Public License for more details.
26
27 You should have received a copy of the GNU General Public License
28 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29
30 /* As a special exception, you may create a larger work that contains
31 part or all of the Bison parser skeleton and distribute that work
32 under terms of your choice, so long as that work isn't itself a
33 parser generator using the skeleton or a modified version thereof
34 as a parser skeleton. Alternatively, if you modify or redistribute
35 the parser skeleton itself, you may (at your option) remove this
36 special exception, which will cause the skeleton and the resulting
37 Bison output files to be licensed under the GNU General Public
38 License without this special exception.
39
40 This special exception was added by the Free Software Foundation in
41 version 2.2 of Bison. */
42
43 /* Undocumented macros, especially those whose name start with YY_,
44 are private implementation details. Do not rely on them. */
45
46 /* Debug traces. */
47 #ifndef YYDEBUG
48 # define YYDEBUG 0
49 #endif
50 #if YYDEBUG
51 extern int yydebug;
52 #endif
53
54 /* Token type. */
55 #ifndef YYTOKENTYPE
56 # define YYTOKENTYPE
57 enum yytokentype
58 {
59 GRAMPROG = 258,
60 GRAMEXPR = 259,
61 GRAMBLOCK = 260,
62 GRAMBARESTMT = 261,
63 GRAMFULLSTMT = 262,
64 GRAMSTMTSEQ = 263,
65 GRAMSUBSIGNATURE = 264,
66 PERLY_AMPERSAND = 265,
67 PERLY_BRACE_OPEN = 266,
68 PERLY_BRACE_CLOSE = 267,
69 PERLY_BRACKET_OPEN = 268,
70 PERLY_BRACKET_CLOSE = 269,
71 PERLY_COMMA = 270,
72 PERLY_DOLLAR = 271,
73 PERLY_DOT = 272,
74 PERLY_EQUAL_SIGN = 273,
75 PERLY_MINUS = 274,
76 PERLY_PERCENT_SIGN = 275,
77 PERLY_PLUS = 276,
78 PERLY_SEMICOLON = 277,
79 PERLY_SLASH = 278,
80 PERLY_SNAIL = 279,
81 PERLY_STAR = 280,
82 BAREWORD = 281,
83 METHOD = 282,
84 FUNCMETH = 283,
85 THING = 284,
86 PMFUNC = 285,
87 PRIVATEREF = 286,
88 QWLIST = 287,
89 FUNC0OP = 288,
90 FUNC0SUB = 289,
91 UNIOPSUB = 290,
92 LSTOPSUB = 291,
93 PLUGEXPR = 292,
94 PLUGSTMT = 293,
95 LABEL = 294,
96 FORMAT = 295,
97 SUB = 296,
98 SIGSUB = 297,
99 ANONSUB = 298,
100 ANON_SIGSUB = 299,
101 PACKAGE = 300,
102 USE = 301,
103 WHILE = 302,
104 UNTIL = 303,
105 IF = 304,
106 UNLESS = 305,
107 ELSE = 306,
108 ELSIF = 307,
109 CONTINUE = 308,
110 FOR = 309,
111 GIVEN = 310,
112 WHEN = 311,
113 DEFAULT = 312,
114 TRY = 313,
115 CATCH = 314,
116 LOOPEX = 315,
117 DOTDOT = 316,
118 YADAYADA = 317,
119 FUNC0 = 318,
120 FUNC1 = 319,
121 FUNC = 320,
122 UNIOP = 321,
123 LSTOP = 322,
124 MULOP = 323,
125 ADDOP = 324,
126 DOLSHARP = 325,
127 DO = 326,
128 HASHBRACK = 327,
129 NOAMP = 328,
130 LOCAL = 329,
131 MY = 330,
132 REQUIRE = 331,
133 COLONATTR = 332,
134 FORMLBRACK = 333,
135 FORMRBRACK = 334,
136 SUBLEXSTART = 335,
137 SUBLEXEND = 336,
138 PREC_LOW = 337,
139 OROP = 338,
140 ANDOP = 339,
141 NOTOP = 340,
142 ASSIGNOP = 341,
143 PERLY_QUESTION_MARK = 342,
144 PERLY_COLON = 343,
145 OROR = 344,
146 DORDOR = 345,
147 ANDAND = 346,
148 BITOROP = 347,
149 BITANDOP = 348,
150 CHEQOP = 349,
151 NCEQOP = 350,
152 CHRELOP = 351,
153 NCRELOP = 352,
154 SHIFTOP = 353,
155 MATCHOP = 354,
156 PERLY_EXCLAMATION_MARK = 355,
157 PERLY_TILDE = 356,
158 UMINUS = 357,
159 REFGEN = 358,
160 POWOP = 359,
161 PREINC = 360,
162 PREDEC = 361,
163 POSTINC = 362,
164 POSTDEC = 363,
165 POSTJOIN = 364,
166 ARROW = 365,
167 PERLY_PAREN_CLOSE = 366,
168 PERLY_PAREN_OPEN = 367
169 };
170 #endif
171
172 /* Value type. */
173 #ifdef PERL_IN_TOKE_C
174 static bool
S_is_opval_token(int type)175 S_is_opval_token(int type) {
176 switch (type) {
177 case BAREWORD:
178 case FUNC0OP:
179 case FUNC0SUB:
180 case FUNCMETH:
181 case LABEL:
182 case LSTOPSUB:
183 case METHOD:
184 case PLUGEXPR:
185 case PLUGSTMT:
186 case PMFUNC:
187 case PRIVATEREF:
188 case QWLIST:
189 case THING:
190 case UNIOPSUB:
191 return 1;
192 }
193 return 0;
194 }
195 #endif /* PERL_IN_TOKE_C */
196 #endif /* PERL_CORE */
197 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
198
199 union YYSTYPE
200 {
201
202 I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
203 must always be 1st union member) */
204 char *pval;
205 OP *opval;
206 GV *gvval;
207
208 };
209
210 typedef union YYSTYPE YYSTYPE;
211 # define YYSTYPE_IS_TRIVIAL 1
212 # define YYSTYPE_IS_DECLARED 1
213 #endif
214
215
216
217 int yyparse (void);
218
219
220 /* Generated from:
221 * 427b422b0ce1154d834dc461973a3254729575694f98ab600032f67ccab7b9e5 perly.y
222 * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl
223 * ex: set ro: */
224