X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c24c946d24c97d98baecdbf2c37823b55add8bcb..007ee6b5c9390c9b68f5078d641b65ae38744242:/perly.h diff --git a/perly.h b/perly.h index 6c282bf..0fefd47 100644 --- a/perly.h +++ b/perly.h @@ -59,71 +59,74 @@ PMFUNC = 268, PRIVATEREF = 269, QWLIST = 270, - FUNC0SUB = 271, - UNIOPSUB = 272, - LSTOPSUB = 273, - PLUGEXPR = 274, - PLUGSTMT = 275, - LABEL = 276, - FORMAT = 277, - SUB = 278, - ANONSUB = 279, - PACKAGE = 280, - USE = 281, - WHILE = 282, - UNTIL = 283, - IF = 284, - UNLESS = 285, - ELSE = 286, - ELSIF = 287, - CONTINUE = 288, - FOR = 289, - GIVEN = 290, - WHEN = 291, - DEFAULT = 292, - LOOPEX = 293, - DOTDOT = 294, - YADAYADA = 295, - FUNC0 = 296, - FUNC1 = 297, - FUNC = 298, - UNIOP = 299, - LSTOP = 300, - RELOP = 301, - EQOP = 302, - MULOP = 303, - ADDOP = 304, - DOLSHARP = 305, - DO = 306, - HASHBRACK = 307, - NOAMP = 308, - LOCAL = 309, - MY = 310, - MYSUB = 311, + 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, REQUIRE = 312, COLONATTR = 313, - PREC_LOW = 314, - DOROP = 315, - OROP = 316, - ANDOP = 317, - NOTOP = 318, - ASSIGNOP = 319, - DORDOR = 320, - OROR = 321, - ANDAND = 322, - BITOROP = 323, - BITANDOP = 324, - SHIFTOP = 325, - MATCHOP = 326, - REFGEN = 327, - UMINUS = 328, - POWOP = 329, - POSTDEC = 330, - POSTINC = 331, - PREDEC = 332, - PREINC = 333, - ARROW = 334, - PEG = 335 + FORMLBRACK = 314, + FORMRBRACK = 315, + PREC_LOW = 316, + DOROP = 317, + OROP = 318, + ANDOP = 319, + NOTOP = 320, + ASSIGNOP = 321, + DORDOR = 322, + OROR = 323, + ANDAND = 324, + BITOROP = 325, + BITANDOP = 326, + SHIFTOP = 327, + MATCHOP = 328, + REFGEN = 329, + UMINUS = 330, + POWOP = 331, + POSTJOIN = 332, + POSTDEC = 333, + POSTINC = 334, + PREDEC = 335, + PREINC = 336, + ARROW = 337, + PEG = 338 }; #endif /* Tokens. */ @@ -140,75 +143,100 @@ #define PMFUNC 268 #define PRIVATEREF 269 #define QWLIST 270 -#define FUNC0SUB 271 -#define UNIOPSUB 272 -#define LSTOPSUB 273 -#define PLUGEXPR 274 -#define PLUGSTMT 275 -#define LABEL 276 -#define FORMAT 277 -#define SUB 278 -#define ANONSUB 279 -#define PACKAGE 280 -#define USE 281 -#define WHILE 282 -#define UNTIL 283 -#define IF 284 -#define UNLESS 285 -#define ELSE 286 -#define ELSIF 287 -#define CONTINUE 288 -#define FOR 289 -#define GIVEN 290 -#define WHEN 291 -#define DEFAULT 292 -#define LOOPEX 293 -#define DOTDOT 294 -#define YADAYADA 295 -#define FUNC0 296 -#define FUNC1 297 -#define FUNC 298 -#define UNIOP 299 -#define LSTOP 300 -#define RELOP 301 -#define EQOP 302 -#define MULOP 303 -#define ADDOP 304 -#define DOLSHARP 305 -#define DO 306 -#define HASHBRACK 307 -#define NOAMP 308 -#define LOCAL 309 -#define MY 310 -#define MYSUB 311 +#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 REQUIRE 312 #define COLONATTR 313 -#define PREC_LOW 314 -#define DOROP 315 -#define OROP 316 -#define ANDOP 317 -#define NOTOP 318 -#define ASSIGNOP 319 -#define DORDOR 320 -#define OROR 321 -#define ANDAND 322 -#define BITOROP 323 -#define BITANDOP 324 -#define SHIFTOP 325 -#define MATCHOP 326 -#define REFGEN 327 -#define UMINUS 328 -#define POWOP 329 -#define POSTDEC 330 -#define POSTINC 331 -#define PREDEC 332 -#define PREINC 333 -#define ARROW 334 -#define PEG 335 +#define FORMLBRACK 314 +#define FORMRBRACK 315 +#define PREC_LOW 316 +#define DOROP 317 +#define OROP 318 +#define ANDOP 319 +#define NOTOP 320 +#define ASSIGNOP 321 +#define DORDOR 322 +#define OROR 323 +#define ANDAND 324 +#define BITOROP 325 +#define BITANDOP 326 +#define SHIFTOP 327 +#define MATCHOP 328 +#define REFGEN 329 +#define UMINUS 330 +#define POWOP 331 +#define POSTJOIN 332 +#define POSTDEC 333 +#define POSTINC 334 +#define PREDEC 335 +#define PREINC 336 +#define ARROW 337 +#define PEG 338 +#ifdef PERL_IN_TOKE_C +static bool +S_is_opval_token(int type) { + switch (type) { + case FUNC0OP: + case FUNC0SUB: + case FUNCMETH: + case LSTOPSUB: + case METHOD: + case PLUGEXPR: + case PLUGSTMT: + case PMFUNC: + case PRIVATEREF: + case QWLIST: + case THING: + case UNIOPSUB: + case WORD: + return 1; + } + return 0; +} +#endif /* PERL_IN_TOKE_C */ #endif /* PERL_CORE */ #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED typedef union YYSTYPE @@ -229,7 +257,7 @@ typedef union YYSTYPE TOKEN* tkval; #endif } -/* Line 1489 of yacc.c. */ +/* Line 1529 of yacc.c. */ YYSTYPE; # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 @@ -240,6 +268,6 @@ typedef union YYSTYPE /* Generated from: - * bd41fc813e5d2d23ff7edef2ab1ef88bbb054176476b7d989db7522dce1c9328 perly.y - * dc72db91baa0a3c17a6c95718e5ad70e9ac7b75919df1317df7fe6c3f1649239 regen_perly.pl + * 020be75832dcc7c18bd88434c3ba0e24a136dc093c4b8bf2cef9efa5875c9a29 perly.y + * 5c9d2a0262457fe9b70073fc8ad6c188f812f38ad57712b7e2f53daa01b297cc regen_perly.pl * ex: set ro: */