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     MULOP = 329,
 131     ADDOP = 330,
 132     DOLSHARP = 331,
 133     HASHBRACK = 332,
 134     NOAMP = 333,
 135     COLONATTR = 334,
 136     FORMLBRACK = 335,
 137     FORMRBRACK = 336,
 138     SUBLEXSTART = 337,
 139     SUBLEXEND = 338,
 140     PREC_LOW = 339,
 141     OROP = 340,
 142     ANDOP = 341,
 143     NOTOP = 342,
 144     ASSIGNOP = 343,
 145     PERLY_QUESTION_MARK = 344,
 146     PERLY_COLON = 345,
 147     OROR = 346,
 148     DORDOR = 347,
 149     ANDAND = 348,
 150     BITOROP = 349,
 151     BITANDOP = 350,
 152     CHEQOP = 351,
 153     NCEQOP = 352,
 154     CHRELOP = 353,
 155     NCRELOP = 354,
 156     SHIFTOP = 355,
 157     MATCHOP = 356,
 158     PERLY_EXCLAMATION_MARK = 357,
 159     PERLY_TILDE = 358,
 160     UMINUS = 359,
 161     REFGEN = 360,
 162     POWOP = 361,
 163     PREINC = 362,
 164     PREDEC = 363,
 165     POSTINC = 364,
 166     POSTDEC = 365,
 167     POSTJOIN = 366,
 168     ARROW = 367,
 169     PERLY_PAREN_CLOSE = 368,
 170     PERLY_PAREN_OPEN = 369
 171   };
 172 #endif
 173
 174 /* Value type.  */
 175 #ifdef PERL_IN_TOKE_C
 176 static bool
 177 S_is_opval_token(int type) {
 178     switch (type) {
 179     case BAREWORD:
 180     case FUNC0OP:
 181     case FUNC0SUB:
 182     case LABEL:
 183     case LSTOPSUB:
 184     case METHCALL:
 185     case METHCALL0:
 186     case PLUGEXPR:
 187     case PLUGSTMT:
 188     case PMFUNC:
 189     case PRIVATEREF:
 190     case QWLIST:
 191     case THING:
 192     case UNIOPSUB:
 193         return 1;
 194     }
 195     return 0;
 196 }
 197 #endif /* PERL_IN_TOKE_C */
 198 #endif /* PERL_CORE */
 199 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 200
 201 union YYSTYPE
 202 {
 203
 204     I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
 205                                 must always be 1st union member) */
 206     char *pval;
 207     OP *opval;
 208     GV *gvval;
 209
 210 };
 211
 212 typedef union YYSTYPE YYSTYPE;
 213 # define YYSTYPE_IS_TRIVIAL 1
 214 # define YYSTYPE_IS_DECLARED 1
 215 #endif
 216
 217
 218
 219 int yyparse (void);
 220
 221
 222 /* Generated from:
 223  * 963e49faa7d19d5de631a5b22e01030327621687cee61ec2c63cb7c2602c5e3a perly.y
 224  * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl
 225  * ex: set ro: */