summaryrefslogtreecommitdiff
path: root/x2p/a2p.c
diff options
context:
space:
mode:
Diffstat (limited to 'x2p/a2p.c')
-rw-r--r--x2p/a2p.c1607
1 files changed, 1607 insertions, 0 deletions
diff --git a/x2p/a2p.c b/x2p/a2p.c
new file mode 100644
index 0000000000..41636f0c17
--- /dev/null
+++ b/x2p/a2p.c
@@ -0,0 +1,1607 @@
+extern char *malloc(), *realloc();
+
+# line 2 "a2p.y"
+/* $RCSfile: a2p.y,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:13:03 $
+ *
+ * Copyright (c) 1991, Larry Wall
+ *
+ * You may distribute under the terms of either the GNU General Public
+ * License or the Artistic License, as specified in the README file.
+ *
+ * $Log: a2p.y,v $
+ * Revision 4.0.1.2 92/06/08 16:13:03 lwall
+ * patch20: in a2p, getline should allow variable to be array element
+ *
+ * Revision 4.0.1.1 91/06/07 12:12:41 lwall
+ * patch4: new copyright notice
+ *
+ * Revision 4.0 91/03/20 01:57:21 lwall
+ * 4.0 baseline.
+ *
+ */
+
+#include "INTERN.h"
+#include "a2p.h"
+
+int root;
+int begins = Nullop;
+int ends = Nullop;
+
+# define BEGIN 257
+# define END 258
+# define REGEX 259
+# define SEMINEW 260
+# define NEWLINE 261
+# define COMMENT 262
+# define FUN1 263
+# define FUNN 264
+# define GRGR 265
+# define PRINT 266
+# define PRINTF 267
+# define SPRINTF 268
+# define SPLIT 269
+# define IF 270
+# define ELSE 271
+# define WHILE 272
+# define FOR 273
+# define IN 274
+# define EXIT 275
+# define NEXT 276
+# define BREAK 277
+# define CONTINUE 278
+# define RET 279
+# define GETLINE 280
+# define DO 281
+# define SUB 282
+# define GSUB 283
+# define MATCH 284
+# define FUNCTION 285
+# define USERFUN 286
+# define DELETE 287
+# define ASGNOP 288
+# define OROR 289
+# define ANDAND 290
+# define NUMBER 291
+# define VAR 292
+# define SUBSTR 293
+# define INDEX 294
+# define MATCHOP 295
+# define RELOP 296
+# define OR 297
+# define STRING 298
+# define UMINUS 299
+# define NOT 300
+# define INCR 301
+# define DECR 302
+# define FIELD 303
+# define VFIELD 304
+#define yyclearin yychar = -1
+#define yyerrok yyerrflag = 0
+extern int yychar;
+extern int yyerrflag;
+#ifndef YYMAXDEPTH
+#define YYMAXDEPTH 150
+#endif
+#ifndef YYSTYPE
+#define YYSTYPE int
+#endif
+YYSTYPE yylval, yyval;
+# define YYERRCODE 256
+
+# line 402 "a2p.y"
+
+#include "a2py.c"
+int yyexca[] ={
+-1, 1,
+ 0, -1,
+ -2, 0,
+ };
+# define YYNPROD 137
+# define YYLAST 3142
+int yyact[]={
+
+ 63, 44, 156, 32, 50, 31, 222, 73, 74, 75,
+ 210, 53, 45, 46, 124, 49, 86, 307, 104, 158,
+ 74, 75, 52, 54, 53, 302, 126, 271, 306, 265,
+ 106, 107, 270, 245, 51, 157, 269, 21, 56, 92,
+ 2, 131, 55, 20, 48, 72, 19, 90, 69, 132,
+ 47, 196, 241, 102, 100, 272, 195, 193, 109, 110,
+ 111, 112, 253, 76, 79, 252, 72, 139, 15, 77,
+ 237, 68, 78, 311, 236, 160, 66, 64, 309, 65,
+ 293, 67, 187, 174, 255, 139, 198, 184, 183, 130,
+ 68, 80, 179, 129, 5, 66, 64, 71, 65, 128,
+ 67, 68, 286, 214, 199, 212, 66, 211, 105, 103,
+ 99, 67, 98, 97, 96, 95, 71, 108, 94, 89,
+ 88, 152, 87, 4, 153, 10, 9, 200, 69, 14,
+ 177, 178, 239, 140, 13, 3, 136, 137, 127, 1,
+ 0, 0, 0, 185, 186, 0, 72, 69, 151, 0,
+ 0, 154, 0, 0, 0, 0, 0, 0, 69, 0,
+ 0, 0, 0, 204, 205, 72, 0, 106, 107, 0,
+ 0, 0, 0, 0, 175, 176, 72, 213, 0, 215,
+ 76, 0, 140, 0, 0, 0, 77, 0, 0, 78,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 230, 231, 232, 233, 234, 235, 0,
+ 206, 207, 0, 0, 0, 0, 244, 0, 0, 0,
+ 159, 106, 107, 34, 35, 0, 162, 163, 37, 39,
+ 170, 0, 171, 173, 248, 166, 165, 164, 167, 168,
+ 33, 172, 42, 43, 41, 161, 36, 169, 44, 18,
+ 247, 27, 44, 38, 40, 54, 53, 249, 28, 45,
+ 46, 29, 30, 45, 46, 54, 53, 54, 53, 0,
+ 282, 18, 18, 238, 284, 285, 242, 243, 289, 290,
+ 54, 53, 240, 91, 54, 53, 0, 299, 300, 54,
+ 53, 0, 304, 0, 0, 6, 7, 8, 18, 0,
+ 0, 298, 0, 113, 114, 115, 116, 63, 70, 18,
+ 32, 310, 31, 313, 312, 315, 314, 316, 0, 18,
+ 0, 0, 303, 0, 247, 0, 158, 70, 201, 202,
+ 203, 0, 133, 135, 91, 91, 308, 287, 247, 141,
+ 143, 144, 145, 146, 147, 149, 91, 0, 0, 91,
+ 0, 301, 0, 0, 0, 18, 18, 0, 0, 0,
+ 63, 0, 0, 32, 0, 31, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 181, 158,
+ 0, 0, 0, 0, 0, 0, 0, 0, 141, 0,
+ 174, 0, 305, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 91, 91,
+ 63, 0, 208, 32, 209, 31, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 158,
+ 0, 219, 220, 0, 221, 0, 223, 225, 226, 227,
+ 228, 229, 0, 174, 0, 274, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 18, 18, 0,
+ 246, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 63, 0, 0, 32, 0, 31, 0, 0,
+ 0, 0, 266, 0, 0, 0, 267, 268, 0, 0,
+ 0, 158, 0, 174, 0, 217, 275, 0, 276, 0,
+ 0, 0, 0, 0, 278, 0, 279, 0, 280, 0,
+ 281, 0, 0, 0, 0, 0, 0, 0, 18, 0,
+ 0, 0, 0, 0, 0, 0, 0, 159, 0, 0,
+ 34, 35, 18, 162, 163, 37, 39, 170, 0, 171,
+ 173, 0, 166, 165, 164, 167, 168, 33, 172, 42,
+ 43, 41, 0, 36, 169, 174, 0, 216, 27, 44,
+ 38, 40, 0, 0, 0, 28, 0, 0, 29, 30,
+ 45, 46, 63, 0, 0, 32, 0, 31, 0, 0,
+ 159, 0, 0, 34, 35, 0, 162, 163, 37, 39,
+ 170, 0, 171, 173, 0, 166, 165, 164, 167, 168,
+ 33, 172, 42, 43, 41, 0, 36, 169, 0, 0,
+ 0, 27, 44, 38, 40, 0, 0, 0, 28, 0,
+ 0, 29, 30, 45, 46, 0, 25, 0, 0, 32,
+ 159, 31, 0, 34, 35, 0, 162, 163, 37, 39,
+ 170, 0, 171, 173, 0, 166, 165, 164, 167, 168,
+ 33, 172, 42, 43, 41, 0, 36, 169, 0, 0,
+ 0, 27, 44, 38, 40, 0, 0, 0, 28, 0,
+ 0, 29, 30, 45, 46, 63, 0, 0, 32, 0,
+ 31, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 159, 0, 158, 34, 35, 0, 162, 163,
+ 37, 39, 170, 0, 171, 173, 0, 166, 165, 164,
+ 167, 168, 33, 172, 42, 43, 41, 0, 36, 169,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 63, 0, 0,
+ 32, 0, 31, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 158, 0, 174, 0,
+ 197, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 63, 0, 0, 32, 138, 31, 0, 0,
+ 0, 0, 0, 0, 0, 34, 35, 0, 162, 163,
+ 37, 39, 59, 0, 58, 0, 0, 166, 165, 164,
+ 167, 168, 33, 0, 42, 43, 41, 0, 36, 169,
+ 174, 0, 155, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 0, 0, 0,
+ 0, 0, 0, 0, 0, 24, 0, 106, 107, 34,
+ 35, 0, 0, 0, 37, 39, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 26, 29, 30, 45,
+ 46, 0, 0, 0, 0, 159, 0, 0, 34, 35,
+ 0, 162, 163, 37, 39, 170, 0, 171, 173, 0,
+ 166, 165, 164, 167, 168, 33, 172, 42, 43, 41,
+ 63, 36, 169, 32, 0, 31, 27, 44, 38, 40,
+ 0, 0, 0, 28, 0, 0, 29, 30, 45, 46,
+ 59, 0, 58, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 159, 0, 0,
+ 34, 35, 0, 162, 163, 37, 39, 170, 0, 171,
+ 173, 0, 166, 165, 164, 167, 168, 33, 172, 42,
+ 43, 41, 0, 36, 169, 23, 0, 0, 27, 44,
+ 38, 40, 0, 0, 0, 28, 0, 0, 29, 30,
+ 45, 46, 0, 0, 62, 34, 35, 0, 0, 0,
+ 37, 39, 0, 0, 0, 81, 82, 62, 62, 85,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 62, 27, 44, 38, 40, 60, 57, 0,
+ 28, 0, 0, 29, 30, 45, 46, 0, 0, 0,
+ 62, 62, 62, 62, 62, 62, 25, 62, 0, 32,
+ 0, 31, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 62, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 62,
+ 62, 62, 62, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 180, 0, 0, 0, 0, 0, 0, 62,
+ 63, 62, 0, 32, 0, 31, 0, 62, 0, 62,
+ 62, 62, 62, 62, 0, 62, 0, 0, 0, 12,
+ 0, 0, 0, 34, 35, 0, 0, 62, 37, 39,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 33, 0, 42, 43, 41, 62, 36, 62, 0, 0,
+ 0, 27, 44, 38, 40, 60, 57, 0, 28, 0,
+ 0, 29, 30, 45, 46, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 62, 62, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 62, 62, 62, 0, 62,
+ 0, 62, 62, 62, 62, 62, 0, 0, 0, 0,
+ 0, 0, 0, 22, 0, 0, 0, 0, 0, 0,
+ 0, 0, 62, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 61, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 62, 62, 62, 83, 84, 0, 0, 0,
+ 0, 62, 62, 0, 62, 62, 62, 62, 0, 0,
+ 101, 0, 0, 16, 17, 24, 0, 0, 0, 34,
+ 35, 0, 0, 0, 37, 39, 0, 0, 118, 119,
+ 120, 121, 122, 123, 0, 125, 33, 0, 42, 43,
+ 41, 11, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 61, 26, 29, 30, 45,
+ 46, 0, 25, 0, 0, 32, 0, 31, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 61, 61, 61,
+ 61, 288, 0, 34, 35, 0, 0, 0, 37, 39,
+ 0, 0, 0, 0, 0, 0, 0, 61, 0, 61,
+ 33, 0, 42, 43, 41, 61, 36, 61, 61, 61,
+ 61, 61, 25, 61, 0, 32, 0, 31, 28, 0,
+ 0, 29, 30, 45, 46, 61, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 218, 0, 61, 0, 0, 0, 0,
+ 0, 0, 0, 0, 63, 263, 0, 32, 264, 31,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 61, 61, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 61, 61, 61, 0, 61, 0, 61,
+ 61, 61, 61, 61, 0, 0, 63, 261, 0, 32,
+ 262, 31, 0, 0, 0, 0, 0, 0, 0, 0,
+ 61, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 61, 61, 61, 0, 0, 0, 0, 0, 0, 61,
+ 61, 0, 61, 61, 61, 61, 63, 259, 0, 32,
+ 260, 31, 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, 24, 0, 0, 0, 34, 35, 0, 0, 0,
+ 37, 39, 63, 257, 0, 32, 258, 31, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 26, 29, 30, 45, 46, 0, 0, 0,
+ 0, 24, 0, 0, 0, 34, 35, 0, 0, 0,
+ 37, 39, 63, 251, 0, 32, 250, 31, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 26, 29, 30, 45, 46, 34, 35, 0,
+ 0, 0, 37, 39, 0, 0, 63, 0, 0, 32,
+ 0, 31, 0, 0, 33, 0, 42, 43, 41, 0,
+ 36, 0, 0, 0, 0, 27, 44, 38, 40, 0,
+ 0, 0, 28, 0, 0, 29, 30, 45, 46, 34,
+ 35, 0, 0, 0, 37, 39, 0, 0, 0, 0,
+ 0, 0, 142, 0, 0, 32, 33, 31, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 0, 0, 0, 0, 0, 0, 0, 0, 34,
+ 35, 0, 0, 0, 37, 39, 63, 297, 0, 32,
+ 0, 31, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 0, 0, 0, 0, 34, 35, 0, 0, 0,
+ 37, 39, 63, 296, 0, 32, 0, 31, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 0, 0, 0,
+ 0, 0, 0, 0, 0, 34, 35, 0, 0, 0,
+ 37, 39, 63, 295, 0, 32, 0, 31, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 106, 107, 34,
+ 35, 0, 0, 0, 37, 39, 63, 294, 0, 32,
+ 0, 31, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 24, 0, 0, 0, 34, 35, 0, 0, 0,
+ 37, 39, 63, 292, 0, 32, 0, 31, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 26, 29, 30, 45, 46, 0, 0, 34,
+ 35, 0, 0, 0, 37, 39, 63, 291, 0, 32,
+ 0, 31, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 0, 0, 0, 0, 34, 35, 0, 0, 63,
+ 37, 39, 32, 0, 31, 0, 0, 0, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 0, 0, 0,
+ 0, 0, 0, 0, 0, 34, 35, 0, 0, 0,
+ 37, 39, 283, 63, 0, 0, 32, 0, 31, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 0, 0, 34,
+ 35, 0, 0, 0, 37, 39, 63, 273, 0, 32,
+ 0, 31, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 0, 0, 0, 0, 34, 35, 0, 0, 0,
+ 37, 39, 63, 256, 0, 32, 0, 31, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 0, 0, 34,
+ 35, 0, 0, 0, 37, 39, 63, 254, 0, 32,
+ 0, 31, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 0, 34, 35, 0, 0, 0, 37, 39, 0,
+ 0, 0, 63, 0, 0, 32, 0, 31, 0, 33,
+ 0, 42, 43, 41, 0, 36, 0, 0, 0, 0,
+ 27, 44, 38, 40, 0, 0, 0, 28, 0, 0,
+ 29, 30, 45, 46, 0, 0, 0, 0, 0, 0,
+ 0, 0, 277, 0, 0, 63, 34, 35, 32, 194,
+ 31, 37, 39, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 33, 0, 42, 43, 41, 0, 36,
+ 0, 0, 0, 0, 27, 44, 38, 40, 0, 0,
+ 0, 28, 0, 0, 29, 30, 45, 46, 63, 34,
+ 35, 32, 192, 31, 37, 39, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 0, 0, 0, 63, 34, 35, 32, 191, 31,
+ 37, 39, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 0, 63, 34,
+ 35, 32, 190, 31, 37, 39, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 33, 0, 42, 43,
+ 41, 0, 36, 0, 0, 0, 0, 27, 44, 38,
+ 40, 0, 0, 0, 28, 0, 0, 29, 30, 45,
+ 46, 224, 0, 0, 63, 34, 35, 32, 189, 31,
+ 37, 39, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 33, 0, 42, 43, 41, 0, 36, 0,
+ 0, 0, 0, 27, 44, 38, 40, 0, 0, 0,
+ 28, 0, 0, 29, 30, 45, 46, 63, 34, 35,
+ 32, 188, 31, 37, 39, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 33, 0, 42, 43, 41,
+ 0, 36, 0, 0, 0, 0, 27, 44, 38, 40,
+ 0, 0, 0, 28, 0, 0, 29, 30, 45, 46,
+ 0, 34, 35, 0, 0, 0, 37, 39, 63, 182,
+ 0, 32, 0, 31, 0, 0, 0, 0, 33, 0,
+ 42, 43, 41, 0, 36, 0, 0, 0, 0, 27,
+ 44, 38, 40, 0, 0, 0, 28, 0, 0, 29,
+ 30, 45, 46, 0, 0, 0, 0, 34, 35, 0,
+ 0, 0, 37, 39, 63, 0, 0, 32, 0, 31,
+ 0, 0, 0, 0, 33, 0, 42, 43, 41, 0,
+ 36, 0, 0, 0, 0, 27, 44, 38, 40, 0,
+ 0, 0, 28, 0, 0, 29, 30, 45, 46, 0,
+ 0, 34, 35, 0, 0, 0, 37, 39, 0, 0,
+ 63, 0, 0, 32, 0, 31, 0, 0, 33, 0,
+ 42, 43, 41, 0, 36, 0, 0, 0, 0, 27,
+ 44, 38, 40, 0, 0, 0, 28, 0, 0, 29,
+ 30, 45, 46, 0, 0, 0, 0, 34, 35, 0,
+ 0, 0, 37, 39, 63, 0, 0, 32, 138, 31,
+ 0, 0, 0, 0, 33, 0, 42, 43, 41, 0,
+ 36, 0, 0, 0, 0, 27, 44, 38, 40, 0,
+ 0, 0, 28, 0, 0, 29, 30, 45, 46, 0,
+ 34, 35, 0, 0, 0, 37, 39, 63, 134, 0,
+ 32, 0, 31, 0, 0, 0, 0, 33, 0, 42,
+ 43, 41, 0, 36, 0, 0, 0, 0, 27, 44,
+ 38, 40, 0, 0, 0, 28, 0, 0, 29, 30,
+ 45, 46, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 34, 35, 0, 0, 63, 37, 39, 32, 0,
+ 31, 0, 0, 0, 0, 0, 0, 0, 33, 0,
+ 42, 43, 41, 0, 36, 0, 0, 0, 0, 27,
+ 44, 38, 40, 0, 0, 0, 28, 0, 0, 29,
+ 30, 45, 46, 150, 0, 0, 0, 34, 35, 0,
+ 0, 63, 37, 39, 32, 0, 31, 0, 0, 0,
+ 0, 0, 0, 0, 33, 0, 42, 43, 41, 0,
+ 36, 0, 0, 0, 0, 27, 44, 38, 40, 0,
+ 0, 0, 28, 0, 0, 29, 30, 45, 46, 148,
+ 0, 0, 0, 34, 35, 0, 0, 93, 37, 39,
+ 32, 0, 31, 0, 0, 0, 0, 0, 0, 0,
+ 33, 0, 42, 43, 41, 0, 36, 0, 0, 0,
+ 0, 27, 44, 38, 40, 0, 0, 0, 28, 0,
+ 0, 29, 30, 45, 46, 0, 0, 34, 35, 0,
+ 0, 0, 37, 39, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 33, 0, 42, 43, 41, 0,
+ 36, 0, 0, 0, 0, 27, 44, 38, 40, 0,
+ 0, 0, 28, 0, 0, 29, 30, 45, 46, 0,
+ 34, 35, 0, 0, 0, 37, 39, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 33, 0, 42,
+ 43, 41, 0, 36, 0, 0, 0, 0, 27, 44,
+ 38, 40, 0, 0, 0, 28, 0, 0, 29, 30,
+ 45, 46, 0, 0, 117, 0, 0, 0, 34, 35,
+ 0, 0, 0, 37, 39, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 33, 0, 42, 43, 41,
+ 0, 36, 0, 0, 0, 0, 27, 44, 38, 40,
+ 0, 0, 0, 28, 0, 0, 29, 30, 45, 46,
+ 0, 0, 0, 0, 34, 35, 0, 0, 0, 37,
+ 39, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 33, 0, 42, 43, 41, 0, 36, 0, 0,
+ 0, 0, 27, 44, 38, 40, 0, 0, 0, 28,
+ 0, 0, 29, 30, 45, 46, 0, 0, 0, 0,
+ 34, 35, 0, 0, 0, 37, 39, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 33, 0, 42,
+ 43, 41, 0, 36, 0, 0, 0, 0, 27, 44,
+ 38, 40, 0, 0, 0, 28, 0, 0, 29, 30,
+ 45, 46 };
+int yypact[]={
+
+ -1000, -1000, 35, 1016, -1000, -1000, -1000, -1000, -1000, -1000,
+ -79, -271, -1000, -1000, -227, -22, -81, -85, 880, -1000,
+ -1000, -1000, 53, -281, -1000, 1332, 1332, -1000, -1000, -291,
+ -291, 2791, 2791, -44, 82, 80, 79, 2837, 78, 75,
+ 74, 73, 72, 70, -37, -1000, 2791, 35, -1000, 69,
+ -231, -1000, 1332, -1000, -1000, -1000, -1000, 2791, 2791, 2791,
+ 2745, 53, -293, 1332, 2791, 2791, 2791, 2791, 2791, 2791,
+ -278, 2791, -254, 1332, -1000, -1000, 58, 52, 48, 0,
+ -1000, -1000, -1000, -46, -46, -11, 2791, 2697, 2837, 2837,
+ -1000, 2654, 23, 1652, 2791, 2791, 2791, 2791, 2610, 2564,
+ 2837, -67, -231, 2837, 697, -1000, -1000, -1000, -266, 586,
+ 586, -231, -231, 1080, 1080, 1080, 1080, -1000, 64, 64,
+ -46, -46, -46, -46, -1000, 34, -291, -266, -1000, -1000,
+ -1000, -1000, 2791, 1080, -1000, 2518, 47, 46, -1000, -1000,
+ 41, 742, 1652, 2467, 2424, 2378, 2334, 2288, 13, 2245,
+ 12, -42, 635, 45, -1000, -1000, -1000, 68, -1000, -1000,
+ -1000, 2791, 2837, 2837, -1000, -1000, 2791, -1000, 2791, -282,
+ 67, 65, -1000, 63, -1000, -1000, -279, 432, 370, 2791,
+ -1000, 1080, -1000, -1000, -1000, 1606, 1606, -1000, 2791, -286,
+ 2791, 2202, 2791, 2791, 2791, 2791, -1000, -1000, -1000, -1000,
+ -1000, -1000, -1000, -1000, -231, -231, 8, 8, 2791, 2791,
+ -39, 1332, 1332, -40, 532, -231, -1000, -1000, 53, 2791,
+ 2791, 1562, 21, 2156, 43, 2112, 1512, 1466, 1416, 1374,
+ -94, -231, -231, -231, -231, -231, 2791, -1000, -1000, -1000,
+ 2791, 2791, -5, -9, -245, -4, 2066, -1000, 320, 35,
+ 2791, -1000, 2023, -1000, -1000, -1000, -1000, -1000, 2791, -1000,
+ 2791, -1000, 2791, -1000, 2791, -1000, 2791, 2791, 1969, -1000,
+ -1000, 62, 1282, -1000, -1000, 1926, 1882, 39, 1836, 1792,
+ 1742, 1696, -231, -1000, -40, -40, 1332, -34, 532, -40,
+ -231, -1000, -1000, -1000, -1000, -1000, -1000, -1000, 267, -243,
+ -1000, -24, 532, 37, -1000, -1000, -1000, -1000, 32, -1000,
+ -40, -1000, -40, -1000, -40, -1000, -1000 };
+int yypgo[]={
+
+ 0, 139, 40, 135, 134, 4, 18, 129, 126, 125,
+ 124, 47, 64, 245, 46, 43, 37, 1223, 985, 39,
+ 123, 108, 104, 2, 35, 75, 33, 74 };
+int yyr1[]={
+
+ 0, 1, 4, 7, 7, 3, 3, 8, 8, 8,
+ 8, 8, 8, 10, 9, 9, 12, 12, 12, 12,
+ 16, 16, 16, 16, 15, 15, 15, 15, 14, 14,
+ 14, 14, 13, 13, 13, 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, 18, 18, 18, 18, 11, 11, 11, 19, 19,
+ 19, 2, 2, 20, 20, 20, 20, 5, 5, 21,
+ 21, 22, 22, 22, 22, 6, 6, 23, 23, 23,
+ 23, 26, 26, 24, 24, 24, 24, 24, 24, 24,
+ 24, 24, 24, 24, 24, 24, 27, 27, 27, 25,
+ 25, 25, 25, 25, 25, 25, 25 };
+int yyr2[]={
+
+ 0, 5, 13, 11, 5, 7, 1, 3, 11, 21,
+ 9, 2, 2, 3, 3, 7, 2, 2, 2, 2,
+ 7, 9, 9, 5, 7, 7, 7, 7, 7, 7,
+ 3, 7, 3, 5, 7, 3, 3, 3, 7, 7,
+ 7, 7, 7, 7, 7, 11, 5, 5, 5, 5,
+ 5, 5, 7, 3, 5, 7, 9, 7, 9, 3,
+ 7, 9, 9, 9, 5, 17, 13, 17, 17, 13,
+ 13, 13, 13, 13, 13, 13, 13, 17, 17, 17,
+ 17, 3, 9, 3, 5, 2, 2, 1, 9, 9,
+ 7, 5, 1, 3, 3, 3, 3, 5, 1, 3,
+ 3, 5, 5, 5, 5, 5, 1, 7, 5, 5,
+ 2, 2, 1, 2, 9, 5, 9, 5, 3, 3,
+ 3, 5, 3, 3, 5, 11, 3, 3, 3, 13,
+ 19, 13, 15, 21, 19, 13, 11 };
+int yychk[]={
+
+ -1000, -1, -2, -3, -20, 59, 260, 261, 262, -8,
+ -9, 285, 123, -4, -7, -12, 257, 258, -13, -14,
+ -15, -16, -17, -18, 259, 40, 300, 291, 298, 301,
+ 302, 45, 43, 280, 263, 264, 286, 268, 293, 269,
+ 294, 284, 282, 283, 292, 303, 304, -2, 123, 286,
+ -5, 261, 44, 290, 289, 123, 123, 296, 62, 60,
+ 295, -17, -18, 40, 43, 45, 42, 47, 37, 94,
+ 274, 63, 112, 288, 301, 302, -16, -15, -14, -12,
+ -12, -18, -18, -17, -17, -18, 60, 40, 40, 40,
+ -11, -13, -19, 40, 40, 40, 40, 40, 40, 40,
+ 91, -17, -5, 40, -6, -21, 261, 262, -12, -5,
+ -5, -5, -5, -13, -13, -13, -13, 259, -17, -17,
+ -17, -17, -17, -17, 292, -17, 280, -12, 41, 41,
+ 41, 41, 60, -13, 41, -13, -11, -11, 44, 44,
+ -19, -13, 40, -13, -13, -13, -13, -13, 259, -13,
+ 259, -11, -6, -10, -11, 125, -23, -24, 59, 260,
+ -25, -13, 266, 267, 277, 276, 275, 278, 279, 287,
+ 270, 272, 281, 273, 123, -12, -12, -6, -6, 58,
+ -18, -13, 41, 41, 41, -5, -5, 41, 44, 44,
+ 44, 44, 44, 44, 44, 44, 93, 125, 41, -22,
+ 59, 260, 261, 262, -5, -5, -11, -11, -13, -13,
+ 292, 40, 40, -5, 40, -5, 125, 125, -17, -13,
+ -13, -13, 292, -13, 259, -13, -13, -13, -13, -13,
+ -5, -5, -5, -5, -5, -5, -27, 62, 265, 124,
+ -27, 91, -12, -12, -23, -26, -13, -24, -6, -2,
+ 44, 41, 44, 41, 41, 41, 41, 41, 44, 41,
+ 44, 41, 44, 41, 44, 123, -13, -13, -13, 41,
+ 41, 272, 59, 41, 125, -13, -13, 259, -13, -13,
+ -13, -13, -5, 93, -5, -5, 40, -12, 59, -5,
+ -5, 41, 41, 41, 41, 41, 41, 41, -6, -23,
+ -23, -12, 59, -26, -23, 125, 271, 41, -26, 41,
+ -5, 41, -5, -23, -5, -23, -23 };
+int yydef[]={
+
+ 92, -2, 6, 1, 91, 93, 94, 95, 96, 92,
+ 7, 0, 98, 11, 12, 14, 0, 0, 16, 17,
+ 18, 19, 32, 35, 30, 0, 0, 36, 37, 0,
+ 0, 0, 0, 53, 59, 0, 0, 87, 0, 0,
+ 0, 0, 0, 0, 81, 83, 0, 5, 98, 0,
+ 106, 4, 0, 98, 98, 98, 98, 0, 0, 0,
+ 0, 33, 35, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 46, 47, 19, 18, 17, 0,
+ 23, 48, 49, 50, 51, 54, 0, 0, 87, 87,
+ 64, 85, 86, 0, 0, 0, 0, 0, 0, 0,
+ 87, 84, 106, 87, 0, 97, 99, 100, 15, 0,
+ 0, 106, 106, 24, 25, 26, 28, 29, 38, 39,
+ 40, 41, 42, 43, 44, 0, 57, 34, 20, 27,
+ 31, 52, 0, 55, 60, 0, 0, 0, 98, 98,
+ 0, 16, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 13, 10, 105, 0, 98, 98,
+ 110, 113, 87, 87, 118, 119, 120, 122, 123, 0,
+ 0, 0, 98, 0, 98, 21, 22, 0, 0, 0,
+ 58, 56, 61, 62, 63, 0, 0, 90, 0, 0,
+ 0, 0, 0, 0, 0, 0, 82, 8, 98, 98,
+ 98, 98, 98, 98, 108, 109, 115, 117, 121, 124,
+ 0, 0, 0, 0, 112, 106, 92, 3, 45, 88,
+ 89, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 107, 101, 102, 103, 104, 0, 126, 127, 128,
+ 0, 0, 0, 0, 0, 0, 113, 111, 0, 2,
+ 0, 66, 0, 69, 70, 71, 72, 73, 0, 74,
+ 0, 75, 0, 76, 0, 98, 114, 116, 0, 98,
+ 98, 0, 0, 98, 98, 0, 0, 0, 0, 0,
+ 0, 0, 106, 125, 0, 0, 0, 0, 112, 0,
+ 136, 65, 67, 68, 77, 78, 79, 80, 0, 129,
+ 131, 0, 112, 0, 135, 9, 98, 132, 0, 98,
+ 0, 98, 0, 130, 0, 134, 133 };
+typedef struct { char *t_name; int t_val; } yytoktype;
+#ifndef YYDEBUG
+# define YYDEBUG 0 /* don't allow debugging */
+#endif
+
+#if YYDEBUG
+
+yytoktype yytoks[] =
+{
+ "BEGIN", 257,
+ "END", 258,
+ "REGEX", 259,
+ "SEMINEW", 260,
+ "NEWLINE", 261,
+ "COMMENT", 262,
+ "FUN1", 263,
+ "FUNN", 264,
+ "GRGR", 265,
+ "PRINT", 266,
+ "PRINTF", 267,
+ "SPRINTF", 268,
+ "SPLIT", 269,
+ "IF", 270,
+ "ELSE", 271,
+ "WHILE", 272,
+ "FOR", 273,
+ "IN", 274,
+ "EXIT", 275,
+ "NEXT", 276,
+ "BREAK", 277,
+ "CONTINUE", 278,
+ "RET", 279,
+ "GETLINE", 280,
+ "DO", 281,
+ "SUB", 282,
+ "GSUB", 283,
+ "MATCH", 284,
+ "FUNCTION", 285,
+ "USERFUN", 286,
+ "DELETE", 287,
+ "ASGNOP", 288,
+ "?", 63,
+ ":", 58,
+ "OROR", 289,
+ "ANDAND", 290,
+ "NUMBER", 291,
+ "VAR", 292,
+ "SUBSTR", 293,
+ "INDEX", 294,
+ "MATCHOP", 295,
+ "RELOP", 296,
+ "<", 60,
+ ">", 62,
+ "OR", 297,
+ "STRING", 298,
+ "+", 43,
+ "-", 45,
+ "*", 42,
+ "/", 47,
+ "%", 37,
+ "UMINUS", 299,
+ "NOT", 300,
+ "^", 94,
+ "INCR", 301,
+ "DECR", 302,
+ "FIELD", 303,
+ "VFIELD", 304,
+ "-unknown-", -1 /* ends search */
+};
+
+char * yyreds[] =
+{
+ "-no such reduction-",
+ "program : junk hunks",
+ "begin : BEGIN '{' maybe states '}' junk",
+ "end : END '{' maybe states '}'",
+ "end : end NEWLINE",
+ "hunks : hunks hunk junk",
+ "hunks : /* empty */",
+ "hunk : patpat",
+ "hunk : patpat '{' maybe states '}'",
+ "hunk : FUNCTION USERFUN '(' arg_list ')' maybe '{' maybe states '}'",
+ "hunk : '{' maybe states '}'",
+ "hunk : begin",
+ "hunk : end",
+ "arg_list : expr_list",
+ "patpat : cond",
+ "patpat : cond ',' cond",
+ "cond : expr",
+ "cond : match",
+ "cond : rel",
+ "cond : compound_cond",
+ "compound_cond : '(' compound_cond ')'",
+ "compound_cond : cond ANDAND maybe cond",
+ "compound_cond : cond OROR maybe cond",
+ "compound_cond : NOT cond",
+ "rel : expr RELOP expr",
+ "rel : expr '>' expr",
+ "rel : expr '<' expr",
+ "rel : '(' rel ')'",
+ "match : expr MATCHOP expr",
+ "match : expr MATCHOP REGEX",
+ "match : REGEX",
+ "match : '(' match ')'",
+ "expr : term",
+ "expr : expr term",
+ "expr : variable ASGNOP cond",
+ "term : variable",
+ "term : NUMBER",
+ "term : STRING",
+ "term : term '+' term",
+ "term : term '-' term",
+ "term : term '*' term",
+ "term : term '/' term",
+ "term : term '%' term",
+ "term : term '^' term",
+ "term : term IN VAR",
+ "term : term '?' term ':' term",
+ "term : variable INCR",
+ "term : variable DECR",
+ "term : INCR variable",
+ "term : DECR variable",
+ "term : '-' term",
+ "term : '+' term",
+ "term : '(' cond ')'",
+ "term : GETLINE",
+ "term : GETLINE variable",
+ "term : GETLINE '<' expr",
+ "term : GETLINE variable '<' expr",
+ "term : term 'p' GETLINE",
+ "term : term 'p' GETLINE variable",
+ "term : FUN1",
+ "term : FUN1 '(' ')'",
+ "term : FUN1 '(' expr ')'",
+ "term : FUNN '(' expr_list ')'",
+ "term : USERFUN '(' expr_list ')'",
+ "term : SPRINTF expr_list",
+ "term : SUBSTR '(' expr ',' expr ',' expr ')'",
+ "term : SUBSTR '(' expr ',' expr ')'",
+ "term : SPLIT '(' expr ',' VAR ',' expr ')'",
+ "term : SPLIT '(' expr ',' VAR ',' REGEX ')'",
+ "term : SPLIT '(' expr ',' VAR ')'",
+ "term : INDEX '(' expr ',' expr ')'",
+ "term : MATCH '(' expr ',' REGEX ')'",
+ "term : MATCH '(' expr ',' expr ')'",
+ "term : SUB '(' expr ',' expr ')'",
+ "term : SUB '(' REGEX ',' expr ')'",
+ "term : GSUB '(' expr ',' expr ')'",
+ "term : GSUB '(' REGEX ',' expr ')'",
+ "term : SUB '(' expr ',' expr ',' expr ')'",
+ "term : SUB '(' REGEX ',' expr ',' expr ')'",
+ "term : GSUB '(' expr ',' expr ',' expr ')'",
+ "term : GSUB '(' REGEX ',' expr ',' expr ')'",
+ "variable : VAR",
+ "variable : VAR '[' expr_list ']'",
+ "variable : FIELD",
+ "variable : VFIELD term",
+ "expr_list : expr",
+ "expr_list : clist",
+ "expr_list : /* empty */",
+ "clist : expr ',' maybe expr",
+ "clist : clist ',' maybe expr",
+ "clist : '(' clist ')'",
+ "junk : junk hunksep",
+ "junk : /* empty */",
+ "hunksep : ';'",
+ "hunksep : SEMINEW",
+ "hunksep : NEWLINE",
+ "hunksep : COMMENT",
+ "maybe : maybe nlstuff",
+ "maybe : /* empty */",
+ "nlstuff : NEWLINE",
+ "nlstuff : COMMENT",
+ "separator : ';' maybe",
+ "separator : SEMINEW maybe",
+ "separator : NEWLINE maybe",
+ "separator : COMMENT maybe",
+ "states : states statement",
+ "states : /* empty */",
+ "statement : simple separator maybe",
+ "statement : ';' maybe",
+ "statement : SEMINEW maybe",
+ "statement : compound",
+ "simpnull : simple",
+ "simpnull : /* empty */",
+ "simple : expr",
+ "simple : PRINT expr_list redir expr",
+ "simple : PRINT expr_list",
+ "simple : PRINTF expr_list redir expr",
+ "simple : PRINTF expr_list",
+ "simple : BREAK",
+ "simple : NEXT",
+ "simple : EXIT",
+ "simple : EXIT expr",
+ "simple : CONTINUE",
+ "simple : RET",
+ "simple : RET expr",
+ "simple : DELETE VAR '[' expr ']'",
+ "redir : '>'",
+ "redir : GRGR",
+ "redir : '|'",
+ "compound : IF '(' cond ')' maybe statement",
+ "compound : IF '(' cond ')' maybe statement ELSE maybe statement",
+ "compound : WHILE '(' cond ')' maybe statement",
+ "compound : DO maybe statement WHILE '(' cond ')'",
+ "compound : FOR '(' simpnull ';' cond ';' simpnull ')' maybe statement",
+ "compound : FOR '(' simpnull ';' ';' simpnull ')' maybe statement",
+ "compound : FOR '(' expr ')' maybe statement",
+ "compound : '{' maybe states '}' maybe",
+};
+#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 60 "a2p.y"
+{ root = oper4(OPROG,yypvt[-1],begins,yypvt[-0],ends); } break;
+case 2:
+# line 64 "a2p.y"
+{ begins = oper4(OJUNK,begins,yypvt[-3],yypvt[-2],yypvt[-0]); in_begin = FALSE;
+ yyval = Nullop; } break;
+case 3:
+# line 69 "a2p.y"
+{ ends = oper3(OJUNK,ends,yypvt[-2],yypvt[-1]); yyval = Nullop; } break;
+case 4:
+# line 71 "a2p.y"
+{ yyval = yypvt[-1]; } break;
+case 5:
+# line 75 "a2p.y"
+{ yyval = oper3(OHUNKS,yypvt[-2],yypvt[-1],yypvt[-0]); } break;
+case 6:
+# line 77 "a2p.y"
+{ yyval = Nullop; } break;
+case 7:
+# line 81 "a2p.y"
+{ yyval = oper1(OHUNK,yypvt[-0]); need_entire = TRUE; } break;
+case 8:
+# line 83 "a2p.y"
+{ yyval = oper2(OHUNK,yypvt[-4],oper2(OJUNK,yypvt[-2],yypvt[-1])); } break;
+case 9:
+# line 85 "a2p.y"
+{ fixfargs(yypvt[-8],yypvt[-6],0); yyval = oper5(OUSERDEF,yypvt[-8],yypvt[-6],yypvt[-4],yypvt[-2],yypvt[-1]); } break;
+case 10:
+# line 87 "a2p.y"
+{ yyval = oper2(OHUNK,Nullop,oper2(OJUNK,yypvt[-2],yypvt[-1])); } break;
+case 13:
+# line 93 "a2p.y"
+{ yyval = rememberargs(yyval); } break;
+case 14:
+# line 97 "a2p.y"
+{ yyval = oper1(OPAT,yypvt[-0]); } break;
+case 15:
+# line 99 "a2p.y"
+{ yyval = oper2(ORANGE,yypvt[-2],yypvt[-0]); } break;
+case 20:
+# line 110 "a2p.y"
+{ yyval = oper1(OCPAREN,yypvt[-1]); } break;
+case 21:
+# line 112 "a2p.y"
+{ yyval = oper3(OCANDAND,yypvt[-3],yypvt[-1],yypvt[-0]); } break;
+case 22:
+# line 114 "a2p.y"
+{ yyval = oper3(OCOROR,yypvt[-3],yypvt[-1],yypvt[-0]); } break;
+case 23:
+# line 116 "a2p.y"
+{ yyval = oper1(OCNOT,yypvt[-0]); } break;
+case 24:
+# line 120 "a2p.y"
+{ yyval = oper3(ORELOP,yypvt[-1],yypvt[-2],yypvt[-0]); } break;
+case 25:
+# line 122 "a2p.y"
+{ yyval = oper3(ORELOP,string(">",1),yypvt[-2],yypvt[-0]); } break;
+case 26:
+# line 124 "a2p.y"
+{ yyval = oper3(ORELOP,string("<",1),yypvt[-2],yypvt[-0]); } break;
+case 27:
+# line 126 "a2p.y"
+{ yyval = oper1(ORPAREN,yypvt[-1]); } break;
+case 28:
+# line 130 "a2p.y"
+{ yyval = oper3(OMATCHOP,yypvt[-1],yypvt[-2],yypvt[-0]); } break;
+case 29:
+# line 132 "a2p.y"
+{ yyval = oper3(OMATCHOP,yypvt[-1],yypvt[-2],oper1(OREGEX,yypvt[-0])); } break;
+case 30:
+# line 134 "a2p.y"
+{ yyval = oper1(OREGEX,yypvt[-0]); } break;
+case 31:
+# line 136 "a2p.y"
+{ yyval = oper1(OMPAREN,yypvt[-1]); } break;
+case 32:
+# line 140 "a2p.y"
+{ yyval = yypvt[-0]; } break;
+case 33:
+# line 142 "a2p.y"
+{ yyval = oper2(OCONCAT,yypvt[-1],yypvt[-0]); } break;
+case 34:
+# line 144 "a2p.y"
+{ yyval = oper3(OASSIGN,yypvt[-1],yypvt[-2],yypvt[-0]);
+ if ((ops[yypvt[-2]].ival & 255) == OFLD)
+ lval_field = TRUE;
+ if ((ops[yypvt[-2]].ival & 255) == OVFLD)
+ lval_field = TRUE;
+ } break;
+case 35:
+# line 153 "a2p.y"
+{ yyval = yypvt[-0]; } break;
+case 36:
+# line 155 "a2p.y"
+{ yyval = oper1(ONUM,yypvt[-0]); } break;
+case 37:
+# line 157 "a2p.y"
+{ yyval = oper1(OSTR,yypvt[-0]); } break;
+case 38:
+# line 159 "a2p.y"
+{ yyval = oper2(OADD,yypvt[-2],yypvt[-0]); } break;
+case 39:
+# line 161 "a2p.y"
+{ yyval = oper2(OSUBTRACT,yypvt[-2],yypvt[-0]); } break;
+case 40:
+# line 163 "a2p.y"
+{ yyval = oper2(OMULT,yypvt[-2],yypvt[-0]); } break;
+case 41:
+# line 165 "a2p.y"
+{ yyval = oper2(ODIV,yypvt[-2],yypvt[-0]); } break;
+case 42:
+# line 167 "a2p.y"
+{ yyval = oper2(OMOD,yypvt[-2],yypvt[-0]); } break;
+case 43:
+# line 169 "a2p.y"
+{ yyval = oper2(OPOW,yypvt[-2],yypvt[-0]); } break;
+case 44:
+# line 171 "a2p.y"
+{ yyval = oper2(ODEFINED,aryrefarg(yypvt[-0]),yypvt[-2]); } break;
+case 45:
+# line 173 "a2p.y"
+{ yyval = oper3(OCOND,yypvt[-4],yypvt[-2],yypvt[-0]); } break;
+case 46:
+# line 175 "a2p.y"
+{ yyval = oper1(OPOSTINCR,yypvt[-1]); } break;
+case 47:
+# line 177 "a2p.y"
+{ yyval = oper1(OPOSTDECR,yypvt[-1]); } break;
+case 48:
+# line 179 "a2p.y"
+{ yyval = oper1(OPREINCR,yypvt[-0]); } break;
+case 49:
+# line 181 "a2p.y"
+{ yyval = oper1(OPREDECR,yypvt[-0]); } break;
+case 50:
+# line 183 "a2p.y"
+{ yyval = oper1(OUMINUS,yypvt[-0]); } break;
+case 51:
+# line 185 "a2p.y"
+{ yyval = oper1(OUPLUS,yypvt[-0]); } break;
+case 52:
+# line 187 "a2p.y"
+{ yyval = oper1(OPAREN,yypvt[-1]); } break;
+case 53:
+# line 189 "a2p.y"
+{ yyval = oper0(OGETLINE); } break;
+case 54:
+# line 191 "a2p.y"
+{ yyval = oper1(OGETLINE,yypvt[-0]); } break;
+case 55:
+# line 193 "a2p.y"
+{ yyval = oper3(OGETLINE,Nullop,string("<",1),yypvt[-0]);
+ if (ops[yypvt[-0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } break;
+case 56:
+# line 196 "a2p.y"
+{ yyval = oper3(OGETLINE,yypvt[-2],string("<",1),yypvt[-0]);
+ if (ops[yypvt[-0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } break;
+case 57:
+# line 199 "a2p.y"
+{ yyval = oper3(OGETLINE,Nullop,string("|",1),yypvt[-2]);
+ if (ops[yypvt[-2]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } break;
+case 58:
+# line 202 "a2p.y"
+{ yyval = oper3(OGETLINE,yypvt[-0],string("|",1),yypvt[-3]);
+ if (ops[yypvt[-3]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } break;
+case 59:
+# line 205 "a2p.y"
+{ yyval = oper0(yypvt[-0]); need_entire = do_chop = TRUE; } break;
+case 60:
+# line 207 "a2p.y"
+{ yyval = oper1(yypvt[-2],Nullop); need_entire = do_chop = TRUE; } break;
+case 61:
+# line 209 "a2p.y"
+{ yyval = oper1(yypvt[-3],yypvt[-1]); } break;
+case 62:
+# line 211 "a2p.y"
+{ yyval = oper1(yypvt[-3],yypvt[-1]); } break;
+case 63:
+# line 213 "a2p.y"
+{ yyval = oper2(OUSERFUN,yypvt[-3],yypvt[-1]); } break;
+case 64:
+# line 215 "a2p.y"
+{ yyval = oper1(OSPRINTF,yypvt[-0]); } break;
+case 65:
+# line 217 "a2p.y"
+{ yyval = oper3(OSUBSTR,yypvt[-5],yypvt[-3],yypvt[-1]); } break;
+case 66:
+# line 219 "a2p.y"
+{ yyval = oper2(OSUBSTR,yypvt[-3],yypvt[-1]); } break;
+case 67:
+# line 221 "a2p.y"
+{ yyval = oper3(OSPLIT,yypvt[-5],aryrefarg(numary(yypvt[-3])),yypvt[-1]); } break;
+case 68:
+# line 223 "a2p.y"
+{ yyval = oper3(OSPLIT,yypvt[-5],aryrefarg(numary(yypvt[-3])),oper1(OREGEX,yypvt[-1]));} break;
+case 69:
+# line 225 "a2p.y"
+{ yyval = oper2(OSPLIT,yypvt[-3],aryrefarg(numary(yypvt[-1]))); } break;
+case 70:
+# line 227 "a2p.y"
+{ yyval = oper2(OINDEX,yypvt[-3],yypvt[-1]); } break;
+case 71:
+# line 229 "a2p.y"
+{ yyval = oper2(OMATCH,yypvt[-3],oper1(OREGEX,yypvt[-1])); } break;
+case 72:
+# line 231 "a2p.y"
+{ yyval = oper2(OMATCH,yypvt[-3],yypvt[-1]); } break;
+case 73:
+# line 233 "a2p.y"
+{ yyval = oper2(OSUB,yypvt[-3],yypvt[-1]); } break;
+case 74:
+# line 235 "a2p.y"
+{ yyval = oper2(OSUB,oper1(OREGEX,yypvt[-3]),yypvt[-1]); } break;
+case 75:
+# line 237 "a2p.y"
+{ yyval = oper2(OGSUB,yypvt[-3],yypvt[-1]); } break;
+case 76:
+# line 239 "a2p.y"
+{ yyval = oper2(OGSUB,oper1(OREGEX,yypvt[-3]),yypvt[-1]); } break;
+case 77:
+# line 241 "a2p.y"
+{ yyval = oper3(OSUB,yypvt[-5],yypvt[-3],yypvt[-1]); } break;
+case 78:
+# line 243 "a2p.y"
+{ yyval = oper3(OSUB,oper1(OREGEX,yypvt[-5]),yypvt[-3],yypvt[-1]); } break;
+case 79:
+# line 245 "a2p.y"
+{ yyval = oper3(OGSUB,yypvt[-5],yypvt[-3],yypvt[-1]); } break;
+case 80:
+# line 247 "a2p.y"
+{ yyval = oper3(OGSUB,oper1(OREGEX,yypvt[-5]),yypvt[-3],yypvt[-1]); } break;
+case 81:
+# line 251 "a2p.y"
+{ yyval = oper1(OVAR,yypvt[-0]); } break;
+case 82:
+# line 253 "a2p.y"
+{ yyval = oper2(OVAR,aryrefarg(yypvt[-3]),yypvt[-1]); } break;
+case 83:
+# line 255 "a2p.y"
+{ yyval = oper1(OFLD,yypvt[-0]); } break;
+case 84:
+# line 257 "a2p.y"
+{ yyval = oper1(OVFLD,yypvt[-0]); } break;
+case 87:
+# line 264 "a2p.y"
+{ yyval = Nullop; } break;
+case 88:
+# line 268 "a2p.y"
+{ yyval = oper3(OCOMMA,yypvt[-3],yypvt[-1],yypvt[-0]); } break;
+case 89:
+# line 270 "a2p.y"
+{ yyval = oper3(OCOMMA,yypvt[-3],yypvt[-1],yypvt[-0]); } break;
+case 90:
+# line 272 "a2p.y"
+{ yyval = yypvt[-1]; } break;
+case 91:
+# line 276 "a2p.y"
+{ yyval = oper2(OJUNK,yypvt[-1],yypvt[-0]); } break;
+case 92:
+# line 278 "a2p.y"
+{ yyval = Nullop; } break;
+case 93:
+# line 282 "a2p.y"
+{ yyval = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); } break;
+case 94:
+# line 284 "a2p.y"
+{ yyval = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); } break;
+case 95:
+# line 286 "a2p.y"
+{ yyval = oper0(ONEWLINE); } break;
+case 96:
+# line 288 "a2p.y"
+{ yyval = oper1(OCOMMENT,yypvt[-0]); } break;
+case 97:
+# line 292 "a2p.y"
+{ yyval = oper2(OJUNK,yypvt[-1],yypvt[-0]); } break;
+case 98:
+# line 294 "a2p.y"
+{ yyval = Nullop; } break;
+case 99:
+# line 298 "a2p.y"
+{ yyval = oper0(ONEWLINE); } break;
+case 100:
+# line 300 "a2p.y"
+{ yyval = oper1(OCOMMENT,yypvt[-0]); } break;
+case 101:
+# line 305 "a2p.y"
+{ yyval = oper2(OJUNK,oper0(OSEMICOLON),yypvt[-0]); } break;
+case 102:
+# line 307 "a2p.y"
+{ yyval = oper2(OJUNK,oper0(OSNEWLINE),yypvt[-0]); } break;
+case 103:
+# line 309 "a2p.y"
+{ yyval = oper2(OJUNK,oper0(OSNEWLINE),yypvt[-0]); } break;
+case 104:
+# line 311 "a2p.y"
+{ yyval = oper2(OJUNK,oper1(OSCOMMENT,yypvt[-1]),yypvt[-0]); } break;
+case 105:
+# line 315 "a2p.y"
+{ yyval = oper2(OSTATES,yypvt[-1],yypvt[-0]); } break;
+case 106:
+# line 317 "a2p.y"
+{ yyval = Nullop; } break;
+case 107:
+# line 322 "a2p.y"
+{ yyval = oper2(OJUNK,oper2(OSTATE,yypvt[-2],yypvt[-1]),yypvt[-0]); } break;
+case 108:
+# line 324 "a2p.y"
+{ yyval = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSEMICOLON),yypvt[-0])); } break;
+case 109:
+# line 326 "a2p.y"
+{ yyval = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSNEWLINE),yypvt[-0])); } break;
+case 112:
+# line 332 "a2p.y"
+{ yyval = Nullop; } break;
+case 114:
+# line 338 "a2p.y"
+{ yyval = oper3(OPRINT,yypvt[-2],yypvt[-1],yypvt[-0]);
+ do_opens = TRUE;
+ saw_ORS = saw_OFS = TRUE;
+ if (!yypvt[-2]) need_entire = TRUE;
+ if (ops[yypvt[-0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } break;
+case 115:
+# line 344 "a2p.y"
+{ yyval = oper1(OPRINT,yypvt[-0]);
+ if (!yypvt[-0]) need_entire = TRUE;
+ saw_ORS = saw_OFS = TRUE;
+ } break;
+case 116:
+# line 349 "a2p.y"
+{ yyval = oper3(OPRINTF,yypvt[-2],yypvt[-1],yypvt[-0]);
+ do_opens = TRUE;
+ if (!yypvt[-2]) need_entire = TRUE;
+ if (ops[yypvt[-0]].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } break;
+case 117:
+# line 354 "a2p.y"
+{ yyval = oper1(OPRINTF,yypvt[-0]);
+ if (!yypvt[-0]) need_entire = TRUE;
+ } break;
+case 118:
+# line 358 "a2p.y"
+{ yyval = oper0(OBREAK); } break;
+case 119:
+# line 360 "a2p.y"
+{ yyval = oper0(ONEXT); } break;
+case 120:
+# line 362 "a2p.y"
+{ yyval = oper0(OEXIT); } break;
+case 121:
+# line 364 "a2p.y"
+{ yyval = oper1(OEXIT,yypvt[-0]); } break;
+case 122:
+# line 366 "a2p.y"
+{ yyval = oper0(OCONTINUE); } break;
+case 123:
+# line 368 "a2p.y"
+{ yyval = oper0(ORETURN); } break;
+case 124:
+# line 370 "a2p.y"
+{ yyval = oper1(ORETURN,yypvt[-0]); } break;
+case 125:
+# line 372 "a2p.y"
+{ yyval = oper2(ODELETE,aryrefarg(yypvt[-3]),yypvt[-1]); } break;
+case 126:
+# line 376 "a2p.y"
+{ yyval = oper1(OREDIR,string(">",1)); } break;
+case 127:
+# line 378 "a2p.y"
+{ yyval = oper1(OREDIR,string(">>",2)); } break;
+case 128:
+# line 380 "a2p.y"
+{ yyval = oper1(OREDIR,string("|",1)); } break;
+case 129:
+# line 385 "a2p.y"
+{ yyval = oper2(OIF,yypvt[-3],bl(yypvt[-0],yypvt[-1])); } break;
+case 130:
+# line 387 "a2p.y"
+{ yyval = oper3(OIF,yypvt[-6],bl(yypvt[-3],yypvt[-4]),bl(yypvt[-0],yypvt[-1])); } break;
+case 131:
+# line 389 "a2p.y"
+{ yyval = oper2(OWHILE,yypvt[-3],bl(yypvt[-0],yypvt[-1])); } break;
+case 132:
+# line 391 "a2p.y"
+{ yyval = oper2(ODO,bl(yypvt[-4],yypvt[-5]),yypvt[-1]); } break;
+case 133:
+# line 393 "a2p.y"
+{ yyval = oper4(OFOR,yypvt[-7],yypvt[-5],yypvt[-3],bl(yypvt[-0],yypvt[-1])); } break;
+case 134:
+# line 395 "a2p.y"
+{ yyval = oper4(OFOR,yypvt[-6],string("",0),yypvt[-3],bl(yypvt[-0],yypvt[-1])); } break;
+case 135:
+# line 397 "a2p.y"
+{ yyval = oper2(OFORIN,yypvt[-3],bl(yypvt[-0],yypvt[-1])); } break;
+case 136:
+# line 399 "a2p.y"
+{ yyval = oper3(OBLOCK,oper2(OJUNK,yypvt[-3],yypvt[-2]),Nullop,yypvt[-0]); } break;
+ }
+ goto yystack; /* reset registers in driver code */
+}