mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
2b89da05e5
We need to use a dedicated grammar type; or at the very least, not use `subattrlist` for doing this. The previous use of `subattrlist` had the side-effect of passing every attribute list for a class via the `apply_builtin_cv_attributes()` function. That was pointlessly redundant, though currently harmless. It may stop being harmless in a future improvement to the way attributes are handled, so best not to do that any more. The new structure repurposes the previous `myattrlist` to be a non-optional attribute list, and defines `optattrlist` to use for both class and field attributes.
252 lines
10 KiB
C
Generated
252 lines
10 KiB
C
Generated
/* -*- mode: C; buffer-read-only: t -*-
|
|
!!!!!!! DO NOT EDIT THIS FILE !!!!!!!
|
|
This file is built by regen_perly.pl from perly.y.
|
|
Any changes made here will be lost!
|
|
*/
|
|
|
|
#define PERL_BISON_VERSION 30008
|
|
|
|
#ifdef PERL_CORE
|
|
/* A Bison parser, made by GNU Bison 3.8.2. */
|
|
|
|
/* Bison interface for Yacc-like parsers in C
|
|
|
|
Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
|
|
Inc.
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <https://www.gnu.org/licenses/>. */
|
|
|
|
/* As a special exception, you may create a larger work that contains
|
|
part or all of the Bison parser skeleton and distribute that work
|
|
under terms of your choice, so long as that work isn't itself a
|
|
parser generator using the skeleton or a modified version thereof
|
|
as a parser skeleton. Alternatively, if you modify or redistribute
|
|
the parser skeleton itself, you may (at your option) remove this
|
|
special exception, which will cause the skeleton and the resulting
|
|
Bison output files to be licensed under the GNU General Public
|
|
License without this special exception.
|
|
|
|
This special exception was added by the Free Software Foundation in
|
|
version 2.2 of Bison. */
|
|
|
|
/* DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual,
|
|
especially those whose name start with YY_ or yy_. They are
|
|
private implementation details that can be changed or removed. */
|
|
|
|
/* Debug traces. */
|
|
#ifndef YYDEBUG
|
|
# define YYDEBUG 0
|
|
#endif
|
|
#if YYDEBUG
|
|
extern int yydebug;
|
|
#endif
|
|
|
|
/* Token kinds. */
|
|
#ifndef YYTOKENTYPE
|
|
# define YYTOKENTYPE
|
|
enum yytokentype
|
|
{
|
|
YYEMPTY = -2,
|
|
YYEOF = 0, /* "end of file" */
|
|
YYerror = 256, /* error */
|
|
YYUNDEF = 257, /* "invalid token" */
|
|
GRAMPROG = 258, /* GRAMPROG */
|
|
GRAMEXPR = 259, /* GRAMEXPR */
|
|
GRAMBLOCK = 260, /* GRAMBLOCK */
|
|
GRAMBARESTMT = 261, /* GRAMBARESTMT */
|
|
GRAMFULLSTMT = 262, /* GRAMFULLSTMT */
|
|
GRAMSTMTSEQ = 263, /* GRAMSTMTSEQ */
|
|
GRAMSUBSIGNATURE = 264, /* GRAMSUBSIGNATURE */
|
|
PERLY_AMPERSAND = 265, /* PERLY_AMPERSAND */
|
|
PERLY_BRACE_OPEN = 266, /* PERLY_BRACE_OPEN */
|
|
PERLY_BRACE_CLOSE = 267, /* PERLY_BRACE_CLOSE */
|
|
PERLY_BRACKET_OPEN = 268, /* PERLY_BRACKET_OPEN */
|
|
PERLY_BRACKET_CLOSE = 269, /* PERLY_BRACKET_CLOSE */
|
|
PERLY_COMMA = 270, /* PERLY_COMMA */
|
|
PERLY_DOLLAR = 271, /* PERLY_DOLLAR */
|
|
PERLY_DOT = 272, /* PERLY_DOT */
|
|
PERLY_EQUAL_SIGN = 273, /* PERLY_EQUAL_SIGN */
|
|
PERLY_MINUS = 274, /* PERLY_MINUS */
|
|
PERLY_PERCENT_SIGN = 275, /* PERLY_PERCENT_SIGN */
|
|
PERLY_PLUS = 276, /* PERLY_PLUS */
|
|
PERLY_SEMICOLON = 277, /* PERLY_SEMICOLON */
|
|
PERLY_SLASH = 278, /* PERLY_SLASH */
|
|
PERLY_SNAIL = 279, /* PERLY_SNAIL */
|
|
PERLY_STAR = 280, /* PERLY_STAR */
|
|
KW_FORMAT = 281, /* KW_FORMAT */
|
|
KW_PACKAGE = 282, /* KW_PACKAGE */
|
|
KW_CLASS = 283, /* KW_CLASS */
|
|
KW_LOCAL = 284, /* KW_LOCAL */
|
|
KW_MY = 285, /* KW_MY */
|
|
KW_FIELD = 286, /* KW_FIELD */
|
|
KW_IF = 287, /* KW_IF */
|
|
KW_ELSE = 288, /* KW_ELSE */
|
|
KW_ELSIF = 289, /* KW_ELSIF */
|
|
KW_UNLESS = 290, /* KW_UNLESS */
|
|
KW_FOR = 291, /* KW_FOR */
|
|
KW_UNTIL = 292, /* KW_UNTIL */
|
|
KW_WHILE = 293, /* KW_WHILE */
|
|
KW_CONTINUE = 294, /* KW_CONTINUE */
|
|
KW_GIVEN = 295, /* KW_GIVEN */
|
|
KW_WHEN = 296, /* KW_WHEN */
|
|
KW_DEFAULT = 297, /* KW_DEFAULT */
|
|
KW_TRY = 298, /* KW_TRY */
|
|
KW_CATCH = 299, /* KW_CATCH */
|
|
KW_FINALLY = 300, /* KW_FINALLY */
|
|
KW_DEFER = 301, /* KW_DEFER */
|
|
KW_REQUIRE = 302, /* KW_REQUIRE */
|
|
KW_DO = 303, /* KW_DO */
|
|
KW_USE_or_NO = 304, /* KW_USE_or_NO */
|
|
KW_SUB_named = 305, /* KW_SUB_named */
|
|
KW_SUB_named_sig = 306, /* KW_SUB_named_sig */
|
|
KW_SUB_anon = 307, /* KW_SUB_anon */
|
|
KW_SUB_anon_sig = 308, /* KW_SUB_anon_sig */
|
|
KW_METHOD_named = 309, /* KW_METHOD_named */
|
|
KW_METHOD_anon = 310, /* KW_METHOD_anon */
|
|
BAREWORD = 311, /* BAREWORD */
|
|
METHCALL0 = 312, /* METHCALL0 */
|
|
METHCALL = 313, /* METHCALL */
|
|
THING = 314, /* THING */
|
|
PMFUNC = 315, /* PMFUNC */
|
|
PRIVATEREF = 316, /* PRIVATEREF */
|
|
QWLIST = 317, /* QWLIST */
|
|
FUNC0OP = 318, /* FUNC0OP */
|
|
FUNC0SUB = 319, /* FUNC0SUB */
|
|
UNIOPSUB = 320, /* UNIOPSUB */
|
|
LSTOPSUB = 321, /* LSTOPSUB */
|
|
PLUGEXPR = 322, /* PLUGEXPR */
|
|
PLUGSTMT = 323, /* PLUGSTMT */
|
|
LABEL = 324, /* LABEL */
|
|
PROTOTYPE = 325, /* PROTOTYPE */
|
|
LOOPEX = 326, /* LOOPEX */
|
|
DOTDOT = 327, /* DOTDOT */
|
|
YADAYADA = 328, /* YADAYADA */
|
|
FUNC0 = 329, /* FUNC0 */
|
|
FUNC1 = 330, /* FUNC1 */
|
|
FUNC = 331, /* FUNC */
|
|
UNIOP = 332, /* UNIOP */
|
|
LSTOP = 333, /* LSTOP */
|
|
BLKLSTOP = 334, /* BLKLSTOP */
|
|
POWOP = 335, /* POWOP */
|
|
MULOP = 336, /* MULOP */
|
|
ADDOP = 337, /* ADDOP */
|
|
DOLSHARP = 338, /* DOLSHARP */
|
|
HASHBRACK = 339, /* HASHBRACK */
|
|
NOAMP = 340, /* NOAMP */
|
|
COLONATTR = 341, /* COLONATTR */
|
|
FORMLBRACK = 342, /* FORMLBRACK */
|
|
FORMRBRACK = 343, /* FORMRBRACK */
|
|
SUBLEXSTART = 344, /* SUBLEXSTART */
|
|
SUBLEXEND = 345, /* SUBLEXEND */
|
|
PHASER = 346, /* PHASER */
|
|
PREC_LOW = 347, /* PREC_LOW */
|
|
PLUGIN_LOW_OP = 348, /* PLUGIN_LOW_OP */
|
|
OROP = 349, /* OROP */
|
|
PLUGIN_LOGICAL_OR_LOW_OP = 350, /* PLUGIN_LOGICAL_OR_LOW_OP */
|
|
ANDOP = 351, /* ANDOP */
|
|
PLUGIN_LOGICAL_AND_LOW_OP = 352, /* PLUGIN_LOGICAL_AND_LOW_OP */
|
|
NOTOP = 353, /* NOTOP */
|
|
ASSIGNOP = 354, /* ASSIGNOP */
|
|
PLUGIN_ASSIGN_OP = 355, /* PLUGIN_ASSIGN_OP */
|
|
PERLY_QUESTION_MARK = 356, /* PERLY_QUESTION_MARK */
|
|
PERLY_COLON = 357, /* PERLY_COLON */
|
|
OROR = 358, /* OROR */
|
|
DORDOR = 359, /* DORDOR */
|
|
PLUGIN_LOGICAL_OR_OP = 360, /* PLUGIN_LOGICAL_OR_OP */
|
|
ANDAND = 361, /* ANDAND */
|
|
PLUGIN_LOGICAL_AND_OP = 362, /* PLUGIN_LOGICAL_AND_OP */
|
|
BITOROP = 363, /* BITOROP */
|
|
BITANDOP = 364, /* BITANDOP */
|
|
CHEQOP = 365, /* CHEQOP */
|
|
NCEQOP = 366, /* NCEQOP */
|
|
CHRELOP = 367, /* CHRELOP */
|
|
NCRELOP = 368, /* NCRELOP */
|
|
PLUGIN_REL_OP = 369, /* PLUGIN_REL_OP */
|
|
SHIFTOP = 370, /* SHIFTOP */
|
|
PLUGIN_ADD_OP = 371, /* PLUGIN_ADD_OP */
|
|
PLUGIN_MUL_OP = 372, /* PLUGIN_MUL_OP */
|
|
MATCHOP = 373, /* MATCHOP */
|
|
PERLY_EXCLAMATION_MARK = 374, /* PERLY_EXCLAMATION_MARK */
|
|
PERLY_TILDE = 375, /* PERLY_TILDE */
|
|
UMINUS = 376, /* UMINUS */
|
|
REFGEN = 377, /* REFGEN */
|
|
PLUGIN_POW_OP = 378, /* PLUGIN_POW_OP */
|
|
PREINC = 379, /* PREINC */
|
|
PREDEC = 380, /* PREDEC */
|
|
POSTINC = 381, /* POSTINC */
|
|
POSTDEC = 382, /* POSTDEC */
|
|
POSTJOIN = 383, /* POSTJOIN */
|
|
PLUGIN_HIGH_OP = 384, /* PLUGIN_HIGH_OP */
|
|
ARROW = 385, /* ARROW */
|
|
PERLY_PAREN_CLOSE = 386, /* PERLY_PAREN_CLOSE */
|
|
PERLY_PAREN_OPEN = 387 /* PERLY_PAREN_OPEN */
|
|
};
|
|
typedef enum yytokentype yytoken_kind_t;
|
|
#endif
|
|
|
|
/* Value type. */
|
|
#ifdef PERL_IN_TOKE_C
|
|
static bool
|
|
S_is_opval_token(int type) {
|
|
switch (type) {
|
|
case BAREWORD:
|
|
case FUNC0OP:
|
|
case FUNC0SUB:
|
|
case LABEL:
|
|
case LSTOPSUB:
|
|
case METHCALL:
|
|
case METHCALL0:
|
|
case PLUGEXPR:
|
|
case PLUGSTMT:
|
|
case PMFUNC:
|
|
case PRIVATEREF:
|
|
case PROTOTYPE:
|
|
case QWLIST:
|
|
case THING:
|
|
case UNIOPSUB:
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
#endif /* PERL_IN_TOKE_C */
|
|
#endif /* PERL_CORE */
|
|
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
|
union YYSTYPE
|
|
{
|
|
|
|
I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
|
|
must always be 1st union member) */
|
|
void *pval;
|
|
OP *opval;
|
|
GV *gvval;
|
|
|
|
|
|
};
|
|
typedef union YYSTYPE YYSTYPE;
|
|
# define YYSTYPE_IS_TRIVIAL 1
|
|
# define YYSTYPE_IS_DECLARED 1
|
|
#endif
|
|
|
|
|
|
|
|
|
|
int yyparse (void);
|
|
|
|
|
|
|
|
/* Generated from:
|
|
* 57cc742fa623ae44e0575b737db1c674688361cd405620798cf50de0d81cadfc perly.y
|
|
* f13e9c08cea6302f0c1d1f467405bd0e0880d0ea92d0669901017a7f7e94ab28 regen_perly.pl
|
|
* ex: set ro ft=c: */
|