This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[README.cygwin] Removing old expected test failures
[perl5.git] / perly.h
diff --git a/perly.h b/perly.h
index 012ecfa..15dfa0c 100644 (file)
--- a/perly.h
+++ b/perly.h
@@ -1,59 +1,70 @@
+#ifdef PERL_CORE
 #define WORD 257
 #define METHOD 258
-#define THING 259
-#define PMFUNC 260
-#define PRIVATEREF 261
-#define LABEL 262
-#define FORMAT 263
-#define SUB 264
-#define PACKAGE 265
-#define HINT 266
-#define WHILE 267
-#define UNTIL 268
-#define IF 269
-#define UNLESS 270
-#define ELSE 271
-#define ELSIF 272
-#define CONTINUE 273
-#define FOR 274
-#define LOOPEX 275
-#define DOTDOT 276
-#define FUNC0 277
-#define FUNC1 278
-#define FUNC 279
-#define RELOP 280
-#define EQOP 281
-#define MULOP 282
-#define ADDOP 283
-#define DOLSHARP 284
-#define DO 285
-#define LOCAL 286
-#define DELETE 287
-#define HASHBRACK 288
-#define NOAMP 289
-#define OROP 290
-#define ANDOP 291
-#define LSTOP 292
-#define OROR 293
-#define ANDAND 294
-#define BITOROP 295
-#define BITANDOP 296
-#define UNIOP 297
-#define SHIFTOP 298
-#define MATCHOP 299
-#define UMINUS 300
-#define REFGEN 301
-#define POWOP 302
-#define PREINC 303
-#define PREDEC 304
-#define POSTINC 305
-#define POSTDEC 306
-#define ARROW 307
+#define FUNCMETH 259
+#define THING 260
+#define PMFUNC 261
+#define PRIVATEREF 262
+#define FUNC0SUB 263
+#define UNIOPSUB 264
+#define LSTOPSUB 265
+#define LABEL 266
+#define FORMAT 267
+#define SUB 268
+#define ANONSUB 269
+#define PACKAGE 270
+#define USE 271
+#define WHILE 272
+#define UNTIL 273
+#define IF 274
+#define UNLESS 275
+#define ELSE 276
+#define ELSIF 277
+#define CONTINUE 278
+#define FOR 279
+#define LOOPEX 280
+#define DOTDOT 281
+#define FUNC0 282
+#define FUNC1 283
+#define FUNC 284
+#define UNIOP 285
+#define LSTOP 286
+#define RELOP 287
+#define EQOP 288
+#define MULOP 289
+#define ADDOP 290
+#define DOLSHARP 291
+#define DO 292
+#define HASHBRACK 293
+#define NOAMP 294
+#define LOCAL 295
+#define MY 296
+#define MYSUB 297
+#define COLONATTR 298
+#define PREC_LOW 299
+#define OROP 300
+#define ANDOP 301
+#define NOTOP 302
+#define ASSIGNOP 303
+#define OROR 304
+#define ANDAND 305
+#define BITOROP 306
+#define BITANDOP 307
+#define SHIFTOP 308
+#define MATCHOP 309
+#define UMINUS 310
+#define REFGEN 311
+#define POWOP 312
+#define PREINC 313
+#define PREDEC 314
+#define POSTINC 315
+#define POSTDEC 316
+#define ARROW 317
+#endif /* PERL_CORE */
+
 typedef union {
     I32        ival;
     char *pval;
     OP *opval;
     GV *gvval;
 } YYSTYPE;
-extern YYSTYPE yylval;
-extern YYSTYPE yylval;