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  30000
   8
   9 #ifdef PERL_CORE
  10 /* A Bison parser, made by GNU Bison 3.0.4.  */
  11
  12 /* Bison interface for Yacc-like parsers in C
  13
  14    Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
  15
  16    This program is free software: you can redistribute it and/or modify
  17    it under the terms of the GNU General Public License as published by
  18    the Free Software Foundation, either version 3 of the License, or
  19    (at your option) any later version.
  20
  21    This program is distributed in the hope that it will be useful,
  22    but WITHOUT ANY WARRANTY; without even the implied warranty of
  23    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24    GNU General Public License for more details.
  25
  26    You should have received a copy of the GNU General Public License
  27    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  28
  29 /* As a special exception, you may create a larger work that contains
  30    part or all of the Bison parser skeleton and distribute that work
  31    under terms of your choice, so long as that work isn't itself a
  32    parser generator using the skeleton or a modified version thereof
  33    as a parser skeleton.  Alternatively, if you modify or redistribute
  34    the parser skeleton itself, you may (at your option) remove this
  35    special exception, which will cause the skeleton and the resulting
  36    Bison output files to be licensed under the GNU General Public
  37    License without this special exception.
  38
  39    This special exception was added by the Free Software Foundation in
  40    version 2.2 of Bison.  */
  41
  42 /* Debug traces.  */
  43 #ifndef YYDEBUG
  44 # define YYDEBUG 0
  45 #endif
  46 #if YYDEBUG
  47 extern int yydebug;
  48 #endif
  49
  50 /* Token type.  */
  51 #ifndef YYTOKENTYPE
  52 # define YYTOKENTYPE
  53   enum yytokentype
  54   {
  55     GRAMPROG = 258,
  56     GRAMEXPR = 259,
  57     GRAMBLOCK = 260,
  58     GRAMBARESTMT = 261,
  59     GRAMFULLSTMT = 262,
  60     GRAMSTMTSEQ = 263,
  61     BAREWORD = 264,
  62     METHOD = 265,
  63     FUNCMETH = 266,
  64     THING = 267,
  65     PMFUNC = 268,
  66     PRIVATEREF = 269,
  67     QWLIST = 270,
  68     FUNC0OP = 271,
  69     FUNC0SUB = 272,
  70     UNIOPSUB = 273,
  71     LSTOPSUB = 274,
  72     PLUGEXPR = 275,
  73     PLUGSTMT = 276,
  74     LABEL = 277,
  75     FORMAT = 278,
  76     SUB = 279,
  77     SIGSUB = 280,
  78     ANONSUB = 281,
  79     ANON_SIGSUB = 282,
  80     PACKAGE = 283,
  81     USE = 284,
  82     WHILE = 285,
  83     UNTIL = 286,
  84     IF = 287,
  85     UNLESS = 288,
  86     ELSE = 289,
  87     ELSIF = 290,
  88     CONTINUE = 291,
  89     FOR = 292,
  90     GIVEN = 293,
  91     WHEN = 294,
  92     DEFAULT = 295,
  93     LOOPEX = 296,
  94     DOTDOT = 297,
  95     YADAYADA = 298,
  96     FUNC0 = 299,
  97     FUNC1 = 300,
  98     FUNC = 301,
  99     UNIOP = 302,
 100     LSTOP = 303,
 101     RELOP = 304,
 102     EQOP = 305,
 103     MULOP = 306,
 104     ADDOP = 307,
 105     DOLSHARP = 308,
 106     DO = 309,
 107     HASHBRACK = 310,
 108     NOAMP = 311,
 109     LOCAL = 312,
 110     MY = 313,
 111     REQUIRE = 314,
 112     COLONATTR = 315,
 113     FORMLBRACK = 316,
 114     FORMRBRACK = 317,
 115     SUBLEXSTART = 318,
 116     SUBLEXEND = 319,
 117     PREC_LOW = 320,
 118     OROP = 321,
 119     DOROP = 322,
 120     ANDOP = 323,
 121     NOTOP = 324,
 122     ASSIGNOP = 325,
 123     OROR = 326,
 124     DORDOR = 327,
 125     ANDAND = 328,
 126     BITOROP = 329,
 127     BITANDOP = 330,
 128     SHIFTOP = 331,
 129     MATCHOP = 332,
 130     UMINUS = 333,
 131     REFGEN = 334,
 132     POWOP = 335,
 133     PREINC = 336,
 134     PREDEC = 337,
 135     POSTINC = 338,
 136     POSTDEC = 339,
 137     POSTJOIN = 340,
 138     ARROW = 341
 139   };
 140 #endif
 141
 142 /* Value type.  */
 143 #ifdef PERL_IN_TOKE_C
 144 static bool
 145 S_is_opval_token(int type) {
 146     switch (type) {
 147     case BAREWORD:
 148     case FUNC0OP:
 149     case FUNC0SUB:
 150     case FUNCMETH:
 151     case LABEL:
 152     case LSTOPSUB:
 153     case METHOD:
 154     case PLUGEXPR:
 155     case PLUGSTMT:
 156     case PMFUNC:
 157     case PRIVATEREF:
 158     case QWLIST:
 159     case THING:
 160     case UNIOPSUB:
 161         return 1;
 162     }
 163     return 0;
 164 }
 165 #endif /* PERL_IN_TOKE_C */
 166 #endif /* PERL_CORE */
 167 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 168
 169 union YYSTYPE
 170 {
 171
 172     I32 ival; /* __DEFAULT__ (marker for regen_perly.pl;
 173                                 must always be 1st union member) */
 174     char *pval;
 175     OP *opval;
 176     GV *gvval;
 177
 178 };
 179
 180 typedef union YYSTYPE YYSTYPE;
 181 # define YYSTYPE_IS_TRIVIAL 1
 182 # define YYSTYPE_IS_DECLARED 1
 183 #endif
 184
 185
 186
 187 int yyparse (void);
 188
 189
 190 /* Generated from:
 191  * 41d458c12a47d69d8ab1315970582b2055ecea77bfc8a582b557e9b3df1c290a perly.y
 192  * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl
 193  * ex: set ro: */