This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
while (my $x ...) { ...; redo } shouldn't undef $x.
[perl5.git] / perly.h
1 #ifdef PERL_CORE
2 /* A Bison parser, made by GNU Bison 1.875c.  */
3
4 /* Skeleton parser for Yacc-like parsing with Bison,
5    Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
6
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 2, or (at your option)
10    any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program; if not, write to the Free Software
19    Foundation, Inc., 59 Temple Place - Suite 330,
20    Boston, MA 02111-1307, USA.  */
21
22 /* As a special exception, when this file is copied by Bison into a
23    Bison output file, you may use that output file without restriction.
24    This special exception was added by the Free Software Foundation
25    in version 1.24 of Bison.  */
26
27 /* Tokens.  */
28 #ifndef YYTOKENTYPE
29 # define YYTOKENTYPE
30    /* Put the tokens into the symbol table, so that GDB and other debuggers
31       know about them.  */
32    enum yytokentype {
33      WORD = 258,
34      METHOD = 259,
35      FUNCMETH = 260,
36      THING = 261,
37      PMFUNC = 262,
38      PRIVATEREF = 263,
39      FUNC0SUB = 264,
40      UNIOPSUB = 265,
41      LSTOPSUB = 266,
42      LABEL = 267,
43      FORMAT = 268,
44      SUB = 269,
45      ANONSUB = 270,
46      PACKAGE = 271,
47      USE = 272,
48      WHILE = 273,
49      UNTIL = 274,
50      IF = 275,
51      UNLESS = 276,
52      ELSE = 277,
53      ELSIF = 278,
54      CONTINUE = 279,
55      FOR = 280,
56      LOOPEX = 281,
57      DOTDOT = 282,
58      FUNC0 = 283,
59      FUNC1 = 284,
60      FUNC = 285,
61      UNIOP = 286,
62      LSTOP = 287,
63      RELOP = 288,
64      EQOP = 289,
65      MULOP = 290,
66      ADDOP = 291,
67      DOLSHARP = 292,
68      DO = 293,
69      HASHBRACK = 294,
70      NOAMP = 295,
71      LOCAL = 296,
72      MY = 297,
73      MYSUB = 298,
74      COLONATTR = 299,
75      PREC_LOW = 300,
76      DOROP = 301,
77      OROP = 302,
78      ANDOP = 303,
79      NOTOP = 304,
80      ASSIGNOP = 305,
81      DORDOR = 306,
82      OROR = 307,
83      ANDAND = 308,
84      BITOROP = 309,
85      BITANDOP = 310,
86      SHIFTOP = 311,
87      MATCHOP = 312,
88      REFGEN = 313,
89      UMINUS = 314,
90      POWOP = 315,
91      POSTDEC = 316,
92      POSTINC = 317,
93      PREDEC = 318,
94      PREINC = 319,
95      ARROW = 320
96    };
97 #endif
98 #define WORD 258
99 #define METHOD 259
100 #define FUNCMETH 260
101 #define THING 261
102 #define PMFUNC 262
103 #define PRIVATEREF 263
104 #define FUNC0SUB 264
105 #define UNIOPSUB 265
106 #define LSTOPSUB 266
107 #define LABEL 267
108 #define FORMAT 268
109 #define SUB 269
110 #define ANONSUB 270
111 #define PACKAGE 271
112 #define USE 272
113 #define WHILE 273
114 #define UNTIL 274
115 #define IF 275
116 #define UNLESS 276
117 #define ELSE 277
118 #define ELSIF 278
119 #define CONTINUE 279
120 #define FOR 280
121 #define LOOPEX 281
122 #define DOTDOT 282
123 #define FUNC0 283
124 #define FUNC1 284
125 #define FUNC 285
126 #define UNIOP 286
127 #define LSTOP 287
128 #define RELOP 288
129 #define EQOP 289
130 #define MULOP 290
131 #define ADDOP 291
132 #define DOLSHARP 292
133 #define DO 293
134 #define HASHBRACK 294
135 #define NOAMP 295
136 #define LOCAL 296
137 #define MY 297
138 #define MYSUB 298
139 #define COLONATTR 299
140 #define PREC_LOW 300
141 #define DOROP 301
142 #define OROP 302
143 #define ANDOP 303
144 #define NOTOP 304
145 #define ASSIGNOP 305
146 #define DORDOR 306
147 #define OROR 307
148 #define ANDAND 308
149 #define BITOROP 309
150 #define BITANDOP 310
151 #define SHIFTOP 311
152 #define MATCHOP 312
153 #define REFGEN 313
154 #define UMINUS 314
155 #define POWOP 315
156 #define POSTDEC 316
157 #define POSTINC 317
158 #define PREDEC 318
159 #define PREINC 319
160 #define ARROW 320
161
162
163
164
165 #endif /* PERL_CORE */
166 #if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
167 #line 30 "perly.y"
168 typedef union YYSTYPE {
169     I32 ival;
170     char *pval;
171     OP *opval;
172     GV *gvval;
173 } YYSTYPE;
174 /* Line 1275 of yacc.c.  */
175 #line 174 "perly.h"
176 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
177 # define YYSTYPE_IS_DECLARED 1
178 # define YYSTYPE_IS_TRIVIAL 1
179 #endif
180
181
182
183
184