This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix checks for tainted dir in $ENV{PATH}
[perl5.git] / perly.h
CommitLineData
e8fb9efb
NC
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
49fb8620 7#define PERL_BISON_VERSION 30000
f39ff1f3 8
d8118cad 9#ifdef PERL_CORE
49fb8620 10/* A Bison parser, made by GNU Bison 3.0.2. */
4e4da3ac 11
49fb8620 12/* Bison interface for Yacc-like parsers in C
38c8d7b1 13
49fb8620 14 Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
38c8d7b1 15
49fb8620 16 This program is free software: you can redistribute it and/or modify
0de566d7 17 it under the terms of the GNU General Public License as published by
49fb8620
DM
18 the Free Software Foundation, either version 3 of the License, or
19 (at your option) any later version.
38c8d7b1 20
0de566d7
DM
21 This program is distributed in the hope that it will be useful,
22 but WITHOUT ANY WARRANTY; without even the implied warranty of
23 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 GNU General Public License for more details.
38c8d7b1 25
0de566d7 26 You should have received a copy of the GNU General Public License
49fb8620 27 along with this program. If not, see <http://www.gnu.org/licenses/>. */
0de566d7 28
f05e27e5
DM
29/* As a special exception, you may create a larger work that contains
30 part or all of the Bison parser skeleton and distribute that work
31 under terms of your choice, so long as that work isn't itself a
32 parser generator using the skeleton or a modified version thereof
33 as a parser skeleton. Alternatively, if you modify or redistribute
34 the parser skeleton itself, you may (at your option) remove this
35 special exception, which will cause the skeleton and the resulting
36 Bison output files to be licensed under the GNU General Public
37 License without this special exception.
38c8d7b1 38
f05e27e5
DM
39 This special exception was added by the Free Software Foundation in
40 version 2.2 of Bison. */
0de566d7 41
49fb8620
DM
42/* Debug traces. */
43#ifndef YYDEBUG
44# define YYDEBUG 0
45#endif
46#if YYDEBUG
47extern int yydebug;
48#endif
49
50/* Token type. */
0de566d7
DM
51#ifndef YYTOKENTYPE
52# define YYTOKENTYPE
49fb8620
DM
53 enum yytokentype
54 {
55 GRAMPROG = 258,
56 GRAMEXPR = 259,
57 GRAMBLOCK = 260,
58 GRAMBARESTMT = 261,
59 GRAMFULLSTMT = 262,
60 GRAMSTMTSEQ = 263,
61 BAREWORD = 264,
62 METHOD = 265,
63 FUNCMETH = 266,
64 THING = 267,
65 PMFUNC = 268,
66 PRIVATEREF = 269,
67 QWLIST = 270,
68 FUNC0OP = 271,
69 FUNC0SUB = 272,
70 UNIOPSUB = 273,
71 LSTOPSUB = 274,
72 PLUGEXPR = 275,
73 PLUGSTMT = 276,
74 LABEL = 277,
75 FORMAT = 278,
76 SUB = 279,
77 ANONSUB = 280,
78 PACKAGE = 281,
79 USE = 282,
80 WHILE = 283,
81 UNTIL = 284,
82 IF = 285,
83 UNLESS = 286,
84 ELSE = 287,
85 ELSIF = 288,
86 CONTINUE = 289,
87 FOR = 290,
88 GIVEN = 291,
89 WHEN = 292,
90 DEFAULT = 293,
91 LOOPEX = 294,
92 DOTDOT = 295,
93 YADAYADA = 296,
94 FUNC0 = 297,
95 FUNC1 = 298,
96 FUNC = 299,
97 UNIOP = 300,
98 LSTOP = 301,
99 RELOP = 302,
100 EQOP = 303,
101 MULOP = 304,
102 ADDOP = 305,
103 DOLSHARP = 306,
104 DO = 307,
105 HASHBRACK = 308,
106 NOAMP = 309,
107 LOCAL = 310,
108 MY = 311,
109 REQUIRE = 312,
110 COLONATTR = 313,
111 FORMLBRACK = 314,
112 FORMRBRACK = 315,
113 PREC_LOW = 316,
114 OROP = 317,
115 DOROP = 318,
116 ANDOP = 319,
117 NOTOP = 320,
118 ASSIGNOP = 321,
119 OROR = 322,
120 DORDOR = 323,
121 ANDAND = 324,
122 BITOROP = 325,
123 BITANDOP = 326,
124 SHIFTOP = 327,
125 MATCHOP = 328,
126 UMINUS = 329,
127 REFGEN = 330,
128 POWOP = 331,
129 PREINC = 332,
130 PREDEC = 333,
131 POSTINC = 334,
132 POSTDEC = 335,
133 POSTJOIN = 336,
134 ARROW = 337
135 };
0de566d7 136#endif
38c8d7b1 137
49fb8620 138/* Value type. */
6c7ae946
FC
139#ifdef PERL_IN_TOKE_C
140static bool
141S_is_opval_token(int type) {
142 switch (type) {
185c2e96 143 case BAREWORD:
6c7ae946
FC
144 case FUNC0OP:
145 case FUNC0SUB:
146 case FUNCMETH:
147 case LSTOPSUB:
148 case METHOD:
149 case PLUGEXPR:
150 case PLUGSTMT:
151 case PMFUNC:
152 case PRIVATEREF:
153 case QWLIST:
154 case THING:
155 case UNIOPSUB:
6c7ae946
FC
156 return 1;
157 }
158 return 0;
159}
160#endif /* PERL_IN_TOKE_C */
0de566d7 161#endif /* PERL_CORE */
f05e27e5 162#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
49fb8620
DM
163typedef union YYSTYPE YYSTYPE;
164union YYSTYPE
f05e27e5 165{
49fb8620 166
d5c6462e
DM
167 I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
168 must always be 1st union member) */
79072805
LW
169 char *pval;
170 OP *opval;
171 GV *gvval;
49fb8620
DM
172
173};
036bbc13 174# define YYSTYPE_IS_TRIVIAL 1
49fb8620 175# define YYSTYPE_IS_DECLARED 1
0de566d7
DM
176#endif
177
178
179
49fb8620
DM
180int yyparse (void);
181
e8fb9efb 182
c24c946d 183/* Generated from:
49fb8620 184 * 1a8fc0f841dee6e563463a6b91bf9c410b47437c760f485a16d87ade3d66bf1d perly.y
38c8d7b1 185 * 3e1dff60f26df8933d7aed0c0e87177a0f022c14800c0707eb62a7db4196ac98 regen_perly.pl
c24c946d 186 * ex: set ro: */