diff options
| author | Larry Wall <lwall@netlabs.com> | 1994-10-17 23:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1994-10-17 23:00:00 +0000 |
| commit | a0d0e21ea6ea90a22318550944fe6cb09ae10cda (patch) | |
| tree | faca1018149b736b1142f487e44d1ff2de5cc1fa /x2p/a2p.c | |
| parent | 85e6fe838fb25b257a1b363debf8691c0992ef71 (diff) | |
| download | perl-a0d0e21ea6ea90a22318550944fe6cb09ae10cda.tar.gz | |
perl 5.000perl-5.000
[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details. Andy notes that;
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge
backup tapes from that era seem to be readable anymore. I guess 13 years
exceeds the shelf life for that backup technology :-(.
]
Diffstat (limited to 'x2p/a2p.c')
| -rw-r--r-- | x2p/a2p.c | 1607 |
1 files changed, 0 insertions, 1607 deletions
diff --git a/x2p/a2p.c b/x2p/a2p.c deleted file mode 100644 index 41636f0c17..0000000000 --- a/x2p/a2p.c +++ /dev/null @@ -1,1607 +0,0 @@ -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 */ -} |