This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_sort.c: silence the "unused parameter" warning
[perl5.git] / perly.h
CommitLineData
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
f417cfa9 7#define PERL_BISON_VERSION 30000
f39ff1f3 8
d8118cad 9#ifdef PERL_CORE
f417cfa9 10/* A Bison parser, made by GNU Bison 3.0.5. */
4e4da3ac 11
a9f5ab8d 12/* Bison interface for Yacc-like parsers in C
38c8d7b1 13
f417cfa9 14 Copyright (C) 1984, 1989-1990, 2000-2015, 2018 Free Software Foundation, Inc.
38c8d7b1 15
a9f5ab8d 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
a9f5ab8d
LM
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
a9f5ab8d 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
a9f5ab8d
LM
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
a9f5ab8d
LM
53 enum yytokentype
54 {
55 GRAMPROG = 258,
56 GRAMEXPR = 259,
57 GRAMBLOCK = 260,
58 GRAMBARESTMT = 261,
59 GRAMFULLSTMT = 262,
60 GRAMSTMTSEQ = 263,
996b0cb8
PLE
61 GRAMSUBSIGNATURE = 264,
62 BAREWORD = 265,
63 METHOD = 266,
64 FUNCMETH = 267,
65 THING = 268,
66 PMFUNC = 269,
67 PRIVATEREF = 270,
68 QWLIST = 271,
69 FUNC0OP = 272,
70 FUNC0SUB = 273,
71 UNIOPSUB = 274,
72 LSTOPSUB = 275,
73 PLUGEXPR = 276,
74 PLUGSTMT = 277,
75 LABEL = 278,
76 FORMAT = 279,
77 SUB = 280,
78 SIGSUB = 281,
79 ANONSUB = 282,
80 ANON_SIGSUB = 283,
81 PACKAGE = 284,
82 USE = 285,
83 WHILE = 286,
84 UNTIL = 287,
85 IF = 288,
86 UNLESS = 289,
87 ELSE = 290,
88 ELSIF = 291,
89 CONTINUE = 292,
90 FOR = 293,
91 GIVEN = 294,
92 WHEN = 295,
93 DEFAULT = 296,
94 LOOPEX = 297,
95 DOTDOT = 298,
96 YADAYADA = 299,
97 FUNC0 = 300,
98 FUNC1 = 301,
99 FUNC = 302,
100 UNIOP = 303,
101 LSTOP = 304,
102 RELOP = 305,
103 EQOP = 306,
104 MULOP = 307,
105 ADDOP = 308,
106 DOLSHARP = 309,
107 DO = 310,
108 HASHBRACK = 311,
109 NOAMP = 312,
110 LOCAL = 313,
111 MY = 314,
112 REQUIRE = 315,
113 COLONATTR = 316,
114 FORMLBRACK = 317,
115 FORMRBRACK = 318,
116 SUBLEXSTART = 319,
117 SUBLEXEND = 320,
118 PREC_LOW = 321,
119 OROP = 322,
120 DOROP = 323,
121 ANDOP = 324,
122 NOTOP = 325,
123 ASSIGNOP = 326,
124 OROR = 327,
125 DORDOR = 328,
126 ANDAND = 329,
127 BITOROP = 330,
128 BITANDOP = 331,
129 SHIFTOP = 332,
130 MATCHOP = 333,
131 UMINUS = 334,
132 REFGEN = 335,
133 POWOP = 336,
134 PREINC = 337,
135 PREDEC = 338,
136 POSTINC = 339,
137 POSTDEC = 340,
138 POSTJOIN = 341,
139 ARROW = 342
a9f5ab8d 140 };
0de566d7 141#endif
38c8d7b1 142
a9f5ab8d 143/* Value type. */
6c7ae946
FC
144#ifdef PERL_IN_TOKE_C
145static bool
146S_is_opval_token(int type) {
147 switch (type) {
185c2e96 148 case BAREWORD:
6c7ae946
FC
149 case FUNC0OP:
150 case FUNC0SUB:
151 case FUNCMETH:
01719201 152 case LABEL:
6c7ae946
FC
153 case LSTOPSUB:
154 case METHOD:
155 case PLUGEXPR:
156 case PLUGSTMT:
157 case PMFUNC:
158 case PRIVATEREF:
159 case QWLIST:
160 case THING:
161 case UNIOPSUB:
6c7ae946
FC
162 return 1;
163 }
164 return 0;
165}
166#endif /* PERL_IN_TOKE_C */
0de566d7 167#endif /* PERL_CORE */
f05e27e5 168#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
f417cfa9 169
a9f5ab8d 170union YYSTYPE
f05e27e5 171{
a9f5ab8d 172
d5c6462e
DM
173 I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
174 must always be 1st union member) */
79072805
LW
175 char *pval;
176 OP *opval;
177 GV *gvval;
a9f5ab8d 178
86b50d93 179};
f417cfa9 180
01719201 181typedef union YYSTYPE YYSTYPE;
bdc377e5 182# define YYSTYPE_IS_TRIVIAL 1
a9f5ab8d 183# define YYSTYPE_IS_DECLARED 1
0de566d7
DM
184#endif
185
186
187
a9f5ab8d
LM
188int yyparse (void);
189
e8fb9efb 190
c24c946d 191/* Generated from:
4df85778 192 * c522864236e07231c0a218cecf8cdcd82b74ce082b72f10199de4deeff580100 perly.y
86b50d93 193 * 0947213b55d0ed11693554bea04987e886cf285f5c14cf9075fa1e7acc3f4061 regen_perly.pl
c24c946d 194 * ex: set ro: */