From a1325b902d57aa7a99bed3d2ec0fa5ce42836207 Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Fri, 22 Jan 2021 17:57:08 +0000 Subject: Initial attempt at feature 'try' * Add feature, experimental warning, keyword * Basic parsing * Basic implementation as optree fragment See also https://github.com/Perl/perl5/issues/18504 --- perly.h | 119 +++++++++++++++++++++++++++++++++------------------------------- 1 file changed, 61 insertions(+), 58 deletions(-) (limited to 'perly.h') diff --git a/perly.h b/perly.h index a9286314a9..9b09e2c535 100644 --- a/perly.h +++ b/perly.h @@ -4,14 +4,14 @@ Any changes made here will be lost! */ -#define PERL_BISON_VERSION 30005 +#define PERL_BISON_VERSION 30003 #ifdef PERL_CORE -/* A Bison parser, made by GNU Bison 3.5.1. */ +/* A Bison parser, made by GNU Bison 3.3. */ /* Bison interface for Yacc-like parsers in C - Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2020 Free Software Foundation, + Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify @@ -111,59 +111,61 @@ extern int yydebug; GIVEN = 310, WHEN = 311, DEFAULT = 312, - LOOPEX = 313, - DOTDOT = 314, - YADAYADA = 315, - FUNC0 = 316, - FUNC1 = 317, - FUNC = 318, - UNIOP = 319, - LSTOP = 320, - MULOP = 321, - ADDOP = 322, - DOLSHARP = 323, - DO = 324, - HASHBRACK = 325, - NOAMP = 326, - LOCAL = 327, - MY = 328, - REQUIRE = 329, - COLONATTR = 330, - FORMLBRACK = 331, - FORMRBRACK = 332, - SUBLEXSTART = 333, - SUBLEXEND = 334, - PREC_LOW = 335, - OROP = 336, - ANDOP = 337, - NOTOP = 338, - ASSIGNOP = 339, - PERLY_QUESTION_MARK = 340, - PERLY_COLON = 341, - OROR = 342, - DORDOR = 343, - ANDAND = 344, - BITOROP = 345, - BITANDOP = 346, - CHEQOP = 347, - NCEQOP = 348, - CHRELOP = 349, - NCRELOP = 350, - SHIFTOP = 351, - MATCHOP = 352, - PERLY_EXCLAMATION_MARK = 353, - PERLY_TILDE = 354, - UMINUS = 355, - REFGEN = 356, - POWOP = 357, - PREINC = 358, - PREDEC = 359, - POSTINC = 360, - POSTDEC = 361, - POSTJOIN = 362, - ARROW = 363, - PERLY_PAREN_CLOSE = 364, - PERLY_PAREN_OPEN = 365 + TRY = 313, + CATCH = 314, + LOOPEX = 315, + DOTDOT = 316, + YADAYADA = 317, + FUNC0 = 318, + FUNC1 = 319, + FUNC = 320, + UNIOP = 321, + LSTOP = 322, + MULOP = 323, + ADDOP = 324, + DOLSHARP = 325, + DO = 326, + HASHBRACK = 327, + NOAMP = 328, + LOCAL = 329, + MY = 330, + REQUIRE = 331, + COLONATTR = 332, + FORMLBRACK = 333, + FORMRBRACK = 334, + SUBLEXSTART = 335, + SUBLEXEND = 336, + PREC_LOW = 337, + OROP = 338, + ANDOP = 339, + NOTOP = 340, + ASSIGNOP = 341, + PERLY_QUESTION_MARK = 342, + PERLY_COLON = 343, + OROR = 344, + DORDOR = 345, + ANDAND = 346, + BITOROP = 347, + BITANDOP = 348, + CHEQOP = 349, + NCEQOP = 350, + CHRELOP = 351, + NCRELOP = 352, + SHIFTOP = 353, + MATCHOP = 354, + PERLY_EXCLAMATION_MARK = 355, + PERLY_TILDE = 356, + UMINUS = 357, + REFGEN = 358, + POWOP = 359, + PREINC = 360, + PREDEC = 361, + POSTINC = 362, + POSTDEC = 363, + POSTJOIN = 364, + ARROW = 365, + PERLY_PAREN_CLOSE = 366, + PERLY_PAREN_OPEN = 367 }; #endif @@ -193,6 +195,7 @@ S_is_opval_token(int type) { #endif /* PERL_IN_TOKE_C */ #endif /* PERL_CORE */ #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED + union YYSTYPE { @@ -202,8 +205,8 @@ union YYSTYPE OP *opval; GV *gvval; - }; + typedef union YYSTYPE YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 # define YYSTYPE_IS_DECLARED 1 @@ -215,6 +218,6 @@ int yyparse (void); /* Generated from: - * 9a5909b0af5f61f96907e330008f3cdc9dadcab1417c5bcb188cb3b9f6593c01 perly.y + * 672539c523be1568df09c599b38a828c80473c60e1fddd63764d66f74e4e7b11 perly.y * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl * ex: set ro: */ -- cgit v1.2.1