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
CommitLineData
d8118cad 1#ifdef PERL_CORE
a034e688 2/* A Bison parser, made by GNU Bison 1.875c. */
0de566d7
DM
3
4/* Skeleton parser for Yacc-like parsing with Bison,
a034e688 5 Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
0de566d7
DM
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
c963b151 141#define DOROP 301
0de566d7
DM
142#define OROP 302
143#define ANDOP 303
144#define NOTOP 304
145#define ASSIGNOP 305
c963b151 146#define DORDOR 306
0de566d7
DM
147#define OROR 307
148#define ANDAND 308
149#define BITOROP 309
150#define BITANDOP 310
151#define SHIFTOP 311
152#define MATCHOP 312
c963b151 153#define REFGEN 313
0de566d7
DM
154#define UMINUS 314
155#define POWOP 315
156#define POSTDEC 316
c963b151 157#define POSTINC 317
0de566d7
DM
158#define PREDEC 318
159#define PREINC 319
160#define ARROW 320
161
d8118cad 162
0de566d7
DM
163
164
165#endif /* PERL_CORE */
166#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
166f8a29 167#line 30 "perly.y"
0de566d7 168typedef union YYSTYPE {
79072805
LW
169 I32 ival;
170 char *pval;
171 OP *opval;
172 GV *gvval;
173} YYSTYPE;
a034e688 174/* Line 1275 of yacc.c. */
a758b0b5 175#line 174 "perly.h"
0de566d7
DM
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