X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d63c20f27b4a88c274844b2b635deb3c6588cccd..c5e9991e23848d056cb5957a697a1e73129b0297:/perly.h diff --git a/perly.h b/perly.h index 8ebae6e..7727e7b 100644 --- a/perly.h +++ b/perly.h @@ -4,24 +4,25 @@ Any changes made here will be lost! */ +#define PERL_BISON_VERSION 30000 + #ifdef PERL_CORE -/* A Bison parser, made by GNU Bison 2.4.3. */ +/* A Bison parser, made by GNU Bison 3.0.2. */ + +/* Bison interface for Yacc-like parsers in C + + Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. -/* Skeleton interface for Bison's Yacc-like parsers in C - - Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006, - 2009, 2010 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 . */ @@ -34,219 +35,154 @@ 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. */ +/* Debug traces. */ +#ifndef YYDEBUG +# define YYDEBUG 0 +#endif +#if YYDEBUG +extern int yydebug; +#endif -/* Tokens. */ +/* Token type. */ #ifndef YYTOKENTYPE # define YYTOKENTYPE - /* Put the tokens into the symbol table, so that GDB and other debuggers - know about them. */ - enum yytokentype { - GRAMPROG = 258, - GRAMEXPR = 259, - GRAMBLOCK = 260, - GRAMBARESTMT = 261, - GRAMFULLSTMT = 262, - GRAMSTMTSEQ = 263, - WORD = 264, - METHOD = 265, - FUNCMETH = 266, - THING = 267, - PMFUNC = 268, - PRIVATEREF = 269, - QWLIST = 270, - FUNC0OP = 271, - FUNC0SUB = 272, - UNIOPSUB = 273, - LSTOPSUB = 274, - PLUGEXPR = 275, - PLUGSTMT = 276, - LABEL = 277, - FORMAT = 278, - SUB = 279, - ANONSUB = 280, - PACKAGE = 281, - USE = 282, - WHILE = 283, - UNTIL = 284, - IF = 285, - UNLESS = 286, - ELSE = 287, - ELSIF = 288, - CONTINUE = 289, - FOR = 290, - GIVEN = 291, - WHEN = 292, - DEFAULT = 293, - LOOPEX = 294, - DOTDOT = 295, - YADAYADA = 296, - FUNC0 = 297, - FUNC1 = 298, - FUNC = 299, - UNIOP = 300, - LSTOP = 301, - RELOP = 302, - EQOP = 303, - MULOP = 304, - ADDOP = 305, - DOLSHARP = 306, - DO = 307, - HASHBRACK = 308, - NOAMP = 309, - LOCAL = 310, - MY = 311, - MYSUB = 312, - REQUIRE = 313, - COLONATTR = 314, - PREC_LOW = 315, - DOROP = 316, - OROP = 317, - ANDOP = 318, - NOTOP = 319, - ASSIGNOP = 320, - DORDOR = 321, - OROR = 322, - ANDAND = 323, - BITOROP = 324, - BITANDOP = 325, - SHIFTOP = 326, - MATCHOP = 327, - REFGEN = 328, - UMINUS = 329, - POWOP = 330, - POSTDEC = 331, - POSTINC = 332, - PREDEC = 333, - PREINC = 334, - ARROW = 335, - PEG = 336 - }; + enum yytokentype + { + GRAMPROG = 258, + GRAMEXPR = 259, + GRAMBLOCK = 260, + GRAMBARESTMT = 261, + GRAMFULLSTMT = 262, + GRAMSTMTSEQ = 263, + BAREWORD = 264, + METHOD = 265, + FUNCMETH = 266, + THING = 267, + PMFUNC = 268, + PRIVATEREF = 269, + QWLIST = 270, + FUNC0OP = 271, + FUNC0SUB = 272, + UNIOPSUB = 273, + LSTOPSUB = 274, + PLUGEXPR = 275, + PLUGSTMT = 276, + LABEL = 277, + FORMAT = 278, + SUB = 279, + SIGSUB = 280, + ANONSUB = 281, + ANON_SIGSUB = 282, + PACKAGE = 283, + USE = 284, + WHILE = 285, + UNTIL = 286, + IF = 287, + UNLESS = 288, + ELSE = 289, + ELSIF = 290, + CONTINUE = 291, + FOR = 292, + GIVEN = 293, + WHEN = 294, + DEFAULT = 295, + LOOPEX = 296, + DOTDOT = 297, + YADAYADA = 298, + FUNC0 = 299, + FUNC1 = 300, + FUNC = 301, + UNIOP = 302, + LSTOP = 303, + RELOP = 304, + EQOP = 305, + MULOP = 306, + ADDOP = 307, + DOLSHARP = 308, + DO = 309, + HASHBRACK = 310, + NOAMP = 311, + LOCAL = 312, + MY = 313, + REQUIRE = 314, + COLONATTR = 315, + FORMLBRACK = 316, + FORMRBRACK = 317, + PREC_LOW = 318, + OROP = 319, + DOROP = 320, + ANDOP = 321, + NOTOP = 322, + ASSIGNOP = 323, + OROR = 324, + DORDOR = 325, + ANDAND = 326, + BITOROP = 327, + BITANDOP = 328, + SHIFTOP = 329, + MATCHOP = 330, + UMINUS = 331, + REFGEN = 332, + POWOP = 333, + PREINC = 334, + PREDEC = 335, + POSTINC = 336, + POSTDEC = 337, + POSTJOIN = 338, + ARROW = 339 + }; #endif -/* Tokens. */ -#define GRAMPROG 258 -#define GRAMEXPR 259 -#define GRAMBLOCK 260 -#define GRAMBARESTMT 261 -#define GRAMFULLSTMT 262 -#define GRAMSTMTSEQ 263 -#define WORD 264 -#define METHOD 265 -#define FUNCMETH 266 -#define THING 267 -#define PMFUNC 268 -#define PRIVATEREF 269 -#define QWLIST 270 -#define FUNC0OP 271 -#define FUNC0SUB 272 -#define UNIOPSUB 273 -#define LSTOPSUB 274 -#define PLUGEXPR 275 -#define PLUGSTMT 276 -#define LABEL 277 -#define FORMAT 278 -#define SUB 279 -#define ANONSUB 280 -#define PACKAGE 281 -#define USE 282 -#define WHILE 283 -#define UNTIL 284 -#define IF 285 -#define UNLESS 286 -#define ELSE 287 -#define ELSIF 288 -#define CONTINUE 289 -#define FOR 290 -#define GIVEN 291 -#define WHEN 292 -#define DEFAULT 293 -#define LOOPEX 294 -#define DOTDOT 295 -#define YADAYADA 296 -#define FUNC0 297 -#define FUNC1 298 -#define FUNC 299 -#define UNIOP 300 -#define LSTOP 301 -#define RELOP 302 -#define EQOP 303 -#define MULOP 304 -#define ADDOP 305 -#define DOLSHARP 306 -#define DO 307 -#define HASHBRACK 308 -#define NOAMP 309 -#define LOCAL 310 -#define MY 311 -#define MYSUB 312 -#define REQUIRE 313 -#define COLONATTR 314 -#define PREC_LOW 315 -#define DOROP 316 -#define OROP 317 -#define ANDOP 318 -#define NOTOP 319 -#define ASSIGNOP 320 -#define DORDOR 321 -#define OROR 322 -#define ANDAND 323 -#define BITOROP 324 -#define BITANDOP 325 -#define SHIFTOP 326 -#define MATCHOP 327 -#define REFGEN 328 -#define UMINUS 329 -#define POWOP 330 -#define POSTDEC 331 -#define POSTINC 332 -#define PREDEC 333 -#define PREINC 334 -#define ARROW 335 -#define PEG 336 - - - +/* Value type. */ +#ifdef PERL_IN_TOKE_C +static bool +S_is_opval_token(int type) { + switch (type) { + case BAREWORD: + case FUNC0OP: + case FUNC0SUB: + case FUNCMETH: + case LSTOPSUB: + case METHOD: + case PLUGEXPR: + case PLUGSTMT: + case PMFUNC: + case PRIVATEREF: + 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 -typedef union YYSTYPE +typedef union YYSTYPE YYSTYPE; +union YYSTYPE { -/* Line 1685 of yacc.c */ - I32 ival; /* __DEFAULT__ (marker for regen_perly.pl; must always be 1st union member) */ char *pval; OP *opval; GV *gvval; -#ifdef PERL_IN_MADLY_C - TOKEN* p_tkval; - TOKEN* i_tkval; -#else - char *p_tkval; - I32 i_tkval; -#endif -#ifdef PERL_MAD - TOKEN* tkval; -#endif - - -/* Line 1685 of yacc.c */ -} YYSTYPE; +}; # define YYSTYPE_IS_TRIVIAL 1 -# define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 #endif +int yyparse (void); /* Generated from: - * 27cce68ad4844f1b8053bfc11206fb9f559e08be6cefd4a986aaa606c0e5fb38 perly.y - * 53f57d7143a42b3c008841a14d158bcf9cab64b2904b07ef5e95051fe9a8a875 regen_perly.pl + * ac323bb6f3cacf4eb8eda6403a58c41f30954d07a4a6d6f7f00de81577b2c79a perly.y + * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl * ex: set ro: */