perly.h

   1 /* -*- buffer-read-only: t -*-
   2    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   3    This file is built by regen_perly.pl from perly.y.
   4    Any changes made here will be lost!
   5  */
   6
   7 #define PERL_BISON_VERSION  30003
   8
   9 #ifdef PERL_CORE
  10 /* A Bison parser, made by GNU Bison 3.3.  */
  11
  12 /* Bison interface for Yacc-like parsers in C
  13
  14    Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation,
  15    Inc.
  16
  17    This program is free software: you can redistribute it and/or modify
  18    it under the terms of the GNU General Public License as published by
  19    the Free Software Foundation, either version 3 of the License, or
  20    (at your option) any later version.
  21
  22    This program is distributed in the hope that it will be useful,
  23    but WITHOUT ANY WARRANTY; without even the implied warranty of
  24    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25    GNU General Public License for more details.
  26
  27    You should have received a copy of the GNU General Public License
  28    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  29
  30 /* As a special exception, you may create a larger work that contains
  31    part or all of the Bison parser skeleton and distribute that work
  32    under terms of your choice, so long as that work isn't itself a
  33    parser generator using the skeleton or a modified version thereof
  34    as a parser skeleton.  Alternatively, if you modify or redistribute
  35    the parser skeleton itself, you may (at your option) remove this
  36    special exception, which will cause the skeleton and the resulting
  37    Bison output files to be licensed under the GNU General Public
  38    License without this special exception.
  39
  40    This special exception was added by the Free Software Foundation in
  41    version 2.2 of Bison.  */
  42
  43 /* Undocumented macros, especially those whose name start with YY_,
  44    are private implementation details.  Do not rely on them.  */
  45
  46 /* Debug traces.  */
  47 #ifndef YYDEBUG
  48 # define YYDEBUG 0
  49 #endif
  50 #if YYDEBUG
  51 extern int yydebug;
  52 #endif
  53
  54 /* Token type.  */
  55 #ifndef YYTOKENTYPE
  56 # define YYTOKENTYPE
  57   enum yytokentype
  58   {
  59     GRAMPROG = 258,
  60     GRAMEXPR = 259,
  61     GRAMBLOCK = 260,
  62     GRAMBARESTMT = 261,
  63     GRAMFULLSTMT = 262,
  64     GRAMSTMTSEQ = 263,
  65     GRAMSUBSIGNATURE = 264,
  66     PERLY_AMPERSAND = 265,
  67     PERLY_BRACE_OPEN = 266,
  68     PERLY_BRACE_CLOSE = 267,
  69     PERLY_BRACKET_OPEN = 268,
  70     PERLY_BRACKET_CLOSE = 269,
  71     PERLY_COMMA = 270,
  72     PERLY_DOLLAR = 271,
  73     PERLY_DOT = 272,
  74     PERLY_EQUAL_SIGN = 273,
  75     PERLY_MINUS = 274,
  76     PERLY_PERCENT_SIGN = 275,
  77     PERLY_PLUS = 276,
  78     PERLY_SEMICOLON = 277,
  79     PERLY_SLASH = 278,
  80     PERLY_SNAIL = 279,
  81     PERLY_STAR = 280,
  82     KW_FORMAT = 281,
  83     KW_PACKAGE = 282,
  84     KW_LOCAL = 283,
  85     KW_MY = 284,
  86     KW_IF = 285,
  87     KW_ELSE = 286,
  88     KW_ELSIF = 287,
  89     KW_UNLESS = 288,
  90     KW_FOR = 289,
  91     KW_UNTIL = 290,
  92     KW_WHILE = 291,
  93     KW_CONTINUE = 292,
  94     KW_GIVEN = 293,
  95     KW_WHEN = 294,
  96     KW_DEFAULT = 295,
  97     KW_TRY = 296,
  98     KW_CATCH = 297,
  99     KW_FINALLY = 298,
 100     KW_DEFER = 299,
 101     KW_REQUIRE = 300,
 102     KW_DO = 301,
 103     KW_USE_or_NO = 302,
 104     KW_SUB_named = 303,
 105     KW_SUB_named_sig = 304,
 106     KW_SUB_anon = 305,
 107     KW_SUB_anon_sig = 306,
 108     BAREWORD = 307,
 109     METHCALL0 = 308,
 110     METHCALL = 309,
 111     THING = 310,
 112     PMFUNC = 311,
 113     PRIVATEREF = 312,
 114     QWLIST = 313,
 115     FUNC0OP = 314,
 116     FUNC0SUB = 315,
 117     UNIOPSUB = 316,
 118     LSTOPSUB = 317,
 119     PLUGEXPR = 318,
 120     PLUGSTMT = 319,
 121     LABEL = 320,
 122     LOOPEX = 321,
 123     DOTDOT = 322,
 124     YADAYADA = 323,
 125     FUNC0 = 324,
 126     FUNC1 = 325,
 127     FUNC = 326,
 128     UNIOP = 327,
 129     LSTOP = 328,
 130     POWOP = 329,
 131     MULOP = 330,
 132     ADDOP = 331,
 133     DOLSHARP = 332,
 134     HASHBRACK = 333,
 135     NOAMP = 334,
 136     COLONATTR = 335,
 137     FORMLBRACK = 336,
 138     FORMRBRACK = 337,
 139     SUBLEXSTART = 338,
 140     SUBLEXEND = 339,
 141     PLUGLOWOP = 340,
 142     PLUGRELOP = 341,
 143     PLUGADDOP = 342,
 144     PLUGMULOP = 343,
 145     PLUGPOWOP = 344,
 146     PLUGHIGHOP = 345,
 147     PREC_LOW = 346,
 148     OROP = 347,
 149     ANDOP = 348,
 150     NOTOP = 349,
 151     ASSIGNOP = 350,
 152     PERLY_QUESTION_MARK = 351,
 153     PERLY_COLON = 352,
 154     OROR = 353,
 155     DORDOR = 354,
 156     ANDAND = 355,
 157     BITOROP = 356,
 158     BITANDOP = 357,
 159     CHEQOP = 358,
 160     NCEQOP = 359,
 161     CHRELOP = 360,
 162     NCRELOP = 361,
 163     SHIFTOP = 362,
 164     MATCHOP = 363,
 165     PERLY_EXCLAMATION_MARK = 364,
 166     PERLY_TILDE = 365,
 167     UMINUS = 366,
 168     REFGEN = 367,
 169     PREINC = 368,
 170     PREDEC = 369,
 171     POSTINC = 370,
 172     POSTDEC = 371,
 173     POSTJOIN = 372,
 174     ARROW = 373,
 175     PERLY_PAREN_CLOSE = 374,
 176     PERLY_PAREN_OPEN = 375
 177   };
 178 #endif
 179
 180 /* Value type.  */
 181 #ifdef PERL_IN_TOKE_C
 182 static bool
 183 S_is_opval_token(int type) {
 184     switch (type) {
 185     case BAREWORD:
 186     case FUNC0OP:
 187     case FUNC0SUB:
 188     case LABEL:
 189     case LSTOPSUB:
 190     case METHCALL:
 191     case METHCALL0:
 192     case PLUGEXPR:
 193     case PLUGSTMT:
 194     case PMFUNC:
 195     case PRIVATEREF:
 196     case QWLIST:
 197     case THING:
 198     case UNIOPSUB:
 199         return 1;
 200     }
 201     return 0;
 202 }
 203 #endif /* PERL_IN_TOKE_C */
 204 #endif /* PERL_CORE */
 205 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 206
 207 union YYSTYPE
 208 {
 209
 210     I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
 211                                 must always be 1st union member) */
 212     void *pval;
 213     OP *opval;
 214     GV *gvval;
 215
 216 };
 217
 218 typedef union YYSTYPE YYSTYPE;
 219 # define YYSTYPE_IS_TRIVIAL 1
 220 # define YYSTYPE_IS_DECLARED 1
 221 #endif
 222
 223
 224
 225 int yyparse (void);
 226
 227
 228 /* Generated from:
 229  * d159cbbb0bfd3916708be07894588433a9434f9ade8adce98532533a9ea86747 perly.y
 230  * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl
 231  * ex: set ro: */