This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A better error message for `try {} catch {}` missing its (VAR)
[perl5.git] / perly.h
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     FINALLY = 315,
117     LOOPEX = 316,
118     DOTDOT = 317,
119     YADAYADA = 318,
120     FUNC0 = 319,
121     FUNC1 = 320,
122     FUNC = 321,
123     UNIOP = 322,
124     LSTOP = 323,
125     MULOP = 324,
126     ADDOP = 325,
127     DOLSHARP = 326,
128     DO = 327,
129     HASHBRACK = 328,
130     NOAMP = 329,
131     LOCAL = 330,
132     MY = 331,
133     REQUIRE = 332,
134     COLONATTR = 333,
135     FORMLBRACK = 334,
136     FORMRBRACK = 335,
137     SUBLEXSTART = 336,
138     SUBLEXEND = 337,
139     DEFER = 338,
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
171   };
172 #endif
173
174 /* Value type.  */
175 #ifdef PERL_IN_TOKE_C
176 static bool
177 S_is_opval_token(int type) {
178     switch (type) {
179     case BAREWORD:
180     case FUNC0OP:
181     case FUNC0SUB:
182     case FUNCMETH:
183     case LABEL:
184     case LSTOPSUB:
185     case METHOD:
186     case PLUGEXPR:
187     case PLUGSTMT:
188     case PMFUNC:
189     case PRIVATEREF:
190     case QWLIST:
191     case THING:
192     case UNIOPSUB:
193         return 1;
194     }
195     return 0;
196 }
197 #endif /* PERL_IN_TOKE_C */
198 #endif /* PERL_CORE */
199 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
200
201 union YYSTYPE
202 {
203
204     I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
205                                 must always be 1st union member) */
206     char *pval;
207     OP *opval;
208     GV *gvval;
209
210 };
211
212 typedef union YYSTYPE YYSTYPE;
213 # define YYSTYPE_IS_TRIVIAL 1
214 # define YYSTYPE_IS_DECLARED 1
215 #endif
216
217
218
219 int yyparse (void);
220
221
222 /* Generated from:
223  * f6f4ca1df1f28e285f644b160b176887b111ca03c1fd20e3b4868c27a2c93623 perly.y
224  * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl
225  * ex: set ro: */