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 | ||
0065df43 | 7 | #define PERL_BISON_VERSION 30003 |
f39ff1f3 | 8 | |
d8118cad | 9 | #ifdef PERL_CORE |
0065df43 | 10 | /* A Bison parser, made by GNU Bison 3.3. */ |
4e4da3ac | 11 | |
a9f5ab8d | 12 | /* Bison interface for Yacc-like parsers in C |
38c8d7b1 | 13 | |
0065df43 | 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 | |
0065df43 PE |
43 | /* Undocumented macros, especially those whose name start with YY_, |
44 | are private implementation details. Do not rely on them. */ | |
a3815e44 | 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 | ||
0065df43 | 54 | /* Token type. */ |
0de566d7 DM |
55 | #ifndef YYTOKENTYPE |
56 | # define YYTOKENTYPE | |
a9f5ab8d LM |
57 | enum yytokentype |
58 | { | |
0065df43 PE |
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, | |
68670bd9 PE |
82 | KW_FORMAT = 281, |
83 | KW_PACKAGE = 282, | |
84 | KW_LOCAL = 283, | |
85 | KW_MY = 284, | |
86 | KW_IF = 285, | |
87 | KW_ELSE = 286, | |
88 | KW_ELSIF = 287, | |
89 | KW_UNLESS = 288, | |
90 | KW_FOR = 289, | |
91 | KW_UNTIL = 290, | |
92 | KW_WHILE = 291, | |
93 | KW_CONTINUE = 292, | |
94 | KW_GIVEN = 293, | |
95 | KW_WHEN = 294, | |
96 | KW_DEFAULT = 295, | |
97 | KW_TRY = 296, | |
98 | KW_CATCH = 297, | |
99 | KW_FINALLY = 298, | |
100 | KW_DEFER = 299, | |
101 | KW_REQUIRE = 300, | |
102 | KW_DO = 301, | |
103 | KW_USE_or_NO = 302, | |
104 | KW_SUB_named = 303, | |
105 | KW_SUB_named_sig = 304, | |
106 | KW_SUB_anon = 305, | |
107 | KW_SUB_anon_sig = 306, | |
108 | BAREWORD = 307, | |
109 | METHCALL0 = 308, | |
110 | METHCALL = 309, | |
111 | THING = 310, | |
112 | PMFUNC = 311, | |
113 | PRIVATEREF = 312, | |
114 | QWLIST = 313, | |
115 | FUNC0OP = 314, | |
116 | FUNC0SUB = 315, | |
117 | UNIOPSUB = 316, | |
118 | LSTOPSUB = 317, | |
119 | PLUGEXPR = 318, | |
120 | PLUGSTMT = 319, | |
121 | LABEL = 320, | |
122 | LOOPEX = 321, | |
123 | DOTDOT = 322, | |
124 | YADAYADA = 323, | |
125 | FUNC0 = 324, | |
126 | FUNC1 = 325, | |
127 | FUNC = 326, | |
128 | UNIOP = 327, | |
129 | LSTOP = 328, | |
130 | MULOP = 329, | |
131 | ADDOP = 330, | |
132 | DOLSHARP = 331, | |
133 | HASHBRACK = 332, | |
134 | NOAMP = 333, | |
135 | COLONATTR = 334, | |
136 | FORMLBRACK = 335, | |
137 | FORMRBRACK = 336, | |
138 | SUBLEXSTART = 337, | |
139 | SUBLEXEND = 338, | |
0065df43 PE |
140 | PREC_LOW = 339, |
141 | OROP = 340, | |
142 | ANDOP = 341, | |
143 | NOTOP = 342, | |
144 | ASSIGNOP = 343, | |
145 | PERLY_QUESTION_MARK = 344, | |
146 | PERLY_COLON = 345, | |
147 | OROR = 346, | |
148 | DORDOR = 347, | |
149 | ANDAND = 348, | |
150 | BITOROP = 349, | |
151 | BITANDOP = 350, | |
152 | CHEQOP = 351, | |
153 | NCEQOP = 352, | |
154 | CHRELOP = 353, | |
155 | NCRELOP = 354, | |
156 | SHIFTOP = 355, | |
157 | MATCHOP = 356, | |
158 | PERLY_EXCLAMATION_MARK = 357, | |
159 | PERLY_TILDE = 358, | |
160 | UMINUS = 359, | |
161 | REFGEN = 360, | |
162 | POWOP = 361, | |
163 | PREINC = 362, | |
164 | PREDEC = 363, | |
165 | POSTINC = 364, | |
166 | POSTDEC = 365, | |
167 | POSTJOIN = 366, | |
168 | ARROW = 367, | |
169 | PERLY_PAREN_CLOSE = 368, | |
170 | PERLY_PAREN_OPEN = 369 | |
a9f5ab8d | 171 | }; |
0de566d7 | 172 | #endif |
38c8d7b1 | 173 | |
a9f5ab8d | 174 | /* Value type. */ |
6c7ae946 FC |
175 | #ifdef PERL_IN_TOKE_C |
176 | static bool | |
177 | S_is_opval_token(int type) { | |
178 | switch (type) { | |
185c2e96 | 179 | case BAREWORD: |
6c7ae946 FC |
180 | case FUNC0OP: |
181 | case FUNC0SUB: | |
01719201 | 182 | case LABEL: |
6c7ae946 | 183 | case LSTOPSUB: |
b179236d PE |
184 | case METHCALL: |
185 | case METHCALL0: | |
6c7ae946 FC |
186 | case PLUGEXPR: |
187 | case PLUGSTMT: | |
188 | case PMFUNC: | |
189 | case PRIVATEREF: | |
190 | case QWLIST: | |
191 | case THING: | |
192 | case UNIOPSUB: | |
5eab7f7a | 193 | return 1; |
6c7ae946 FC |
194 | } |
195 | return 0; | |
196 | } | |
197 | #endif /* PERL_IN_TOKE_C */ | |
0de566d7 | 198 | #endif /* PERL_CORE */ |
f05e27e5 | 199 | #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED |
0065df43 | 200 | |
a9f5ab8d | 201 | union YYSTYPE |
f05e27e5 | 202 | { |
a9f5ab8d | 203 | |
d5c6462e | 204 | I32 ival; /* __DEFAULT__ (marker for regen_perly.pl; |
5eab7f7a | 205 | must always be 1st union member) */ |
79072805 LW |
206 | char *pval; |
207 | OP *opval; | |
208 | GV *gvval; | |
a9f5ab8d | 209 | |
f8245cd9 | 210 | }; |
0065df43 | 211 | |
a3815e44 | 212 | typedef union YYSTYPE YYSTYPE; |
bdc377e5 | 213 | # define YYSTYPE_IS_TRIVIAL 1 |
a9f5ab8d | 214 | # define YYSTYPE_IS_DECLARED 1 |
0de566d7 DM |
215 | #endif |
216 | ||
217 | ||
218 | ||
a9f5ab8d LM |
219 | int yyparse (void); |
220 | ||
e8fb9efb | 221 | |
c24c946d | 222 | /* Generated from: |
68670bd9 | 223 | * 963e49faa7d19d5de631a5b22e01030327621687cee61ec2c63cb7c2602c5e3a perly.y |
53443c95 | 224 | * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl |
c24c946d | 225 | * ex: set ro: */ |