Commit | Line | Data |
---|---|---|
e8fb9efb NC |
1 | /* -*- buffer-read-only: t -*- |
2 | !!!!!!! DO NOT EDIT THIS FILE !!!!!!! | |
3f5e9543 | 3 | This file is built by regen_perly.pl from perly.y. |
e8fb9efb NC |
4 | Any changes made here will be lost! |
5 | */ | |
6 | ||
a1325b90 | 7 | #define PERL_BISON_VERSION 30003 |
f39ff1f3 | 8 | |
d8118cad | 9 | #ifdef PERL_CORE |
a1325b90 | 10 | /* A Bison parser, made by GNU Bison 3.3. */ |
4e4da3ac | 11 | |
a9f5ab8d | 12 | /* Bison interface for Yacc-like parsers in C |
38c8d7b1 | 13 | |
a1325b90 | 14 | Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, |
a3815e44 | 15 | Inc. |
38c8d7b1 | 16 | |
a9f5ab8d | 17 | This program is free software: you can redistribute it and/or modify |
0de566d7 | 18 | it under the terms of the GNU General Public License as published by |
a9f5ab8d LM |
19 | the Free Software Foundation, either version 3 of the License, or |
20 | (at your option) any later version. | |
38c8d7b1 | 21 | |
0de566d7 DM |
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. | |
38c8d7b1 | 26 | |
0de566d7 | 27 | You should have received a copy of the GNU General Public License |
a9f5ab8d | 28 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
0de566d7 | 29 | |
f05e27e5 DM |
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. | |
38c8d7b1 | 39 | |
f05e27e5 DM |
40 | This special exception was added by the Free Software Foundation in |
41 | version 2.2 of Bison. */ | |
0de566d7 | 42 | |
a3815e44 DIM |
43 | /* Undocumented macros, especially those whose name start with YY_, |
44 | are private implementation details. Do not rely on them. */ | |
45 | ||
a9f5ab8d LM |
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. */ | |
0de566d7 DM |
55 | #ifndef YYTOKENTYPE |
56 | # define YYTOKENTYPE | |
a9f5ab8d LM |
57 | enum yytokentype |
58 | { | |
59 | GRAMPROG = 258, | |
60 | GRAMEXPR = 259, | |
61 | GRAMBLOCK = 260, | |
62 | GRAMBARESTMT = 261, | |
63 | GRAMFULLSTMT = 262, | |
64 | GRAMSTMTSEQ = 263, | |
996b0cb8 | 65 | GRAMSUBSIGNATURE = 264, |
25a50500 BZ |
66 | PERLY_AMPERSAND = 265, |
67 | PERLY_BRACE_OPEN = 266, | |
68 | PERLY_BRACE_CLOSE = 267, | |
69 | PERLY_BRACKET_OPEN = 268, | |
70 | PERLY_BRACKET_CLOSE = 269, | |
581f9a7a | 71 | PERLY_COMMA = 270, |
bfa838cc BZ |
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, | |
a1325b90 PLE |
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 | |
a9f5ab8d | 169 | }; |
0de566d7 | 170 | #endif |
38c8d7b1 | 171 | |
a9f5ab8d | 172 | /* Value type. */ |
6c7ae946 FC |
173 | #ifdef PERL_IN_TOKE_C |
174 | static bool | |
175 | S_is_opval_token(int type) { | |
176 | switch (type) { | |
185c2e96 | 177 | case BAREWORD: |
6c7ae946 FC |
178 | case FUNC0OP: |
179 | case FUNC0SUB: | |
180 | case FUNCMETH: | |
01719201 | 181 | case LABEL: |
6c7ae946 FC |
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: | |
6c7ae946 FC |
191 | return 1; |
192 | } | |
193 | return 0; | |
194 | } | |
195 | #endif /* PERL_IN_TOKE_C */ | |
0de566d7 | 196 | #endif /* PERL_CORE */ |
f05e27e5 | 197 | #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED |
a1325b90 | 198 | |
a9f5ab8d | 199 | union YYSTYPE |
f05e27e5 | 200 | { |
a9f5ab8d | 201 | |
d5c6462e DM |
202 | I32 ival; /* __DEFAULT__ (marker for regen_perly.pl; |
203 | must always be 1st union member) */ | |
79072805 LW |
204 | char *pval; |
205 | OP *opval; | |
206 | GV *gvval; | |
a9f5ab8d | 207 | |
53443c95 | 208 | }; |
a1325b90 | 209 | |
a3815e44 | 210 | typedef union YYSTYPE YYSTYPE; |
bdc377e5 | 211 | # define YYSTYPE_IS_TRIVIAL 1 |
a9f5ab8d | 212 | # define YYSTYPE_IS_DECLARED 1 |
0de566d7 DM |
213 | #endif |
214 | ||
215 | ||
216 | ||
a9f5ab8d LM |
217 | int yyparse (void); |
218 | ||
e8fb9efb | 219 | |
c24c946d | 220 | /* Generated from: |
65648910 | 221 | * 427b422b0ce1154d834dc461973a3254729575694f98ab600032f67ccab7b9e5 perly.y |
53443c95 | 222 | * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl |
c24c946d | 223 | * ex: set ro: */ |