aboutsummaryrefslogtreecommitdiffstats
path: root/awktab.c
diff options
context:
space:
mode:
authorArnold D. Robbins <arnold@skeeve.com>2010-07-16 12:41:09 +0300
committerArnold D. Robbins <arnold@skeeve.com>2010-07-16 12:41:09 +0300
commit8c042f99cc7465c86351d21331a129111b75345d (patch)
tree9656e653be0e42e5469cec77635c20356de152c2 /awktab.c
parent8ceb5f934787eb7be5fb452fb39179df66119954 (diff)
downloadegawk-8c042f99cc7465c86351d21331a129111b75345d.tar.gz
egawk-8c042f99cc7465c86351d21331a129111b75345d.tar.bz2
egawk-8c042f99cc7465c86351d21331a129111b75345d.zip
Move to gawk-3.0.0.
Diffstat (limited to 'awktab.c')
-rw-r--r--awktab.c2541
1 files changed, 1443 insertions, 1098 deletions
diff --git a/awktab.c b/awktab.c
index 6198e850..9bda6804 100644
--- a/awktab.c
+++ b/awktab.c
@@ -1,5 +1,5 @@
-/* A Bison parser, made from awk.y with Bison version GNU Bison version 1.22
+/* A Bison parser, made from ./awk.y with Bison version GNU Bison version 1.22
*/
#define YYBISON 1 /* Identify Bison output. */
@@ -33,16 +33,17 @@
#define LEX_EXIT 284
#define LEX_FUNCTION 285
#define LEX_GETLINE 286
-#define LEX_IN 287
-#define LEX_AND 288
-#define LEX_OR 289
-#define INCREMENT 290
-#define DECREMENT 291
-#define LEX_BUILTIN 292
-#define LEX_LENGTH 293
-#define UNARY 294
-
-#line 26 "awk.y"
+#define LEX_NEXTFILE 287
+#define LEX_IN 288
+#define LEX_AND 289
+#define LEX_OR 290
+#define INCREMENT 291
+#define DECREMENT 292
+#define LEX_BUILTIN 293
+#define LEX_LENGTH 294
+#define UNARY 295
+
+#line 26 "./awk.y"
#ifdef DEBUG
#define YYDEBUG 12
@@ -50,7 +51,14 @@
#include "awk.h"
-static void yyerror (); /* va_alist */
+#define CAN_FREE TRUE
+#define DONT_FREE FALSE
+
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+static void yyerror(const char *m, ...) ;
+#else
+static void yyerror(); /* va_alist */
+#endif
static char *get_src_buf P((void));
static int yylex P((void));
static NODE *node_common P((NODETYPE op));
@@ -64,11 +72,17 @@ static void pop_params P((NODE *params));
static NODE *make_param P((char *name));
static NODE *mk_rexp P((NODE *exp));
static int dup_parms P((NODE *func));
+static void param_sanity P((NODE *arglist));
+static int isnoeffect P((NODETYPE));
+
+enum defref { FUNC_DEFINE, FUNC_USE };
+static void func_use P((char *name, enum defref how));
+static void check_funcs P((void));
static int want_assign; /* lexical scanning kludge */
static int want_regexp; /* lexical scanning kludge */
static int can_return; /* lexical scanning kludge */
-static int io_allowed = 1; /* lexical scanning kludge */
+static int io_allowed = TRUE; /* lexical scanning kludge */
static char *lexptr; /* pointer to next char during parsing */
static char *lexend;
static char *lexptr_begin; /* keep track of where we were for error msgs */
@@ -91,7 +105,7 @@ extern int errcount;
extern NODE *begin_block;
extern NODE *end_block;
-#line 75 "awk.y"
+#line 88 "./awk.y"
typedef union {
long lval;
AWKNUM fval;
@@ -127,26 +141,26 @@ typedef
-#define YYFINAL 310
+#define YYFINAL 312
#define YYFLAG -32768
-#define YYNTBASE 61
+#define YYNTBASE 62
-#define YYTRANSLATE(x) ((unsigned)(x) <= 294 ? yytranslate[x] : 106)
+#define YYTRANSLATE(x) ((unsigned)(x) <= 295 ? yytranslate[x] : 107)
static const char yytranslate[] = { 0,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 50, 2, 2, 53, 49, 2, 2, 54,
- 55, 47, 45, 41, 46, 2, 48, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 40, 60, 42,
- 2, 43, 39, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 51, 2, 2, 54, 50, 2, 2, 55,
+ 56, 48, 46, 42, 47, 2, 49, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 41, 61, 43,
+ 2, 44, 40, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 56, 2, 57, 52, 2, 2, 2, 2, 2, 2,
+ 57, 2, 58, 53, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 58, 44, 59, 2, 2, 2, 2, 2,
+ 2, 2, 59, 45, 60, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
@@ -163,7 +177,7 @@ static const char yytranslate[] = { 0,
6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
26, 27, 28, 29, 30, 31, 32, 33, 34, 35,
- 36, 37, 38, 51
+ 36, 37, 38, 39, 52
};
#if YYDEBUG != 0
@@ -173,132 +187,135 @@ static const short yyprhs[] = { 0,
50, 52, 53, 61, 66, 71, 73, 77, 78, 83,
89, 94, 96, 99, 101, 104, 106, 109, 112, 115,
119, 121, 128, 137, 146, 157, 167, 170, 173, 180,
- 185, 189, 193, 194, 199, 206, 210, 213, 215, 217,
- 224, 234, 236, 239, 240, 242, 243, 246, 247, 250,
- 253, 256, 257, 259, 261, 265, 267, 270, 274, 275,
- 277, 278, 280, 282, 286, 288, 291, 295, 299, 300,
- 302, 304, 308, 310, 313, 317, 321, 322, 327, 333,
- 338, 342, 346, 350, 354, 356, 359, 363, 367, 371,
- 375, 381, 383, 386, 387, 392, 396, 400, 404, 406,
- 409, 413, 417, 421, 427, 429, 432, 434, 438, 442,
- 446, 450, 454, 458, 461, 464, 467, 471, 476, 481,
- 483, 488, 490, 493, 496, 498, 500, 503, 506, 507,
- 509, 511, 516, 519, 522, 525, 527, 528, 530, 532
+ 185, 189, 192, 196, 197, 202, 209, 213, 216, 218,
+ 220, 227, 237, 239, 242, 243, 245, 246, 249, 250,
+ 253, 256, 259, 260, 262, 264, 268, 270, 273, 277,
+ 278, 280, 281, 283, 285, 289, 291, 294, 298, 302,
+ 303, 305, 307, 311, 313, 316, 320, 324, 325, 330,
+ 336, 341, 345, 349, 353, 357, 359, 362, 366, 370,
+ 374, 378, 384, 386, 389, 390, 395, 399, 403, 407,
+ 409, 412, 416, 420, 424, 430, 432, 435, 437, 441,
+ 445, 449, 453, 457, 461, 464, 467, 470, 474, 479,
+ 484, 486, 491, 493, 496, 499, 501, 503, 506, 509,
+ 510, 512, 514, 519, 522, 525, 528, 530, 531, 533,
+ 535
};
-static const short yyrhs[] = { 82,
- 62, 82, 0, 63, 0, 62, 63, 0, 1, 0,
- 62, 1, 0, 0, 0, 15, 64, 74, 0, 0,
- 16, 65, 74, 0, 15, 76, 0, 16, 76, 0,
- 71, 74, 0, 74, 0, 71, 76, 0, 68, 70,
- 0, 4, 0, 3, 0, 67, 0, 37, 0, 38,
- 0, 0, 30, 69, 66, 54, 85, 102, 82, 0,
- 100, 75, 101, 103, 0, 100, 101, 103, 82, 0,
- 92, 0, 92, 41, 92, 0, 0, 48, 73, 5,
- 48, 0, 100, 75, 101, 103, 82, 0, 100, 101,
- 103, 82, 0, 77, 0, 75, 77, 0, 1, 0,
- 75, 1, 0, 81, 0, 104, 82, 0, 104, 82,
- 0, 100, 101, 0, 100, 75, 101, 0, 80, 0,
- 21, 54, 92, 102, 82, 77, 0, 22, 82, 77,
- 21, 54, 92, 102, 82, 0, 23, 54, 4, 32,
- 4, 102, 82, 77, 0, 23, 54, 87, 104, 92,
- 104, 87, 102, 82, 77, 0, 23, 54, 87, 104,
- 104, 87, 102, 82, 77, 0, 24, 76, 0, 25,
- 76, 0, 79, 54, 91, 102, 84, 76, 0, 79,
- 88, 84, 76, 0, 28, 87, 76, 0, 29, 87,
- 76, 0, 0, 19, 78, 87, 76, 0, 20, 4,
- 56, 91, 57, 76, 0, 20, 4, 76, 0, 92,
- 76, 0, 26, 0, 27, 0, 17, 54, 92, 102,
- 82, 77, 0, 17, 54, 92, 102, 82, 77, 18,
- 82, 77, 0, 13, 0, 81, 13, 0, 0, 81,
- 0, 0, 42, 96, 0, 0, 43, 92, 0, 10,
- 92, 0, 44, 92, 0, 0, 86, 0, 4, 0,
- 86, 105, 4, 0, 1, 0, 86, 1, 0, 86,
- 105, 1, 0, 0, 92, 0, 0, 89, 0, 94,
- 0, 89, 105, 94, 0, 1, 0, 89, 1, 0,
- 89, 1, 94, 0, 89, 105, 1, 0, 0, 91,
- 0, 92, 0, 91, 105, 92, 0, 1, 0, 91,
- 1, 0, 91, 1, 92, 0, 91, 105, 1, 0,
- 0, 99, 11, 93, 92, 0, 54, 91, 102, 32,
- 4, 0, 92, 44, 31, 98, 0, 31, 98, 83,
- 0, 92, 33, 92, 0, 92, 34, 92, 0, 92,
- 12, 92, 0, 72, 0, 50, 72, 0, 92, 32,
- 4, 0, 92, 9, 92, 0, 92, 42, 92, 0,
- 92, 43, 92, 0, 92, 39, 92, 40, 92, 0,
- 96, 0, 92, 96, 0, 0, 99, 11, 95, 94,
- 0, 94, 33, 94, 0, 94, 34, 94, 0, 31,
- 98, 83, 0, 72, 0, 50, 72, 0, 94, 12,
- 94, 0, 94, 32, 4, 0, 94, 9, 94, 0,
- 94, 39, 94, 40, 94, 0, 96, 0, 94, 96,
- 0, 97, 0, 96, 52, 96, 0, 96, 47, 96,
- 0, 96, 48, 96, 0, 96, 49, 96, 0, 96,
- 45, 96, 0, 96, 46, 96, 0, 99, 35, 0,
- 99, 36, 0, 50, 96, 0, 54, 92, 102, 0,
- 37, 54, 90, 102, 0, 38, 54, 90, 102, 0,
- 38, 0, 3, 54, 90, 102, 0, 99, 0, 35,
- 99, 0, 36, 99, 0, 7, 0, 8, 0, 46,
- 96, 0, 45, 96, 0, 0, 99, 0, 4, 0,
- 4, 56, 91, 57, 0, 53, 97, 0, 58, 82,
- 0, 59, 82, 0, 55, 0, 0, 104, 0, 60,
- 0, 41, 82, 0
+static const short yyrhs[] = { 83,
+ 63, 83, 0, 64, 0, 63, 64, 0, 1, 0,
+ 63, 1, 0, 0, 0, 15, 65, 75, 0, 0,
+ 16, 66, 75, 0, 15, 77, 0, 16, 77, 0,
+ 72, 75, 0, 75, 0, 72, 77, 0, 69, 71,
+ 0, 4, 0, 3, 0, 68, 0, 38, 0, 39,
+ 0, 0, 30, 70, 67, 55, 86, 103, 83, 0,
+ 101, 76, 102, 104, 0, 101, 102, 104, 83, 0,
+ 93, 0, 93, 42, 93, 0, 0, 49, 74, 5,
+ 49, 0, 101, 76, 102, 104, 83, 0, 101, 102,
+ 104, 83, 0, 78, 0, 76, 78, 0, 1, 0,
+ 76, 1, 0, 82, 0, 105, 83, 0, 105, 83,
+ 0, 101, 102, 0, 101, 76, 102, 0, 81, 0,
+ 21, 55, 93, 103, 83, 78, 0, 22, 83, 78,
+ 21, 55, 93, 103, 83, 0, 23, 55, 4, 33,
+ 4, 103, 83, 78, 0, 23, 55, 88, 105, 93,
+ 105, 88, 103, 83, 78, 0, 23, 55, 88, 105,
+ 105, 88, 103, 83, 78, 0, 24, 77, 0, 25,
+ 77, 0, 80, 55, 92, 103, 85, 77, 0, 80,
+ 89, 85, 77, 0, 28, 88, 77, 0, 32, 77,
+ 0, 29, 88, 77, 0, 0, 19, 79, 88, 77,
+ 0, 20, 4, 57, 92, 58, 77, 0, 20, 4,
+ 77, 0, 93, 77, 0, 26, 0, 27, 0, 17,
+ 55, 93, 103, 83, 78, 0, 17, 55, 93, 103,
+ 83, 78, 18, 83, 78, 0, 13, 0, 82, 13,
+ 0, 0, 82, 0, 0, 43, 97, 0, 0, 44,
+ 93, 0, 10, 93, 0, 45, 93, 0, 0, 87,
+ 0, 4, 0, 87, 106, 4, 0, 1, 0, 87,
+ 1, 0, 87, 106, 1, 0, 0, 93, 0, 0,
+ 90, 0, 95, 0, 90, 106, 95, 0, 1, 0,
+ 90, 1, 0, 90, 1, 95, 0, 90, 106, 1,
+ 0, 0, 92, 0, 93, 0, 92, 106, 93, 0,
+ 1, 0, 92, 1, 0, 92, 1, 93, 0, 92,
+ 106, 1, 0, 0, 100, 11, 94, 93, 0, 55,
+ 92, 103, 33, 4, 0, 93, 45, 31, 99, 0,
+ 31, 99, 84, 0, 93, 34, 93, 0, 93, 35,
+ 93, 0, 93, 12, 93, 0, 73, 0, 51, 73,
+ 0, 93, 33, 4, 0, 93, 9, 93, 0, 93,
+ 43, 93, 0, 93, 44, 93, 0, 93, 40, 93,
+ 41, 93, 0, 97, 0, 93, 97, 0, 0, 100,
+ 11, 96, 95, 0, 95, 34, 95, 0, 95, 35,
+ 95, 0, 31, 99, 84, 0, 73, 0, 51, 73,
+ 0, 95, 12, 95, 0, 95, 33, 4, 0, 95,
+ 9, 95, 0, 95, 40, 95, 41, 95, 0, 97,
+ 0, 95, 97, 0, 98, 0, 97, 53, 97, 0,
+ 97, 48, 97, 0, 97, 49, 97, 0, 97, 50,
+ 97, 0, 97, 46, 97, 0, 97, 47, 97, 0,
+ 100, 36, 0, 100, 37, 0, 51, 97, 0, 55,
+ 93, 103, 0, 38, 55, 91, 103, 0, 39, 55,
+ 91, 103, 0, 39, 0, 3, 55, 91, 103, 0,
+ 100, 0, 36, 100, 0, 37, 100, 0, 7, 0,
+ 8, 0, 47, 97, 0, 46, 97, 0, 0, 100,
+ 0, 4, 0, 4, 57, 92, 58, 0, 54, 98,
+ 0, 59, 83, 0, 60, 83, 0, 56, 0, 0,
+ 105, 0, 61, 0, 42, 83, 0
};
#endif
#if YYDEBUG != 0
static const short yyrline[] = { 0,
- 136, 141, 149, 165, 166, 167, 171, 173, 187, 189,
- 203, 209, 215, 217, 219, 232, 241, 243, 245, 255,
- 256, 260, 264, 275, 280, 289, 291, 300, 302, 320,
- 322, 327, 329, 337, 339, 344, 345, 349, 351, 353,
- 355, 357, 359, 361, 366, 370, 375, 378, 381, 383,
- 403, 430, 432, 434, 436, 438, 452, 457, 459, 464,
- 469, 476, 478, 482, 483, 487, 489, 494, 496, 498,
- 500, 505, 507, 512, 514, 516, 518, 520, 526, 528,
- 533, 535, 540, 542, 548, 550, 552, 554, 559, 561,
- 566, 568, 574, 576, 578, 580, 585, 588, 593, 595,
- 600, 606, 608, 610, 616, 626, 634, 636, 642, 644,
- 646, 648, 650, 655, 658, 659, 661, 663, 669, 671,
- 673, 675, 677, 679, 681, 683, 688, 690, 692, 694,
- 696, 698, 700, 702, 704, 709, 711, 713, 716, 718,
- 726, 731, 732, 734, 736, 738, 741, 748, 757, 759,
- 764, 766, 774, 779, 783, 787, 791, 792, 796, 799
+ 149, 157, 165, 181, 182, 183, 187, 189, 203, 205,
+ 219, 225, 231, 233, 235, 248, 257, 259, 261, 271,
+ 272, 276, 280, 291, 296, 305, 307, 316, 318, 336,
+ 338, 343, 349, 357, 359, 364, 365, 369, 371, 373,
+ 375, 377, 379, 381, 387, 391, 396, 399, 402, 404,
+ 424, 463, 482, 484, 489, 491, 493, 507, 512, 514,
+ 519, 524, 531, 533, 537, 538, 542, 544, 549, 551,
+ 553, 555, 560, 562, 567, 569, 571, 573, 575, 581,
+ 583, 588, 590, 595, 597, 603, 605, 607, 609, 614,
+ 616, 621, 623, 629, 631, 633, 635, 640, 643, 648,
+ 650, 655, 661, 663, 665, 671, 681, 689, 691, 697,
+ 699, 701, 703, 705, 710, 713, 714, 716, 718, 724,
+ 726, 728, 730, 732, 734, 736, 738, 743, 745, 747,
+ 749, 751, 753, 755, 757, 759, 764, 766, 768, 771,
+ 773, 781, 788, 789, 791, 793, 795, 798, 806, 817,
+ 819, 824, 826, 834, 839, 843, 847, 851, 852, 856,
+ 859
};
static const char * const yytname[] = { "$","error","$illegal.","FUNC_CALL",
"NAME","REGEXP","ERROR","YNUMBER","YSTRING","RELOP","APPEND_OP","ASSIGNOP","MATCHOP",
"NEWLINE","CONCAT_OP","LEX_BEGIN","LEX_END","LEX_IF","LEX_ELSE","LEX_RETURN",
"LEX_DELETE","LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT",
-"LEX_PRINTF","LEX_NEXT","LEX_EXIT","LEX_FUNCTION","LEX_GETLINE","LEX_IN","LEX_AND",
-"LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN","LEX_LENGTH","'?'","':'","','",
-"'<'","'>'","'|'","'+'","'-'","'*'","'/'","'%'","'!'","UNARY","'^'","'$'","'('",
-"')'","'['","']'","'{'","'}'","';'","start","program","rule","@1","@2","func_name",
-"lex_builtin","function_prologue","@3","function_body","pattern","regexp","@4",
-"action","statements","statement_term","statement","@5","print","if_statement",
-"nls","opt_nls","input_redir","output_redir","opt_param_list","param_list","opt_exp",
-"opt_rexpression_list","rexpression_list","opt_expression_list","expression_list",
-"exp","@6","rexp","@7","simp_exp","non_post_simp_exp","opt_variable","variable",
-"l_brace","r_brace","r_paren","opt_semi","semi","comma",""
+"LEX_PRINTF","LEX_NEXT","LEX_EXIT","LEX_FUNCTION","LEX_GETLINE","LEX_NEXTFILE",
+"LEX_IN","LEX_AND","LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN","LEX_LENGTH",
+"'?'","':'","','","'<'","'>'","'|'","'+'","'-'","'*'","'/'","'%'","'!'","UNARY",
+"'^'","'$'","'('","')'","'['","']'","'{'","'}'","';'","start","program","rule",
+"@1","@2","func_name","lex_builtin","function_prologue","@3","function_body",
+"pattern","regexp","@4","action","statements","statement_term","statement","@5",
+"print","if_statement","nls","opt_nls","input_redir","output_redir","opt_param_list",
+"param_list","opt_exp","opt_rexpression_list","rexpression_list","opt_expression_list",
+"expression_list","exp","@6","rexp","@7","simp_exp","non_post_simp_exp","opt_variable",
+"variable","l_brace","r_brace","r_paren","opt_semi","semi","comma",""
};
#endif
static const short yyr1[] = { 0,
- 61, 62, 62, 62, 62, 62, 64, 63, 65, 63,
- 63, 63, 63, 63, 63, 63, 66, 66, 66, 67,
- 67, 69, 68, 70, 70, 71, 71, 73, 72, 74,
- 74, 75, 75, 75, 75, 76, 76, 77, 77, 77,
- 77, 77, 77, 77, 77, 77, 77, 77, 77, 77,
- 77, 77, 78, 77, 77, 77, 77, 79, 79, 80,
- 80, 81, 81, 82, 82, 83, 83, 84, 84, 84,
- 84, 85, 85, 86, 86, 86, 86, 86, 87, 87,
- 88, 88, 89, 89, 89, 89, 89, 89, 90, 90,
- 91, 91, 91, 91, 91, 91, 93, 92, 92, 92,
- 92, 92, 92, 92, 92, 92, 92, 92, 92, 92,
- 92, 92, 92, 95, 94, 94, 94, 94, 94, 94,
- 94, 94, 94, 94, 94, 94, 96, 96, 96, 96,
- 96, 96, 96, 96, 96, 97, 97, 97, 97, 97,
- 97, 97, 97, 97, 97, 97, 97, 97, 98, 98,
- 99, 99, 99, 100, 101, 102, 103, 103, 104, 105
+ 62, 63, 63, 63, 63, 63, 65, 64, 66, 64,
+ 64, 64, 64, 64, 64, 64, 67, 67, 67, 68,
+ 68, 70, 69, 71, 71, 72, 72, 74, 73, 75,
+ 75, 76, 76, 76, 76, 77, 77, 78, 78, 78,
+ 78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
+ 78, 78, 78, 79, 78, 78, 78, 78, 80, 80,
+ 81, 81, 82, 82, 83, 83, 84, 84, 85, 85,
+ 85, 85, 86, 86, 87, 87, 87, 87, 87, 88,
+ 88, 89, 89, 90, 90, 90, 90, 90, 90, 91,
+ 91, 92, 92, 92, 92, 92, 92, 94, 93, 93,
+ 93, 93, 93, 93, 93, 93, 93, 93, 93, 93,
+ 93, 93, 93, 93, 96, 95, 95, 95, 95, 95,
+ 95, 95, 95, 95, 95, 95, 95, 97, 97, 97,
+ 97, 97, 97, 97, 97, 97, 98, 98, 98, 98,
+ 98, 98, 98, 98, 98, 98, 98, 98, 98, 99,
+ 99, 100, 100, 100, 101, 102, 103, 104, 104, 105,
+ 106
};
static const short yyr2[] = { 0,
@@ -307,471 +324,472 @@ static const short yyr2[] = { 0,
1, 0, 7, 4, 4, 1, 3, 0, 4, 5,
4, 1, 2, 1, 2, 1, 2, 2, 2, 3,
1, 6, 8, 8, 10, 9, 2, 2, 6, 4,
- 3, 3, 0, 4, 6, 3, 2, 1, 1, 6,
- 9, 1, 2, 0, 1, 0, 2, 0, 2, 2,
- 2, 0, 1, 1, 3, 1, 2, 3, 0, 1,
- 0, 1, 1, 3, 1, 2, 3, 3, 0, 1,
- 1, 3, 1, 2, 3, 3, 0, 4, 5, 4,
- 3, 3, 3, 3, 1, 2, 3, 3, 3, 3,
- 5, 1, 2, 0, 4, 3, 3, 3, 1, 2,
- 3, 3, 3, 5, 1, 2, 1, 3, 3, 3,
- 3, 3, 3, 2, 2, 2, 3, 4, 4, 1,
- 4, 1, 2, 2, 1, 1, 2, 2, 0, 1,
- 1, 4, 2, 2, 2, 1, 0, 1, 1, 2
+ 3, 2, 3, 0, 4, 6, 3, 2, 1, 1,
+ 6, 9, 1, 2, 0, 1, 0, 2, 0, 2,
+ 2, 2, 0, 1, 1, 3, 1, 2, 3, 0,
+ 1, 0, 1, 1, 3, 1, 2, 3, 3, 0,
+ 1, 1, 3, 1, 2, 3, 3, 0, 4, 5,
+ 4, 3, 3, 3, 3, 1, 2, 3, 3, 3,
+ 3, 5, 1, 2, 0, 4, 3, 3, 3, 1,
+ 2, 3, 3, 3, 5, 1, 2, 1, 3, 3,
+ 3, 3, 3, 3, 2, 2, 2, 3, 4, 4,
+ 1, 4, 1, 2, 2, 1, 1, 2, 2, 0,
+ 1, 1, 4, 2, 2, 2, 1, 0, 1, 1,
+ 2
};
-static const short yydefact[] = { 64,
- 62, 65, 0, 63, 4, 0, 151, 145, 146, 7,
- 9, 22, 149, 0, 0, 0, 140, 0, 0, 28,
- 0, 0, 0, 64, 0, 2, 0, 0, 105, 14,
- 26, 112, 127, 142, 0, 0, 0, 159, 0, 11,
- 36, 64, 0, 12, 0, 66, 150, 143, 144, 0,
- 0, 0, 0, 148, 142, 147, 0, 106, 136, 153,
- 142, 93, 0, 91, 154, 5, 3, 1, 16, 0,
+static const short yydefact[] = { 65,
+ 63, 66, 0, 64, 4, 0, 152, 146, 147, 7,
+ 9, 22, 150, 0, 0, 0, 141, 0, 0, 28,
+ 0, 0, 0, 65, 0, 2, 0, 0, 106, 14,
+ 26, 113, 128, 143, 0, 0, 0, 160, 0, 11,
+ 36, 65, 0, 12, 0, 67, 151, 144, 145, 0,
+ 0, 0, 0, 149, 143, 148, 0, 107, 137, 154,
+ 143, 94, 0, 92, 155, 5, 3, 1, 16, 0,
13, 15, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 113, 0, 0, 0, 0, 0, 0, 97,
- 134, 135, 34, 0, 53, 0, 0, 64, 0, 0,
- 0, 58, 59, 79, 79, 64, 0, 32, 0, 41,
- 0, 0, 157, 64, 0, 0, 91, 0, 8, 37,
- 10, 18, 17, 20, 21, 0, 19, 0, 101, 0,
- 0, 0, 0, 94, 64, 156, 0, 0, 137, 0,
- 157, 108, 104, 107, 102, 103, 0, 27, 109, 110,
- 149, 132, 133, 129, 130, 131, 128, 0, 0, 79,
- 0, 0, 0, 79, 47, 48, 0, 80, 0, 155,
- 35, 33, 157, 85, 149, 0, 0, 119, 68, 0,
- 83, 125, 142, 57, 0, 39, 64, 158, 38, 141,
- 152, 0, 67, 138, 139, 29, 95, 160, 0, 96,
- 92, 157, 64, 0, 100, 98, 0, 0, 0, 56,
- 0, 0, 151, 0, 51, 52, 64, 66, 120, 0,
- 0, 0, 0, 0, 86, 0, 0, 0, 0, 0,
- 0, 0, 126, 114, 40, 31, 76, 74, 0, 0,
- 99, 24, 25, 111, 64, 54, 0, 64, 0, 0,
- 0, 30, 118, 68, 70, 69, 71, 50, 87, 88,
- 84, 123, 121, 122, 116, 117, 0, 0, 64, 77,
- 0, 0, 0, 0, 0, 0, 0, 79, 0, 0,
- 115, 23, 78, 75, 60, 55, 42, 0, 64, 79,
- 0, 49, 124, 64, 64, 0, 0, 64, 0, 43,
- 44, 64, 0, 61, 0, 46, 45, 0, 0, 0
+ 0, 0, 114, 0, 0, 0, 0, 0, 0, 98,
+ 135, 136, 34, 0, 54, 0, 0, 65, 0, 0,
+ 0, 59, 60, 80, 80, 0, 65, 0, 32, 0,
+ 41, 0, 0, 158, 65, 0, 0, 92, 0, 8,
+ 37, 10, 18, 17, 20, 21, 0, 19, 0, 102,
+ 0, 0, 0, 0, 95, 65, 157, 0, 0, 138,
+ 0, 158, 109, 105, 108, 103, 104, 0, 27, 110,
+ 111, 150, 133, 134, 130, 131, 132, 129, 0, 0,
+ 80, 0, 0, 0, 80, 47, 48, 0, 81, 0,
+ 52, 156, 35, 33, 158, 86, 150, 0, 0, 120,
+ 69, 0, 84, 126, 143, 58, 0, 39, 65, 159,
+ 38, 142, 153, 0, 68, 139, 140, 29, 96, 161,
+ 0, 97, 93, 158, 65, 0, 101, 99, 0, 0,
+ 0, 57, 0, 0, 152, 0, 51, 53, 65, 67,
+ 121, 0, 0, 0, 0, 0, 87, 0, 0, 0,
+ 0, 0, 0, 0, 127, 115, 40, 31, 77, 75,
+ 0, 0, 100, 24, 25, 112, 65, 55, 0, 65,
+ 0, 0, 0, 30, 119, 69, 71, 70, 72, 50,
+ 88, 89, 85, 124, 122, 123, 117, 118, 0, 0,
+ 65, 78, 0, 0, 0, 0, 0, 0, 0, 80,
+ 0, 0, 116, 23, 79, 76, 61, 56, 42, 0,
+ 65, 80, 0, 49, 125, 65, 65, 0, 0, 65,
+ 0, 43, 44, 65, 0, 62, 0, 46, 45, 0,
+ 0, 0
};
-static const short yydefgoto[] = { 308,
- 25, 26, 39, 43, 126, 127, 27, 45, 69, 28,
- 29, 57, 30, 107, 40, 108, 160, 109, 110, 2,
- 3, 129, 224, 239, 240, 167, 179, 180, 115, 116,
- 111, 158, 181, 268, 32, 33, 46, 34, 112, 113,
- 139, 187, 42, 138
+static const short yydefgoto[] = { 310,
+ 25, 26, 39, 43, 127, 128, 27, 45, 69, 28,
+ 29, 57, 30, 108, 40, 109, 161, 110, 111, 2,
+ 3, 130, 226, 241, 242, 168, 181, 182, 116, 117,
+ 112, 159, 183, 270, 32, 33, 46, 34, 113, 114,
+ 140, 189, 42, 139
};
-static const short yypact[] = { 2,
--32768, 15, 842,-32768,-32768, -44, -27,-32768,-32768, 6,
- 6,-32768, 3, 3, 3, -15, -9, 1684, 1684,-32768,
- 1678, 1684, 1093, 2, 898,-32768, 32, 46,-32768,-32768,
- 1262, 197,-32768, 49, 665, 1072, 1093,-32768, 32,-32768,
- 15, 2, 32,-32768, 96, 7,-32768,-32768,-32768, 1072,
- 1072, 1684, 1474, -21, -11, -21, 86,-32768, -21,-32768,
--32768,-32768, 0, 1209,-32768,-32768,-32768,-32768,-32768, 665,
--32768,-32768, 1474, 1474, 89, 1474, 1474, 1474, 1474, 1474,
- 1474, 63, 197, 1684, 1684, 1684, 1684, 1684, 1684,-32768,
--32768,-32768,-32768, 55,-32768, 99, 56, 2, 66, 6,
- 6,-32768,-32768, 1474, 1474, 2, 756,-32768, 816,-32768,
- 518, 665, 61, 2, 68, 41, 1358, 11,-32768,-32768,
--32768,-32768,-32768,-32768,-32768, 71,-32768, 1684,-32768, 68,
- 68, 1209, 79, 1474, 2,-32768, 98, 1141,-32768, 756,
- 61, 1745, 1732,-32768, 1494, 1406, 1310, 1358, 1745, 1745,
- 3, 90, 90, -21, -21, -21, -21, 1474, 1474, 1474,
- 59, 1474, 946, 1602,-32768,-32768, 6, 1358, 6,-32768,
--32768,-32768, 61,-32768, 3, 1678, 1093,-32768, 44, 85,
- 1542, 197, 111,-32768, 756,-32768, 2,-32768,-32768,-32768,
--32768, 26, 197,-32768,-32768,-32768, 1358,-32768, 128,-32768,
- 1358, 61, 2, 1474,-32768, 1358, 1209, 6, 1093,-32768,
- 1209, 119, -24, 61,-32768,-32768, 2, 7,-32768, 0,
- 1474, 1474, 1474, 6, 1658, 1161, 1658, 1658, 137, 1658,
- 1658, 1658, 197,-32768,-32768,-32768,-32768,-32768, 68, 42,
--32768,-32768,-32768, 1358, 2,-32768, 12, 2, 94, 139,
- 1024,-32768,-32768, 44, 1358, 1358, 1358,-32768, 1542,-32768,
- 1542, 415, 1222,-32768, 1622, 1582, 1454, 1658, 2,-32768,
- 22, 946, 6, 946, 1474, 68, 1004, 1474, 6, 1658,
- 1542,-32768,-32768,-32768, 131,-32768,-32768, 1209, 2, 1474,
- 68,-32768, 1542, 2, 2, 946, 68, 2, 946,-32768,
--32768, 2, 946,-32768, 946,-32768,-32768, 151, 153,-32768
+static const short yypact[] = { -6,
+-32768, 0, 875,-32768,-32768, -40, -38,-32768,-32768, -7,
+ -7,-32768, 10, 10, 10, -31, -26, 1735, 1735,-32768,
+ 1715, 1735, 1131, -6, 932,-32768, -24, 72,-32768,-32768,
+ 1304, 205,-32768, 5, 709, 1110, 1131,-32768, -24,-32768,
+ 0, -6, -24,-32768, 85, 3,-32768,-32768,-32768, 1110,
+ 1110, 1735, 1620, 8, 106, 8, 81,-32768, 8,-32768,
+-32768,-32768, 37, 1250,-32768,-32768,-32768,-32768,-32768, 709,
+-32768,-32768, 1620, 1620, 90, 1620, 1620, 1620, 1620, 1620,
+ 1620, 65, 205, 1735, 1735, 1735, 1735, 1735, 1735,-32768,
+-32768,-32768,-32768, 50,-32768, 111, 70, -6, 93, -7,
+ -7,-32768,-32768, 1620, 1620, -7, -6, 758,-32768, 819,
+-32768, 1040, 709, 100, -6, 99, 55, 1402, 9,-32768,
+-32768,-32768,-32768,-32768,-32768,-32768, 109,-32768, 1735,-32768,
+ 99, 99, 1250, 119, 1620, -6,-32768, 133, 1180,-32768,
+ 758, 100, 1327, 794,-32768, 1515, 1451, 1353, 1402, 1327,
+ 1327, 10, 125, 125, 8, 8, 8, 8, 1620, 1620,
+ 1620, 42, 1620, 981, 1657,-32768,-32768, -7, 1402, -7,
+-32768,-32768,-32768,-32768, 100,-32768, 10, 1715, 1131,-32768,
+ 96, 39, 1538, 205, 117,-32768, 758,-32768, -6,-32768,
+-32768,-32768,-32768, 7, 205,-32768,-32768,-32768, 1402,-32768,
+ 166,-32768, 1402, 100, -6, 1620,-32768, 1402, 1250, -7,
+ 1131,-32768, 1250, 151, -12, 100,-32768,-32768, -6, 3,
+-32768, 37, 1620, 1620, 1620, -7, 1678, 1201, 1678, 1678,
+ 181, 1678, 1678, 1678, 205,-32768,-32768,-32768,-32768,-32768,
+ 99, 56,-32768,-32768,-32768, 1402, -6,-32768, 11, -6,
+ 131, 183, 1061,-32768,-32768, 96, 1402, 1402, 1402,-32768,
+ 1538,-32768, 1538, 635, 83,-32768, 1599, 1579, 1474, 1678,
+ -6,-32768, 103, 981, -7, 981, 1620, 99, 623, 1620,
+ -7, 1678, 1538,-32768,-32768,-32768, 170,-32768,-32768, 1250,
+ -6, 1620, 99,-32768, 1538, -6, -6, 981, 99, -6,
+ 981,-32768,-32768, -6, 981,-32768, 981,-32768,-32768, 190,
+ 191,-32768
};
static const short yypgoto[] = {-32768,
--32768, 125,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
- 84,-32768, -22, -54, 334, -96,-32768,-32768,-32768, 202,
- 38, -58, -92,-32768,-32768, -103,-32768,-32768, -14, -19,
- -3,-32768, -114,-32768, 368, 145, -137, 150, 183, -61,
- -23, -138, 469, -175
+-32768, 167,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
+ 211,-32768, 107, -53, 315, -105,-32768,-32768,-32768, 199,
+ 97, -22, -62,-32768,-32768, -103,-32768,-32768, 94, -14,
+ -3,-32768, -202,-32768, 318, 177, -134, 95, 124, -69,
+ 407, -138, 420, -177
};
-#define YYLAST 1799
+#define YYLAST 1790
static const short yytable[] = { 31,
- 134, 169, 203, 63, 226, 71, 7, 250, 141, 36,
- 172, 134, 134, 205, 1, 140, 119, 118, 1, 64,
- 121, 31, 283, 91, 92, 284, 237, 4, 37, 238,
- 89, 37, 117, 117, 217, 130, 131, 218, 50, 137,
- 135, 134, 270, 172, 51, 173, 117, 117, 128, 132,
- 186, 135, 135, 221, 136, 22, 208, 185, 1, 90,
- 214, 65, 68, 242, 271, 38, 212, 191, 273, 142,
- 143, 1, 145, 146, 147, 148, 149, 150, 202, 120,
- -72, 135, 135, 91, 92, 225, 222, 223, 172, 24,
- 133, 190, 144, 151, -82, -90, -73, -82, 122, 123,
- 168, 168, 161, 24, 58, 38, 194, 195, 159, 162,
- 259, 261, 262, 263, 209, 265, 266, 267, 38, 164,
- 38, 234, 136, 235, 192, 135, 196, -82, -82, 199,
- 197, 241, 124, 125, 201, 163, 86, 87, 88, 249,
- 264, 89, 276, 170, -82, 91, 92, 275, 294, 67,
- 309, 189, 310, 281, 206, 207, 168, 220, 211, 253,
- 168, 279, 47, 48, 49, 293, 60, 55, 55, 0,
- 55, 61, 198, 64, 291, 285, 0, 287, 0, 0,
- 55, 0, 0, 245, 0, 35, 297, 248, 0, 247,
- 0, 0, 178, 0, 0, 0, 254, 0, 0, 301,
- 244, 55, 304, 0, 0, 117, 306, 35, 307, 70,
- 35, 41, 41, 55, 0, 269, 0, 255, 256, 257,
- 0, 35, 0, 0, 236, 35, 0, 0, 0, 41,
- 0, 0, 0, 55, 55, 55, 55, 55, 55, 0,
- 243, 84, 85, 86, 87, 88, 0, 277, 89, 0,
- 0, 0, 289, 0, 252, 0, 0, 0, 183, 219,
- 55, 0, 0, 0, 295, 0, 55, 298, 0, 0,
- 0, 288, 0, 302, 168, 0, 0, 55, 0, 0,
- 0, 55, 272, 0, 0, 274, 168, 0, 0, 0,
- 0, 55, 55, 0, 55, 55, 55, 55, 55, 55,
- 47, 41, 41, 0, 0, 0, 282, 0, 178, 178,
- 178, 178, 41, 178, 178, 178, 0, 55, 0, 0,
- 0, 0, 0, 0, 47, 55, 296, 0, 0, 0,
- 55, 299, 300, 0, 0, 303, 0, 0, 0, 305,
- 0, 0, 0, 0, 44, 0, 55, 0, 0, 0,
- 55, 178, 0, 0, 0, 55, 55, 0, 0, 0,
- 55, 72, 41, 178, 0, 0, 0, 0, 41, 0,
- 41, 0, 0, 0, 183, 183, 183, 183, 0, 183,
- 183, 183, 0, 0, 0, 54, 56, 0, 59, 0,
- 0, 0, 0, 55, 0, 0, 0, 0, 83, 0,
- 0, 0, 0, 0, 55, 55, 55, 0, 55, 41,
- 55, 55, 55, 0, 55, 55, 55, 183, 7, 59,
- 0, 8, 9,-32768, 0, 41, 55, 0, 0, 183,
- 55, 83, 0, 165, 166, 0, 0, 55, 0, 0,
- 0, 0, 55, 0, 184, 0, 0, 0, 0, 14,
- 15, 152, 153, 154, 155, 156, 157, 0, 0, 18,
- 19, 0, 0, 0, 52, 0, 0, 22, 53, 0,
- 0, 0, 0, 0, 41, 0, 182, 0, 83, 0,
- 41, 0, 0, 0, 83, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 210, 193, 0, 0, 0, 83,
- 215, 0, 216, 114, 0, 0, 0, 0, 0, 83,
- 83, 0, 83, 83, 83, 83, 83, 83, 0, 0,
- 6, 7, 0, 0, 8, 9, 73, 0, 0, 74,
- 1, 0, 0, 0, 0, 83, 0, 0, 114, 0,
- 0, 246, 0, 59, 0, 0, 0, 0, 233, 75,
- 76, 77, 14, 15, 16, 17, 78, 258, 0, 80,
- 81, 82, 18, 19, 83, 0, 0, 52, 83, 0,
- 22, 53, 0, 83, 83, 114, 0, 38, 83, 0,
- 114, 188, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 182, 182, 182, 182, 0, 182, 182, 182,
- 0, 0, 0, 0, 0, 0, 286, 0, 114, 188,
- 0, 83, 292, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 83, 83, 83, 0, 233, 0, 233, 233,
- 233, 114, 233, 233, 233, 182, 0, 0, 0, 0,
- 0, 188, 0, 0, 83, 0, 0, 182, 233, 0,
- 0, 0, 0, 114, 0, 83, 0, 0, 0, 0,
- 233, 0, 0, 0, 0, 93, 0, 6, 7, 0,
- 188, 8, 9, 0, 0, 0, 0, 0, 0, 0,
- 0, 94, 251, 95, 96, 97, 98, 99, 100, 101,
- 102, 103, 104, 105, 0, 13, 0, 0, 0, 14,
- 15, 16, 17, 0, 0, 0, 0, 0, 0, 18,
- 19, 0, 20, 0, 21, 0, 0, 22, 23, 278,
- 0, 0, 24, 106, 38, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 114, 0, 114, 0, 0, 290, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 171, 0, 6, 7,
- 0, 0, 8, 9, 114, 0, 0, 114, 0, 0,
- 0, 114, 94, 114, 95, 96, 97, 98, 99, 100,
- 101, 102, 103, 104, 105, 0, 13, 0, 0, 0,
+ 142, 170, 174, 205, 228, 1, 1, 239, 63, 135,
+ 240, 135, 4, 7, 36, 90, 141, 207, 37, 64,
+ 252, 31, 119, 50, 261, 263, 264, 265, 51, 267,
+ 268, 269, 118, 118, 24, 174, 219, 135, 175, 227,
+ 91, 92, 220, 188, 37, 129, 118, 118, -83, 133,
+ 136, -83, 136, 38, 1, 135, 272, 210, 214, 187,
+ 89, 216, -73, 22, 273, 244, 193, 283, 275, 143,
+ 144, 204, 146, 147, 148, 149, 150, 151, 136, 295,
+ 136, 174, -83, -83, 1, 134, 7, 123, 124, 8,
+ 9, 229, 137, 145,-32768, 152, 136, 136, 211, -83,
+ 169, 169, 38, 285, 160, 223, 286, 47, 48, 49,
+ -91, -74, 55, 55, 162, 55, 61, 237, 14, 15,
+ 65, 68, 125, 126, 163, 55, 35, 236, 18, 19,
+ 24, 199, 38, 52, 71, 203, 22, 53, 121, 224,
+ 225, 91, 92, 131, 132, 120, 55, 165, 35, 122,
+ 70, 35, 91, 92, 137, 208, 209, 169, 55, 213,
+ 38, 169, 35, 194, 222, 201, 35, 198, 287, 243,
+ 289, 251, 86, 87, 88, 64, 293, 89, 55, 55,
+ 55, 55, 55, 55, 266, 277, 278, 296, 299, 311,
+ 312, 67, 303, 281, 164, 306, 249, 255, 60, 308,
+ 0, 309, 246, 172, 185, 0, 55, 118, 41, 41,
+ 0, 191, 55, 0, 0, 0, 0, 0, 0, 257,
+ 258, 259, 0, 55, 0, 0, 41, 55, 0, 0,
+ 0, 58, 200, 0, 0, 0, 0, 55, 55, 0,
+ 55, 55, 55, 55, 55, 55, 47, 0, 0, 279,
+ 84, 85, 86, 87, 88, 0, 0, 89, 0, 0,
+ 0, 0, 0, 55, 0, 0, 0, 0, 0, 0,
+ 0, 47, 55, 290, 0, 0, 169, 55, 0, 0,
+ 0, 0, 0, 0, 0, 238, 0, 0, 169, 0,
+ 0, 0, 0, 55, 0, 0, 0, 55, 41, 41,
+ 0, 245, 55, 55, 41, 0, 0, 55, 0, 0,
+ 41, 0, 0, 0, 0, 254, 0, 0, 0, 0,
+ 180, 185, 185, 185, 185, 44, 185, 185, 185, 0,
+ 0, 0, 0, 0, 0, 54, 56, 0, 59, 0,
+ 55, 0, 72, 274, 0, 0, 276, 0, 83, 0,
+ 0, 55, 55, 55, 0, 55, 0, 55, 55, 55,
+ 41, 55, 55, 55, 185, 0, 41, 284, 41, 59,
+ 0, 0, 0, 55, 0, 0, 185, 55, 0, 0,
+ 0, 83, 0, 0, 55, 0, 0, 298, 221, 55,
+ 0, 0, 301, 302, 0, 0, 305, 0, 0, 0,
+ 307, 153, 154, 155, 156, 157, 158, 0, 41, 0,
+ 0, 0, 0, 0, 166, 167, 0, 0, 0, 0,
+ 171, 0, 0, 0, 41, 0, 186, 184, 0, 83,
+ 0, 0, 0, 0, 0, 83, 0, 180, 180, 180,
+ 180, 0, 180, 180, 180, 0, 195, 0, 0, 0,
+ 83, 0, 0, 0, 115, 0, 0, 0, 0, 0,
+ 83, 83, 0, 83, 83, 83, 83, 83, 83, 138,
+ 0, 0, 0, 41, 0, 0, 212, 0, 0, 41,
+ 180, 0, 217, 0, 218, 0, 83, 0, 0, 115,
+ 0, 0, 180, 0, 0, 59, 0, 0, 0, 0,
+ 235, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 83, 0, 0, 0,
+ 83, 0, 192, 0, 248, 83, 83, 115, 0, 0,
+ 83, 0, 115, 190, 0, 0, 0, 196, 197, 0,
+ 260, 0, 0, 0, 184, 184, 184, 184, 0, 184,
+ 184, 184, 0, 0, 0, 0, 0, 0, 0, 0,
+ 115, 190, 0, 83, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 83, 83, 83, 0, 235, 0,
+ 235, 235, 235, 115, 235, 235, 235, 184, 0, 288,
+ 0, 0, 0, 0, 190, 294, 83, 0, 0, 184,
+ 235, 0, 0, 0, 0, 0, 115, 83, 0, 0,
+ 0, 0, 235, 0, 0, 247, 0, 0, 0, 250,
+ 0, 0, 0, 190, 0, 6, 7, 0, 256, 8,
+ 9, 73, 0, 0, 74, 253, 0, 0, 7, 0,
+ 0, 8, 9,-32768, 0, 0, 0, 271, 0, 0,
+ 0, 0, 0, 0, 0, 75, 76, 77, 14, 15,
+ 16, 17, 78, 0, 0, 80, 81, 82, 18, 19,
+ 14, 15, 280, 52, 0, 0, 22, 53, 0, 0,
+ 18, 19, 0, 38, 291, 52, 0, 0, 22, 53,
+ 0, 0, 0, 115, 0, 115, 297, 0, 292, 300,
+ 0, 0, 0, 0, 0, 304, 0, 0, 0, 93,
+ 0, 6, 7, 0, 0, 8, 9, 115, 0, 0,
+ 115, 0, 0, 0, 115, 94, 115, 95, 96, 97,
+ 98, 99, 100, 101, 102, 103, 104, 105, 0, 13,
+ 106, 0, 0, 0, 14, 15, 16, 17, 0, 0,
+ 0, 0, 0, 0, 18, 19, 0, 20, 173, 21,
+ 6, 7, 22, 23, 8, 9, 0, 24, 107, 38,
+ 0, 0, 0, 0, 94, 0, 95, 96, 97, 98,
+ 99, 100, 101, 102, 103, 104, 105, 0, 13, 106,
+ 0, 0, 0, 14, 15, 16, 17, 7, 0, 0,
+ 8, 9, 73, 18, 19,-32768, 20, 0, 21, 0,
+ 0, 22, 23, 0, 0, 0, 24, 107, 38, 176,
+ 0, 6, 7, 0, 0, 8, 9, 0, -82, 14,
+ 15, -82, 0, 0, 0, 0, 80, 81, 82, 18,
+ 19, 0, 0, 0, 52, 0, 0, 22, 53, 177,
+ 0, 0, 0, 0, 14, 15, 16, 17, 0, 0,
+ 0, 0, -82, -82, 18, 19, 0, 20, 0, 178,
+ 0, 0, 22, 179, -6, 5, 0, 6, 7, -82,
+ 0, 8, 9, 0, 0, 0, 0, -6, 0, 10,
+ 11, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 12, 13, 0, 0, 0, 0,
14, 15, 16, 17, 0, 0, 0, 0, 0, 0,
18, 19, 0, 20, 0, 21, 0, 0, 22, 23,
- 0, 0, 0, 24, 106, 38, 174, 0, 6, 7,
- 0, 0, 8, 9, 0, -81, 0, 0, -81, 0,
+ 0, -65, 66, 24, 6, 7, 0, 0, 8, 9,
+ 0, 0, 0, 0, 1, 0, 10, 11, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -6, 5, 0, 6, 7, 175, 0, 8, 9,
- 14, 15, 16, 17, -6, 0, 10, 11, -81, -81,
- 18, 19, 0, 20, 0, 176, 0, 0, 22, 177,
- 0, 12, 13, 0, 0, -81, 14, 15, 16, 17,
+ 0, 12, 13, 0, 0, 0, 0, 14, 15, 16,
+ 17, 0, 0, 0, 0, 0, 0, 18, 19, 0,
+ 20, 0, 21, 6, 7, 22, 23, 8, 9, 0,
+ 24, 0, 0, 0, 0, 0, 0, 94, 0, 95,
+ 96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
+ 0, 13, 106, 0, 0, 0, 14, 15, 16, 17,
0, 0, 0, 0, 0, 0, 18, 19, 0, 20,
- 0, 21, 0, 0, 22, 23, 0, -64, 66, 24,
- 6, 7, 0, 0, 8, 9, 0, 0, 0, 0,
- 1, 0, 10, 11, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 12, 13, 0,
- 0, 0, 14, 15, 16, 17, 0, 0, 0, 0,
- 0, 0, 18, 19, 0, 20, 0, 21, 6, 7,
- 22, 23, 8, 9, 0, 24, 0, 0, 0, 0,
- 0, 0, 94, 0, 95, 96, 97, 98, 99, 100,
- 101, 102, 103, 104, 105, 0, 13, 0, 0, 0,
- 14, 15, 16, 17, 0, 0, 0, 0, 0, 0,
- 18, 19, 0, 20, 0, 21, 0, 0, 22, 23,
- 0, 0, 0, 24, 0, 38, 6, 7, 0, 0,
- 8, 9, 73, 0, 0, 74, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 6, 7, 0, 0,
- 8, 9, 0, 0, 0, 75, 76, 77, 14, 15,
- 16, 17, 78, 0, 0, 80, 81, 82, 18, 19,
- 0, 0, 0, 52, 13, 0, 22, 53, 14, 15,
- 16, 17, 0, 38, 0, 0, 0, 0, 18, 19,
- 0, 20, 62, 21, 6, 7, 22, 23, 8, 9,
- 0, 0, 0, 38, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 62, 0, 6, 7, 0, 0, 8,
- 9, 0, 13, 0, 0, 0, 14, 15, 16, 17,
+ 0, 21, 0, 0, 22, 23, 0, 0, 0, 24,
+ 0, 38, 6, 7, 0, 0, 8, 9, 73, 0,
+ 0, 74, 1, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 6, 7, 0, 0, 8, 9, 0,
+ 0, 0, 75, 76, 77, 14, 15, 16, 17, 78,
+ 0, 0, 80, 81, 82, 18, 19, 0, 0, 0,
+ 52, 13, 0, 22, 53, 0, 14, 15, 16, 17,
+ 38, 0, 0, 0, 0, 0, 18, 19, 0, 20,
+ 62, 21, 6, 7, 22, 23, 8, 9, 0, 0,
+ 0, 38, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 62, 0, 6, 7, 0, 0, 8, 9, 0,
+ 13, 0, 0, 0, 0, 14, 15, 16, 17, 0,
+ 0, 0, 0, 0, 0, 18, 19, 0, 20, 0,
+ 21, 13, 0, 22, 23, -90, 14, 15, 16, 17,
0, 0, 0, 0, 0, 0, 18, 19, 0, 20,
- 0, 21, 0, 13, 22, 23, -89, 14, 15, 16,
- 17, 0, 0, 0, 0, 0, 0, 18, 19, 0,
- 20, 200, 21, 6, 7, 22, 23, 8, 9, 0,
+ 202, 21, 6, 7, 22, 23, 8, 9, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 260, 0, 6, 7, 0, 0, 8, 9, 0,
- 0, 13, 0, 0, 0, 14, 15, 16, 17, 0,
+ 0, 262, 0, 6, 7, 0, 0, 8, 9, 0,
+ 13, 0, 0, 0, 0, 14, 15, 16, 17, 0,
0, 0, 0, 0, 0, 18, 19, 0, 20, 0,
- 21, 175, 0, 22, 23, 14, 15, 16, 17, 0,
- 0, 0, 0, 0, 0, 18, 19, 0, 20, 0,
- 176, 6, 7, 22, 53, 8, 9, 73, 0, 0,
- 74, 0, 0, 0, 0, 7, 0, 0, 8, 9,
- 227, 0, 0,-32768, 0, 0, 0, 0, 0, 0,
- 75, 76, 77, 14, 15, 16, 17, 78, 0, 0,
- 80, 81, 82, 18, 19, 0, 14, 15, 52, 0,
- 0, 22, 53, 136, 6, 7, 18, 19, 8, 9,
- 73, 52, 0, 74, 22, 53, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 75, 76, 77, 14, 15, 16, 17,
- 78, 0, 79, 80, 81, 82, 18, 19, 0, 0,
- 0, 52, 6, 7, 22, 53, 8, 9, 73, 0,
+ 21, 177, 0, 22, 23, 0, 14, 15, 16, 17,
+ 0, 0, 0, 0, 0, 0, 18, 19, 0, 20,
+ 0, 178, 6, 7, 22, 53, 8, 9, 73, 0,
0, 74, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 75, 76, 77, 14, 15, 16, 17, 78, 204,
- 0, 80, 81, 82, 18, 19, 0, 0, 0, 52,
- 6, 7, 22, 53, 8, 9, 73, 0, 0, 74,
+ 0, 0, 75, 76, 77, 14, 15, 16, 17, 78,
+ 0, 0, 80, 81, 82, 18, 19, 0, 0, 0,
+ 52, 0, 0, 22, 53, 137, 6, 7, 0, 0,
+ 8, 9, 73, 0, 0, 74, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 75,
- 76, 77, 14, 15, 16, 17, 78, 0, 0, 80,
- 81, 82, 18, 19, 0, 0, 0, 52, 6, 7,
- 22, 53, 8, 9, 73, 0, 0, 74, 0, 0,
+ 7, 0, 0, 8, 9,-32768, 75, 76, 77, 14,
+ 15, 16, 17, 78, 0, 79, 80, 81, 82, 18,
+ 19, 0, 0, 0, 52, 6, 7, 22, 53, 8,
+ 9, 73, 14, 15, 74, 0, 0, 0, 0,-32768,
+-32768,-32768, 18, 19, 0, 0, 0, 52, 0, 0,
+ 22, 53, 0, 0, 0, 75, 76, 77, 14, 15,
+ 16, 17, 78, 206, 0, 80, 81, 82, 18, 19,
+ 0, 0, 0, 52, 6, 7, 22, 53, 8, 9,
+ 73, 0, 0, 74, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 75, 76, 0,
- 14, 15, 16, 17, 0, 0, 0, 80, 81, 82,
- 18, 19, 0, 0, 0, 52, 6, 7, 22, 53,
- 8, 9, 227, 0, 0, 228, 0, 0, 0, 0,
+ 0, 0, 0, 0, 75, 76, 77, 14, 15, 16,
+ 17, 78, 0, 0, 80, 81, 82, 18, 19, 0,
+ 0, 0, 52, 6, 7, 22, 53, 8, 9, 73,
+ 0, 0, 74, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 6, 7, 0, 0,
- 8, 9, 0, 0, 0, 229, 230, 231, 14, 15,
- 16, 17, 232, 280, 0, 0, 6, 7, 18, 19,
- 8, 9, 73, 52, 13, 74, 22, 53, 14, 15,
- 16, 17, 0, 0, 0, 0, 0, 0, 18, 19,
- 0, 20, 0, 21, 0, 75, 22, 23, 14, 15,
- 16, 17, 0, 0, 0, 80, 81, 82, 18, 19,
- 0, 0, 0, 52, 6, 7, 22, 53, 8, 9,
- 227, 0, 0, 228, 0, 0, 0, 0, 0, 0,
+ 8, 9, 229, 75, 76, 230, 14, 15, 16, 17,
+ 0, 0, 0, 80, 81, 82, 18, 19, 0, 0,
+ 0, 52, 0, 0, 22, 53, 231, 232, 233, 14,
+ 15, 16, 17, 234, 282, 0, 0, 6, 7, 18,
+ 19, 8, 9, 73, 52, 0, 74, 22, 53, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 229, 230, 231, 14, 15, 16, 17,
- 232, 0, 0, 0, 6, 7, 18, 19, 8, 9,
- 227, 52, 0, 228, 22, 53, 0, 0, 0, 0,
- 0, 0, 0, 0, 6, 213, 0, 0, 8, 9,
- 0, 0, 0, 229, 230, 0, 14, 15, 16, 17,
- 0, 0, 0, 0, 6, 7, 18, 19, 8, 9,
- 227, 52, 13, 228, 22, 53, 14, 15, 16, 17,
- 0, 0, 0, 0, 0, 0, 18, 19, 0, 20,
- 0, 21, 0, 229, 22, 23, 14, 15, 16, 17,
- 6, 7, 0, 0, 8, 9, 18, 19, 0, 0,
- 0, 52, 0, 0, 22, 53, 0, 0, 0, 0,
- 6, 7, 0, 0, 8, 9, 6, 7, 175, 0,
- 8, 9, 14, 15, 16, 17, 0, 0, 0, 0,
- 0, 0, 18, 19, 0, 20, 0, 176, 0, 0,
- 22, 53, 14, 15, 16, 17, 0, 0, 14, 15,
- 16, 17, 18, 19, 0, 20, 0, 52, 18, 19,
- 22, 53, 0, 52, 0, 7, 22, 53, 8, 9,
- 73, 0, 0,-32768, 0, 0, 0, 0, 7, 0,
- 0, 8, 9,-32768, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 14, 15, 0, 0,
- 0, 0, 0, 80, 81, 82, 18, 19, 0, 14,
- 15, 52, 0, 0, 22, 53,-32768,-32768,-32768, 18,
- 19, 0, 0, 0, 52, 0, 0, 22, 53
+ 6, 7, 0, 0, 8, 9, 229, 75, 0, 230,
+ 14, 15, 16, 17, 0, 0, 0, 80, 81, 82,
+ 18, 19, 0, 0, 0, 52, 0, 0, 22, 53,
+ 231, 232, 233, 14, 15, 16, 17, 234, 0, 0,
+ 0, 6, 7, 18, 19, 8, 9, 229, 52, 0,
+ 230, 22, 53, 0, 0, 0, 0, 0, 0, 0,
+ 0, 6, 7, 0, 0, 8, 9, 229, 0, 0,
+ 230, 231, 232, 0, 14, 15, 16, 17, 0, 0,
+ 0, 0, 6, 7, 18, 19, 8, 9, 0, 52,
+ 0, 231, 22, 53, 14, 15, 16, 17, 0, 0,
+ 0, 0, 0, 0, 18, 19, 0, 0, 0, 52,
+ 13, 0, 22, 53, 0, 14, 15, 16, 17, 6,
+ 215, 0, 0, 8, 9, 18, 19, 0, 20, 0,
+ 21, 0, 0, 22, 23, 0, 0, 0, 0, 0,
+ 6, 7, 0, 0, 8, 9, 0, 13, 0, 0,
+ 0, 0, 14, 15, 16, 17, 0, 0, 0, 0,
+ 0, 0, 18, 19, 0, 20, 0, 21, 177, 0,
+ 22, 23, 0, 14, 15, 16, 17, 6, 7, 0,
+ 0, 8, 9, 18, 19, 0, 20, 0, 178, 0,
+ 0, 22, 53, 0, 0, 0, 0, 6, 7, 0,
+ 0, 8, 9, 0, 0, 0, 0, 0, 0, 0,
+ 14, 15, 16, 17, 0, 0, 0, 0, 0, 0,
+ 18, 19, 0, 20, 0, 52, 0, 0, 22, 53,
+ 14, 15, 16, 17, 0, 0, 0, 0, 0, 0,
+ 18, 19, 0, 0, 0, 52, 0, 0, 22, 53
};
static const short yycheck[] = { 3,
- 1, 105, 141, 23, 180, 28, 4, 32, 70, 54,
- 107, 1, 1, 151, 13, 70, 39, 37, 13, 23,
- 43, 25, 1, 35, 36, 4, 1, 13, 56, 4,
- 52, 56, 36, 37, 173, 50, 51, 175, 54, 63,
- 41, 1, 1, 140, 54, 107, 50, 51, 42, 53,
- 112, 41, 41, 10, 55, 53, 160, 112, 13, 11,
- 164, 24, 25, 202, 240, 60, 163, 57, 57, 73,
- 74, 13, 76, 77, 78, 79, 80, 81, 140, 42,
- 55, 41, 41, 35, 36, 1, 43, 44, 185, 58,
- 5, 115, 4, 31, 10, 55, 55, 13, 3, 4,
- 104, 105, 4, 58, 21, 60, 130, 131, 54, 54,
- 225, 226, 227, 228, 56, 230, 231, 232, 60, 54,
- 60, 11, 55, 185, 54, 41, 48, 43, 44, 32,
- 134, 4, 37, 38, 138, 98, 47, 48, 49, 21,
- 4, 52, 4, 106, 60, 35, 36, 54, 18, 25,
- 0, 114, 0, 268, 158, 159, 160, 177, 162, 218,
- 164, 254, 13, 14, 15, 280, 22, 18, 19, -1,
- 21, 22, 135, 177, 278, 272, -1, 274, -1, -1,
- 31, -1, -1, 207, -1, 3, 290, 211, -1, 209,
- -1, -1, 109, -1, -1, -1, 220, -1, -1, 296,
- 204, 52, 299, -1, -1, 209, 303, 25, 305, 27,
- 28, 10, 11, 64, -1, 239, -1, 221, 222, 223,
- -1, 39, -1, -1, 187, 43, -1, -1, -1, 28,
- -1, -1, -1, 84, 85, 86, 87, 88, 89, -1,
- 203, 45, 46, 47, 48, 49, -1, 251, 52, -1,
- -1, -1, 276, -1, 217, -1, -1, -1, 109, 176,
- 111, -1, -1, -1, 288, -1, 117, 291, -1, -1,
- -1, 275, -1, 297, 278, -1, -1, 128, -1, -1,
- -1, 132, 245, -1, -1, 248, 290, -1, -1, -1,
- -1, 142, 143, -1, 145, 146, 147, 148, 149, 150,
- 151, 100, 101, -1, -1, -1, 269, -1, 225, 226,
- 227, 228, 111, 230, 231, 232, -1, 168, -1, -1,
- -1, -1, -1, -1, 175, 176, 289, -1, -1, -1,
- 181, 294, 295, -1, -1, 298, -1, -1, -1, 302,
- -1, -1, -1, -1, 11, -1, 197, -1, -1, -1,
- 201, 268, -1, -1, -1, 206, 207, -1, -1, -1,
- 211, 28, 161, 280, -1, -1, -1, -1, 167, -1,
- 169, -1, -1, -1, 225, 226, 227, 228, -1, 230,
- 231, 232, -1, -1, -1, 18, 19, -1, 21, -1,
- -1, -1, -1, 244, -1, -1, -1, -1, 31, -1,
- -1, -1, -1, -1, 255, 256, 257, -1, 259, 208,
- 261, 262, 263, -1, 265, 266, 267, 268, 4, 52,
- -1, 7, 8, 9, -1, 224, 277, -1, -1, 280,
- 281, 64, -1, 100, 101, -1, -1, 288, -1, -1,
- -1, -1, 293, -1, 111, -1, -1, -1, -1, 35,
- 36, 84, 85, 86, 87, 88, 89, -1, -1, 45,
- 46, -1, -1, -1, 50, -1, -1, 53, 54, -1,
- -1, -1, -1, -1, 273, -1, 109, -1, 111, -1,
- 279, -1, -1, -1, 117, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 161, 128, -1, -1, -1, 132,
- 167, -1, 169, 35, -1, -1, -1, -1, -1, 142,
- 143, -1, 145, 146, 147, 148, 149, 150, -1, -1,
- 3, 4, -1, -1, 7, 8, 9, -1, -1, 12,
- 13, -1, -1, -1, -1, 168, -1, -1, 70, -1,
- -1, 208, -1, 176, -1, -1, -1, -1, 181, 32,
- 33, 34, 35, 36, 37, 38, 39, 224, -1, 42,
- 43, 44, 45, 46, 197, -1, -1, 50, 201, -1,
- 53, 54, -1, 206, 207, 107, -1, 60, 211, -1,
- 112, 113, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 225, 226, 227, 228, -1, 230, 231, 232,
- -1, -1, -1, -1, -1, -1, 273, -1, 140, 141,
- -1, 244, 279, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 255, 256, 257, -1, 259, -1, 261, 262,
- 263, 163, 265, 266, 267, 268, -1, -1, -1, -1,
- -1, 173, -1, -1, 277, -1, -1, 280, 281, -1,
- -1, -1, -1, 185, -1, 288, -1, -1, -1, -1,
- 293, -1, -1, -1, -1, 1, -1, 3, 4, -1,
- 202, 7, 8, -1, -1, -1, -1, -1, -1, -1,
- -1, 17, 214, 19, 20, 21, 22, 23, 24, 25,
- 26, 27, 28, 29, -1, 31, -1, -1, -1, 35,
- 36, 37, 38, -1, -1, -1, -1, -1, -1, 45,
- 46, -1, 48, -1, 50, -1, -1, 53, 54, 251,
- -1, -1, 58, 59, 60, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 272, -1, 274, -1, -1, 277, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 1, -1, 3, 4,
- -1, -1, 7, 8, 296, -1, -1, 299, -1, -1,
- -1, 303, 17, 305, 19, 20, 21, 22, 23, 24,
- 25, 26, 27, 28, 29, -1, 31, -1, -1, -1,
- 35, 36, 37, 38, -1, -1, -1, -1, -1, -1,
- 45, 46, -1, 48, -1, 50, -1, -1, 53, 54,
- -1, -1, -1, 58, 59, 60, 1, -1, 3, 4,
- -1, -1, 7, 8, -1, 10, -1, -1, 13, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 0, 1, -1, 3, 4, 31, -1, 7, 8,
- 35, 36, 37, 38, 13, -1, 15, 16, 43, 44,
- 45, 46, -1, 48, -1, 50, -1, -1, 53, 54,
- -1, 30, 31, -1, -1, 60, 35, 36, 37, 38,
- -1, -1, -1, -1, -1, -1, 45, 46, -1, 48,
- -1, 50, -1, -1, 53, 54, -1, 0, 1, 58,
- 3, 4, -1, -1, 7, 8, -1, -1, -1, -1,
- 13, -1, 15, 16, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 30, 31, -1,
- -1, -1, 35, 36, 37, 38, -1, -1, -1, -1,
- -1, -1, 45, 46, -1, 48, -1, 50, 3, 4,
- 53, 54, 7, 8, -1, 58, -1, -1, -1, -1,
- -1, -1, 17, -1, 19, 20, 21, 22, 23, 24,
- 25, 26, 27, 28, 29, -1, 31, -1, -1, -1,
- 35, 36, 37, 38, -1, -1, -1, -1, -1, -1,
- 45, 46, -1, 48, -1, 50, -1, -1, 53, 54,
- -1, -1, -1, 58, -1, 60, 3, 4, -1, -1,
- 7, 8, 9, -1, -1, 12, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 3, 4, -1, -1,
- 7, 8, -1, -1, -1, 32, 33, 34, 35, 36,
- 37, 38, 39, -1, -1, 42, 43, 44, 45, 46,
- -1, -1, -1, 50, 31, -1, 53, 54, 35, 36,
- 37, 38, -1, 60, -1, -1, -1, -1, 45, 46,
- -1, 48, 1, 50, 3, 4, 53, 54, 7, 8,
- -1, -1, -1, 60, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 1, -1, 3, 4, -1, -1, 7,
- 8, -1, 31, -1, -1, -1, 35, 36, 37, 38,
- -1, -1, -1, -1, -1, -1, 45, 46, -1, 48,
- -1, 50, -1, 31, 53, 54, 55, 35, 36, 37,
- 38, -1, -1, -1, -1, -1, -1, 45, 46, -1,
- 48, 1, 50, 3, 4, 53, 54, 7, 8, -1,
+ 70, 105, 108, 142, 182, 13, 13, 1, 23, 1,
+ 4, 1, 13, 4, 55, 11, 70, 152, 57, 23,
+ 33, 25, 37, 55, 227, 228, 229, 230, 55, 232,
+ 233, 234, 36, 37, 59, 141, 175, 1, 108, 1,
+ 36, 37, 177, 113, 57, 43, 50, 51, 10, 53,
+ 42, 13, 42, 61, 13, 1, 1, 161, 164, 113,
+ 53, 165, 56, 54, 242, 204, 58, 270, 58, 73,
+ 74, 141, 76, 77, 78, 79, 80, 81, 42, 282,
+ 42, 187, 44, 45, 13, 5, 4, 3, 4, 7,
+ 8, 9, 56, 4, 12, 31, 42, 42, 57, 61,
+ 104, 105, 61, 1, 55, 10, 4, 13, 14, 15,
+ 56, 56, 18, 19, 4, 21, 22, 187, 36, 37,
+ 24, 25, 38, 39, 55, 31, 3, 11, 46, 47,
+ 59, 135, 61, 51, 28, 139, 54, 55, 42, 44,
+ 45, 36, 37, 50, 51, 39, 52, 55, 25, 43,
+ 27, 28, 36, 37, 56, 159, 160, 161, 64, 163,
+ 61, 165, 39, 55, 179, 33, 43, 49, 274, 4,
+ 276, 21, 48, 49, 50, 179, 280, 53, 84, 85,
+ 86, 87, 88, 89, 4, 55, 4, 18, 292, 0,
+ 0, 25, 298, 256, 98, 301, 211, 220, 22, 305,
+ -1, 307, 206, 107, 110, -1, 112, 211, 10, 11,
+ -1, 115, 118, -1, -1, -1, -1, -1, -1, 223,
+ 224, 225, -1, 129, -1, -1, 28, 133, -1, -1,
+ -1, 21, 136, -1, -1, -1, -1, 143, 144, -1,
+ 146, 147, 148, 149, 150, 151, 152, -1, -1, 253,
+ 46, 47, 48, 49, 50, -1, -1, 53, -1, -1,
+ -1, -1, -1, 169, -1, -1, -1, -1, -1, -1,
+ -1, 177, 178, 277, -1, -1, 280, 183, -1, -1,
+ -1, -1, -1, -1, -1, 189, -1, -1, 292, -1,
+ -1, -1, -1, 199, -1, -1, -1, 203, 100, 101,
+ -1, 205, 208, 209, 106, -1, -1, 213, -1, -1,
+ 112, -1, -1, -1, -1, 219, -1, -1, -1, -1,
+ 110, 227, 228, 229, 230, 11, 232, 233, 234, -1,
+ -1, -1, -1, -1, -1, 18, 19, -1, 21, -1,
+ 246, -1, 28, 247, -1, -1, 250, -1, 31, -1,
+ -1, 257, 258, 259, -1, 261, -1, 263, 264, 265,
+ 162, 267, 268, 269, 270, -1, 168, 271, 170, 52,
+ -1, -1, -1, 279, -1, -1, 282, 283, -1, -1,
+ -1, 64, -1, -1, 290, -1, -1, 291, 178, 295,
+ -1, -1, 296, 297, -1, -1, 300, -1, -1, -1,
+ 304, 84, 85, 86, 87, 88, 89, -1, 210, -1,
+ -1, -1, -1, -1, 100, 101, -1, -1, -1, -1,
+ 106, -1, -1, -1, 226, -1, 112, 110, -1, 112,
+ -1, -1, -1, -1, -1, 118, -1, 227, 228, 229,
+ 230, -1, 232, 233, 234, -1, 129, -1, -1, -1,
+ 133, -1, -1, -1, 35, -1, -1, -1, -1, -1,
+ 143, 144, -1, 146, 147, 148, 149, 150, 151, 63,
+ -1, -1, -1, 275, -1, -1, 162, -1, -1, 281,
+ 270, -1, 168, -1, 170, -1, 169, -1, -1, 70,
+ -1, -1, 282, -1, -1, 178, -1, -1, -1, -1,
+ 183, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 199, -1, -1, -1,
+ 203, -1, 116, -1, 210, 208, 209, 108, -1, -1,
+ 213, -1, 113, 114, -1, -1, -1, 131, 132, -1,
+ 226, -1, -1, -1, 227, 228, 229, 230, -1, 232,
+ 233, 234, -1, -1, -1, -1, -1, -1, -1, -1,
+ 141, 142, -1, 246, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, 257, 258, 259, -1, 261, -1,
+ 263, 264, 265, 164, 267, 268, 269, 270, -1, 275,
+ -1, -1, -1, -1, 175, 281, 279, -1, -1, 282,
+ 283, -1, -1, -1, -1, -1, 187, 290, -1, -1,
+ -1, -1, 295, -1, -1, 209, -1, -1, -1, 213,
+ -1, -1, -1, 204, -1, 3, 4, -1, 222, 7,
+ 8, 9, -1, -1, 12, 216, -1, -1, 4, -1,
+ -1, 7, 8, 9, -1, -1, -1, 241, -1, -1,
+ -1, -1, -1, -1, -1, 33, 34, 35, 36, 37,
+ 38, 39, 40, -1, -1, 43, 44, 45, 46, 47,
+ 36, 37, 253, 51, -1, -1, 54, 55, -1, -1,
+ 46, 47, -1, 61, 278, 51, -1, -1, 54, 55,
+ -1, -1, -1, 274, -1, 276, 290, -1, 279, 293,
+ -1, -1, -1, -1, -1, 299, -1, -1, -1, 1,
+ -1, 3, 4, -1, -1, 7, 8, 298, -1, -1,
+ 301, -1, -1, -1, 305, 17, 307, 19, 20, 21,
+ 22, 23, 24, 25, 26, 27, 28, 29, -1, 31,
+ 32, -1, -1, -1, 36, 37, 38, 39, -1, -1,
+ -1, -1, -1, -1, 46, 47, -1, 49, 1, 51,
+ 3, 4, 54, 55, 7, 8, -1, 59, 60, 61,
+ -1, -1, -1, -1, 17, -1, 19, 20, 21, 22,
+ 23, 24, 25, 26, 27, 28, 29, -1, 31, 32,
+ -1, -1, -1, 36, 37, 38, 39, 4, -1, -1,
+ 7, 8, 9, 46, 47, 12, 49, -1, 51, -1,
+ -1, 54, 55, -1, -1, -1, 59, 60, 61, 1,
+ -1, 3, 4, -1, -1, 7, 8, -1, 10, 36,
+ 37, 13, -1, -1, -1, -1, 43, 44, 45, 46,
+ 47, -1, -1, -1, 51, -1, -1, 54, 55, 31,
+ -1, -1, -1, -1, 36, 37, 38, 39, -1, -1,
+ -1, -1, 44, 45, 46, 47, -1, 49, -1, 51,
+ -1, -1, 54, 55, 0, 1, -1, 3, 4, 61,
+ -1, 7, 8, -1, -1, -1, -1, 13, -1, 15,
+ 16, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, 30, 31, -1, -1, -1, -1,
+ 36, 37, 38, 39, -1, -1, -1, -1, -1, -1,
+ 46, 47, -1, 49, -1, 51, -1, -1, 54, 55,
+ -1, 0, 1, 59, 3, 4, -1, -1, 7, 8,
+ -1, -1, -1, -1, 13, -1, 15, 16, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, 30, 31, -1, -1, -1, -1, 36, 37, 38,
+ 39, -1, -1, -1, -1, -1, -1, 46, 47, -1,
+ 49, -1, 51, 3, 4, 54, 55, 7, 8, -1,
+ 59, -1, -1, -1, -1, -1, -1, 17, -1, 19,
+ 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
+ -1, 31, 32, -1, -1, -1, 36, 37, 38, 39,
+ -1, -1, -1, -1, -1, -1, 46, 47, -1, 49,
+ -1, 51, -1, -1, 54, 55, -1, -1, -1, 59,
+ -1, 61, 3, 4, -1, -1, 7, 8, 9, -1,
+ -1, 12, 13, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, 3, 4, -1, -1, 7, 8, -1,
+ -1, -1, 33, 34, 35, 36, 37, 38, 39, 40,
+ -1, -1, 43, 44, 45, 46, 47, -1, -1, -1,
+ 51, 31, -1, 54, 55, -1, 36, 37, 38, 39,
+ 61, -1, -1, -1, -1, -1, 46, 47, -1, 49,
+ 1, 51, 3, 4, 54, 55, 7, 8, -1, -1,
+ -1, 61, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 1, -1, 3, 4, -1, -1, 7, 8, -1,
- -1, 31, -1, -1, -1, 35, 36, 37, 38, -1,
- -1, -1, -1, -1, -1, 45, 46, -1, 48, -1,
- 50, 31, -1, 53, 54, 35, 36, 37, 38, -1,
- -1, -1, -1, -1, -1, 45, 46, -1, 48, -1,
- 50, 3, 4, 53, 54, 7, 8, 9, -1, -1,
- 12, -1, -1, -1, -1, 4, -1, -1, 7, 8,
- 9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
- 32, 33, 34, 35, 36, 37, 38, 39, -1, -1,
- 42, 43, 44, 45, 46, -1, 35, 36, 50, -1,
- -1, 53, 54, 55, 3, 4, 45, 46, 7, 8,
- 9, 50, -1, 12, 53, 54, -1, -1, -1, -1,
+ 31, -1, -1, -1, -1, 36, 37, 38, 39, -1,
+ -1, -1, -1, -1, -1, 46, 47, -1, 49, -1,
+ 51, 31, -1, 54, 55, 56, 36, 37, 38, 39,
+ -1, -1, -1, -1, -1, -1, 46, 47, -1, 49,
+ 1, 51, 3, 4, 54, 55, 7, 8, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 32, 33, 34, 35, 36, 37, 38,
- 39, -1, 41, 42, 43, 44, 45, 46, -1, -1,
- -1, 50, 3, 4, 53, 54, 7, 8, 9, -1,
+ -1, 1, -1, 3, 4, -1, -1, 7, 8, -1,
+ 31, -1, -1, -1, -1, 36, 37, 38, 39, -1,
+ -1, -1, -1, -1, -1, 46, 47, -1, 49, -1,
+ 51, 31, -1, 54, 55, -1, 36, 37, 38, 39,
+ -1, -1, -1, -1, -1, -1, 46, 47, -1, 49,
+ -1, 51, 3, 4, 54, 55, 7, 8, 9, -1,
-1, 12, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 32, 33, 34, 35, 36, 37, 38, 39, 40,
- -1, 42, 43, 44, 45, 46, -1, -1, -1, 50,
- 3, 4, 53, 54, 7, 8, 9, -1, -1, 12,
+ -1, -1, 33, 34, 35, 36, 37, 38, 39, 40,
+ -1, -1, 43, 44, 45, 46, 47, -1, -1, -1,
+ 51, -1, -1, 54, 55, 56, 3, 4, -1, -1,
+ 7, 8, 9, -1, -1, 12, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 32,
- 33, 34, 35, 36, 37, 38, 39, -1, -1, 42,
- 43, 44, 45, 46, -1, -1, -1, 50, 3, 4,
- 53, 54, 7, 8, 9, -1, -1, 12, -1, -1,
+ 4, -1, -1, 7, 8, 9, 33, 34, 35, 36,
+ 37, 38, 39, 40, -1, 42, 43, 44, 45, 46,
+ 47, -1, -1, -1, 51, 3, 4, 54, 55, 7,
+ 8, 9, 36, 37, 12, -1, -1, -1, -1, 43,
+ 44, 45, 46, 47, -1, -1, -1, 51, -1, -1,
+ 54, 55, -1, -1, -1, 33, 34, 35, 36, 37,
+ 38, 39, 40, 41, -1, 43, 44, 45, 46, 47,
+ -1, -1, -1, 51, 3, 4, 54, 55, 7, 8,
+ 9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 32, 33, -1,
- 35, 36, 37, 38, -1, -1, -1, 42, 43, 44,
- 45, 46, -1, -1, -1, 50, 3, 4, 53, 54,
- 7, 8, 9, -1, -1, 12, -1, -1, -1, -1,
+ -1, -1, -1, -1, 33, 34, 35, 36, 37, 38,
+ 39, 40, -1, -1, 43, 44, 45, 46, 47, -1,
+ -1, -1, 51, 3, 4, 54, 55, 7, 8, 9,
+ -1, -1, 12, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 3, 4, -1, -1,
- 7, 8, -1, -1, -1, 32, 33, 34, 35, 36,
- 37, 38, 39, 40, -1, -1, 3, 4, 45, 46,
- 7, 8, 9, 50, 31, 12, 53, 54, 35, 36,
- 37, 38, -1, -1, -1, -1, -1, -1, 45, 46,
- -1, 48, -1, 50, -1, 32, 53, 54, 35, 36,
- 37, 38, -1, -1, -1, 42, 43, 44, 45, 46,
- -1, -1, -1, 50, 3, 4, 53, 54, 7, 8,
- 9, -1, -1, 12, -1, -1, -1, -1, -1, -1,
+ 7, 8, 9, 33, 34, 12, 36, 37, 38, 39,
+ -1, -1, -1, 43, 44, 45, 46, 47, -1, -1,
+ -1, 51, -1, -1, 54, 55, 33, 34, 35, 36,
+ 37, 38, 39, 40, 41, -1, -1, 3, 4, 46,
+ 47, 7, 8, 9, 51, -1, 12, 54, 55, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 32, 33, 34, 35, 36, 37, 38,
- 39, -1, -1, -1, 3, 4, 45, 46, 7, 8,
- 9, 50, -1, 12, 53, 54, -1, -1, -1, -1,
- -1, -1, -1, -1, 3, 4, -1, -1, 7, 8,
- -1, -1, -1, 32, 33, -1, 35, 36, 37, 38,
- -1, -1, -1, -1, 3, 4, 45, 46, 7, 8,
- 9, 50, 31, 12, 53, 54, 35, 36, 37, 38,
- -1, -1, -1, -1, -1, -1, 45, 46, -1, 48,
- -1, 50, -1, 32, 53, 54, 35, 36, 37, 38,
- 3, 4, -1, -1, 7, 8, 45, 46, -1, -1,
- -1, 50, -1, -1, 53, 54, -1, -1, -1, -1,
- 3, 4, -1, -1, 7, 8, 3, 4, 31, -1,
- 7, 8, 35, 36, 37, 38, -1, -1, -1, -1,
- -1, -1, 45, 46, -1, 48, -1, 50, -1, -1,
- 53, 54, 35, 36, 37, 38, -1, -1, 35, 36,
- 37, 38, 45, 46, -1, 48, -1, 50, 45, 46,
- 53, 54, -1, 50, -1, 4, 53, 54, 7, 8,
- 9, -1, -1, 12, -1, -1, -1, -1, 4, -1,
- -1, 7, 8, 9, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 35, 36, -1, -1,
- -1, -1, -1, 42, 43, 44, 45, 46, -1, 35,
- 36, 50, -1, -1, 53, 54, 42, 43, 44, 45,
- 46, -1, -1, -1, 50, -1, -1, 53, 54
+ 3, 4, -1, -1, 7, 8, 9, 33, -1, 12,
+ 36, 37, 38, 39, -1, -1, -1, 43, 44, 45,
+ 46, 47, -1, -1, -1, 51, -1, -1, 54, 55,
+ 33, 34, 35, 36, 37, 38, 39, 40, -1, -1,
+ -1, 3, 4, 46, 47, 7, 8, 9, 51, -1,
+ 12, 54, 55, -1, -1, -1, -1, -1, -1, -1,
+ -1, 3, 4, -1, -1, 7, 8, 9, -1, -1,
+ 12, 33, 34, -1, 36, 37, 38, 39, -1, -1,
+ -1, -1, 3, 4, 46, 47, 7, 8, -1, 51,
+ -1, 33, 54, 55, 36, 37, 38, 39, -1, -1,
+ -1, -1, -1, -1, 46, 47, -1, -1, -1, 51,
+ 31, -1, 54, 55, -1, 36, 37, 38, 39, 3,
+ 4, -1, -1, 7, 8, 46, 47, -1, 49, -1,
+ 51, -1, -1, 54, 55, -1, -1, -1, -1, -1,
+ 3, 4, -1, -1, 7, 8, -1, 31, -1, -1,
+ -1, -1, 36, 37, 38, 39, -1, -1, -1, -1,
+ -1, -1, 46, 47, -1, 49, -1, 51, 31, -1,
+ 54, 55, -1, 36, 37, 38, 39, 3, 4, -1,
+ -1, 7, 8, 46, 47, -1, 49, -1, 51, -1,
+ -1, 54, 55, -1, -1, -1, -1, 3, 4, -1,
+ -1, 7, 8, -1, -1, -1, -1, -1, -1, -1,
+ 36, 37, 38, 39, -1, -1, -1, -1, -1, -1,
+ 46, 47, -1, 49, -1, 51, -1, -1, 54, 55,
+ 36, 37, 38, 39, -1, -1, -1, -1, -1, -1,
+ 46, 47, -1, -1, -1, 51, -1, -1, 54, 55
};
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
#line 3 "/usr/local/lib/bison.simple"
@@ -1239,11 +1257,14 @@ yyreduce:
switch (yyn) {
case 1:
-#line 137 "awk.y"
-{ expression_value = yyvsp[-1].nodeval; ;
+#line 150 "./awk.y"
+{
+ expression_value = yyvsp[-1].nodeval;
+ check_funcs();
+ ;
break;}
case 2:
-#line 142 "awk.y"
+#line 158 "./awk.y"
{
if (yyvsp[0].nodeval != NULL)
yyval.nodeval = yyvsp[0].nodeval;
@@ -1253,7 +1274,7 @@ case 2:
;
break;}
case 3:
-#line 151 "awk.y"
+#line 167 "./awk.y"
{
if (yyvsp[0].nodeval == NULL)
yyval.nodeval = yyvsp[-1].nodeval;
@@ -1262,69 +1283,69 @@ case 3:
else {
if (yyvsp[-1].nodeval->type != Node_rule_list)
yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_rule_list,
- (NODE*)NULL);
- yyval.nodeval = append_right (yyvsp[-1].nodeval,
- node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL));
+ (NODE*) NULL);
+ yyval.nodeval = append_right(yyvsp[-1].nodeval,
+ node(yyvsp[0].nodeval, Node_rule_list, (NODE *) NULL));
}
yyerrok;
;
break;}
case 4:
-#line 165 "awk.y"
+#line 181 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 5:
-#line 166 "awk.y"
+#line 182 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 6:
-#line 167 "awk.y"
+#line 183 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 7:
-#line 171 "awk.y"
-{ io_allowed = 0; ;
+#line 187 "./awk.y"
+{ io_allowed = FALSE; ;
break;}
case 8:
-#line 173 "awk.y"
+#line 189 "./awk.y"
{
- if (begin_block) {
+ if (begin_block != NULL) {
if (begin_block->type != Node_rule_list)
begin_block = node(begin_block, Node_rule_list,
- (NODE *)NULL);
- (void) append_right (begin_block, node(
- node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
- Node_rule_list, (NODE *)NULL) );
+ (NODE *) NULL);
+ (void) append_right(begin_block, node(
+ node((NODE *) NULL, Node_rule_node, yyvsp[0].nodeval),
+ Node_rule_list, (NODE *) NULL) );
} else
- begin_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
+ begin_block = node((NODE *) NULL, Node_rule_node, yyvsp[0].nodeval);
yyval.nodeval = NULL;
- io_allowed = 1;
+ io_allowed = TRUE;
yyerrok;
;
break;}
case 9:
-#line 187 "awk.y"
-{ io_allowed = 0; ;
+#line 203 "./awk.y"
+{ io_allowed = FALSE; ;
break;}
case 10:
-#line 189 "awk.y"
+#line 205 "./awk.y"
{
- if (end_block) {
+ if (end_block != NULL) {
if (end_block->type != Node_rule_list)
end_block = node(end_block, Node_rule_list,
- (NODE *)NULL);
+ (NODE *) NULL);
(void) append_right (end_block, node(
- node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
- Node_rule_list, (NODE *)NULL));
+ node((NODE *) NULL, Node_rule_node, yyvsp[0].nodeval),
+ Node_rule_list, (NODE *) NULL));
} else
- end_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
+ end_block = node((NODE *) NULL, Node_rule_node, yyvsp[0].nodeval);
yyval.nodeval = NULL;
- io_allowed = 1;
+ io_allowed = TRUE;
yyerrok;
;
break;}
case 11:
-#line 204 "awk.y"
+#line 220 "./awk.y"
{
warning("BEGIN blocks must have an action part");
errcount++;
@@ -1332,7 +1353,7 @@ case 11:
;
break;}
case 12:
-#line 210 "awk.y"
+#line 226 "./awk.y"
{
warning("END blocks must have an action part");
errcount++;
@@ -1340,17 +1361,17 @@ case 12:
;
break;}
case 13:
-#line 216 "awk.y"
-{ yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
+#line 232 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
break;}
case 14:
-#line 218 "awk.y"
-{ yyval.nodeval = node ((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
+#line 234 "./awk.y"
+{ yyval.nodeval = node((NODE *) NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
break;}
case 15:
-#line 220 "awk.y"
+#line 236 "./awk.y"
{
- yyval.nodeval = node (yyvsp[-1].nodeval,
+ yyval.nodeval = node(yyvsp[-1].nodeval,
Node_rule_node,
node(node(node(make_number(0.0),
Node_field_spec,
@@ -1363,7 +1384,7 @@ case 15:
;
break;}
case 16:
-#line 233 "awk.y"
+#line 249 "./awk.y"
{
func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
yyval.nodeval = NULL;
@@ -1371,15 +1392,15 @@ case 16:
;
break;}
case 17:
-#line 242 "awk.y"
+#line 258 "./awk.y"
{ yyval.sval = yyvsp[0].sval; ;
break;}
case 18:
-#line 244 "awk.y"
+#line 260 "./awk.y"
{ yyval.sval = yyvsp[0].sval; ;
break;}
case 19:
-#line 246 "awk.y"
+#line 262 "./awk.y"
{
yyerror("%s() is a built-in function, it cannot be redefined",
tokstart);
@@ -1388,49 +1409,49 @@ case 19:
;
break;}
case 22:
-#line 261 "awk.y"
+#line 277 "./awk.y"
{
param_counter = 0;
;
break;}
case 23:
-#line 265 "awk.y"
+#line 281 "./awk.y"
{
yyval.nodeval = append_right(make_param(yyvsp[-4].sval), yyvsp[-2].nodeval);
- can_return = 1;
+ can_return = TRUE;
/* check for duplicate parameter names */
if (dup_parms(yyval.nodeval))
errcount++;
;
break;}
case 24:
-#line 276 "awk.y"
+#line 292 "./awk.y"
{
yyval.nodeval = yyvsp[-2].nodeval;
- can_return = 0;
+ can_return = FALSE;
;
break;}
case 25:
-#line 281 "awk.y"
+#line 297 "./awk.y"
{
yyval.nodeval = node((NODE *) NULL, Node_K_return, (NODE *) NULL);
- can_return = 0;
+ can_return = FALSE;
;
break;}
case 26:
-#line 290 "awk.y"
+#line 306 "./awk.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 27:
-#line 292 "awk.y"
-{ yyval.nodeval = mkrangenode ( node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval) ); ;
+#line 308 "./awk.y"
+{ yyval.nodeval = mkrangenode(node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval)); ;
break;}
case 28:
-#line 301 "awk.y"
+#line 317 "./awk.y"
{ ++want_regexp; ;
break;}
case 29:
-#line 303 "awk.y"
+#line 319 "./awk.y"
{
NODE *n;
size_t len;
@@ -1439,7 +1460,7 @@ case 29:
n->type = Node_regex;
len = strlen(yyvsp[-1].sval);
n->re_exp = make_string(yyvsp[-1].sval, len);
- n->re_reg = make_regexp(yyvsp[-1].sval, len, 0, 1);
+ n->re_reg = make_regexp(yyvsp[-1].sval, len, FALSE, TRUE);
n->re_text = NULL;
n->re_flags = CONST;
n->re_cnt = 1;
@@ -1447,96 +1468,101 @@ case 29:
;
break;}
case 30:
-#line 321 "awk.y"
-{ yyval.nodeval = yyvsp[-3].nodeval ; ;
+#line 337 "./awk.y"
+{ yyval.nodeval = yyvsp[-3].nodeval; ;
break;}
case 31:
-#line 323 "awk.y"
+#line 339 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 32:
-#line 328 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 344 "./awk.y"
+{
+ yyval.nodeval = yyvsp[0].nodeval;
+ if (do_lint && isnoeffect(yyval.nodeval->type))
+ warning("statement may have no effect");
+ ;
break;}
case 33:
-#line 330 "awk.y"
+#line 350 "./awk.y"
{
if (yyvsp[-1].nodeval == NULL || yyvsp[-1].nodeval->type != Node_statement_list)
- yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list,(NODE *)NULL);
+ yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list, (NODE *) NULL);
yyval.nodeval = append_right(yyvsp[-1].nodeval,
- node( yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL));
+ node(yyvsp[0].nodeval, Node_statement_list, (NODE *) NULL));
yyerrok;
;
break;}
case 34:
-#line 338 "awk.y"
+#line 358 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 35:
-#line 340 "awk.y"
+#line 360 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 38:
-#line 350 "awk.y"
+#line 370 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 39:
-#line 352 "awk.y"
+#line 372 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 40:
-#line 354 "awk.y"
+#line 374 "./awk.y"
{ yyval.nodeval = yyvsp[-1].nodeval; ;
break;}
case 41:
-#line 356 "awk.y"
+#line 376 "./awk.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 42:
-#line 358 "awk.y"
-{ yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
+#line 378 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
break;}
case 43:
-#line 360 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
+#line 380 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
break;}
case 44:
-#line 362 "awk.y"
+#line 382 "./awk.y"
{
- yyval.nodeval = node (yyvsp[0].nodeval, Node_K_arrayfor, make_for_loop(variable(yyvsp[-5].sval,1),
- (NODE *)NULL, variable(yyvsp[-3].sval,1)));
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_K_arrayfor,
+ make_for_loop(variable(yyvsp[-5].sval, CAN_FREE, Node_var),
+ (NODE *) NULL, variable(yyvsp[-3].sval, CAN_FREE, Node_var_array)));
;
break;}
case 45:
-#line 367 "awk.y"
+#line 388 "./awk.y"
{
- yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *) make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
;
break;}
case 46:
-#line 371 "awk.y"
+#line 392 "./awk.y"
{
- yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for,
- (NODE *)make_for_loop(yyvsp[-6].nodeval, (NODE *)NULL, yyvsp[-3].nodeval));
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for,
+ (NODE *) make_for_loop(yyvsp[-6].nodeval, (NODE *) NULL, yyvsp[-3].nodeval));
;
break;}
case 47:
-#line 377 "awk.y"
-{ yyval.nodeval = node ((NODE *)NULL, Node_K_break, (NODE *)NULL); ;
+#line 398 "./awk.y"
+{ yyval.nodeval = node((NODE *) NULL, Node_K_break, (NODE *) NULL); ;
break;}
case 48:
-#line 380 "awk.y"
-{ yyval.nodeval = node ((NODE *)NULL, Node_K_continue, (NODE *)NULL); ;
+#line 401 "./awk.y"
+{ yyval.nodeval = node((NODE *) NULL, Node_K_continue, (NODE *) NULL); ;
break;}
case 49:
-#line 382 "awk.y"
-{ yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
+#line 403 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
break;}
case 50:
-#line 384 "awk.y"
+#line 405 "./awk.y"
{
if (yyvsp[-3].nodetypeval == Node_K_print && yyvsp[-2].nodeval == NULL) {
- static int warned = 0;
+ static int warned = FALSE;
yyvsp[-2].nodeval = node(node(make_number(0.0),
Node_field_spec,
@@ -1545,66 +1571,102 @@ case 50:
(NODE *) NULL);
if (do_lint && ! io_allowed && ! warned) {
- warned = 1;
+ warned = TRUE;
warning(
"plain `print' in BEGIN or END rule should probably be `print \"\"'");
}
}
- yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval);
+ yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval);
;
break;}
case 51:
-#line 404 "awk.y"
+#line 425 "./awk.y"
{ NODETYPE type;
- if (yyvsp[-1].nodeval && yyvsp[-1].nodeval == lookup("file")) {
- if (do_lint)
- warning("`next file' is a gawk extension");
- if (do_unix || do_posix) {
- /*
- * can't use yyerror, since may have overshot
- * the source line
- */
- errcount++;
- error("`next file' is a gawk extension");
- }
- if (! io_allowed) {
- /* same thing */
+ if (yyvsp[-1].nodeval) {
+ if (yyvsp[-1].nodeval == lookup("file")) {
+ static int warned = FALSE;
+
+ if (! warned) {
+ warned = TRUE;
+ warning("`next file' is obsolete; use `nextfile'");
+ }
+ if (do_lint)
+ warning("`next file' is a gawk extension");
+ if (do_traditional) {
+ /*
+ * can't use yyerror, since may have overshot
+ * the source line
+ */
+ errcount++;
+ error("`next file' is a gawk extension");
+ }
+ if (! io_allowed) {
+ /* same thing */
+ errcount++;
+ error("`next file' used in BEGIN or END action");
+ }
+ type = Node_K_nextfile;
+ } else {
errcount++;
- error("`next file' used in BEGIN or END action");
+ error("illegal expression after `next'");
+ type = Node_K_next; /* sanity */
}
- type = Node_K_nextfile;
} else {
if (! io_allowed)
- yyerror("next used in BEGIN or END action");
+ yyerror("`next' used in BEGIN or END action");
type = Node_K_next;
- }
- yyval.nodeval = node ((NODE *)NULL, type, (NODE *)NULL);
+ }
+ yyval.nodeval = node((NODE *) NULL, type, (NODE *) NULL);
;
break;}
case 52:
-#line 431 "awk.y"
-{ yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_exit, (NODE *)NULL); ;
+#line 464 "./awk.y"
+{
+ if (do_lint)
+ warning("`nextfile' is a gawk extension");
+ if (do_traditional) {
+ /*
+ * can't use yyerror, since may have overshot
+ * the source line
+ */
+ errcount++;
+ error("`nextfile' is a gawk extension");
+ }
+ if (! io_allowed) {
+ /* same thing */
+ errcount++;
+ error("`nextfile' used in BEGIN or END action");
+ }
+ yyval.nodeval = node((NODE *) NULL, Node_K_nextfile, (NODE *) NULL);
+ ;
break;}
case 53:
-#line 433 "awk.y"
-{ if (! can_return) yyerror("return used outside function context"); ;
+#line 483 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_exit, (NODE *) NULL); ;
break;}
case 54:
-#line 435 "awk.y"
-{ yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_return, (NODE *)NULL); ;
+#line 485 "./awk.y"
+{
+ if (! can_return)
+ yyerror("`return' used outside function context");
+ ;
break;}
case 55:
-#line 437 "awk.y"
-{ yyval.nodeval = node (variable(yyvsp[-4].sval,1), Node_K_delete, yyvsp[-2].nodeval); ;
+#line 490 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_return, (NODE *) NULL); ;
break;}
case 56:
-#line 439 "awk.y"
+#line 492 "./awk.y"
+{ yyval.nodeval = node(variable(yyvsp[-4].sval, CAN_FREE, Node_var_array), Node_K_delete, yyvsp[-2].nodeval); ;
+ break;}
+case 57:
+#line 494 "./awk.y"
{
if (do_lint)
warning("`delete array' is a gawk extension");
- if (do_unix || do_posix) {
+ if (do_traditional) {
/*
* can't use yyerror, since may have overshot
* the source line
@@ -1612,218 +1674,218 @@ case 56:
errcount++;
error("`delete array' is a gawk extension");
}
- yyval.nodeval = node (variable(yyvsp[-1].sval,1), Node_K_delete, (NODE *) NULL);
+ yyval.nodeval = node(variable(yyvsp[-1].sval, CAN_FREE, Node_var_array), Node_K_delete, (NODE *) NULL);
;
break;}
-case 57:
-#line 453 "awk.y"
-{ yyval.nodeval = yyvsp[-1].nodeval; ;
- break;}
case 58:
-#line 458 "awk.y"
-{ yyval.nodetypeval = yyvsp[0].nodetypeval; ;
+#line 508 "./awk.y"
+{ yyval.nodeval = yyvsp[-1].nodeval; ;
break;}
case 59:
-#line 460 "awk.y"
+#line 513 "./awk.y"
{ yyval.nodetypeval = yyvsp[0].nodetypeval; ;
break;}
case 60:
-#line 465 "awk.y"
+#line 515 "./awk.y"
+{ yyval.nodetypeval = yyvsp[0].nodetypeval; ;
+ break;}
+case 61:
+#line 520 "./awk.y"
{
yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_if,
- node(yyvsp[0].nodeval, Node_if_branches, (NODE *)NULL));
+ node(yyvsp[0].nodeval, Node_if_branches, (NODE *) NULL));
;
break;}
-case 61:
-#line 471 "awk.y"
-{ yyval.nodeval = node (yyvsp[-6].nodeval, Node_K_if,
- node (yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
- break;}
case 62:
-#line 477 "awk.y"
-{ want_assign = 0; ;
+#line 526 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-6].nodeval, Node_K_if,
+ node(yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
break;}
-case 66:
-#line 488 "awk.y"
-{ yyval.nodeval = NULL; ;
+case 63:
+#line 532 "./awk.y"
+{ want_assign = FALSE; ;
break;}
case 67:
-#line 490 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_input, (NODE *)NULL); ;
+#line 543 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 68:
-#line 495 "awk.y"
-{ yyval.nodeval = NULL; ;
+#line 545 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_input, (NODE *) NULL); ;
break;}
case 69:
-#line 497 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_output, (NODE *)NULL); ;
+#line 550 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 70:
-#line 499 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_append, (NODE *)NULL); ;
+#line 552 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_output, (NODE *) NULL); ;
break;}
case 71:
-#line 501 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_pipe, (NODE *)NULL); ;
+#line 554 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_append, (NODE *) NULL); ;
break;}
case 72:
-#line 506 "awk.y"
-{ yyval.nodeval = NULL; ;
+#line 556 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_redirect_pipe, (NODE *) NULL); ;
break;}
case 73:
-#line 508 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 561 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 74:
-#line 513 "awk.y"
-{ yyval.nodeval = make_param(yyvsp[0].sval); ;
+#line 563 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 75:
-#line 515 "awk.y"
-{ yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
+#line 568 "./awk.y"
+{ yyval.nodeval = make_param(yyvsp[0].sval); ;
break;}
case 76:
-#line 517 "awk.y"
-{ yyval.nodeval = NULL; ;
+#line 570 "./awk.y"
+{ yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
break;}
case 77:
-#line 519 "awk.y"
+#line 572 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 78:
-#line 521 "awk.y"
+#line 574 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 79:
-#line 527 "awk.y"
+#line 576 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 80:
-#line 529 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 582 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 81:
-#line 534 "awk.y"
-{ yyval.nodeval = NULL; ;
+#line 584 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 82:
-#line 536 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 589 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 83:
-#line 541 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
+#line 591 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 84:
-#line 543 "awk.y"
+#line 596 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL); ;
+ break;}
+case 85:
+#line 598 "./awk.y"
{
yyval.nodeval = append_right(yyvsp[-2].nodeval,
- node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
+ node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL));
yyerrok;
;
break;}
-case 85:
-#line 549 "awk.y"
-{ yyval.nodeval = NULL; ;
- break;}
case 86:
-#line 551 "awk.y"
+#line 604 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 87:
-#line 553 "awk.y"
+#line 606 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 88:
-#line 555 "awk.y"
+#line 608 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 89:
-#line 560 "awk.y"
+#line 610 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 90:
-#line 562 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 615 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 91:
-#line 567 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
+#line 617 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 92:
-#line 569 "awk.y"
+#line 622 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL); ;
+ break;}
+case 93:
+#line 624 "./awk.y"
{
yyval.nodeval = append_right(yyvsp[-2].nodeval,
- node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
+ node(yyvsp[0].nodeval, Node_expression_list, (NODE *) NULL));
yyerrok;
;
break;}
-case 93:
-#line 575 "awk.y"
-{ yyval.nodeval = NULL; ;
- break;}
case 94:
-#line 577 "awk.y"
+#line 630 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 95:
-#line 579 "awk.y"
+#line 632 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 96:
-#line 581 "awk.y"
+#line 634 "./awk.y"
{ yyval.nodeval = NULL; ;
break;}
case 97:
-#line 586 "awk.y"
-{ want_assign = 0; ;
+#line 636 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 98:
-#line 588 "awk.y"
+#line 641 "./awk.y"
+{ want_assign = FALSE; ;
+ break;}
+case 99:
+#line 643 "./awk.y"
{
if (do_lint && yyvsp[0].nodeval->type == Node_regex)
warning("Regular expression on left of assignment.");
- yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval);
+ yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval);
;
break;}
-case 99:
-#line 594 "awk.y"
-{ yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-3].nodeval); ;
- break;}
case 100:
-#line 596 "awk.y"
+#line 649 "./awk.y"
+{ yyval.nodeval = node(variable(yyvsp[0].sval, CAN_FREE, Node_var_array), Node_in_array, yyvsp[-3].nodeval); ;
+ break;}
+case 101:
+#line 651 "./awk.y"
{
- yyval.nodeval = node (yyvsp[0].nodeval, Node_K_getline,
- node (yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *)NULL));
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_K_getline,
+ node(yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *) NULL));
;
break;}
-case 101:
-#line 601 "awk.y"
+case 102:
+#line 656 "./awk.y"
{
if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
warning("non-redirected getline undefined inside BEGIN or END action");
- yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
+ yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
;
break;}
-case 102:
-#line 607 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
- break;}
case 103:
-#line 609 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
+#line 662 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
break;}
case 104:
-#line 611 "awk.y"
+#line 664 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
+ break;}
+case 105:
+#line 666 "./awk.y"
{
if (yyvsp[-2].nodeval->type == Node_regex)
warning("Regular expression on left of MATCH operator.");
- yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval));
+ yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval));
;
break;}
-case 105:
-#line 617 "awk.y"
+case 106:
+#line 672 "./awk.y"
{
yyval.nodeval = yyvsp[0].nodeval;
if (do_lint && tokstart[0] == '*') {
@@ -1834,8 +1896,8 @@ case 105:
}
;
break;}
-case 106:
-#line 627 "awk.y"
+case 107:
+#line 682 "./awk.y"
{
yyval.nodeval = node(node(make_number(0.0),
Node_field_spec,
@@ -1844,232 +1906,237 @@ case 106:
yyvsp[0].nodeval);
;
break;}
-case 107:
-#line 635 "awk.y"
-{ yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-2].nodeval); ;
- break;}
case 108:
-#line 637 "awk.y"
+#line 690 "./awk.y"
+{ yyval.nodeval = node(variable(yyvsp[0].sval, CAN_FREE, Node_var_array), Node_in_array, yyvsp[-2].nodeval); ;
+ break;}
+case 109:
+#line 692 "./awk.y"
{
if (do_lint && yyvsp[0].nodeval->type == Node_regex)
warning("Regular expression on left of comparison.");
- yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval);
+ yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval);
;
break;}
-case 109:
-#line 643 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
- break;}
case 110:
-#line 645 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
+#line 698 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
break;}
case 111:
-#line 647 "awk.y"
-{ yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
+#line 700 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
break;}
case 112:
-#line 649 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 702 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
break;}
case 113:
-#line 651 "awk.y"
-{ yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
+#line 704 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 114:
-#line 656 "awk.y"
-{ want_assign = 0; ;
+#line 706 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
break;}
case 115:
-#line 658 "awk.y"
-{ yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
+#line 711 "./awk.y"
+{ want_assign = FALSE; ;
break;}
case 116:
-#line 660 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
+#line 713 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
break;}
case 117:
-#line 662 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
+#line 715 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
break;}
case 118:
-#line 664 "awk.y"
+#line 717 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
+ break;}
+case 119:
+#line 719 "./awk.y"
{
if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
warning("non-redirected getline undefined inside BEGIN or END action");
- yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
+ yyval.nodeval = node(yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
;
break;}
-case 119:
-#line 670 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
- break;}
case 120:
-#line 672 "awk.y"
-{ yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
+#line 725 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 121:
-#line 674 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval)); ;
+#line 727 "./awk.y"
+{ yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
break;}
case 122:
-#line 676 "awk.y"
-{ yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-2].nodeval); ;
+#line 729 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval)); ;
break;}
case 123:
-#line 678 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
+#line 731 "./awk.y"
+{ yyval.nodeval = node(variable(yyvsp[0].sval, CAN_FREE, Node_var_array), Node_in_array, yyvsp[-2].nodeval); ;
break;}
case 124:
-#line 680 "awk.y"
-{ yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
+#line 733 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
break;}
case 125:
-#line 682 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 735 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
break;}
case 126:
-#line 684 "awk.y"
-{ yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
+#line 737 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
-case 128:
-#line 691 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
+case 127:
+#line 739 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
break;}
case 129:
-#line 693 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
+#line 746 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
break;}
case 130:
-#line 695 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
+#line 748 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
break;}
case 131:
-#line 697 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
+#line 750 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
break;}
case 132:
-#line 699 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
+#line 752 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
break;}
case 133:
-#line 701 "awk.y"
-{ yyval.nodeval = node (yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
+#line 754 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
break;}
case 134:
-#line 703 "awk.y"
-{ yyval.nodeval = node (yyvsp[-1].nodeval, Node_postincrement, (NODE *)NULL); ;
+#line 756 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
break;}
case 135:
-#line 705 "awk.y"
-{ yyval.nodeval = node (yyvsp[-1].nodeval, Node_postdecrement, (NODE *)NULL); ;
+#line 758 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_postincrement, (NODE *) NULL); ;
break;}
case 136:
-#line 710 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
+#line 760 "./awk.y"
+{ yyval.nodeval = node(yyvsp[-1].nodeval, Node_postdecrement, (NODE *) NULL); ;
break;}
case 137:
-#line 712 "awk.y"
-{ yyval.nodeval = yyvsp[-1].nodeval; ;
+#line 765 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_not, (NODE *) NULL); ;
break;}
case 138:
-#line 715 "awk.y"
-{ yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
+#line 767 "./awk.y"
+{ yyval.nodeval = yyvsp[-1].nodeval; ;
break;}
case 139:
-#line 717 "awk.y"
-{ yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
+#line 770 "./awk.y"
+{ yyval.nodeval = snode(yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
break;}
case 140:
-#line 719 "awk.y"
+#line 772 "./awk.y"
+{ yyval.nodeval = snode(yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
+ break;}
+case 141:
+#line 774 "./awk.y"
{
if (do_lint)
warning("call of `length' without parentheses is not portable");
- yyval.nodeval = snode ((NODE *)NULL, Node_builtin, (int) yyvsp[0].lval);
+ yyval.nodeval = snode((NODE *) NULL, Node_builtin, (int) yyvsp[0].lval);
if (do_posix)
- warning( "call of `length' without parentheses is deprecated by POSIX");
+ warning("call of `length' without parentheses is deprecated by POSIX");
;
break;}
-case 141:
-#line 727 "awk.y"
+case 142:
+#line 782 "./awk.y"
{
- yyval.nodeval = node (yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
+ yyval.nodeval = node(yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
+ func_use(yyvsp[-3].sval, FUNC_USE);
+ param_sanity(yyvsp[-1].nodeval);
free(yyvsp[-3].sval);
;
break;}
-case 143:
-#line 733 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_preincrement, (NODE *)NULL); ;
- break;}
case 144:
-#line 735 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_predecrement, (NODE *)NULL); ;
+#line 790 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_preincrement, (NODE *) NULL); ;
break;}
case 145:
-#line 737 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 792 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_predecrement, (NODE *) NULL); ;
break;}
case 146:
-#line 739 "awk.y"
+#line 794 "./awk.y"
{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 147:
-#line 742 "awk.y"
-{ if (yyvsp[0].nodeval->type == Node_val) {
+#line 796 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
+ break;}
+case 148:
+#line 799 "./awk.y"
+{
+ if (yyvsp[0].nodeval->type == Node_val) {
yyvsp[0].nodeval->numbr = -(force_number(yyvsp[0].nodeval));
yyval.nodeval = yyvsp[0].nodeval;
} else
- yyval.nodeval = node (yyvsp[0].nodeval, Node_unary_minus, (NODE *)NULL);
+ yyval.nodeval = node(yyvsp[0].nodeval, Node_unary_minus, (NODE *) NULL);
;
break;}
-case 148:
-#line 749 "awk.y"
+case 149:
+#line 807 "./awk.y"
{
- /* was: $$ = $2 */
- /* POSIX semantics: force a conversion to numeric type */
+ /*
+ * was: $$ = $2
+ * POSIX semantics: force a conversion to numeric type
+ */
yyval.nodeval = node (make_number(0.0), Node_plus, yyvsp[0].nodeval);
;
break;}
-case 149:
-#line 758 "awk.y"
-{ yyval.nodeval = NULL; ;
- break;}
case 150:
-#line 760 "awk.y"
-{ yyval.nodeval = yyvsp[0].nodeval; ;
+#line 818 "./awk.y"
+{ yyval.nodeval = NULL; ;
break;}
case 151:
-#line 765 "awk.y"
-{ yyval.nodeval = variable(yyvsp[0].sval,1); ;
+#line 820 "./awk.y"
+{ yyval.nodeval = yyvsp[0].nodeval; ;
break;}
case 152:
-#line 767 "awk.y"
+#line 825 "./awk.y"
+{ yyval.nodeval = variable(yyvsp[0].sval, CAN_FREE, Node_var); ;
+ break;}
+case 153:
+#line 827 "./awk.y"
{
if (yyvsp[-1].nodeval->rnode == NULL) {
- yyval.nodeval = node (variable(yyvsp[-3].sval,1), Node_subscript, yyvsp[-1].nodeval->lnode);
+ yyval.nodeval = node(variable(yyvsp[-3].sval, CAN_FREE, Node_var_array), Node_subscript, yyvsp[-1].nodeval->lnode);
freenode(yyvsp[-1].nodeval);
} else
- yyval.nodeval = node (variable(yyvsp[-3].sval,1), Node_subscript, yyvsp[-1].nodeval);
+ yyval.nodeval = node(variable(yyvsp[-3].sval, CAN_FREE, Node_var_array), Node_subscript, yyvsp[-1].nodeval);
;
break;}
-case 153:
-#line 775 "awk.y"
-{ yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
- break;}
-case 155:
-#line 783 "awk.y"
-{ yyerrok; ;
+case 154:
+#line 835 "./awk.y"
+{ yyval.nodeval = node(yyvsp[0].nodeval, Node_field_spec, (NODE *) NULL); ;
break;}
case 156:
-#line 787 "awk.y"
+#line 843 "./awk.y"
{ yyerrok; ;
break;}
-case 159:
-#line 796 "awk.y"
-{ yyerrok; want_assign = 0; ;
+case 157:
+#line 847 "./awk.y"
+{ yyerrok; ;
break;}
case 160:
-#line 799 "awk.y"
+#line 856 "./awk.y"
+{ yyerrok; want_assign = FALSE; ;
+ break;}
+case 161:
+#line 859 "./awk.y"
{ yyerrok; ;
break;}
}
@@ -2270,7 +2337,7 @@ yyerrhandle:
yystate = yyn;
goto yynewstate;
}
-#line 802 "awk.y"
+#line 862 "./awk.y"
struct token {
@@ -2284,7 +2351,8 @@ struct token {
# define NOT_OLD 0x0100 /* feature not in old awk */
# define NOT_POSIX 0x0200 /* feature not in POSIX */
# define GAWKX 0x0400 /* gawk extension */
- NODE *(*ptr) (); /* function that implements this keyword */
+# define RESX 0x0800 /* Bell Labs Research extension */
+ NODE *(*ptr)(); /* function that implements this keyword */
};
extern NODE
@@ -2293,7 +2361,8 @@ extern NODE
*do_split(), *do_system(), *do_int(), *do_close(),
*do_atan2(), *do_sin(), *do_cos(), *do_rand(),
*do_srand(), *do_match(), *do_tolower(), *do_toupper(),
- *do_sub(), *do_gsub(), *do_strftime(), *do_systime();
+ *do_sub(), *do_gsub(), *do_strftime(), *do_systime(),
+ *do_fflush();
/* Tokentab is sorted ascii ascending order, so it can be binary searched. */
@@ -2310,9 +2379,11 @@ static struct token tokentab[] = {
{"else", Node_illegal, LEX_ELSE, 0, 0},
{"exit", Node_K_exit, LEX_EXIT, 0, 0},
{"exp", Node_builtin, LEX_BUILTIN, A(1), do_exp},
+{"fflush", Node_builtin, LEX_BUILTIN, RESX|A(0)|A(1), do_fflush},
{"for", Node_K_for, LEX_FOR, 0, 0},
{"func", Node_K_function, LEX_FUNCTION, NOT_POSIX|NOT_OLD, 0},
{"function", Node_K_function, LEX_FUNCTION, NOT_OLD, 0},
+{"gensub", Node_builtin, LEX_BUILTIN, GAWKX|A(3)|A(4), do_gensub},
{"getline", Node_K_getline, LEX_GETLINE, NOT_OLD, 0},
{"gsub", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), do_gsub},
{"if", Node_K_if, LEX_IF, 0, 0},
@@ -2323,6 +2394,7 @@ static struct token tokentab[] = {
{"log", Node_builtin, LEX_BUILTIN, A(1), do_log},
{"match", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2), do_match},
{"next", Node_K_next, LEX_NEXT, 0, 0},
+{"nextfile", Node_K_nextfile, LEX_NEXTFILE, GAWKX, 0},
{"print", Node_K_print, LEX_PRINT, 0, 0},
{"printf", Node_K_printf, LEX_PRINTF, 0, 0},
{"rand", Node_builtin, LEX_BUILTIN, NOT_OLD|A(0), do_rand},
@@ -2332,7 +2404,7 @@ static struct token tokentab[] = {
{"sprintf", Node_builtin, LEX_BUILTIN, 0, do_sprintf},
{"sqrt", Node_builtin, LEX_BUILTIN, A(1), do_sqrt},
{"srand", Node_builtin, LEX_BUILTIN, NOT_OLD|A(0)|A(1), do_srand},
-{"strftime", Node_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2), do_strftime},
+{"strftime", Node_builtin, LEX_BUILTIN, GAWKX|A(0)|A(1)|A(2), do_strftime},
{"sub", Node_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), do_sub},
{"substr", Node_builtin, LEX_BUILTIN, A(2)|A(3), do_substr},
{"system", Node_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_system},
@@ -2342,10 +2414,17 @@ static struct token tokentab[] = {
{"while", Node_K_while, LEX_WHILE, 0, 0},
};
+/* yyerror --- print a syntax error message, show where */
+
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+static void
+yyerror(const char *m, ...)
+#else
/* VARARGS0 */
static void
yyerror(va_alist)
va_dcl
+#endif
{
va_list args;
const char *mesg = NULL;
@@ -2357,13 +2436,13 @@ va_dcl
errcount++;
/* Find the current line in the input file */
if (lexptr && lexeme) {
- if (!thisline) {
+ if (thisline == NULL) {
cp = lexeme;
if (*cp == '\n') {
cp--;
mesg = "unexpected newline";
}
- for ( ; cp != lexptr_begin && *cp != '\n'; --cp)
+ for (; cp != lexptr_begin && *cp != '\n'; --cp)
continue;
if (*cp == '\n')
cp++;
@@ -2380,7 +2459,7 @@ va_dcl
msg("%.*s", (int) (bp - thisline), thisline);
bp = buf;
cp = buf + sizeof(buf) - 24; /* 24 more than longest msg. input */
- if (lexptr) {
+ if (lexptr != NULL) {
scan = thisline;
while (bp < cp && scan < lexeme)
if (*scan++ == '\t')
@@ -2390,26 +2469,36 @@ va_dcl
*bp++ = '^';
*bp++ = ' ';
}
+#if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
+ va_start(args, m);
+ if (mesg == NULL)
+ mesg = m;
+#else
va_start(args);
if (mesg == NULL)
mesg = va_arg(args, char *);
+#endif
strcpy(bp, mesg);
err("", buf, args);
va_end(args);
exit(2);
}
+/* get_src_buf --- read the next buffer of source program */
+
static char *
get_src_buf()
{
- static int samefile = 0;
+ static int samefile = FALSE;
static int nextfile = 0;
static char *buf = NULL;
static int fd;
int n;
register char *scan;
static int len = 0;
- static int did_newline = 0;
+ static int did_newline = FALSE;
+ struct stat sbuf;
+
# define SLOP 128 /* enough space to hold most source lines */
again:
@@ -2425,13 +2514,19 @@ again:
* gawk '' /path/name
* Sigh.
*/
+ static int warned = FALSE;
+
+ if (do_lint && ! warned) {
+ warned = TRUE;
+ warning("empty program text on command line");
+ }
++nextfile;
goto again;
}
sourceline = 1;
lexptr = lexptr_begin = srcfiles[nextfile].val;
lexend = lexptr + len;
- } else if (!did_newline && *(lexptr-1) != '\n') {
+ } else if (! did_newline && *(lexptr-1) != '\n') {
/*
* The following goop is to ensure that the source
* ends with a newline and that the entire current
@@ -2439,7 +2534,7 @@ again:
*/
int offset;
- did_newline = 1;
+ did_newline = TRUE;
offset = lexptr - lexeme;
for (scan = lexeme; scan > lexptr_begin; scan--)
if (*scan == '\n') {
@@ -2460,13 +2555,13 @@ again:
lexeme = lexptr = lexptr_begin = NULL;
}
if (lexptr == NULL && ++nextfile <= numfiles)
- return get_src_buf();
+ goto again;
return lexptr;
}
- if (!samefile) {
+ if (! samefile) {
source = srcfiles[nextfile].val;
if (source == NULL) {
- if (buf) {
+ if (buf != NULL) {
free(buf);
buf = NULL;
}
@@ -2474,15 +2569,32 @@ again:
return lexeme = lexptr = lexptr_begin = NULL;
}
fd = pathopen(source);
- if (fd == -1)
+ if (fd <= INVALID_HANDLE) {
+ char *in;
+
+ /* suppress file name and line no. in error mesg */
+ in = source;
+ source = NULL;
fatal("can't open source file \"%s\" for reading (%s)",
- source, strerror(errno));
- len = optimal_bufsize(fd);
- if (buf)
+ in, strerror(errno));
+ }
+ len = optimal_bufsize(fd, & sbuf);
+ if (sbuf.st_size == 0) {
+ static int warned = FALSE;
+
+ if (do_lint && ! warned) {
+ warned = TRUE;
+ warning("source file `%s' is empty", source);
+ }
+ close(fd);
+ ++nextfile;
+ goto again;
+ }
+ if (buf != NULL)
free(buf);
emalloc(buf, char *, len + SLOP, "get_src_buf");
lexptr_begin = buf + SLOP;
- samefile = 1;
+ samefile = TRUE;
sourceline = 1;
} else {
/*
@@ -2511,7 +2623,8 @@ again:
fatal("can't read sourcefile \"%s\" (%s)",
source, strerror(errno));
if (n == 0) {
- samefile = 0;
+ close(fd);
+ samefile = FALSE;
nextfile++;
if (lexeme)
*lexeme = '\0';
@@ -2523,8 +2636,12 @@ again:
return buf;
}
+/* tokadd --- add a character to the token buffer */
+
#define tokadd(x) (*tok++ = (x), tok == tokend ? tokexpand() : tok)
+/* tokexpand --- grow the token buffer */
+
char *
tokexpand()
{
@@ -2533,7 +2650,7 @@ tokexpand()
tokoffset = tok - tokstart;
toksize *= 2;
- if (tokstart)
+ if (tokstart != NULL)
erealloc(tokstart, char *, toksize, "tokexpand");
else
emalloc(tokstart, char *, toksize, "tokexpand");
@@ -2542,9 +2659,12 @@ tokexpand()
return tok;
}
+/* nextc --- get the next input character */
+
#if DEBUG
-char
-nextc() {
+int
+nextc()
+{
int c;
if (lexptr && lexptr < lexend)
@@ -2552,40 +2672,67 @@ nextc() {
else if (get_src_buf())
c = *lexptr++;
else
- c = '\0';
+ c = EOF;
return c;
}
#else
#define nextc() ((lexptr && lexptr < lexend) ? \
*lexptr++ : \
- (get_src_buf() ? *lexptr++ : '\0') \
+ (get_src_buf() ? *lexptr++ : EOF) \
)
#endif
+
+/* pushback --- push a character back on the input */
+
#define pushback() (lexptr && lexptr > lexptr_begin ? lexptr-- : lexptr)
-/*
- * Read the input and turn it into tokens.
- */
+/* allow_newline --- allow newline after &&, ||, ? and : */
+
+static void
+allow_newline()
+{
+ int c;
+
+ for (;;) {
+ c = nextc();
+ if (c == EOF)
+ break;
+ if (c == '#') {
+ while ((c = nextc()) != '\n' && c != EOF)
+ continue;
+ if (c == EOF)
+ break;
+ }
+ if (c == '\n')
+ sourceline++;
+ if (! isspace(c)) {
+ pushback();
+ break;
+ }
+ }
+}
+
+/* yylex --- Read the input and turn it into tokens. */
static int
yylex()
{
- register int c;
- int seen_e = 0; /* These are for numbers */
- int seen_point = 0;
+ register int c, c1;
+ int seen_e = FALSE; /* These are for numbers */
+ int seen_point = FALSE;
int esc_seen; /* for literal strings */
int low, mid, high;
- static int did_newline = 0;
+ static int did_newline = FALSE;
char *tokkey;
- static int lasttok = 0, eof_warned = 0;
+ static int lasttok = 0, eof_warned = FALSE;
- if (!nextc()) {
+ if (nextc() == EOF) {
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
warning("source file does not end in newline");
- eof_warned = 1;
+ eof_warned = TRUE;
}
return NEWLINE; /* fake it */
}
@@ -2605,29 +2752,59 @@ yylex()
lexeme = lexptr;
thisline = NULL;
if (want_regexp) {
- int in_brack = 0;
+ int in_brack = 0; /* count brackets, [[:alnum:]] allowed */
+ /*
+ * Counting brackets is non-trivial. [[] is ok,
+ * and so is [\]], with a point being that /[/]/ as a regexp
+ * constant has to work.
+ *
+ * Do not count [ or ] if either one is preceded by a \.
+ * A `[' should be counted if
+ * a) it is the first one so far (in_brack == 0)
+ * b) it is the `[' in `[:'
+ * A ']' should be counted if not preceded by a \, since
+ * it is either closing `:]' or just a plain list.
+ * According to POSIX, []] is how you put a ] into a set.
+ * Try to handle that too.
+ *
+ * The code for \ handles \[ and \].
+ */
- want_regexp = 0;
+ want_regexp = FALSE;
tok = tokstart;
- while ((c = nextc()) != 0) {
+ for (;;) {
+ c = nextc();
switch (c) {
case '[':
- in_brack = 1;
+ /* one day check for `.' and `=' too */
+ if ((c1 = nextc()) == ':' || in_brack == 0)
+ in_brack++;
+ pushback();
break;
case ']':
- in_brack = 0;
+ if (tokstart[0] == '['
+ && (tok == tokstart + 1
+ || (tok == tokstart + 2
+ && tokstart[1] == '^')))
+ /* do nothing */;
+ else
+ in_brack--;
break;
case '\\':
- if ((c = nextc()) == '\0') {
+ if ((c = nextc()) == EOF) {
yyerror("unterminated regexp ends with \\ at end of file");
+ return lasttok = REGEXP; /* kludge */
} else if (c == '\n') {
sourceline++;
continue;
- } else
+ } else {
tokadd('\\');
+ tokadd(c);
+ continue;
+ }
break;
case '/': /* end of the regexp */
- if (in_brack)
+ if (in_brack > 0)
break;
pushback();
@@ -2637,8 +2814,10 @@ yylex()
case '\n':
pushback();
yyerror("unterminated regexp");
- case '\0':
+ return lasttok = REGEXP; /* kludge */
+ case EOF:
yyerror("unterminated regexp at end of file");
+ return lasttok = REGEXP; /* kludge */
}
tokadd(c);
}
@@ -2653,12 +2832,12 @@ retry:
yylval.nodetypeval = Node_illegal;
switch (c) {
- case 0:
+ case EOF:
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
warning("source file does not end in newline");
- eof_warned = 1;
+ eof_warned = TRUE;
}
return NEWLINE; /* fake it */
}
@@ -2670,13 +2849,13 @@ retry:
case '#': /* it's a comment */
while ((c = nextc()) != '\n') {
- if (c == '\0') {
+ if (c == EOF) {
if (lasttok != NEWLINE) {
lasttok = NEWLINE;
if (do_lint && ! eof_warned) {
warning(
"source file does not end in newline");
- eof_warned = 1;
+ eof_warned = TRUE;
}
return NEWLINE; /* fake it */
}
@@ -2694,14 +2873,18 @@ retry:
* Use it at your own risk. We think it's a bad idea, which
* is why it's not on by default.
*/
- if (!do_unix) {
+ if (! do_traditional) {
/* strip trailing white-space and/or comment */
while ((c = nextc()) == ' ' || c == '\t')
continue;
- if (c == '#')
+ if (c == '#') {
+ if (do_lint)
+ warning(
+ "use of `\\ #...' line continuation is not portable");
while ((c = nextc()) != '\n')
- if (c == '\0')
+ if (c == EOF)
break;
+ }
pushback();
}
#endif /* RELAXED_CONTINUATION */
@@ -2713,16 +2896,18 @@ retry:
break;
case '$':
- want_assign = 1;
+ want_assign = TRUE;
return lasttok = '$';
+ case ':':
+ case '?':
+ allow_newline();
+ /* fall through */
case ')':
case ']':
case '(':
case '[':
case ';':
- case ':':
- case '?':
case '{':
case ',':
return lasttok = c;
@@ -2736,20 +2921,22 @@ retry:
return lasttok = '*';
} else if (c == '*') {
/* make ** and **= aliases for ^ and ^= */
- static int did_warn_op = 0, did_warn_assgn = 0;
+ static int did_warn_op = FALSE, did_warn_assgn = FALSE;
if (nextc() == '=') {
if (do_lint && ! did_warn_assgn) {
- did_warn_assgn = 1;
+ did_warn_assgn = TRUE;
warning("**= is not allowed by POSIX");
+ warning("operator `**=' is not supported in old awk");
}
yylval.nodetypeval = Node_assign_exp;
- return lasttok = ASSIGNOP;
+ return ASSIGNOP;
} else {
pushback();
if (do_lint && ! did_warn_op) {
- did_warn_op = 1;
+ did_warn_op = TRUE;
warning("** is not allowed by POSIX");
+ warning("operator `**' is not supported in old awk");
}
return lasttok = '^';
}
@@ -2777,12 +2964,11 @@ retry:
case '^':
{
- static int did_warn_op = 0, did_warn_assgn = 0;
+ static int did_warn_op = FALSE, did_warn_assgn = FALSE;
if (nextc() == '=') {
-
if (do_lint && ! did_warn_assgn) {
- did_warn_assgn = 1;
+ did_warn_assgn = TRUE;
warning("operator `^=' is not supported in old awk");
}
yylval.nodetypeval = Node_assign_exp;
@@ -2790,7 +2976,7 @@ retry:
}
pushback();
if (do_lint && ! did_warn_op) {
- did_warn_op = 1;
+ did_warn_op = TRUE;
warning("operator `^' is not supported in old awk");
}
return lasttok = '^';
@@ -2813,7 +2999,7 @@ retry:
}
if (c == '~') {
yylval.nodetypeval = Node_nomatch;
- want_assign = 0;
+ want_assign = FALSE;
return lasttok = MATCHOP;
}
pushback();
@@ -2851,16 +3037,16 @@ retry:
case '~':
yylval.nodetypeval = Node_match;
- want_assign = 0;
+ want_assign = FALSE;
return lasttok = MATCHOP;
case '}':
/*
* Added did newline stuff. Easier than
- * hacking the grammar
+ * hacking the grammar.
*/
if (did_newline) {
- did_newline = 0;
+ did_newline = FALSE;
return lasttok = c;
}
did_newline++;
@@ -2868,7 +3054,7 @@ retry:
return lasttok = NEWLINE;
case '"':
- esc_seen = 0;
+ esc_seen = FALSE;
while ((c = nextc()) != '"') {
if (c == '\n') {
pushback();
@@ -2880,10 +3066,10 @@ retry:
sourceline++;
continue;
}
- esc_seen = 1;
+ esc_seen = TRUE;
tokadd('\\');
}
- if (c == '\0') {
+ if (c == EOF) {
pushback();
yyerror("unterminated string");
}
@@ -2907,10 +3093,11 @@ retry:
case '.':
c = nextc();
pushback();
- if (!isdigit(c))
+ if (! isdigit(c))
return lasttok = '.';
else
- c = '.'; /* FALL THROUGH */
+ c = '.';
+ /* FALL THROUGH */
case '0':
case '1':
case '2':
@@ -2923,24 +3110,24 @@ retry:
case '9':
/* It's a number */
for (;;) {
- int gotnumber = 0;
+ int gotnumber = FALSE;
tokadd(c);
switch (c) {
case '.':
if (seen_point) {
- gotnumber++;
+ gotnumber = TRUE;
break;
}
- ++seen_point;
+ seen_point = TRUE;
break;
case 'e':
case 'E':
if (seen_e) {
- gotnumber++;
+ gotnumber = TRUE;
break;
}
- ++seen_e;
+ seen_e = TRUE;
if ((c = nextc()) == '-' || c == '+')
tokadd(c);
else
@@ -2958,17 +3145,17 @@ retry:
case '9':
break;
default:
- gotnumber++;
+ gotnumber = TRUE;
}
if (gotnumber)
break;
c = nextc();
}
- if (c != 0)
+ if (c != EOF)
pushback();
else if (do_lint && ! eof_warned) {
warning("source file does not end in newline");
- eof_warned = 1;
+ eof_warned = TRUE;
}
tokadd('\0');
yylval.nodeval = make_number(atof(tokstart));
@@ -2978,24 +3165,8 @@ retry:
case '&':
if ((c = nextc()) == '&') {
yylval.nodetypeval = Node_and;
- for (;;) {
- c = nextc();
- if (c == '\0')
- break;
- if (c == '#') {
- while ((c = nextc()) != '\n' && c != '\0')
- continue;
- if (c == '\0')
- break;
- }
- if (c == '\n')
- sourceline++;
- if (! isspace(c)) {
- pushback();
- break;
- }
- }
- want_assign = 0;
+ allow_newline();
+ want_assign = FALSE;
return lasttok = LEX_AND;
}
pushback();
@@ -3004,24 +3175,8 @@ retry:
case '|':
if ((c = nextc()) == '|') {
yylval.nodetypeval = Node_or;
- for (;;) {
- c = nextc();
- if (c == '\0')
- break;
- if (c == '#') {
- while ((c = nextc()) != '\n' && c != '\0')
- continue;
- if (c == '\0')
- break;
- }
- if (c == '\n')
- sourceline++;
- if (! isspace(c)) {
- pushback();
- break;
- }
- }
- want_assign = 0;
+ allow_newline();
+ want_assign = FALSE;
return lasttok = LEX_OR;
}
pushback();
@@ -3031,7 +3186,7 @@ retry:
if (c != '_' && ! isalpha(c))
yyerror("Invalid char '%c' in expression\n", c);
- /* it's some type of name-type-thing. Find its length */
+ /* it's some type of name-type-thing. Find its length. */
tok = tokstart;
while (is_identchar(c)) {
tokadd(c);
@@ -3040,40 +3195,43 @@ retry:
tokadd('\0');
emalloc(tokkey, char *, tok - tokstart, "yylex");
memcpy(tokkey, tokstart, tok - tokstart);
- if (c != 0)
+ if (c != EOF)
pushback();
else if (do_lint && ! eof_warned) {
warning("source file does not end in newline");
- eof_warned = 1;
+ eof_warned = TRUE;
}
- /* See if it is a special token. */
+ /* See if it is a special token. */
low = 0;
- high = (sizeof (tokentab) / sizeof (tokentab[0])) - 1;
+ high = (sizeof(tokentab) / sizeof(tokentab[0])) - 1;
while (low <= high) {
- int i/* , c */;
+ int i;
mid = (low + high) / 2;
c = *tokstart - tokentab[mid].operator[0];
- i = c ? c : strcmp (tokstart, tokentab[mid].operator);
+ i = c ? c : strcmp(tokstart, tokentab[mid].operator);
- if (i < 0) { /* token < mid */
+ if (i < 0) /* token < mid */
high = mid - 1;
- } else if (i > 0) { /* token > mid */
+ else if (i > 0) /* token > mid */
low = mid + 1;
- } else {
+ else {
if (do_lint) {
if (tokentab[mid].flags & GAWKX)
warning("%s() is a gawk extension",
tokentab[mid].operator);
+ if (tokentab[mid].flags & RESX)
+ warning("%s() is a Bell Labs extension",
+ tokentab[mid].operator);
if (tokentab[mid].flags & NOT_POSIX)
warning("POSIX does not allow %s",
tokentab[mid].operator);
- if (tokentab[mid].flags & NOT_OLD)
- warning("%s is not supported in old awk",
- tokentab[mid].operator);
}
- if ((do_unix && (tokentab[mid].flags & GAWKX))
+ if (do_lint_old && (tokentab[mid].flags & NOT_OLD))
+ warning("%s is not supported in old awk",
+ tokentab[mid].operator);
+ if ((do_traditional && (tokentab[mid].flags & GAWKX))
|| (do_posix && (tokentab[mid].flags & NOT_POSIX)))
break;
if (tokentab[mid].class == LEX_BUILTIN
@@ -3092,11 +3250,13 @@ retry:
if (*lexptr == '(')
return lasttok = FUNC_CALL;
else {
- want_assign = 1;
+ want_assign = TRUE;
return lasttok = NAME;
}
}
+/* node_common --- common code for allocating a new node */
+
static NODE *
node_common(op)
NODETYPE op;
@@ -3115,9 +3275,8 @@ NODETYPE op;
return r;
}
-/*
- * This allocates a node with defined lnode and rnode.
- */
+/* node --- allocates a node with defined lnode and rnode. */
+
NODE *
node(left, op, right)
NODE *left, *right;
@@ -3131,10 +3290,10 @@ NODETYPE op;
return r;
}
-/*
- * This allocates a node with defined subnode and proc for builtin functions
- * Checks for arg. count and supplies defaults where possible.
- */
+/* snode --- allocate a node with defined subnode and proc for builtin
+ functions. Checks for arg. count and supplies defaults where
+ possible. */
+
static NODE *
snode(subn, op, idx)
NODETYPE op;
@@ -3149,7 +3308,7 @@ NODE *subn;
r = node_common(op);
/* traverse expression list to see how many args. given */
- for (n= subn; n; n= n->rnode) {
+ for (n = subn; n != NULL; n = n->rnode) {
nexp++;
if (nexp > 3)
break;
@@ -3157,7 +3316,7 @@ NODE *subn;
/* check against how many args. are allowed for this builtin */
args_allowed = tokentab[idx].flags & ARGS;
- if (args_allowed && !(args_allowed & A(nexp)))
+ if (args_allowed && (args_allowed & A(nexp)) == 0)
fatal("%s() cannot have %d argument%c",
tokentab[idx].operator, nexp, nexp == 1 ? ' ' : 's');
@@ -3165,7 +3324,7 @@ NODE *subn;
/* special case processing for a few builtins */
if (nexp == 0 && r->proc == do_length) {
- subn = node(node(make_number(0.0),Node_field_spec,(NODE *)NULL),
+ subn = node(node(make_number(0.0), Node_field_spec, (NODE *) NULL),
Node_expression_list,
(NODE *) NULL);
} else if (r->proc == do_match) {
@@ -3182,6 +3341,15 @@ NODE *subn;
(NODE *) NULL));
else if (do_lint && subn->rnode->rnode->lnode->type == Node_val)
warning("string literal as last arg of substitute");
+ } else if (r->proc == do_gensub) {
+ if (subn->lnode->type != Node_regex)
+ subn->lnode = mk_rexp(subn->lnode);
+ if (nexp == 3)
+ append_right(subn, node(node(make_number(0.0),
+ Node_field_spec,
+ (NODE *) NULL),
+ Node_expression_list,
+ (NODE *) NULL));
} else if (r->proc == do_split) {
if (nexp == 2)
append_right(subn,
@@ -3198,11 +3366,13 @@ NODE *subn;
}
/*
+ * mkrangenode:
* This allocates a Node_line_range node with defined condpair and
* zeroes the trigger word to avoid the temptation of assuming that calling
* 'node( foo, Node_line_range, 0)' will properly initialize 'triggered'.
+ * Otherwise like node().
*/
-/* Otherwise like node() */
+
static NODE *
mkrangenode(cpair)
NODE *cpair;
@@ -3212,11 +3382,12 @@ NODE *cpair;
getnode(r);
r->type = Node_line_range;
r->condpair = cpair;
- r->triggered = 0;
+ r->triggered = FALSE;
return r;
}
-/* Build a for loop */
+/* make_for_loop --- build a for loop */
+
static NODE *
make_for_loop(init, cond, incr)
NODE *init, *cond, *incr;
@@ -3234,10 +3405,52 @@ NODE *init, *cond, *incr;
return n;
}
+/* dup_parms --- return TRUE if there are duplicate parameters */
+
+static int
+dup_parms(func)
+NODE *func;
+{
+ register NODE *np;
+ char *fname, **names;
+ int count, i, j, dups;
+ NODE *params;
+
+ fname = func->param;
+ count = func->param_cnt;
+ params = func->rnode;
+
+ if (count == 0) /* no args, no problem */
+ return FALSE;
+
+ emalloc(names, char **, count * sizeof(char *), "dup_parms");
+
+ i = 0;
+ for (np = params; np != NULL; np = np->rnode)
+ names[i++] = np->param;
+
+ dups = 0;
+ for (i = 1; i < count; i++) {
+ for (j = 0; j < i; j++) {
+ if (strcmp(names[i], names[j]) == 0) {
+ dups++;
+ error(
+ "function `%s': parameter #%d, `%s', duplicates parameter #%d",
+ fname, i+1, names[j], j+1);
+ }
+ }
+ }
+
+ free(names);
+ return (dups > 0 ? TRUE : FALSE);
+}
+
/*
+ * install:
* Install a name in the symbol table, even if it is already there.
* Caller must check against redefinition if that is desired.
*/
+
NODE *
install(name, value)
char *name;
@@ -3260,7 +3473,8 @@ NODE *value;
return hp->hvalue;
}
-/* find the most recent hash node for name installed by install */
+/* lookup --- find the most recent hash node for name installed by install */
+
NODE *
lookup(name)
const char *name;
@@ -3269,19 +3483,20 @@ const char *name;
register size_t len;
len = strlen(name);
- bucket = variables[hash(name, len, (unsigned long) HASHSIZE)];
- while (bucket) {
+ for (bucket = variables[hash(name, len, (unsigned long) HASHSIZE)];
+ bucket != NULL; bucket = bucket->hnext)
if (bucket->hlength == len && STREQN(bucket->hname, name, len))
return bucket->hvalue;
- bucket = bucket->hnext;
- }
+
return NULL;
}
/*
+ * append_right:
* Add new to the rightmost branch of LIST. This uses n^2 time, so we make
* a simple attempt at optimizing it.
*/
+
static NODE *
append_right(list, new)
NODE *list, *new;
@@ -3301,50 +3516,13 @@ NODE *list, *new;
return oldlist;
}
-/* return 1 if there are duplicate parameters, 0 means all ok */
-static int
-dup_parms(func)
-NODE *func;
-{
- register NODE *np;
- char *fname, **names;
- int count, i, j, dups;
- NODE *params;
-
- fname = func->param;
- count = func->param_cnt;
- params = func->rnode;
-
- if (count == 0) /* no args, no problem */
- return 0;
-
- emalloc(names, char **, count * sizeof(char *), "dup_parms");
-
- i = 0;
- for (np = params; np != NULL; np = np->rnode)
- names[i++] = np->param;
-
- dups = 0;
- for (i = 1; i < count; i++) {
- for (j = 0; j < i; j++) {
- if (strcmp(names[i], names[j]) == 0) {
- dups++;
- error(
- "function `%s': parameter #%d, `%s', duplicates parameter #%d",
- fname, i+1, names[j], j+1);
- }
- }
- }
-
- free(names);
- return (dups > 0);
-}
-
/*
+ * func_install:
* check if name is already installed; if so, it had better have Null value,
* in which case def is added as the value. Otherwise, install name with def
* as value.
*/
+
static void
func_install(params, def)
NODE *params;
@@ -3353,14 +3531,18 @@ NODE *def;
NODE *r;
pop_params(params->rnode);
- pop_var(params, 0);
+ pop_var(params, FALSE);
r = lookup(params->param);
if (r != NULL) {
fatal("function name `%s' previously defined", params->param);
} else
(void) install(params->param, node(params, Node_func, def));
+
+ func_use(params->param, FUNC_DEFINE);
}
+/* pop_var --- remove a variable from the symbol table */
+
static void
pop_var(np, freeit)
NODE *np;
@@ -3373,7 +3555,7 @@ int freeit;
name = np->param;
len = strlen(name);
save = &(variables[hash(name, len, (unsigned long) HASHSIZE)]);
- for (bucket = *save; bucket; bucket = bucket->hnext) {
+ for (bucket = *save; bucket != NULL; bucket = bucket->hnext) {
if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
*save = bucket->hnext;
freenode(bucket);
@@ -3385,6 +3567,8 @@ int freeit;
}
}
+/* pop_params --- remove list of function parameters from symbol table */
+
/*
* pop parameters out of the symbol table. do this in reverse order to
* avoid reading freed memory if there were duplicated parameters.
@@ -3396,9 +3580,11 @@ NODE *params;
if (params == NULL)
return;
pop_params(params->rnode);
- pop_var(params, 1);
+ pop_var(params, TRUE);
}
+/* make_param --- make NAME into a function parameter */
+
static NODE *
make_param(name)
char *name;
@@ -3413,42 +3599,201 @@ char *name;
return (install(name, r));
}
-/* Name points to a variable name. Make sure it's in the symbol table */
+static struct fdesc {
+ char *name;
+ short used;
+ short defined;
+ struct fdesc *next;
+} *ftable[HASHSIZE];
+
+/* func_use --- track uses and definitions of functions */
+
+static void
+func_use(name, how)
+char *name;
+enum defref how;
+{
+ struct fdesc *fp;
+ int len;
+ int ind;
+
+ len = strlen(name);
+ ind = hash(name, len, HASHSIZE);
+
+ for (fp = ftable[ind]; fp != NULL; fp = fp->next) {
+ if (strcmp(fp->name, name) == 0) {
+ if (how == FUNC_DEFINE)
+ fp->defined++;
+ else
+ fp->used++;
+ return;
+ }
+ }
+
+ /* not in the table, fall through to allocate a new one */
+
+ emalloc(fp, struct fdesc *, sizeof(struct fdesc), "func_use");
+ memset(fp, '\0', sizeof(struct fdesc));
+ emalloc(fp->name, char *, len + 1, "func_use");
+ strcpy(fp->name, name);
+ if (how == FUNC_DEFINE)
+ fp->defined++;
+ else
+ fp->used++;
+ fp->next = ftable[ind];
+ ftable[ind] = fp;
+}
+
+/* check_funcs --- verify functions that are called but not defined */
+
+static void
+check_funcs()
+{
+ struct fdesc *fp, *next;
+ int i;
+
+ for (i = 0; i < HASHSIZE; i++) {
+ for (fp = ftable[i]; fp != NULL; fp = fp->next) {
+#ifdef REALLYMEAN
+ /* making this the default breaks old code. sigh. */
+ if (fp->defined == 0) {
+ error(
+ "function `%s' called but never defined", fp->name);
+ errcount++;
+ }
+#else
+ if (do_lint && fp->defined == 0)
+ warning(
+ "function `%s' called but never defined", fp->name);
+#endif
+ if (do_lint && fp->used == 0) {
+ warning("function `%s' defined but never called",
+ fp->name);
+ }
+ }
+ }
+
+ /* now let's free all the memory */
+ for (i = 0; i < HASHSIZE; i++) {
+ for (fp = ftable[i]; fp != NULL; fp = next) {
+ next = fp->next;
+ free(fp->name);
+ free(fp);
+ }
+ }
+}
+
+/* param_sanity --- look for parameters that are regexp constants */
+
+static void
+param_sanity(arglist)
+NODE *arglist;
+{
+ NODE *argp, *arg;
+ int i;
+
+ for (i = 1, argp = arglist; argp != NULL; argp = argp->rnode, i++) {
+ arg = argp->lnode;
+ if (arg->type == Node_regex)
+ warning("regexp constant for parameter #%d yields boolean value", i);
+ }
+}
+
+/* variable --- make sure NAME is in the symbol table */
+
NODE *
-variable(name, can_free)
+variable(name, can_free, type)
char *name;
int can_free;
+NODETYPE type;
{
register NODE *r;
- static int env_loaded = 0;
+ static int env_loaded = FALSE;
- if (!env_loaded && STREQ(name, "ENVIRON")) {
+ if (! env_loaded && STREQ(name, "ENVIRON")) {
load_environ();
- env_loaded = 1;
+ env_loaded = TRUE;
}
if ((r = lookup(name)) == NULL)
- r = install(name, node(Nnull_string, Node_var, (NODE *) NULL));
+ r = install(name, node(Nnull_string, type, (NODE *) NULL));
else if (can_free)
free(name);
return r;
}
+/* mk_rexp --- make a regular expression constant */
+
static NODE *
mk_rexp(exp)
NODE *exp;
{
+ NODE *n;
+
if (exp->type == Node_regex)
return exp;
- else {
- NODE *n;
-
- getnode(n);
- n->type = Node_regex;
- n->re_exp = exp;
- n->re_text = NULL;
- n->re_reg = NULL;
- n->re_flags = 0;
- n->re_cnt = 1;
- return n;
+
+ getnode(n);
+ n->type = Node_regex;
+ n->re_exp = exp;
+ n->re_text = NULL;
+ n->re_reg = NULL;
+ n->re_flags = 0;
+ n->re_cnt = 1;
+ return n;
+}
+
+/* isnoeffect --- when used as a statement, has no side effects */
+
+/*
+ * To be completely general, we should recursively walk the parse
+ * tree, to make sure that all the subexpressions also have no effect.
+ * Instead, we just weaken the actual warning that's printed, up above
+ * in the grammar.
+ */
+
+static int
+isnoeffect(type)
+NODETYPE type;
+{
+ switch (type) {
+ case Node_times:
+ case Node_quotient:
+ case Node_mod:
+ case Node_plus:
+ case Node_minus:
+ case Node_subscript:
+ case Node_concat:
+ case Node_exp:
+ case Node_unary_minus:
+ case Node_field_spec:
+ case Node_and:
+ case Node_or:
+ case Node_equal:
+ case Node_notequal:
+ case Node_less:
+ case Node_greater:
+ case Node_leq:
+ case Node_geq:
+ case Node_match:
+ case Node_nomatch:
+ case Node_not:
+ case Node_val:
+ case Node_in_array:
+ case Node_NF:
+ case Node_NR:
+ case Node_FNR:
+ case Node_FS:
+ case Node_RS:
+ case Node_FIELDWIDTHS:
+ case Node_IGNORECASE:
+ case Node_OFS:
+ case Node_ORS:
+ case Node_OFMT:
+ case Node_CONVFMT:
+ return TRUE;
+ default:
+ break; /* keeps gcc -Wall happy */
}
+
+ return FALSE;
}
generated by cgit v1.2.3 (git 2.25.1) at 2025-05-04 11:41:16 +0000