X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.h;h=a8c7f042ddbae7cf73040f844c5b64041cc4edfe;hb=4bd8fafa9f9185d83cee6991ca49c6ac9b8782a4;hp=cbcebc5a99bd7eb1248210df739bd635298d0a71;hpb=2051588124b1d9accc9aeb526746bb222cea5170;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perly.h b/perly.h index cbcebc5..a8c7f04 100644 --- a/perly.h +++ b/perly.h @@ -1,28 +1,38 @@ #ifdef PERL_CORE -/* A Bison parser, made by GNU Bison 2.1. */ -/* Skeleton parser for Yacc-like parsing with Bison, - Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +/* A Bison parser, made by GNU Bison 2.4.1. */ - This program is free software; you can redistribute it and/or modify +/* Skeleton interface for Bison's Yacc-like parsers in C + + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006 + Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2, or (at your option) - any later version. - + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. - + You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, - Boston, MA 02110-1301, USA. */ + along with this program. If not, see . */ + +/* As a special exception, you may create a larger work that contains + part or all of the Bison parser skeleton and distribute that work + under terms of your choice, so long as that work isn't itself a + parser generator using the skeleton or a modified version thereof + as a parser skeleton. Alternatively, if you modify or redistribute + the parser skeleton itself, you may (at your option) remove this + special exception, which will cause the skeleton and the resulting + Bison output files to be licensed under the GNU General Public + License without this special exception. + + This special exception was added by the Free Software Foundation in + version 2.2 of Bison. */ -/* As a special exception, when this file is copied by Bison into a - Bison output file, you may use that output file without restriction. - This special exception was added by the Free Software Foundation - in version 1.24 of Bison. */ /* Tokens. */ #ifndef YYTOKENTYPE @@ -53,49 +63,55 @@ ELSIF = 278, CONTINUE = 279, FOR = 280, - LOOPEX = 281, - DOTDOT = 282, - FUNC0 = 283, - FUNC1 = 284, - FUNC = 285, - UNIOP = 286, - LSTOP = 287, - RELOP = 288, - EQOP = 289, - MULOP = 290, - ADDOP = 291, - DOLSHARP = 292, - DO = 293, - HASHBRACK = 294, - NOAMP = 295, - LOCAL = 296, - MY = 297, - MYSUB = 298, - REQUIRE = 299, - COLONATTR = 300, - PREC_LOW = 301, - DOROP = 302, - OROP = 303, - ANDOP = 304, - NOTOP = 305, - ASSIGNOP = 306, - DORDOR = 307, - OROR = 308, - ANDAND = 309, - BITOROP = 310, - BITANDOP = 311, - SHIFTOP = 312, - MATCHOP = 313, - REFGEN = 314, - UMINUS = 315, - POWOP = 316, - POSTDEC = 317, - POSTINC = 318, - PREDEC = 319, - PREINC = 320, - ARROW = 321 + GIVEN = 281, + WHEN = 282, + DEFAULT = 283, + LOOPEX = 284, + DOTDOT = 285, + YADAYADA = 286, + FUNC0 = 287, + FUNC1 = 288, + FUNC = 289, + UNIOP = 290, + LSTOP = 291, + RELOP = 292, + EQOP = 293, + MULOP = 294, + ADDOP = 295, + DOLSHARP = 296, + DO = 297, + HASHBRACK = 298, + NOAMP = 299, + LOCAL = 300, + MY = 301, + MYSUB = 302, + REQUIRE = 303, + COLONATTR = 304, + PREC_LOW = 305, + DOROP = 306, + OROP = 307, + ANDOP = 308, + NOTOP = 309, + ASSIGNOP = 310, + DORDOR = 311, + OROR = 312, + ANDAND = 313, + BITOROP = 314, + BITANDOP = 315, + SHIFTOP = 316, + MATCHOP = 317, + REFGEN = 318, + UMINUS = 319, + POWOP = 320, + POSTDEC = 321, + POSTINC = 322, + PREDEC = 323, + PREINC = 324, + ARROW = 325, + PEG = 326 }; #endif + /* Tokens. */ #define WORD 258 #define METHOD 259 @@ -120,68 +136,87 @@ #define ELSIF 278 #define CONTINUE 279 #define FOR 280 -#define LOOPEX 281 -#define DOTDOT 282 -#define FUNC0 283 -#define FUNC1 284 -#define FUNC 285 -#define UNIOP 286 -#define LSTOP 287 -#define RELOP 288 -#define EQOP 289 -#define MULOP 290 -#define ADDOP 291 -#define DOLSHARP 292 -#define DO 293 -#define HASHBRACK 294 -#define NOAMP 295 -#define LOCAL 296 -#define MY 297 -#define MYSUB 298 -#define REQUIRE 299 -#define COLONATTR 300 -#define PREC_LOW 301 -#define DOROP 302 -#define OROP 303 -#define ANDOP 304 -#define NOTOP 305 -#define ASSIGNOP 306 -#define DORDOR 307 -#define OROR 308 -#define ANDAND 309 -#define BITOROP 310 -#define BITANDOP 311 -#define SHIFTOP 312 -#define MATCHOP 313 -#define REFGEN 314 -#define UMINUS 315 -#define POWOP 316 -#define POSTDEC 317 -#define POSTINC 318 -#define PREDEC 319 -#define PREINC 320 -#define ARROW 321 - +#define GIVEN 281 +#define WHEN 282 +#define DEFAULT 283 +#define LOOPEX 284 +#define DOTDOT 285 +#define YADAYADA 286 +#define FUNC0 287 +#define FUNC1 288 +#define FUNC 289 +#define UNIOP 290 +#define LSTOP 291 +#define RELOP 292 +#define EQOP 293 +#define MULOP 294 +#define ADDOP 295 +#define DOLSHARP 296 +#define DO 297 +#define HASHBRACK 298 +#define NOAMP 299 +#define LOCAL 300 +#define MY 301 +#define MYSUB 302 +#define REQUIRE 303 +#define COLONATTR 304 +#define PREC_LOW 305 +#define DOROP 306 +#define OROP 307 +#define ANDOP 308 +#define NOTOP 309 +#define ASSIGNOP 310 +#define DORDOR 311 +#define OROR 312 +#define ANDAND 313 +#define BITOROP 314 +#define BITANDOP 315 +#define SHIFTOP 316 +#define MATCHOP 317 +#define REFGEN 318 +#define UMINUS 319 +#define POWOP 320 +#define POSTDEC 321 +#define POSTINC 322 +#define PREDEC 323 +#define PREINC 324 +#define ARROW 325 +#define PEG 326 #endif /* PERL_CORE */ -#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) -#line 30 "perly.y" -typedef union YYSTYPE { - I32 ival; +#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED +typedef union YYSTYPE +{ + +/* Line 1676 of yacc.c */ + + I32 ival; /* __DEFAULT__ (marker for regen_perly.pl; + must always be 1st union member) */ char *pval; OP *opval; GV *gvval; +#ifdef PERL_IN_MADLY_C + TOKEN* p_tkval; + TOKEN* i_tkval; +#else + char *p_tkval; + I32 i_tkval; +#endif +#ifdef PERL_MAD + TOKEN* tkval; +#endif + + + +/* Line 1676 of yacc.c */ } YYSTYPE; -/* Line 1447 of yacc.c. */ -#line 177 "perly.h" +# define YYSTYPE_IS_TRIVIAL 1 # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 -# define YYSTYPE_IS_TRIVIAL 1 #endif -