summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c1748
1 files changed, 1748 insertions, 0 deletions
diff --git a/perly.c b/perly.c
new file mode 100644
index 0000000000..abbd0a9ed6
--- /dev/null
+++ b/perly.c
@@ -0,0 +1,1748 @@
+extern char *malloc(), *realloc();
+
+# line 39 "perly.y"
+#include "EXTERN.h"
+#include "perl.h"
+
+/*SUPPRESS 530*/
+/*SUPPRESS 593*/
+/*SUPPRESS 595*/
+
+
+# line 50 "perly.y"
+typedef union {
+ I32 ival;
+ char *pval;
+ OP *opval;
+ GV *gvval;
+} YYSTYPE;
+# define WORD 257
+# define METHOD 258
+# define THING 259
+# define PMFUNC 260
+# define LABEL 261
+# define FORMAT 262
+# define SUB 263
+# define PACKAGE 264
+# define WHILE 265
+# define UNTIL 266
+# define IF 267
+# define UNLESS 268
+# define ELSE 269
+# define ELSIF 270
+# define CONTINUE 271
+# define FOR 272
+# define LOOPEX 273
+# define DOTDOT 274
+# define FUNC0 275
+# define FUNC1 276
+# define FUNC 277
+# define RELOP 278
+# define EQOP 279
+# define MULOP 280
+# define ADDOP 281
+# define DOLSHARP 282
+# define DO 283
+# define LOCAL 284
+# define DELETE 285
+# define HASHBRACK 286
+# define LSTOP 287
+# define OROR 288
+# define ANDAND 289
+# define BITOROP 290
+# define BITANDOP 291
+# define UNIOP 292
+# define SHIFTOP 293
+# define MATCHOP 294
+# define ARROW 295
+# define UMINUS 296
+# define REFGEN 297
+# define POWOP 298
+# define PREINC 299
+# define PREDEC 300
+# define POSTINC 301
+# define POSTDEC 302
+#define yyclearin yychar = -1
+#define yyerrok yyerrflag = 0
+extern int yychar;
+extern int yyerrflag;
+#ifndef YYMAXDEPTH
+#define YYMAXDEPTH 150
+#endif
+YYSTYPE yylval, yyval;
+# define YYERRCODE 256
+
+# line 569 "perly.y"
+ /* PROGRAM */
+int yyexca[] ={
+-1, 1,
+ 0, -1,
+ -2, 0,
+-1, 3,
+ 0, 2,
+ -2, 39,
+-1, 21,
+ 295, 145,
+ -2, 25,
+-1, 40,
+ 41, 97,
+ 265, 97,
+ 266, 97,
+ 267, 97,
+ 268, 97,
+ 274, 97,
+ 278, 97,
+ 279, 97,
+ 280, 97,
+ 281, 97,
+ 44, 97,
+ 61, 97,
+ 63, 97,
+ 58, 97,
+ 288, 97,
+ 289, 97,
+ 290, 97,
+ 291, 97,
+ 293, 97,
+ 294, 97,
+ 295, 97,
+ 298, 97,
+ 301, 97,
+ 302, 97,
+ 59, 97,
+ 93, 97,
+ -2, 144,
+-1, 54,
+ 41, 133,
+ 265, 133,
+ 266, 133,
+ 267, 133,
+ 268, 133,
+ 274, 133,
+ 278, 133,
+ 279, 133,
+ 280, 133,
+ 281, 133,
+ 44, 133,
+ 61, 133,
+ 63, 133,
+ 58, 133,
+ 288, 133,
+ 289, 133,
+ 290, 133,
+ 291, 133,
+ 293, 133,
+ 294, 133,
+ 295, 133,
+ 298, 133,
+ 301, 133,
+ 302, 133,
+ 59, 133,
+ 93, 133,
+ -2, 143,
+-1, 76,
+ 59, 35,
+ -2, 0,
+-1, 112,
+ 301, 0,
+ 302, 0,
+ -2, 88,
+-1, 113,
+ 301, 0,
+ 302, 0,
+ -2, 89,
+-1, 192,
+ 278, 0,
+ -2, 71,
+-1, 193,
+ 279, 0,
+ -2, 72,
+-1, 194,
+ 274, 0,
+ -2, 75,
+-1, 310,
+ 41, 35,
+ -2, 0,
+ };
+# define YYNPROD 152
+# define YYLAST 2258
+int yyact[]={
+
+ 107, 162, 104, 105, 90, 102, 229, 103, 148, 90,
+ 21, 239, 67, 104, 105, 150, 228, 91, 25, 72,
+ 74, 240, 241, 80, 82, 78, 91, 92, 56, 31,
+ 26, 102, 56, 58, 61, 90, 37, 132, 57, 30,
+ 102, 29, 69, 68, 90, 244, 115, 117, 119, 129,
+ 98, 133, 91, 92, 324, 16, 155, 77, 91, 92,
+ 59, 14, 11, 12, 13, 93, 102, 152, 87, 153,
+ 90, 93, 102, 157, 317, 159, 90, 315, 198, 164,
+ 156, 166, 158, 168, 298, 161, 297, 38, 165, 296,
+ 167, 262, 169, 170, 171, 172, 202, 210, 26, 200,
+ 268, 215, 123, 220, 31, 81, 87, 56, 58, 61,
+ 199, 37, 121, 57, 30, 26, 29, 87, 258, 26,
+ 79, 203, 32, 73, 3, 310, 98, 99, 91, 92,
+ 211, 212, 213, 214, 124, 59, 218, 98, 99, 91,
+ 92, 93, 102, 71, 122, 223, 90, 97, 96, 95,
+ 94, 237, 93, 102, 121, 316, 154, 90, 87, 70,
+ 87, 87, 38, 87, 66, 87, 295, 31, 87, 235,
+ 56, 58, 61, 318, 37, 299, 57, 30, 293, 29,
+ 243, 14, 11, 12, 13, 327, 122, 325, 26, 98,
+ 99, 91, 92, 87, 26, 204, 87, 32, 59, 320,
+ 96, 95, 94, 26, 93, 102, 26, 255, 256, 90,
+ 292, 266, 259, 174, 265, 232, 87, 234, 314, 304,
+ 98, 99, 91, 92, 267, 38, 26, 323, 271, 273,
+ 87, 264, 281, 94, 282, 93, 102, 284, 278, 286,
+ 90, 287, 263, 289, 206, 197, 156, 56, 202, 139,
+ 207, 200, 24, 54, 65, 46, 53, 26, 231, 221,
+ 32, 18, 19, 22, 23, 209, 56, 294, 20, 49,
+ 126, 51, 52, 63, 288, 280, 254, 300, 60, 48,
+ 36, 45, 39, 62, 308, 101, 219, 160, 50, 85,
+ 86, 83, 84, 33, 285, 34, 35, 312, 311, 274,
+ 242, 313, 87, 87, 238, 233, 31, 87, 87, 56,
+ 58, 61, 322, 37, 272, 57, 30, 149, 29, 25,
+ 85, 86, 83, 84, 326, 201, 328, 24, 54, 65,
+ 46, 53, 56, 137, 136, 135, 76, 59, 329, 306,
+ 307, 127, 309, 8, 49, 7, 51, 52, 63, 163,
+ 2, 9, 55, 60, 48, 36, 45, 39, 62, 17,
+ 47, 41, 44, 50, 38, 42, 321, 43, 33, 31,
+ 34, 35, 56, 58, 61, 15, 37, 270, 57, 30,
+ 10, 29, 5, 208, 205, 88, 6, 4, 147, 1,
+ 0, 54, 65, 46, 53, 0, 26, 0, 0, 32,
+ 59, 0, 0, 0, 0, 0, 0, 49, 0, 51,
+ 52, 63, 0, 0, 0, 28, 60, 48, 36, 45,
+ 39, 62, 0, 0, 0, 0, 50, 38, 0, 150,
+ 0, 33, 31, 34, 35, 56, 58, 61, 0, 37,
+ 0, 57, 30, 0, 29, 106, 108, 109, 110, 111,
+ 112, 113, 98, 99, 91, 92, 0, 0, 261, 26,
+ 0, 0, 32, 59, 95, 94, 0, 93, 102, 0,
+ 0, 0, 90, 0, 0, 0, 31, 0, 0, 56,
+ 58, 61, 0, 37, 0, 57, 30, 236, 29, 0,
+ 38, 0, 0, 0, 0, 0, 100, 0, 0, 0,
+ 98, 99, 91, 92, 0, 0, 0, 59, 0, 0,
+ 97, 96, 95, 94, 0, 93, 102, 0, 0, 0,
+ 90, 275, 26, 0, 276, 32, 0, 0, 0, 0,
+ 54, 65, 46, 53, 38, 225, 260, 0, 227, 0,
+ 230, 89, 0, 101, 269, 0, 49, 0, 51, 52,
+ 63, 0, 0, 0, 0, 60, 48, 36, 45, 39,
+ 62, 283, 0, 0, 0, 50, 26, 0, 0, 32,
+ 33, 31, 34, 35, 56, 58, 61, 0, 37, 257,
+ 57, 30, 0, 29, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 54, 65, 46, 53, 301, 0, 302,
+ 0, 0, 59, 0, 0, 0, 0, 0, 0, 49,
+ 0, 51, 52, 63, 0, 277, 0, 279, 60, 48,
+ 36, 45, 39, 62, 319, 0, 0, 0, 50, 38,
+ 0, 0, 0, 33, 0, 34, 35, 0, 0, 0,
+ 0, 0, 0, 291, 89, 0, 101, 0, 0, 0,
+ 0, 64, 0, 0, 0, 0, 54, 65, 46, 53,
+ 0, 26, 0, 0, 32, 0, 0, 0, 0, 305,
+ 0, 0, 49, 0, 51, 52, 63, 0, 0, 0,
+ 0, 60, 48, 36, 45, 39, 62, 89, 0, 101,
+ 0, 50, 0, 0, 0, 0, 33, 0, 34, 35,
+ 54, 65, 46, 53, 0, 0, 0, 0, 138, 141,
+ 142, 143, 144, 145, 146, 0, 49, 151, 51, 52,
+ 63, 0, 0, 0, 0, 60, 48, 36, 45, 39,
+ 62, 0, 0, 0, 0, 50, 0, 0, 0, 0,
+ 33, 31, 34, 35, 56, 58, 61, 0, 37, 222,
+ 57, 30, 0, 29, 100, 0, 0, 0, 98, 99,
+ 91, 92, 0, 0, 0, 0, 0, 0, 97, 96,
+ 95, 94, 59, 93, 102, 0, 0, 0, 90, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 54, 65, 46, 53, 38,
+ 0, 226, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 49, 0, 51, 52, 63, 0, 0, 0, 0,
+ 60, 48, 36, 45, 39, 62, 0, 0, 0, 0,
+ 50, 26, 0, 0, 32, 33, 31, 34, 35, 56,
+ 58, 61, 0, 37, 217, 57, 30, 0, 29, 0,
+ 0, 0, 0, 0, 0, 0, 0, 100, 0, 0,
+ 0, 98, 99, 91, 92, 0, 0, 59, 0, 0,
+ 0, 97, 96, 95, 94, 0, 93, 102, 0, 0,
+ 31, 90, 0, 56, 58, 61, 0, 37, 0, 57,
+ 30, 0, 29, 0, 38, 0, 0, 0, 0, 0,
+ 100, 0, 0, 0, 98, 99, 91, 92, 190, 0,
+ 0, 59, 0, 0, 97, 96, 95, 94, 0, 93,
+ 102, 0, 0, 0, 90, 0, 26, 0, 0, 32,
+ 31, 0, 0, 56, 58, 61, 0, 37, 38, 57,
+ 30, 0, 29, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 188, 0,
+ 0, 59, 0, 0, 0, 54, 65, 46, 53, 0,
+ 26, 0, 0, 32, 0, 0, 0, 0, 0, 0,
+ 0, 49, 0, 51, 52, 63, 0, 0, 38, 0,
+ 60, 48, 36, 45, 39, 62, 0, 0, 0, 0,
+ 50, 0, 0, 0, 0, 33, 31, 34, 35, 56,
+ 58, 61, 0, 37, 0, 57, 30, 0, 29, 0,
+ 26, 0, 0, 32, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 186, 0, 0, 59, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 54, 65, 46, 53, 38, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 49, 0, 51, 52,
+ 63, 0, 0, 0, 0, 60, 48, 36, 45, 39,
+ 62, 0, 0, 0, 0, 50, 26, 0, 0, 32,
+ 33, 0, 34, 35, 54, 65, 46, 53, 0, 31,
+ 0, 0, 56, 58, 61, 0, 37, 0, 57, 30,
+ 49, 29, 51, 52, 63, 0, 0, 0, 0, 60,
+ 48, 36, 45, 39, 62, 0, 0, 184, 0, 50,
+ 59, 0, 0, 0, 33, 0, 34, 35, 0, 0,
+ 0, 0, 0, 0, 54, 65, 46, 53, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 38, 0, 0,
+ 49, 0, 51, 52, 63, 0, 0, 0, 0, 60,
+ 48, 36, 45, 39, 62, 0, 0, 0, 0, 50,
+ 0, 0, 0, 0, 33, 0, 34, 35, 0, 26,
+ 0, 0, 32, 0, 0, 0, 31, 0, 0, 56,
+ 58, 61, 0, 37, 0, 57, 30, 0, 29, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 54, 65, 46, 53, 182, 0, 0, 59, 0, 0,
+ 0, 0, 0, 0, 0, 0, 49, 0, 51, 52,
+ 63, 0, 0, 0, 40, 60, 48, 36, 45, 39,
+ 62, 0, 0, 0, 38, 50, 0, 0, 0, 0,
+ 33, 0, 34, 35, 31, 75, 0, 56, 58, 61,
+ 0, 37, 0, 57, 30, 0, 29, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 26, 0, 0, 32,
+ 125, 0, 180, 131, 0, 59, 0, 0, 0, 0,
+ 0, 140, 140, 140, 140, 140, 140, 0, 0, 31,
+ 140, 0, 56, 58, 61, 0, 37, 0, 57, 30,
+ 0, 29, 38, 54, 65, 46, 53, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 178, 0, 49,
+ 59, 51, 52, 63, 0, 0, 0, 0, 60, 48,
+ 36, 45, 39, 62, 26, 0, 0, 32, 50, 0,
+ 0, 0, 0, 33, 0, 34, 35, 38, 0, 0,
+ 0, 216, 0, 0, 0, 31, 0, 0, 56, 58,
+ 61, 0, 37, 0, 57, 30, 0, 29, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 26,
+ 0, 0, 32, 176, 0, 0, 59, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 54, 65, 46, 53, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 38, 0, 0, 49, 0, 51, 52,
+ 63, 0, 0, 0, 0, 60, 48, 36, 45, 39,
+ 62, 0, 0, 0, 0, 50, 253, 0, 0, 89,
+ 33, 101, 34, 35, 0, 26, 0, 0, 32, 0,
+ 0, 0, 0, 0, 31, 0, 0, 56, 58, 61,
+ 0, 37, 0, 57, 30, 0, 29, 0, 54, 65,
+ 46, 53, 0, 0, 0, 0, 0, 0, 0, 0,
+ 120, 0, 0, 0, 49, 59, 51, 52, 63, 0,
+ 0, 0, 0, 60, 48, 36, 45, 39, 62, 0,
+ 0, 0, 0, 50, 0, 0, 0, 0, 33, 0,
+ 34, 35, 38, 54, 65, 46, 53, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 49,
+ 0, 51, 52, 63, 0, 0, 0, 0, 60, 48,
+ 36, 45, 39, 62, 26, 0, 0, 32, 50, 0,
+ 0, 0, 0, 33, 0, 34, 35, 31, 0, 0,
+ 56, 58, 61, 0, 37, 0, 57, 30, 0, 29,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 54,
+ 65, 46, 53, 0, 0, 0, 0, 0, 59, 0,
+ 0, 0, 0, 0, 0, 49, 0, 51, 52, 63,
+ 0, 0, 0, 0, 60, 48, 36, 45, 39, 62,
+ 0, 0, 0, 0, 50, 38, 0, 118, 0, 33,
+ 0, 34, 35, 0, 31, 0, 0, 56, 58, 61,
+ 0, 37, 116, 57, 30, 0, 29, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 26, 0, 0,
+ 32, 0, 100, 0, 0, 59, 98, 99, 91, 92,
+ 0, 0, 0, 0, 0, 0, 97, 96, 95, 94,
+ 0, 93, 102, 0, 0, 0, 90, 0, 54, 65,
+ 46, 53, 38, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 49, 0, 51, 52, 63, 0,
+ 0, 0, 0, 60, 48, 36, 45, 39, 62, 0,
+ 0, 0, 0, 50, 26, 0, 0, 32, 33, 0,
+ 34, 35, 31, 0, 0, 56, 58, 61, 0, 37,
+ 0, 57, 30, 0, 29, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 59, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 31, 0, 0,
+ 56, 58, 61, 0, 37, 0, 57, 30, 0, 29,
+ 38, 54, 65, 46, 53, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 49, 59, 51,
+ 52, 63, 0, 0, 0, 0, 60, 48, 36, 45,
+ 39, 62, 26, 0, 0, 32, 50, 0, 0, 0,
+ 0, 33, 0, 34, 35, 38, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 54, 65,
+ 46, 53, 0, 0, 0, 0, 0, 26, 0, 0,
+ 32, 0, 0, 0, 49, 0, 51, 52, 63, 0,
+ 0, 0, 0, 60, 48, 36, 45, 39, 62, 0,
+ 0, 0, 0, 50, 0, 0, 0, 0, 33, 0,
+ 34, 35, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 54, 65, 46, 53,
+ 27, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 49, 0, 51, 52, 63, 0, 0, 0,
+ 0, 60, 48, 36, 45, 39, 62, 0, 0, 0,
+ 0, 50, 0, 0, 0, 0, 33, 114, 34, 35,
+ 0, 130, 65, 46, 53, 0, 0, 0, 0, 128,
+ 0, 134, 0, 0, 0, 0, 0, 49, 0, 51,
+ 52, 63, 0, 0, 0, 0, 60, 48, 36, 45,
+ 39, 62, 0, 0, 0, 0, 50, 0, 0, 0,
+ 0, 33, 0, 34, 35, 0, 0, 0, 173, 0,
+ 175, 177, 179, 181, 183, 185, 187, 189, 191, 192,
+ 193, 194, 195, 196, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 224, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 245, 0, 246,
+ 0, 247, 0, 248, 0, 249, 0, 250, 0, 251,
+ 0, 252, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 173, 0, 0, 0, 173, 0, 0, 173, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 290, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 303 };
+int yypact[]={
+
+ -1000, -1000, -1000, -200, -1000, -1000, -1000, -1000, -1000, -4,
+ -1000, -93, -214, -215, -1000, -1000, -1000, 100, 103, 83,
+ 296, -246, 80, 65, -1000, 24, -1000, 626, -288, 1719,
+ 1719, 1719, 1719, 1719, 1719, 1719, 1719, 1621, 1554, 1451,
+ 21, -1000, -1000, 11, -1000, 230, -1000, 301, 1764, -220,
+ 1719, 295, 294, 293, -1000, -1000, -8, -8, -8, -8,
+ -8, -8, 1719, 277, -280, -8, -25, -1000, -25, 97,
+ -1000, 1719, -25, 1719, -25, 247, 71, -1000, -25, 1719,
+ -25, 1719, -25, 1719, 1719, 1719, 1719, 1719, -1000, 1719,
+ 1352, 1286, 1241, 1173, 1076, 973, 897, 847, 1719, 1719,
+ 1719, 1719, 1719, -13, -1000, -1000, -299, -1000, -299, -299,
+ -299, -299, -1000, -1000, -222, 207, 30, 151, -1000, 206,
+ -28, 1719, 1719, 1719, 1719, -22, 211, 803, -222, -1000,
+ 246, 63, -1000, -1000, -222, 218, 708, 1719, -1000, -1000,
+ -1000, -1000, -1000, -1000, -1000, -1000, 134, -1000, 124, 1719,
+ -271, 1719, -1000, -1000, -1000, 217, 124, -246, 264, -246,
+ 1719, 55, 92, -1000, -1000, 263, -248, 259, -248, 124,
+ 124, 124, 124, 626, -80, 626, 1719, -294, 1719, -289,
+ 1719, -263, 1719, -254, 1719, -152, 1719, -58, 1719, 174,
+ 1719, -89, -222, -228, -141, 1408, -294, 236, 1719, 1719,
+ 538, 27, -1000, 1719, 443, -1000, -1000, 399, -1000, -34,
+ -1000, 149, 172, 121, 152, 1719, -23, -1000, 207, 336,
+ 273, -1000, -1000, 258, 480, -1000, 134, 197, 1719, 235,
+ -1000, -25, -1000, -25, -1000, 207, -25, 1719, -25, -1000,
+ -25, 234, -25, -1000, -1000, 626, 626, 626, 626, 626,
+ 626, 626, 626, 1719, 1719, 117, 119, -1000, 1719, 73,
+ -1000, -36, -1000, -1000, -39, -1000, -41, 116, 1719, -1000,
+ -1000, 207, -1000, 207, -1000, -1000, 1719, 178, -1000, -1000,
+ 1719, -246, -246, -25, -246, 66, -248, -1000, 1719, -248,
+ 222, 177, -1000, -48, 62, -1000, -1000, -1000, -1000, -51,
+ 114, -1000, -1000, 583, -1000, 158, -1000, -1000, -246, -1000,
+ 71, -1000, 186, -1000, -1000, -1000, -1000, -1000, -71, -1000,
+ -1000, -1000, 146, -25, 144, -25, -248, -1000, -1000, -1000 };
+int yypgo[]={
+
+ 0, 389, 387, 386, 385, 325, 384, 383, 0, 124,
+ 382, 380, 375, 1, 11, 8, 1980, 415, 1254, 367,
+ 365, 362, 361, 360, 349, 388, 651, 56, 352, 351,
+ 57, 350, 345, 343 };
+int yyr1[]={
+
+ 0, 31, 1, 8, 4, 9, 9, 9, 10, 10,
+ 10, 10, 24, 24, 24, 24, 24, 24, 14, 14,
+ 14, 12, 12, 12, 12, 30, 30, 11, 11, 11,
+ 11, 11, 11, 11, 11, 13, 13, 27, 27, 29,
+ 29, 2, 2, 2, 3, 3, 32, 33, 15, 15,
+ 28, 28, 28, 28, 28, 28, 28, 28, 16, 16,
+ 16, 16, 16, 16, 16, 16, 16, 16, 16, 16,
+ 16, 16, 16, 16, 16, 16, 16, 16, 16, 16,
+ 16, 17, 17, 17, 17, 17, 17, 17, 17, 17,
+ 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,
+ 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,
+ 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,
+ 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,
+ 17, 17, 17, 17, 17, 25, 25, 23, 18, 19,
+ 20, 21, 22, 26, 26, 26, 5, 5, 6, 6,
+ 7, 7 };
+int yyr2[]={
+
+ 0, 1, 5, 9, 1, 1, 5, 5, 5, 2,
+ 5, 7, 3, 3, 7, 7, 7, 7, 1, 5,
+ 13, 13, 13, 9, 9, 1, 5, 15, 15, 11,
+ 11, 17, 15, 21, 7, 1, 2, 1, 2, 1,
+ 2, 3, 3, 3, 7, 5, 7, 7, 7, 2,
+ 7, 11, 9, 13, 13, 7, 5, 9, 7, 9,
+ 9, 9, 9, 9, 9, 9, 9, 7, 7, 7,
+ 7, 7, 7, 7, 7, 7, 7, 7, 11, 7,
+ 3, 5, 5, 5, 5, 5, 5, 5, 5, 5,
+ 5, 7, 5, 7, 5, 7, 7, 3, 3, 9,
+ 11, 3, 3, 3, 11, 13, 13, 11, 9, 11,
+ 13, 17, 3, 3, 7, 9, 5, 5, 9, 11,
+ 9, 11, 3, 5, 3, 5, 5, 3, 7, 7,
+ 9, 9, 13, 2, 2, 1, 3, 5, 5, 5,
+ 5, 5, 5, 3, 3, 3, 5, 3, 5, 3,
+ 7, 5 };
+int yychk[]={
+
+ -1000, -1, -31, -9, -2, -10, -3, -32, -33, -29,
+ -11, 262, 263, 264, 261, -12, 59, -24, 265, 266,
+ 272, -8, 267, 268, 256, -15, 123, -16, -17, 45,
+ 43, 33, 126, 297, 299, 300, 284, 40, 91, 286,
+ -18, -22, -20, -19, -21, 285, 259, -23, 283, 273,
+ 292, 275, 276, 260, 257, -28, 36, 42, 37, 64,
+ 282, 38, 287, 277, -26, 258, 257, -8, 257, 257,
+ 59, 40, -8, 40, -8, -18, 40, -30, 271, 40,
+ -8, 40, -8, 267, 268, 265, 266, 44, -4, 61,
+ 298, 280, 281, 293, 291, 290, 289, 288, 278, 279,
+ 274, 63, 294, 295, 301, 302, -17, -8, -17, -17,
+ -17, -17, -17, -17, -16, -15, 41, -15, 93, -15,
+ 59, 91, 123, 91, 123, -18, 40, 40, -16, -8,
+ 257, -18, 257, -8, -16, 40, 40, 40, -26, 257,
+ -18, -26, -26, -26, -26, -26, -26, -25, -15, 40,
+ 295, -26, -8, -8, 59, -27, -15, -8, -15, -8,
+ 40, -15, -13, -24, -8, -15, -8, -15, -8, -15,
+ -15, -15, -15, -16, -9, -16, 61, -16, 61, -16,
+ 61, -16, 61, -16, 61, -16, 61, -16, 61, -16,
+ 61, -16, -16, -16, -16, -16, -16, 258, 91, 123,
+ 44, -5, 41, 91, 44, -6, 93, 44, -7, 59,
+ 125, -15, -15, -15, -15, 123, -18, 41, -15, 40,
+ 40, 41, 41, -15, -16, -25, -26, -25, 287, 277,
+ -25, 41, -30, 41, -30, -15, -5, 59, 41, -14,
+ 269, 270, 41, -14, 125, -16, -16, -16, -16, -16,
+ -16, -16, -16, 58, 40, -15, -15, 41, 91, -15,
+ 93, 59, 125, 93, 59, 93, 59, -15, 123, -5,
+ 41, -15, 41, -15, 41, 41, 44, -25, 41, -25,
+ 40, -8, -8, -5, -8, -27, -8, -8, 40, -8,
+ -16, -25, 93, 59, -15, 93, 125, 125, 125, 59,
+ -15, -5, -5, -16, 41, -25, -30, -30, -8, -30,
+ 59, -14, -15, -14, 41, 125, 93, 125, 59, 41,
+ 41, -30, -13, 41, 125, 41, -8, 41, -8, -14 };
+int yydef[]={
+
+ 1, -2, 5, -2, 6, 7, 41, 42, 43, 0,
+ 9, 0, 0, 0, 40, 8, 10, 0, 0, 0,
+ 0, -2, 0, 0, 12, 13, 4, 49, 80, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ -2, 98, 101, 102, 103, 0, 112, 113, 0, 122,
+ 124, 127, 0, 0, -2, 134, 0, 0, 0, 0,
+ 0, 0, 135, 0, 0, 0, 0, 45, 0, 0,
+ 11, 37, 0, 0, 0, 0, -2, 34, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 5, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 86, 87, 81, 145, 82, 83,
+ 84, 85, -2, -2, 90, 0, 92, 0, 94, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 116, 117,
+ 133, 97, 123, 125, 126, 0, 0, 0, 138, 143,
+ 144, 142, 140, 139, 141, 137, 135, 56, 136, 135,
+ 0, 135, 44, 46, 47, 0, 38, 25, 0, 25,
+ 0, 13, 0, 36, 26, 0, 18, 0, 18, 14,
+ 15, 16, 17, 48, 39, 58, 0, 67, 0, 68,
+ 0, 69, 0, 70, 0, 73, 0, 74, 0, 76,
+ 0, 77, -2, -2, -2, 0, 79, 0, 0, 0,
+ 0, 91, 147, 0, 0, 93, 149, 0, 95, 0,
+ 96, 0, 0, 0, 0, 0, 0, 114, 0, 0,
+ 0, 128, 129, 0, 0, 50, 135, 0, 135, 0,
+ 55, 0, 29, 0, 30, 0, 0, 37, 0, 23,
+ 0, 0, 0, 24, 3, 59, 60, 61, 62, 63,
+ 64, 65, 66, 0, 135, 0, 0, 146, 0, 0,
+ 148, 0, 151, 99, 0, 108, 0, 0, 0, 115,
+ 118, 0, 120, 0, 130, 131, 0, 0, 57, 52,
+ 135, 25, 25, 0, 25, 0, 18, 19, 0, 18,
+ 78, 0, 100, 0, 0, 107, 150, 104, 109, 0,
+ 0, 119, 121, 0, 51, 0, 27, 28, 25, 32,
+ -2, 21, 0, 22, 54, 105, 106, 110, 0, 132,
+ 53, 31, 0, 0, 0, 0, 18, 111, 33, 20 };
+typedef struct { char *t_name; int t_val; } yytoktype;
+#ifndef YYDEBUG
+# define YYDEBUG 0 /* don't allow debugging */
+#endif
+
+#if YYDEBUG
+
+yytoktype yytoks[] =
+{
+ "{", 123,
+ ")", 41,
+ "WORD", 257,
+ "METHOD", 258,
+ "THING", 259,
+ "PMFUNC", 260,
+ "LABEL", 261,
+ "FORMAT", 262,
+ "SUB", 263,
+ "PACKAGE", 264,
+ "WHILE", 265,
+ "UNTIL", 266,
+ "IF", 267,
+ "UNLESS", 268,
+ "ELSE", 269,
+ "ELSIF", 270,
+ "CONTINUE", 271,
+ "FOR", 272,
+ "LOOPEX", 273,
+ "DOTDOT", 274,
+ "FUNC0", 275,
+ "FUNC1", 276,
+ "FUNC", 277,
+ "RELOP", 278,
+ "EQOP", 279,
+ "MULOP", 280,
+ "ADDOP", 281,
+ "DOLSHARP", 282,
+ "DO", 283,
+ "LOCAL", 284,
+ "DELETE", 285,
+ "HASHBRACK", 286,
+ "LSTOP", 287,
+ ",", 44,
+ "=", 61,
+ "?", 63,
+ ":", 58,
+ "OROR", 288,
+ "ANDAND", 289,
+ "BITOROP", 290,
+ "BITANDOP", 291,
+ "UNIOP", 292,
+ "SHIFTOP", 293,
+ "MATCHOP", 294,
+ "ARROW", 295,
+ "!", 33,
+ "~", 126,
+ "UMINUS", 296,
+ "REFGEN", 297,
+ "POWOP", 298,
+ "PREINC", 299,
+ "PREDEC", 300,
+ "POSTINC", 301,
+ "POSTDEC", 302,
+ "(", 40,
+ "-unknown-", -1 /* ends search */
+};
+
+char * yyreds[] =
+{
+ "-no such reduction-",
+ "prog : /* empty */",
+ "prog : lineseq",
+ "block : '{' remember lineseq '}'",
+ "remember : /* empty */",
+ "lineseq : /* empty */",
+ "lineseq : lineseq decl",
+ "lineseq : lineseq line",
+ "line : label cond",
+ "line : loop",
+ "line : label ';'",
+ "line : label sideff ';'",
+ "sideff : error",
+ "sideff : expr",
+ "sideff : expr IF expr",
+ "sideff : expr UNLESS expr",
+ "sideff : expr WHILE expr",
+ "sideff : expr UNTIL expr",
+ "else : /* empty */",
+ "else : ELSE block",
+ "else : ELSIF '(' expr ')' block else",
+ "cond : IF '(' expr ')' block else",
+ "cond : UNLESS '(' expr ')' block else",
+ "cond : IF block block else",
+ "cond : UNLESS block block else",
+ "cont : /* empty */",
+ "cont : CONTINUE block",
+ "loop : label WHILE '(' texpr ')' block cont",
+ "loop : label UNTIL '(' expr ')' block cont",
+ "loop : label WHILE block block cont",
+ "loop : label UNTIL block block cont",
+ "loop : label FOR scalar '(' expr crp block cont",
+ "loop : label FOR '(' expr crp block cont",
+ "loop : label FOR '(' nexpr ';' texpr ';' nexpr ')' block",
+ "loop : label block cont",
+ "nexpr : /* empty */",
+ "nexpr : sideff",
+ "texpr : /* empty */",
+ "texpr : expr",
+ "label : /* empty */",
+ "label : LABEL",
+ "decl : format",
+ "decl : subrout",
+ "decl : package",
+ "format : FORMAT WORD block",
+ "format : FORMAT block",
+ "subrout : SUB WORD block",
+ "package : PACKAGE WORD ';'",
+ "expr : expr ',' sexpr",
+ "expr : sexpr",
+ "listop : LSTOP indirob listexpr",
+ "listop : FUNC '(' indirob listexpr ')'",
+ "listop : indirob ARROW LSTOP listexpr",
+ "listop : indirob ARROW FUNC '(' listexpr ')'",
+ "listop : term ARROW METHOD '(' listexpr ')'",
+ "listop : METHOD indirob listexpr",
+ "listop : LSTOP listexpr",
+ "listop : FUNC '(' listexpr ')'",
+ "sexpr : sexpr '=' sexpr",
+ "sexpr : sexpr POWOP '=' sexpr",
+ "sexpr : sexpr MULOP '=' sexpr",
+ "sexpr : sexpr ADDOP '=' sexpr",
+ "sexpr : sexpr SHIFTOP '=' sexpr",
+ "sexpr : sexpr BITANDOP '=' sexpr",
+ "sexpr : sexpr BITOROP '=' sexpr",
+ "sexpr : sexpr ANDAND '=' sexpr",
+ "sexpr : sexpr OROR '=' sexpr",
+ "sexpr : sexpr POWOP sexpr",
+ "sexpr : sexpr MULOP sexpr",
+ "sexpr : sexpr ADDOP sexpr",
+ "sexpr : sexpr SHIFTOP sexpr",
+ "sexpr : sexpr RELOP sexpr",
+ "sexpr : sexpr EQOP sexpr",
+ "sexpr : sexpr BITANDOP sexpr",
+ "sexpr : sexpr BITOROP sexpr",
+ "sexpr : sexpr DOTDOT sexpr",
+ "sexpr : sexpr ANDAND sexpr",
+ "sexpr : sexpr OROR sexpr",
+ "sexpr : sexpr '?' sexpr ':' sexpr",
+ "sexpr : sexpr MATCHOP sexpr",
+ "sexpr : term",
+ "term : '-' term",
+ "term : '+' term",
+ "term : '!' term",
+ "term : '~' term",
+ "term : REFGEN term",
+ "term : term POSTINC",
+ "term : term POSTDEC",
+ "term : PREINC term",
+ "term : PREDEC term",
+ "term : LOCAL sexpr",
+ "term : '(' expr crp",
+ "term : '(' ')'",
+ "term : '[' expr crb",
+ "term : '[' ']'",
+ "term : HASHBRACK expr crhb",
+ "term : HASHBRACK ';' '}'",
+ "term : scalar",
+ "term : star",
+ "term : scalar '[' expr ']'",
+ "term : term ARROW '[' expr ']'",
+ "term : hsh",
+ "term : ary",
+ "term : arylen",
+ "term : scalar '{' expr ';' '}'",
+ "term : term ARROW '{' expr ';' '}'",
+ "term : '(' expr crp '[' expr ']'",
+ "term : '(' ')' '[' expr ']'",
+ "term : ary '[' expr ']'",
+ "term : ary '{' expr ';' '}'",
+ "term : DELETE scalar '{' expr ';' '}'",
+ "term : DELETE '(' scalar '{' expr ';' '}' ')'",
+ "term : THING",
+ "term : amper",
+ "term : amper '(' ')'",
+ "term : amper '(' expr crp",
+ "term : DO sexpr",
+ "term : DO block",
+ "term : DO WORD '(' ')'",
+ "term : DO WORD '(' expr crp",
+ "term : DO scalar '(' ')'",
+ "term : DO scalar '(' expr crp",
+ "term : LOOPEX",
+ "term : LOOPEX WORD",
+ "term : UNIOP",
+ "term : UNIOP block",
+ "term : UNIOP sexpr",
+ "term : FUNC0",
+ "term : FUNC0 '(' ')'",
+ "term : FUNC1 '(' ')'",
+ "term : FUNC1 '(' expr ')'",
+ "term : PMFUNC '(' sexpr ')'",
+ "term : PMFUNC '(' sexpr ',' sexpr ')'",
+ "term : WORD",
+ "term : listop",
+ "listexpr : /* empty */",
+ "listexpr : expr",
+ "amper : '&' indirob",
+ "scalar : '$' indirob",
+ "ary : '@' indirob",
+ "hsh : '%' indirob",
+ "arylen : DOLSHARP indirob",
+ "star : '*' indirob",
+ "indirob : WORD",
+ "indirob : scalar",
+ "indirob : block",
+ "crp : ',' ')'",
+ "crp : ')'",
+ "crb : ',' ']'",
+ "crb : ']'",
+ "crhb : ',' ';' '}'",
+ "crhb : ';' '}'",
+};
+#endif /* YYDEBUG */
+#line 1 "/usr/lib/yaccpar"
+/* @(#)yaccpar 1.10 89/04/04 SMI; from S5R3 1.10 */
+
+/*
+** Skeleton parser driver for yacc output
+*/
+
+/*
+** yacc user known macros and defines
+*/
+#define YYERROR goto yyerrlab
+#define YYACCEPT { free(yys); free(yyv); return(0); }
+#define YYABORT { free(yys); free(yyv); return(1); }
+#define YYBACKUP( newtoken, newvalue )\
+{\
+ if ( yychar >= 0 || ( yyr2[ yytmp ] >> 1 ) != 1 )\
+ {\
+ yyerror( "syntax error - cannot backup" );\
+ goto yyerrlab;\
+ }\
+ yychar = newtoken;\
+ yystate = *yyps;\
+ yylval = newvalue;\
+ goto yynewstate;\
+}
+#define YYRECOVERING() (!!yyerrflag)
+#ifndef YYDEBUG
+# define YYDEBUG 1 /* make debugging available */
+#endif
+
+/*
+** user known globals
+*/
+int yydebug; /* set to 1 to get debugging */
+
+/*
+** driver internal defines
+*/
+#define YYFLAG (-1000)
+
+/*
+** static variables used by the parser
+*/
+static YYSTYPE *yyv; /* value stack */
+static int *yys; /* state stack */
+
+static YYSTYPE *yypv; /* top of value stack */
+static int *yyps; /* top of state stack */
+
+static int yystate; /* current state */
+static int yytmp; /* extra var (lasts between blocks) */
+
+int yynerrs; /* number of errors */
+
+int yyerrflag; /* error recovery flag */
+int yychar; /* current input token number */
+
+
+/*
+** yyparse - return 0 if worked, 1 if syntax error not recovered from
+*/
+int
+yyparse()
+{
+ register YYSTYPE *yypvt; /* top of value stack for $vars */
+ unsigned yymaxdepth = YYMAXDEPTH;
+
+ /*
+ ** Initialize externals - yyparse may be called more than once
+ */
+ yyv = (YYSTYPE*)malloc(yymaxdepth*sizeof(YYSTYPE));
+ yys = (int*)malloc(yymaxdepth*sizeof(int));
+ if (!yyv || !yys)
+ {
+ yyerror( "out of memory" );
+ return(1);
+ }
+ yypv = &yyv[-1];
+ yyps = &yys[-1];
+ yystate = 0;
+ yytmp = 0;
+ yynerrs = 0;
+ yyerrflag = 0;
+ yychar = -1;
+
+ goto yystack;
+ {
+ register YYSTYPE *yy_pv; /* top of value stack */
+ register int *yy_ps; /* top of state stack */
+ register int yy_state; /* current state */
+ register int yy_n; /* internal state number info */
+
+ /*
+ ** get globals into registers.
+ ** branch to here only if YYBACKUP was called.
+ */
+ yynewstate:
+ yy_pv = yypv;
+ yy_ps = yyps;
+ yy_state = yystate;
+ goto yy_newstate;
+
+ /*
+ ** get globals into registers.
+ ** either we just started, or we just finished a reduction
+ */
+ yystack:
+ yy_pv = yypv;
+ yy_ps = yyps;
+ yy_state = yystate;
+
+ /*
+ ** top of for (;;) loop while no reductions done
+ */
+ yy_stack:
+ /*
+ ** put a state and value onto the stacks
+ */
+#if YYDEBUG
+ /*
+ ** if debugging, look up token value in list of value vs.
+ ** name pairs. 0 and negative (-1) are special values.
+ ** Note: linear search is used since time is not a real
+ ** consideration while debugging.
+ */
+ if ( yydebug )
+ {
+ register int yy_i;
+
+ (void)printf( "State %d, token ", yy_state );
+ if ( yychar == 0 )
+ (void)printf( "end-of-file\n" );
+ else if ( yychar < 0 )
+ (void)printf( "-none-\n" );
+ else
+ {
+ for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
+ yy_i++ )
+ {
+ if ( yytoks[yy_i].t_val == yychar )
+ break;
+ }
+ (void)printf( "%s\n", yytoks[yy_i].t_name );
+ }
+ }
+#endif /* YYDEBUG */
+ if ( ++yy_ps >= &yys[ yymaxdepth ] ) /* room on stack? */
+ {
+ /*
+ ** reallocate and recover. Note that pointers
+ ** have to be reset, or bad things will happen
+ */
+ int yyps_index = (yy_ps - yys);
+ int yypv_index = (yy_pv - yyv);
+ int yypvt_index = (yypvt - yyv);
+ yymaxdepth += YYMAXDEPTH;
+ yyv = (YYSTYPE*)realloc((char*)yyv,
+ yymaxdepth * sizeof(YYSTYPE));
+ yys = (int*)realloc((char*)yys,
+ yymaxdepth * sizeof(int));
+ if (!yyv || !yys)
+ {
+ yyerror( "yacc stack overflow" );
+ return(1);
+ }
+ yy_ps = yys + yyps_index;
+ yy_pv = yyv + yypv_index;
+ yypvt = yyv + yypvt_index;
+ }
+ *yy_ps = yy_state;
+ *++yy_pv = yyval;
+
+ /*
+ ** we have a new state - find out what to do
+ */
+ yy_newstate:
+ if ( ( yy_n = yypact[ yy_state ] ) <= YYFLAG )
+ goto yydefault; /* simple state */
+#if YYDEBUG
+ /*
+ ** if debugging, need to mark whether new token grabbed
+ */
+ yytmp = yychar < 0;
+#endif
+ if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
+ yychar = 0; /* reached EOF */
+#if YYDEBUG
+ if ( yydebug && yytmp )
+ {
+ register int yy_i;
+
+ (void)printf( " *** Received token " );
+ if ( yychar == 0 )
+ (void)printf( "end-of-file\n" );
+ else if ( yychar < 0 )
+ (void)printf( "-none-\n" );
+ else
+ {
+ for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
+ yy_i++ )
+ {
+ if ( yytoks[yy_i].t_val == yychar )
+ break;
+ }
+ (void)printf( "%s\n", yytoks[yy_i].t_name );
+ }
+ }
+#endif /* YYDEBUG */
+ if ( ( ( yy_n += yychar ) < 0 ) || ( yy_n >= YYLAST ) )
+ goto yydefault;
+ if ( yychk[ yy_n = yyact[ yy_n ] ] == yychar ) /*valid shift*/
+ {
+ yychar = -1;
+ yyval = yylval;
+ yy_state = yy_n;
+ if ( yyerrflag > 0 )
+ yyerrflag--;
+ goto yy_stack;
+ }
+
+ yydefault:
+ if ( ( yy_n = yydef[ yy_state ] ) == -2 )
+ {
+#if YYDEBUG
+ yytmp = yychar < 0;
+#endif
+ if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
+ yychar = 0; /* reached EOF */
+#if YYDEBUG
+ if ( yydebug && yytmp )
+ {
+ register int yy_i;
+
+ (void)printf( " *** Received token " );
+ if ( yychar == 0 )
+ (void)printf( "end-of-file\n" );
+ else if ( yychar < 0 )
+ (void)printf( "-none-\n" );
+ else
+ {
+ for ( yy_i = 0;
+ yytoks[yy_i].t_val >= 0;
+ yy_i++ )
+ {
+ if ( yytoks[yy_i].t_val
+ == yychar )
+ {
+ break;
+ }
+ }
+ (void)printf( "%s\n", yytoks[yy_i].t_name );
+ }
+ }
+#endif /* YYDEBUG */
+ /*
+ ** look through exception table
+ */
+ {
+ register int *yyxi = yyexca;
+
+ while ( ( *yyxi != -1 ) ||
+ ( yyxi[1] != yy_state ) )
+ {
+ yyxi += 2;
+ }
+ while ( ( *(yyxi += 2) >= 0 ) &&
+ ( *yyxi != yychar ) )
+ ;
+ if ( ( yy_n = yyxi[1] ) < 0 )
+ YYACCEPT;
+ }
+ }
+
+ /*
+ ** check for syntax error
+ */
+ if ( yy_n == 0 ) /* have an error */
+ {
+ /* no worry about speed here! */
+ switch ( yyerrflag )
+ {
+ case 0: /* new error */
+ yyerror( "syntax error" );
+ goto skip_init;
+ yyerrlab:
+ /*
+ ** get globals into registers.
+ ** we have a user generated syntax type error
+ */
+ yy_pv = yypv;
+ yy_ps = yyps;
+ yy_state = yystate;
+ yynerrs++;
+ skip_init:
+ case 1:
+ case 2: /* incompletely recovered error */
+ /* try again... */
+ yyerrflag = 3;
+ /*
+ ** find state where "error" is a legal
+ ** shift action
+ */
+ while ( yy_ps >= yys )
+ {
+ yy_n = yypact[ *yy_ps ] + YYERRCODE;
+ if ( yy_n >= 0 && yy_n < YYLAST &&
+ yychk[yyact[yy_n]] == YYERRCODE) {
+ /*
+ ** simulate shift of "error"
+ */
+ yy_state = yyact[ yy_n ];
+ goto yy_stack;
+ }
+ /*
+ ** current state has no shift on
+ ** "error", pop stack
+ */
+#if YYDEBUG
+# define _POP_ "Error recovery pops state %d, uncovers state %d\n"
+ if ( yydebug )
+ (void)printf( _POP_, *yy_ps,
+ yy_ps[-1] );
+# undef _POP_
+#endif
+ yy_ps--;
+ yy_pv--;
+ }
+ /*
+ ** there is no state on stack with "error" as
+ ** a valid shift. give up.
+ */
+ YYABORT;
+ case 3: /* no shift yet; eat a token */
+#if YYDEBUG
+ /*
+ ** if debugging, look up token in list of
+ ** pairs. 0 and negative shouldn't occur,
+ ** but since timing doesn't matter when
+ ** debugging, it doesn't hurt to leave the
+ ** tests here.
+ */
+ if ( yydebug )
+ {
+ register int yy_i;
+
+ (void)printf( "Error recovery discards " );
+ if ( yychar == 0 )
+ (void)printf( "token end-of-file\n" );
+ else if ( yychar < 0 )
+ (void)printf( "token -none-\n" );
+ else
+ {
+ for ( yy_i = 0;
+ yytoks[yy_i].t_val >= 0;
+ yy_i++ )
+ {
+ if ( yytoks[yy_i].t_val
+ == yychar )
+ {
+ break;
+ }
+ }
+ (void)printf( "token %s\n",
+ yytoks[yy_i].t_name );
+ }
+ }
+#endif /* YYDEBUG */
+ if ( yychar == 0 ) /* reached EOF. quit */
+ YYABORT;
+ yychar = -1;
+ goto yy_newstate;
+ }
+ }/* end if ( yy_n == 0 ) */
+ /*
+ ** reduction by production yy_n
+ ** put stack tops, etc. so things right after switch
+ */
+#if YYDEBUG
+ /*
+ ** if debugging, print the string that is the user's
+ ** specification of the reduction which is just about
+ ** to be done.
+ */
+ if ( yydebug )
+ (void)printf( "Reduce by (%d) \"%s\"\n",
+ yy_n, yyreds[ yy_n ] );
+#endif
+ yytmp = yy_n; /* value to switch over */
+ yypvt = yy_pv; /* $vars top of value stack */
+ /*
+ ** Look in goto table for next state
+ ** Sorry about using yy_state here as temporary
+ ** register variable, but why not, if it works...
+ ** If yyr2[ yy_n ] doesn't have the low order bit
+ ** set, then there is no action to be done for
+ ** this reduction. So, no saving & unsaving of
+ ** registers done. The only difference between the
+ ** code just after the if and the body of the if is
+ ** the goto yy_stack in the body. This way the test
+ ** can be made before the choice of what to do is needed.
+ */
+ {
+ /* length of production doubled with extra bit */
+ register int yy_len = yyr2[ yy_n ];
+
+ if ( !( yy_len & 01 ) )
+ {
+ yy_len >>= 1;
+ yyval = ( yy_pv -= yy_len )[1]; /* $$ = $1 */
+ yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
+ *( yy_ps -= yy_len ) + 1;
+ if ( yy_state >= YYLAST ||
+ yychk[ yy_state =
+ yyact[ yy_state ] ] != -yy_n )
+ {
+ yy_state = yyact[ yypgo[ yy_n ] ];
+ }
+ goto yy_stack;
+ }
+ yy_len >>= 1;
+ yyval = ( yy_pv -= yy_len )[1]; /* $$ = $1 */
+ yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
+ *( yy_ps -= yy_len ) + 1;
+ if ( yy_state >= YYLAST ||
+ yychk[ yy_state = yyact[ yy_state ] ] != -yy_n )
+ {
+ yy_state = yyact[ yypgo[ yy_n ] ];
+ }
+ }
+ /* save until reenter driver code */
+ yystate = yy_state;
+ yyps = yy_ps;
+ yypv = yy_pv;
+ }
+ /*
+ ** code supplied by user is placed in this switch
+ */
+ switch( yytmp )
+ {
+
+case 1:
+# line 100 "perly.y"
+{
+#if defined(YYDEBUG) && defined(DEBUGGING)
+ yydebug = (debug & 1);
+#endif
+ expect = XBLOCK;
+ } break;
+case 2:
+# line 107 "perly.y"
+{ if (in_eval) {
+ eval_root = newUNOP(OP_LEAVEEVAL, 0, yypvt[-0].opval);
+ eval_start = linklist(eval_root);
+ eval_root->op_next = 0;
+ peep(eval_start);
+ }
+ else
+ main_root = block_head(scalar(yypvt[-0].opval), &main_start);
+ } break;
+case 3:
+# line 119 "perly.y"
+{ yyval.opval = scalarseq(yypvt[-1].opval);
+ if (copline > (line_t)yypvt[-3].ival)
+ copline = yypvt[-3].ival;
+ if (savestack_ix > yypvt[-2].ival)
+ leave_scope(yypvt[-2].ival);
+ expect = XBLOCK; } break;
+case 4:
+# line 128 "perly.y"
+{ yyval.ival = savestack_ix; } break;
+case 5:
+# line 132 "perly.y"
+{ yyval.opval = Nullop; } break;
+case 6:
+# line 134 "perly.y"
+{ yyval.opval = yypvt[-1].opval; } break;
+case 7:
+# line 136 "perly.y"
+{ yyval.opval = append_list(OP_LINESEQ, yypvt[-1].opval, yypvt[-0].opval); pad_reset(); } break;
+case 8:
+# line 140 "perly.y"
+{ yyval.opval = newSTATEOP(0, yypvt[-1].pval, yypvt[-0].opval); } break;
+case 10:
+# line 143 "perly.y"
+{ if (yypvt[-1].pval != Nullch) {
+ yyval.opval = newSTATEOP(0, yypvt[-1].pval, newOP(OP_NULL, 0));
+ }
+ else {
+ yyval.opval = Nullop;
+ copline = NOLINE;
+ }
+ expect = XBLOCK; } break;
+case 11:
+# line 152 "perly.y"
+{ yyval.opval = newSTATEOP(0, yypvt[-2].pval, yypvt[-1].opval);
+ expect = XBLOCK; } break;
+case 12:
+# line 157 "perly.y"
+{ yyval.opval = Nullop; } break;
+case 13:
+# line 159 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 14:
+# line 161 "perly.y"
+{ yyval.opval = newLOGOP(OP_AND, 0, yypvt[-0].opval, yypvt[-2].opval); } break;
+case 15:
+# line 163 "perly.y"
+{ yyval.opval = newLOGOP(OP_OR, 0, yypvt[-0].opval, yypvt[-2].opval); } break;
+case 16:
+# line 165 "perly.y"
+{ yyval.opval = newLOOPOP(0, 1, scalar(yypvt[-0].opval), yypvt[-2].opval, Nullop); } break;
+case 17:
+# line 167 "perly.y"
+{ yyval.opval = newLOOPOP(0, 1, invert(scalar(yypvt[-0].opval)), yypvt[-2].opval, Nullop);} break;
+case 18:
+# line 171 "perly.y"
+{ yyval.opval = Nullop; } break;
+case 19:
+# line 173 "perly.y"
+{ yyval.opval = scope(yypvt[-0].opval); } break;
+case 20:
+# line 175 "perly.y"
+{ copline = yypvt[-5].ival;
+ yyval.opval = newCONDOP(0, yypvt[-3].opval, scope(yypvt[-1].opval), yypvt[-0].opval); } break;
+case 21:
+# line 180 "perly.y"
+{ copline = yypvt[-5].ival;
+ yyval.opval = newCONDOP(0, yypvt[-3].opval, scope(yypvt[-1].opval), yypvt[-0].opval); } break;
+case 22:
+# line 183 "perly.y"
+{ copline = yypvt[-5].ival;
+ yyval.opval = newCONDOP(0,
+ invert(scalar(yypvt[-3].opval)), scope(yypvt[-1].opval), yypvt[-0].opval); } break;
+case 23:
+# line 187 "perly.y"
+{ copline = yypvt[-3].ival;
+ yyval.opval = newCONDOP(0, scope(yypvt[-2].opval), scope(yypvt[-1].opval), yypvt[-0].opval); } break;
+case 24:
+# line 190 "perly.y"
+{ copline = yypvt[-3].ival;
+ yyval.opval = newCONDOP(0, invert(scalar(scope(yypvt[-2].opval))),
+ scope(yypvt[-1].opval), yypvt[-0].opval); } break;
+case 25:
+# line 196 "perly.y"
+{ yyval.opval = Nullop; } break;
+case 26:
+# line 198 "perly.y"
+{ yyval.opval = scope(yypvt[-0].opval); } break;
+case 27:
+# line 202 "perly.y"
+{ copline = yypvt[-5].ival;
+ yyval.opval = newSTATEOP(0, yypvt[-6].pval,
+ newWHILEOP(0, 1, Nullop, yypvt[-3].opval, yypvt[-1].opval, yypvt[-0].opval) ); } break;
+case 28:
+# line 206 "perly.y"
+{ copline = yypvt[-5].ival;
+ yyval.opval = newSTATEOP(0, yypvt[-6].pval,
+ newWHILEOP(0, 1, Nullop,
+ invert(scalar(yypvt[-3].opval)), yypvt[-1].opval, yypvt[-0].opval) ); } break;
+case 29:
+# line 211 "perly.y"
+{ copline = yypvt[-3].ival;
+ yyval.opval = newSTATEOP(0, yypvt[-4].pval,
+ newWHILEOP(0, 1, Nullop,
+ scope(yypvt[-2].opval), yypvt[-1].opval, yypvt[-0].opval) ); } break;
+case 30:
+# line 216 "perly.y"
+{ copline = yypvt[-3].ival;
+ yyval.opval = newSTATEOP(0, yypvt[-4].pval,
+ newWHILEOP(0, 1, Nullop,
+ invert(scalar(scope(yypvt[-2].opval))), yypvt[-1].opval, yypvt[-0].opval)); } break;
+case 31:
+# line 221 "perly.y"
+{ yyval.opval = newFOROP(0, yypvt[-7].pval, yypvt[-6].ival, ref(yypvt[-5].opval, OP_ENTERLOOP),
+ yypvt[-3].opval, yypvt[-1].opval, yypvt[-0].opval); } break;
+case 32:
+# line 224 "perly.y"
+{ yyval.opval = newFOROP(0, yypvt[-6].pval, yypvt[-5].ival, Nullop, yypvt[-3].opval, yypvt[-1].opval, yypvt[-0].opval); } break;
+case 33:
+# line 227 "perly.y"
+{ copline = yypvt[-8].ival;
+ yyval.opval = append_elem(OP_LINESEQ,
+ newSTATEOP(0, yypvt[-9].pval, scalar(yypvt[-6].opval)),
+ newSTATEOP(0, yypvt[-9].pval,
+ newWHILEOP(0, 1, Nullop,
+ scalar(yypvt[-4].opval), yypvt[-0].opval, scalar(yypvt[-2].opval)) )); } break;
+case 34:
+# line 234 "perly.y"
+{ yyval.opval = newSTATEOP(0,
+ yypvt[-2].pval, newWHILEOP(0, 1, Nullop, Nullop, yypvt[-1].opval, yypvt[-0].opval)); } break;
+case 35:
+# line 239 "perly.y"
+{ yyval.opval = Nullop; } break;
+case 37:
+# line 244 "perly.y"
+{ (void)scan_num("1"); yyval.opval = yylval.opval; } break;
+case 39:
+# line 249 "perly.y"
+{ yyval.pval = Nullch; } break;
+case 41:
+# line 254 "perly.y"
+{ yyval.ival = 0; } break;
+case 42:
+# line 256 "perly.y"
+{ yyval.ival = 0; } break;
+case 43:
+# line 258 "perly.y"
+{ yyval.ival = 0; } break;
+case 44:
+# line 262 "perly.y"
+{ newFORM(yypvt[-2].ival, yypvt[-1].opval, yypvt[-0].opval); } break;
+case 45:
+# line 264 "perly.y"
+{ newFORM(yypvt[-1].ival, Nullop, yypvt[-0].opval); } break;
+case 46:
+# line 268 "perly.y"
+{ newSUB(yypvt[-2].ival, yypvt[-1].opval, yypvt[-0].opval); } break;
+case 47:
+# line 272 "perly.y"
+{ package(yypvt[-1].opval); } break;
+case 48:
+# line 276 "perly.y"
+{ yyval.opval = append_elem(OP_LIST, yypvt[-2].opval, yypvt[-0].opval); } break;
+case 50:
+# line 281 "perly.y"
+{ yyval.opval = convert(yypvt[-2].ival, OPf_STACKED,
+ prepend_elem(OP_LIST, newGVREF(yypvt[-1].opval), yypvt[-0].opval) ); } break;
+case 51:
+# line 284 "perly.y"
+{ yyval.opval = convert(yypvt[-4].ival, OPf_STACKED,
+ prepend_elem(OP_LIST, newGVREF(yypvt[-2].opval), yypvt[-1].opval) ); } break;
+case 52:
+# line 287 "perly.y"
+{ yyval.opval = convert(yypvt[-1].ival, OPf_STACKED,
+ prepend_elem(OP_LIST, newGVREF(yypvt[-3].opval), yypvt[-0].opval) ); } break;
+case 53:
+# line 290 "perly.y"
+{ yyval.opval = convert(yypvt[-3].ival, OPf_STACKED,
+ prepend_elem(OP_LIST, newGVREF(yypvt[-5].opval), yypvt[-1].opval) ); } break;
+case 54:
+# line 293 "perly.y"
+{ yyval.opval = convert(OP_ENTERSUBR, OPf_STACKED|OPf_SPECIAL,
+ prepend_elem(OP_LIST, newMETHOD(yypvt[-5].opval,yypvt[-3].opval), yypvt[-1].opval)); } break;
+case 55:
+# line 296 "perly.y"
+{ yyval.opval = convert(OP_ENTERSUBR, OPf_STACKED|OPf_SPECIAL,
+ prepend_elem(OP_LIST, newMETHOD(yypvt[-1].opval,yypvt[-2].opval), yypvt[-0].opval)); } break;
+case 56:
+# line 299 "perly.y"
+{ yyval.opval = convert(yypvt[-1].ival, 0, yypvt[-0].opval); } break;
+case 57:
+# line 301 "perly.y"
+{ yyval.opval = convert(yypvt[-3].ival, 0, yypvt[-1].opval); } break;
+case 58:
+# line 305 "perly.y"
+{ yyval.opval = newASSIGNOP(OPf_STACKED, yypvt[-2].opval, yypvt[-0].opval); } break;
+case 59:
+# line 307 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-2].ival, OPf_STACKED,
+ ref(scalar(yypvt[-3].opval), yypvt[-2].ival), scalar(yypvt[-0].opval)); } break;
+case 60:
+# line 310 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-2].ival, OPf_STACKED,
+ ref(scalar(yypvt[-3].opval), yypvt[-2].ival), scalar(yypvt[-0].opval)); } break;
+case 61:
+# line 313 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-2].ival, OPf_STACKED,
+ ref(scalar(yypvt[-3].opval), yypvt[-2].ival), scalar(yypvt[-0].opval));} break;
+case 62:
+# line 316 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-2].ival, OPf_STACKED,
+ ref(scalar(yypvt[-3].opval), yypvt[-2].ival), scalar(yypvt[-0].opval)); } break;
+case 63:
+# line 319 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-2].ival, OPf_STACKED,
+ ref(scalar(yypvt[-3].opval), yypvt[-2].ival), scalar(yypvt[-0].opval)); } break;
+case 64:
+# line 322 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-2].ival, OPf_STACKED,
+ ref(scalar(yypvt[-3].opval), yypvt[-2].ival), scalar(yypvt[-0].opval)); } break;
+case 65:
+# line 325 "perly.y"
+{ yyval.opval = newLOGOP(OP_ANDASSIGN, 0,
+ ref(scalar(yypvt[-3].opval), OP_ANDASSIGN),
+ newUNOP(OP_SASSIGN, 0, scalar(yypvt[-0].opval))); } break;
+case 66:
+# line 329 "perly.y"
+{ yyval.opval = newLOGOP(OP_ORASSIGN, 0,
+ ref(scalar(yypvt[-3].opval), OP_ORASSIGN),
+ newUNOP(OP_SASSIGN, 0, scalar(yypvt[-0].opval))); } break;
+case 67:
+# line 335 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-1].ival, 0, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval)); } break;
+case 68:
+# line 337 "perly.y"
+{ if (yypvt[-1].ival != OP_REPEAT)
+ scalar(yypvt[-2].opval);
+ yyval.opval = newBINOP(yypvt[-1].ival, 0, yypvt[-2].opval, scalar(yypvt[-0].opval)); } break;
+case 69:
+# line 341 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-1].ival, 0, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval)); } break;
+case 70:
+# line 343 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-1].ival, 0, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval)); } break;
+case 71:
+# line 345 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-1].ival, 0, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval)); } break;
+case 72:
+# line 347 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-1].ival, 0, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval)); } break;
+case 73:
+# line 349 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-1].ival, 0, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval)); } break;
+case 74:
+# line 351 "perly.y"
+{ yyval.opval = newBINOP(yypvt[-1].ival, 0, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval)); } break;
+case 75:
+# line 353 "perly.y"
+{ yyval.opval = newRANGE(yypvt[-1].ival, scalar(yypvt[-2].opval), scalar(yypvt[-0].opval));} break;
+case 76:
+# line 355 "perly.y"
+{ yyval.opval = newLOGOP(OP_AND, 0, yypvt[-2].opval, yypvt[-0].opval); } break;
+case 77:
+# line 357 "perly.y"
+{ yyval.opval = newLOGOP(OP_OR, 0, yypvt[-2].opval, yypvt[-0].opval); } break;
+case 78:
+# line 359 "perly.y"
+{ yyval.opval = newCONDOP(0, yypvt[-4].opval, yypvt[-2].opval, yypvt[-0].opval); } break;
+case 79:
+# line 361 "perly.y"
+{ yyval.opval = bind_match(yypvt[-1].ival, yypvt[-2].opval, yypvt[-0].opval); } break;
+case 80:
+# line 363 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 81:
+# line 367 "perly.y"
+{ yyval.opval = newUNOP(OP_NEGATE, 0, scalar(yypvt[-0].opval)); } break;
+case 82:
+# line 369 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 83:
+# line 371 "perly.y"
+{ yyval.opval = newUNOP(OP_NOT, 0, scalar(yypvt[-0].opval)); } break;
+case 84:
+# line 373 "perly.y"
+{ yyval.opval = newUNOP(OP_COMPLEMENT, 0, scalar(yypvt[-0].opval));} break;
+case 85:
+# line 375 "perly.y"
+{ yyval.opval = newUNOP(OP_REFGEN, 0, ref(yypvt[-0].opval, OP_REFGEN)); } break;
+case 86:
+# line 377 "perly.y"
+{ yyval.opval = newUNOP(OP_POSTINC, 0,
+ ref(scalar(yypvt[-1].opval), OP_POSTINC)); } break;
+case 87:
+# line 380 "perly.y"
+{ yyval.opval = newUNOP(OP_POSTDEC, 0,
+ ref(scalar(yypvt[-1].opval), OP_POSTDEC)); } break;
+case 88:
+# line 383 "perly.y"
+{ yyval.opval = newUNOP(OP_PREINC, 0,
+ ref(scalar(yypvt[-0].opval), OP_PREINC)); } break;
+case 89:
+# line 386 "perly.y"
+{ yyval.opval = newUNOP(OP_PREDEC, 0,
+ ref(scalar(yypvt[-0].opval), OP_PREDEC)); } break;
+case 90:
+# line 389 "perly.y"
+{ yyval.opval = localize(yypvt[-0].opval); } break;
+case 91:
+# line 391 "perly.y"
+{ yyval.opval = sawparens(yypvt[-1].opval); } break;
+case 92:
+# line 393 "perly.y"
+{ yyval.opval = newNULLLIST(); } break;
+case 93:
+# line 395 "perly.y"
+{ yyval.opval = newANONLIST(yypvt[-1].opval); } break;
+case 94:
+# line 397 "perly.y"
+{ yyval.opval = newANONLIST(Nullop); } break;
+case 95:
+# line 399 "perly.y"
+{ yyval.opval = newANONHASH(yypvt[-1].opval); } break;
+case 96:
+# line 401 "perly.y"
+{ yyval.opval = newANONHASH(Nullop); } break;
+case 97:
+# line 403 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 98:
+# line 405 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 99:
+# line 407 "perly.y"
+{ yyval.opval = newBINOP(OP_AELEM, 0, oopsAV(yypvt[-3].opval), scalar(yypvt[-1].opval)); } break;
+case 100:
+# line 409 "perly.y"
+{ yyval.opval = newBINOP(OP_AELEM, 0,
+ scalar(ref(newAVREF(yypvt[-4].opval),OP_RV2AV)),
+ scalar(yypvt[-1].opval));} break;
+case 101:
+# line 413 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 102:
+# line 415 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 103:
+# line 417 "perly.y"
+{ yyval.opval = newUNOP(OP_AV2ARYLEN, 0, ref(yypvt[-0].opval, OP_AV2ARYLEN));} break;
+case 104:
+# line 419 "perly.y"
+{ yyval.opval = newBINOP(OP_HELEM, 0, oopsHV(yypvt[-4].opval), jmaybe(yypvt[-2].opval));
+ expect = XOPERATOR; } break;
+case 105:
+# line 422 "perly.y"
+{ yyval.opval = newBINOP(OP_HELEM, 0,
+ scalar(ref(newHVREF(yypvt[-5].opval),OP_RV2HV)),
+ jmaybe(yypvt[-2].opval));
+ expect = XOPERATOR; } break;
+case 106:
+# line 427 "perly.y"
+{ yyval.opval = newSLICEOP(0, yypvt[-1].opval, yypvt[-4].opval); } break;
+case 107:
+# line 429 "perly.y"
+{ yyval.opval = newSLICEOP(0, yypvt[-1].opval, Nullop); } break;
+case 108:
+# line 431 "perly.y"
+{ yyval.opval = prepend_elem(OP_ASLICE,
+ newOP(OP_PUSHMARK, 0),
+ list(
+ newLISTOP(OP_ASLICE, 0,
+ list(yypvt[-1].opval),
+ ref(yypvt[-3].opval, OP_ASLICE)))); } break;
+case 109:
+# line 438 "perly.y"
+{ yyval.opval = prepend_elem(OP_HSLICE,
+ newOP(OP_PUSHMARK, 0),
+ list(
+ newLISTOP(OP_HSLICE, 0,
+ list(yypvt[-2].opval),
+ ref(oopsHV(yypvt[-4].opval), OP_HSLICE))));
+ expect = XOPERATOR; } break;
+case 110:
+# line 446 "perly.y"
+{ yyval.opval = newBINOP(OP_DELETE, 0, oopsHV(yypvt[-4].opval), jmaybe(yypvt[-2].opval));
+ expect = XOPERATOR; } break;
+case 111:
+# line 449 "perly.y"
+{ yyval.opval = newBINOP(OP_DELETE, 0, oopsHV(yypvt[-5].opval), jmaybe(yypvt[-3].opval));
+ expect = XOPERATOR; } break;
+case 112:
+# line 452 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 113:
+# line 454 "perly.y"
+{ yyval.opval = newUNOP(OP_ENTERSUBR, 0,
+ scalar(yypvt[-0].opval)); } break;
+case 114:
+# line 457 "perly.y"
+{ yyval.opval = newUNOP(OP_ENTERSUBR, OPf_STACKED, scalar(yypvt[-2].opval)); } break;
+case 115:
+# line 459 "perly.y"
+{ yyval.opval = newUNOP(OP_ENTERSUBR, OPf_STACKED,
+ list(prepend_elem(OP_LIST, scalar(yypvt[-3].opval), yypvt[-1].opval))); } break;
+case 116:
+# line 462 "perly.y"
+{ yyval.opval = newUNOP(OP_DOFILE, 0, scalar(yypvt[-0].opval));
+ allgvs = TRUE;} break;
+case 117:
+# line 465 "perly.y"
+{ yyval.opval = newUNOP(OP_NULL, OPf_SPECIAL, scope(yypvt[-0].opval)); } break;
+case 118:
+# line 467 "perly.y"
+{ yyval.opval = newUNOP(OP_ENTERSUBR, OPf_SPECIAL|OPf_STACKED,
+ list(prepend_elem(OP_LIST,
+ scalar(newCVREF(scalar(yypvt[-2].opval))), newNULLLIST()))); } break;
+case 119:
+# line 471 "perly.y"
+{ yyval.opval = newUNOP(OP_ENTERSUBR, OPf_SPECIAL|OPf_STACKED,
+ list(prepend_elem(OP_LIST,
+ scalar(newCVREF(scalar(yypvt[-3].opval))),
+ yypvt[-1].opval))); } break;
+case 120:
+# line 476 "perly.y"
+{ yyval.opval = newUNOP(OP_ENTERSUBR, OPf_SPECIAL|OPf_STACKED,
+ list(prepend_elem(OP_LIST,
+ scalar(newCVREF(scalar(yypvt[-2].opval))), newNULLLIST())));} break;
+case 121:
+# line 480 "perly.y"
+{ yyval.opval = newUNOP(OP_ENTERSUBR, OPf_SPECIAL|OPf_STACKED,
+ list(prepend_elem(OP_LIST,
+ scalar(newCVREF(scalar(yypvt[-3].opval))),
+ yypvt[-1].opval))); } break;
+case 122:
+# line 485 "perly.y"
+{ yyval.opval = newOP(yypvt[-0].ival, OPf_SPECIAL); } break;
+case 123:
+# line 487 "perly.y"
+{ yyval.opval = newPVOP(yypvt[-1].ival, 0,
+ savestr(SvPVnx(((SVOP*)yypvt[-0].opval)->op_sv)));
+ op_free(yypvt[-0].opval); } break;
+case 124:
+# line 491 "perly.y"
+{ yyval.opval = newOP(yypvt[-0].ival, 0); } break;
+case 125:
+# line 493 "perly.y"
+{ yyval.opval = newUNOP(yypvt[-1].ival, 0, yypvt[-0].opval); } break;
+case 126:
+# line 495 "perly.y"
+{ yyval.opval = newUNOP(yypvt[-1].ival, 0, yypvt[-0].opval); } break;
+case 127:
+# line 497 "perly.y"
+{ yyval.opval = newOP(yypvt[-0].ival, 0); } break;
+case 128:
+# line 499 "perly.y"
+{ yyval.opval = newOP(yypvt[-2].ival, 0); } break;
+case 129:
+# line 501 "perly.y"
+{ yyval.opval = newOP(yypvt[-2].ival, OPf_SPECIAL); } break;
+case 130:
+# line 503 "perly.y"
+{ yyval.opval = newUNOP(yypvt[-3].ival, 0, yypvt[-1].opval); } break;
+case 131:
+# line 505 "perly.y"
+{ yyval.opval = pmruntime(yypvt[-3].opval, yypvt[-1].opval, Nullop); } break;
+case 132:
+# line 507 "perly.y"
+{ yyval.opval = pmruntime(yypvt[-5].opval, yypvt[-3].opval, yypvt[-1].opval); } break;
+case 135:
+# line 513 "perly.y"
+{ yyval.opval = newNULLLIST(); } break;
+case 136:
+# line 515 "perly.y"
+{ yyval.opval = yypvt[-0].opval; } break;
+case 137:
+# line 519 "perly.y"
+{ yyval.opval = newCVREF(yypvt[-0].opval); } break;
+case 138:
+# line 523 "perly.y"
+{ yyval.opval = newSVREF(yypvt[-0].opval); } break;
+case 139:
+# line 527 "perly.y"
+{ yyval.opval = newAVREF(yypvt[-0].opval); } break;
+case 140:
+# line 531 "perly.y"
+{ yyval.opval = newHVREF(yypvt[-0].opval); } break;
+case 141:
+# line 535 "perly.y"
+{ yyval.opval = newAVREF(yypvt[-0].opval); } break;
+case 142:
+# line 539 "perly.y"
+{ yyval.opval = newGVREF(yypvt[-0].opval); } break;
+case 143:
+# line 543 "perly.y"
+{ yyval.opval = scalar(yypvt[-0].opval); } break;
+case 144:
+# line 545 "perly.y"
+{ yyval.opval = scalar(yypvt[-0].opval); } break;
+case 145:
+# line 547 "perly.y"
+{ yyval.opval = scalar(scope(yypvt[-0].opval)); } break;
+case 146:
+# line 552 "perly.y"
+{ yyval.ival = 1; } break;
+case 147:
+# line 554 "perly.y"
+{ yyval.ival = 0; } break;
+case 148:
+# line 558 "perly.y"
+{ yyval.ival = 1; } break;
+case 149:
+# line 560 "perly.y"
+{ yyval.ival = 0; } break;
+case 150:
+# line 564 "perly.y"
+{ yyval.ival = 1; } break;
+case 151:
+# line 566 "perly.y"
+{ yyval.ival = 0; } break;
+ }
+ goto yystack; /* reset registers in driver code */
+}
View Lorry Controller Status