home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / gnuawk_406.lzh / GnuAwk / src.lzh / src / awktab.c < prev    next >
C/C++ Source or Header  |  1990-09-27  |  96KB  |  3,038 lines
  1.  
  2. /*  A Bison parser, made from awk.y  */
  3.  
  4. #define    FUNC_CALL    258
  5. #define    NAME    259
  6. #define    REGEXP    260
  7. #define    YSTRING    261
  8. #define    ERROR    262
  9. #define    INCDEC    263
  10. #define    NUMBER    264
  11. #define    RELOP    265
  12. #define    APPEND_OP    266
  13. #define    ASSIGNOP    267
  14. #define    MATCHOP    268
  15. #define    NEWLINE    269
  16. #define    CONCAT_OP    270
  17. #define    LEX_BEGIN    271
  18. #define    LEX_END    272
  19. #define    LEX_IF    273
  20. #define    LEX_ELSE    274
  21. #define    LEX_RETURN    275
  22. #define    LEX_DELETE    276
  23. #define    LEX_WHILE    277
  24. #define    LEX_DO    278
  25. #define    LEX_FOR    279
  26. #define    LEX_BREAK    280
  27. #define    LEX_CONTINUE    281
  28. #define    LEX_PRINT    282
  29. #define    LEX_PRINTF    283
  30. #define    LEX_NEXT    284
  31. #define    LEX_EXIT    285
  32. #define    LEX_FUNCTION    286
  33. #define    LEX_GETLINE    287
  34. #define    LEX_SUB    288
  35. #define    LEX_MATCH    289
  36. #define    LEX_IN    290
  37. #define    LEX_AND    291
  38. #define    LEX_OR    292
  39. #define    INCREMENT    293
  40. #define    DECREMENT    294
  41. #define    LEX_BUILTIN    295
  42. #define    UNARY    296
  43.  
  44. #line 197 "awk.y"
  45.  
  46. #ifdef DEBUG
  47. #define YYDEBUG 12
  48. #endif
  49. #define YYIMPROVE
  50.  
  51. #include "awk.h"
  52.  
  53. extern void msg();
  54. extern struct re_pattern_buffer *mk_re_parse();
  55.  
  56. NODE *node();
  57. NODE *lookup();
  58. NODE *install();
  59.  
  60. static NODE *snode();
  61. static NODE *mkrangenode();
  62. static FILE *pathopen();
  63. static NODE *make_for_loop();
  64. static NODE *append_right();
  65. static void func_install();
  66. static NODE *make_param();
  67. static int hashf();
  68. static void pop_params();
  69. static void pop_var();
  70. static int yylex ();
  71. static void yyerror();
  72.  
  73. static int want_regexp;        /* lexical scanning kludge */
  74. static int lineno = 1;        /* for error msgs */
  75. static char *lexptr;        /* pointer to next char during parsing */
  76. static char *lexptr_begin;    /* keep track of where we were for error msgs */
  77. static int curinfile = -1;    /* index into sourcefiles[] */
  78.  
  79. NODE *variables[HASHSIZE];
  80.  
  81. extern int errcount;
  82. extern NODE *begin_block;
  83. extern NODE *end_block;
  84. extern int param_counter;
  85.  
  86. #line 239 "awk.y"
  87. typedef union {
  88.     long lval;
  89.     AWKNUM fval;
  90.     NODE *nodeval;
  91.     NODETYPE nodetypeval;
  92.     char *sval;
  93.     NODE *(*ptrval)();
  94. } YYSTYPE;
  95.  
  96. #ifndef YYLTYPE
  97. typedef
  98.   struct yyltype
  99.     {
  100.       int timestamp;
  101.       int first_line;
  102.       int first_column;
  103.       int last_line;
  104.       int last_column;
  105.       char *text;
  106.    }
  107.   yyltype;
  108.  
  109. #define YYLTYPE yyltype
  110. #endif
  111.  
  112. #include <stdio.h>
  113.  
  114. #ifndef __STDC__
  115. #define const
  116. #endif
  117.  
  118.  
  119.  
  120. #define    YYFINAL        312
  121. #define    YYFLAG        -32768
  122. #define    YYNTBASE    63
  123.  
  124. #define YYTRANSLATE(x) ((unsigned)(x) <= 296 ? yytranslate[x] : 103)
  125.  
  126. static const char yytranslate[] = {     0,
  127.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  128.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  129.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  130.      2,     2,    53,     2,     2,    56,    52,     2,     2,    46,
  131.     47,    50,    48,    62,    49,     2,    51,     2,     2,     2,
  132.      2,     2,     2,     2,     2,     2,     2,    42,    61,    43,
  133.      2,    44,    41,     2,     2,     2,     2,     2,     2,     2,
  134.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  135.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  136.     57,     2,    58,    55,     2,     2,     2,     2,     2,     2,
  137.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  138.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  139.      2,     2,    59,    45,    60,     2,     2,     2,     2,     2,
  140.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  141.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  142.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  143.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  144.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  145.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  146.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  147.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  148.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  149.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  150.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  151.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  152.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  153.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  154.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  155.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  156.     36,    37,    38,    39,    40,    54
  157. };
  158.  
  159. static const short yyrline[] = {     0,
  160.    300,   305,   313,   329,   330,   334,   348,   362,   368,   374,
  161.    376,   378,   380,   389,   391,   396,   400,   407,   413,   415,
  162.    417,   419,   421,   423,   428,   430,   435,   448,   450,   461,
  163.    466,   471,   473,   481,   483,   488,   490,   496,   498,   500,
  164.    502,   504,   506,   511,   515,   520,   523,   526,   528,   530,
  165.    532,   534,   536,   538,   543,   545,   550,   555,   562,   564,
  166.    569,   571,   576,   578,   583,   585,   587,   589,   594,   596,
  167.    601,   603,   605,   607,   609,   615,   617,   622,   624,   629,
  168.    631,   637,   639,   641,   643,   648,   650,   655,   657,   663,
  169.    665,   667,   669,   674,   676,   678,   683,   687,   689,   691,
  170.    693,   695,   697,   699,   701,   703,   705,   707,   712,   714,
  171.    716,   718,   722,   724,   726,   728,   730,   732,   734,   739,
  172.    741,   743,   745,   747,   749,   751,   753,   755,   759,   761,
  173.    763,   765,   767,   769,   771,   775,   777,   779,   781,   783,
  174.    785,   787,   789,   794,   796,   801,   803,   805,   810,   814,
  175.    818,   822,   823,   827,   830
  176. };
  177.  
  178. static const char * const yytname[] = {     0,
  179. "error","$illegal.","FUNC_CALL","NAME","REGEXP","YSTRING","ERROR","INCDEC","NUMBER","RELOP",
  180. "APPEND_OP","ASSIGNOP","MATCHOP","NEWLINE","CONCAT_OP","LEX_BEGIN","LEX_END","LEX_IF","LEX_ELSE","LEX_RETURN",
  181. "LEX_DELETE","LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT","LEX_PRINTF","LEX_NEXT","LEX_EXIT",
  182. "LEX_FUNCTION","LEX_GETLINE","LEX_SUB","LEX_MATCH","LEX_IN","LEX_AND","LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN",
  183. "'?'","':'","'<'","'>'","'|'","'('","')'","'+'","'-'","'*'",
  184. "'/'","'%'","'!'","UNARY","'^'","'$'","'['","']'","'{'","'}'",
  185. "';'","','","start"
  186. };
  187.  
  188. static const short yyr1[] = {     0,
  189.     63,    64,    64,    64,    64,    65,    65,    65,    65,    65,
  190.     65,    65,    65,    66,    66,    68,    67,    69,    70,    70,
  191.     70,    70,    70,    70,    71,    71,    72,    74,    73,    75,
  192.     75,    76,    76,    76,    76,    77,    77,    78,    78,    78,
  193.     78,    78,    78,    78,    78,    78,    78,    78,    78,    78,
  194.     78,    78,    78,    78,    79,    79,    80,    80,    81,    81,
  195.     82,    82,    83,    83,    84,    84,    84,    84,    85,    85,
  196.     86,    86,    86,    86,    86,    87,    87,    88,    88,    89,
  197.     89,    89,    89,    89,    89,    90,    90,    91,    91,    91,
  198.     91,    91,    91,    92,    92,    92,    92,    92,    92,    92,
  199.     92,    92,    92,    92,    92,    92,    92,    92,    93,    93,
  200.     93,    93,    93,    93,    93,    93,    93,    93,    93,    94,
  201.     94,    94,    94,    94,    94,    94,    94,    94,    94,    94,
  202.     94,    94,    94,    94,    94,    94,    94,    94,    94,    94,
  203.     94,    94,    94,    95,    95,    96,    96,    96,    97,    98,
  204.     99,   100,   100,   101,   102
  205. };
  206.  
  207. static const short yyr2[] = {     0,
  208.      2,     1,     2,     1,     2,     2,     2,     2,     2,     2,
  209.      1,     2,     2,     1,     1,     0,     7,     3,     1,     1,
  210.      3,     3,     2,     3,     1,     3,     1,     0,     4,     3,
  211.      4,     1,     2,     1,     2,     1,     2,     2,     3,     1,
  212.      6,     8,     8,    10,     9,     2,     2,     6,     4,     2,
  213.      3,     3,     6,     2,     1,     1,     6,     9,     1,     2,
  214.      0,     1,     0,     2,     0,     2,     2,     2,     0,     1,
  215.      1,     3,     1,     2,     3,     0,     1,     0,     1,     1,
  216.      3,     1,     2,     3,     3,     0,     1,     1,     3,     1,
  217.      2,     3,     3,     3,     5,     4,     3,     3,     3,     3,
  218.      3,     3,     3,     3,     3,     5,     2,     1,     3,     3,
  219.      3,     3,     3,     3,     3,     3,     5,     2,     1,     2,
  220.      3,     4,     1,     6,     6,     6,     6,     4,     2,     2,
  221.      2,     2,     1,     1,     1,     3,     3,     3,     3,     3,
  222.      3,     2,     2,     0,     1,     1,     4,     2,     2,     2,
  223.      1,     0,     1,     1,     2
  224. };
  225.  
  226. static const short yydefact[] = {    61,
  227.     59,    62,     0,    60,     4,     0,   146,   135,   134,     0,
  228.      0,    16,   144,     0,     0,     0,     0,   123,     0,     0,
  229.      0,    28,     0,     0,    61,     0,     2,     0,    25,     0,
  230.     20,    27,    11,    19,   108,   133,     0,     0,     0,   154,
  231.      6,     8,    36,    61,     7,     9,     0,    63,   145,     0,
  232.      0,   129,   130,     0,    90,     0,     0,     0,     0,    88,
  233.      0,   143,   133,   142,     0,    23,   120,   148,   149,     5,
  234.      3,    13,     0,    61,     0,    10,    12,     0,     0,     0,
  235.      0,     0,     0,     0,     0,     0,     0,     0,   107,     0,
  236.      0,     0,     0,     0,     0,     0,   131,   132,    34,     0,
  237.     76,     0,     0,    61,     0,     0,     0,    55,    56,     0,
  238.     76,    61,     0,    32,     0,    40,     0,     0,   152,    61,
  239.      0,     0,    88,     0,    37,    15,    14,     0,     0,    97,
  240.      0,     0,     0,     0,   151,    24,    91,     0,     0,   121,
  241.      0,     0,     0,   155,    26,    21,    22,   103,   100,   101,
  242.    102,    98,    99,     0,   104,   105,   144,   140,   141,   137,
  243.    138,   139,   136,    94,     0,     0,    77,     0,     0,     0,
  244.     76,    46,    47,    50,     0,   150,    35,    33,   152,    82,
  245.    144,     0,    65,     0,    80,   119,   133,    54,     0,    30,
  246.    153,    38,   128,   147,     0,    64,     0,     0,     0,   122,
  247.     92,     0,    93,    89,    29,    18,     0,    96,     0,    52,
  248.      0,     0,     0,   146,     0,    51,    31,    63,     0,     0,
  249.      0,     0,     0,    83,     0,     0,     0,     0,     0,     0,
  250.      0,   118,     0,    39,    73,    71,     0,     0,     0,     0,
  251.      0,     0,    95,   106,    61,     0,    61,     0,     0,     0,
  252.    112,    65,    67,    66,    68,    49,    84,    85,    81,   116,
  253.    113,   114,   115,   110,   111,     0,   109,    61,    74,     0,
  254.    124,   125,   126,   127,     0,     0,     0,     0,     0,     0,
  255.     76,     0,     0,    17,    75,    72,    57,    53,    41,     0,
  256.     61,    76,     0,    48,   117,    61,    61,     0,     0,    61,
  257.      0,    42,    43,    61,     0,    58,     0,    45,    44,     0,
  258.      0,     0
  259. };
  260.  
  261. static const short yydefgoto[] = {   310,
  262.     26,    27,   128,    28,    47,    72,    29,    30,    31,    32,
  263.     65,    33,   113,    42,   114,   115,   116,     2,     3,   130,
  264.    223,   237,   238,   166,   183,   184,   121,    59,    89,   232,
  265.     35,    48,    36,   118,   119,   140,   190,   120,   139
  266. };
  267.  
  268. static const short yypact[] = {     1,
  269. -32768,    17,  1006,-32768,-32768,   -17,    31,-32768,-32768,    -5,
  270.     -5,-32768,     4,    11,    19,     4,     4,    57,  1085,  1933,
  271.   1933,-32768,  1798,  1933,     1,   809,-32768,    50,    55,    -5,
  272.     58,-32768,-32768,  1396,   191,    80,   535,  1126,  1177,-32768,
  273. -32768,-32768,    17,     1,-32768,-32768,    93,    86,-32768,  1701,
  274.   1836,-32768,-32768,  1126,-32768,  1177,  1933,    88,     5,  1300,
  275.   1836,    82,    68,    82,   136,-32768,    82,-32768,-32768,-32768,
  276. -32768,-32768,   663,     1,  1739,-32768,-32768,  1739,  1739,  1836,
  277.   1701,   140,  1836,  1836,  1836,  1836,  1836,   117,   176,  1933,
  278.   1933,  1933,  1933,  1933,  1933,  1836,-32768,-32768,-32768,   110,
  279.   1836,   149,   111,     1,   112,     0,     0,-32768,-32768,     0,
  280.   1836,     1,   602,-32768,   704,-32768,   901,   663,    98,     1,
  281.     88,    24,  1396,     6,-32768,-32768,-32768,   115,  1933,-32768,
  282.     55,   758,   758,    88,-32768,-32768,  1836,   119,  1218,-32768,
  283.   1300,   122,   602,-32768,-32768,-32768,-32768,  1949,-32768,  1193,
  284. -32768,  1533,  1444,  1348,  1949,  1949,     4,    96,    96,    82,
  285.     82,    82,    82,  1396,  1836,     0,  1396,   106,  1836,   860,
  286.   1874,-32768,-32768,-32768,     0,-32768,-32768,-32768,    98,-32768,
  287.      4,  1177,    94,    29,  1581,   191,   104,-32768,   602,-32768,
  288. -32768,-32768,-32768,-32768,    16,   191,  1177,  1177,  1701,-32768,
  289.   1396,   170,-32768,  1396,-32768,-32768,  1836,-32768,  1300,-32768,
  290.   1177,  1300,   153,   -13,    98,-32768,-32768,    86,     5,  1933,
  291.   1933,  1933,     0,  1912,  1259,  1912,  1777,   172,  1912,  1912,
  292.   1912,   176,  1912,-32768,-32768,-32768,    88,    40,     5,     5,
  293.     88,  1300,-32768,  1396,     1,    27,     1,   131,   181,  1044,
  294. -32768,    94,   191,   191,   191,-32768,  1581,-32768,  1581,  1997,
  295. -32768,  1060,-32768,  1663,  1622,  1492,  1581,     1,-32768,    38,
  296. -32768,-32768,-32768,-32768,   860,     0,   860,  1836,    88,   955,
  297.   1836,     0,  1912,-32768,-32768,-32768,   173,-32768,-32768,  1300,
  298.      1,  1836,    88,-32768,  1581,     1,     1,   860,    88,     1,
  299.    860,-32768,-32768,     1,   860,-32768,   860,-32768,-32768,   189,
  300.    193,-32768
  301. };
  302.  
  303. static const short yypgoto[] = {-32768,
  304. -32768,   165,-32768,-32768,-32768,-32768,   -29,-32768,    36,   -49,
  305. -32768,     8,   -52,    15,   -44,-32768,-32768,    -6,   108,   -12,
  306.    -43,-32768,-32768,  -109,-32768,-32768,   157,   -27,    -3,   156,
  307.    228,  -144,   107,   177,  -110,   225,    34,   367,   -19
  308. };
  309.  
  310.  
  311. #define    YYLAST        2053
  312.  
  313.  
  314. static const short yytable[] = {    34,
  315.    131,   175,   179,    43,    43,   137,   137,     7,     1,    75,
  316.    122,   124,   208,     1,     1,    60,   235,    41,    45,   236,
  317.    143,   249,    34,    43,   137,    46,   122,   137,    38,   224,
  318.      4,   149,   206,   117,   123,   123,   218,    76,   285,   -79,
  319.    269,   286,   -79,    39,    77,   145,   132,   133,   146,   147,
  320.    123,   135,    60,    25,    58,    40,    50,   141,    66,    24,
  321.     40,   215,   -69,   194,    51,   189,    74,    74,   178,   117,
  322.    -87,    34,   -79,   -79,    34,    34,   148,   150,   234,   152,
  323.    153,   154,   155,   156,   276,    74,   -70,    39,    74,   -79,
  324.     74,    96,   164,    78,    79,   126,   127,   167,   178,    43,
  325.     43,    74,    54,    43,   220,    97,    98,   167,    25,   117,
  326.     43,   197,   198,   199,   117,   233,    74,    97,    98,    49,
  327.    172,   173,    52,    53,   174,   213,    63,    63,   129,    63,
  328.     63,   188,    69,   201,   135,   204,    95,   221,   222,   117,
  329.    142,    97,    98,   151,   178,    92,    93,    94,   157,   241,
  330.     95,   125,   168,   202,   219,   165,   169,   171,    40,    43,
  331.    195,   209,   211,    63,   225,   212,   117,   167,    43,   239,
  332.    240,   293,   205,   243,   248,   263,   278,   261,    60,    37,
  333.    210,   144,   299,   246,   279,   117,    37,    37,   311,   216,
  334.     71,   296,   312,   123,   123,   242,    63,    63,    63,    63,
  335.     63,    63,    37,   244,    73,   251,    37,   123,   282,     0,
  336.    134,   170,   217,    16,    17,     0,    43,     0,   270,   176,
  337.      0,   187,     0,    20,    21,     0,     0,   192,    57,     0,
  338.    287,    24,   289,     0,     0,    63,     0,   256,    90,    91,
  339.     92,    93,    94,     0,     0,    95,   280,    62,    64,     0,
  340.     67,    68,     0,   303,     0,     0,   306,     0,     0,     0,
  341.    308,     0,   309,    49,     0,     0,     0,     0,     0,    43,
  342.    185,   117,     0,   117,   290,    43,     0,   167,     0,     0,
  343.      0,     0,   136,   138,    67,     0,     0,    49,   167,     0,
  344.    288,   187,     0,     0,   117,     0,   294,   117,     0,     0,
  345.      0,   117,     0,   117,     0,     0,     0,     0,     0,     0,
  346.      0,     0,     0,     0,     0,     0,     0,   158,   159,   160,
  347.    161,   162,   163,     0,     0,     0,    63,    63,    63,     0,
  348.    187,   187,   187,   187,     0,   187,   187,   187,   187,   187,
  349.      0,     0,   186,     0,     0,   193,     0,     0,     0,     0,
  350.      0,     0,   275,     0,   277,     0,   196,     0,   200,     0,
  351.      0,     0,     0,   187,     0,   187,   187,     0,   187,     0,
  352.    187,   187,   187,   187,     0,   284,    44,    44,     0,   257,
  353.    259,   260,   262,     0,   264,   265,   266,     0,   267,   187,
  354.      0,     0,     0,     0,     0,     0,    44,     0,   298,     0,
  355.      0,   187,     0,   301,   302,     0,     0,   305,     0,     0,
  356.      0,   307,   186,     0,     0,     0,     0,     0,     0,     0,
  357.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  358.      0,     0,     0,   245,     0,     0,   247,     0,   295,     0,
  359.      0,     0,     0,   252,     0,     0,     0,   253,   254,   255,
  360.      0,   186,   186,   186,   186,     0,   186,   186,   186,   186,
  361.    186,   268,     0,   271,   272,   273,   274,     0,     0,     0,
  362.      0,     0,    44,    44,     0,     0,    44,     0,     0,     0,
  363.      0,     0,     0,    44,   186,   191,   186,   186,     0,   186,
  364.      0,   186,   186,   186,   186,     0,     0,     0,     0,     0,
  365.      0,     0,     0,   291,     0,     0,     0,     0,     0,     0,
  366.    186,     0,     0,     0,   297,     0,     0,   300,     0,     0,
  367.      0,     0,   186,   304,     0,     0,     0,     0,     0,     0,
  368.      0,     0,    44,     0,     0,    99,     0,     6,     7,     0,
  369.      8,    44,     0,     9,     0,   191,     0,     0,     0,     0,
  370.      0,     0,   100,     0,   101,   102,   103,   104,   105,   106,
  371.    107,   108,   109,   110,   111,     0,    13,    14,    15,     0,
  372.      0,     0,    16,    17,    18,     0,     0,     0,     0,     0,
  373.     56,   250,    20,    21,     0,     0,     0,    57,     0,    44,
  374.     24,     0,     0,    25,   112,    40,     0,     0,     0,     0,
  375.      0,     0,   177,     0,     6,     7,     0,     8,     0,     0,
  376.      9,     0,     0,     0,     0,     0,   281,     0,     0,   100,
  377.      0,   101,   102,   103,   104,   105,   106,   107,   108,   109,
  378.    110,   111,     0,    13,    14,    15,     0,     0,     0,    16,
  379.     17,    18,    44,     0,     0,     0,   292,    56,    44,    20,
  380.     21,     0,     0,     0,    57,     0,     0,    24,     0,     0,
  381.     25,   112,    40,    99,     0,     6,     7,     0,     8,     0,
  382.      0,     9,     0,     0,     0,     0,     0,     0,     0,     0,
  383.    100,     0,   101,   102,   103,   104,   105,   106,   107,   108,
  384.    109,   110,   111,     0,    13,    14,    15,     0,     0,     0,
  385.     16,    17,    18,     0,   180,     0,     6,     7,    56,     8,
  386.     20,    21,     9,     0,   -78,    57,     0,   -78,    24,     0,
  387.      0,    25,     0,    40,     0,     0,     0,     0,     0,     0,
  388.      0,     0,     0,     0,     0,   181,    14,    15,     0,     0,
  389.      0,    16,    17,    18,     0,     0,     0,   -78,   -78,   182,
  390.      0,    20,    21,     0,     0,     0,    57,     0,     0,    24,
  391.      6,     7,     0,     8,   -78,     0,     9,    80,     0,     0,
  392.     81,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  393.      0,     0,     0,     0,     0,     0,     0,     0,     0,    13,
  394.     14,    15,    82,    83,    84,    16,    17,    18,    85,     0,
  395.     86,    87,    88,    56,     0,    20,    21,     0,    -1,    70,
  396.     57,     6,     7,    24,     8,     0,     0,     9,     0,    74,
  397.      0,     0,     0,     0,    10,    11,     0,     0,     0,     0,
  398.      0,     0,     0,     0,     0,     0,     0,     0,     0,    12,
  399.     13,    14,    15,     0,     0,     0,    16,    17,    18,     0,
  400.      0,     0,     0,     0,    19,     0,    20,    21,     0,    22,
  401.      0,    23,     6,     7,    24,     8,     0,    25,     9,     0,
  402.      0,     0,     0,     0,     0,     0,     0,   100,     0,   101,
  403.    102,   103,   104,   105,   106,   107,   108,   109,   110,   111,
  404.      0,    13,    14,    15,     0,     0,     0,    16,    17,    18,
  405.      0,     0,     0,     6,     7,    56,     8,    20,    21,     9,
  406.     80,     0,    57,    81,     1,    24,     0,     0,    25,     0,
  407.     40,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  408.      0,     0,    13,    14,    15,    82,    83,    84,    16,    17,
  409.     18,    85,     0,    86,    87,    88,    56,     0,    20,    21,
  410.      0,     0,     0,    57,     0,     0,    24,     6,     7,     0,
  411.      8,    40,     0,     9,    80,     0,     0,    81,     0,     0,
  412.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  413.      0,     0,     0,     0,     0,     0,    13,    14,    15,    82,
  414.     83,    84,    16,    17,    18,    85,     0,    86,    87,    88,
  415.     56,     0,    20,    21,     0,     0,     5,    57,     6,     7,
  416.     24,     8,     0,     0,     9,    40,     0,     0,     0,     0,
  417.      0,    10,    11,     0,     0,     0,     0,     0,     0,     0,
  418.      0,     0,     0,     0,     0,     0,    12,    13,    14,    15,
  419.      0,     0,     0,    16,    17,    18,     6,     7,     0,     8,
  420.      0,    19,     9,    20,    21,     0,    22,     0,    23,     0,
  421.      0,    24,     0,     7,    25,     8,     0,     0,     0,   226,
  422.      0,     0,-32768,     0,     0,    13,    14,    15,     0,     0,
  423.      0,    16,    17,    18,     0,    55,     0,     6,     7,    56,
  424.      8,    20,    21,     9,   228,     0,    57,    16,    17,    24,
  425.      0,     0,     0,     0,    40,    61,     0,    20,    21,     0,
  426.      0,     0,    57,     0,     0,    24,    13,    14,    15,     0,
  427.      0,     0,    16,    17,    18,     0,    55,     0,     6,     7,
  428.     56,     8,    20,    21,     9,    22,     0,    57,     0,     0,
  429.     24,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  430.      0,     0,     0,     0,     0,     0,     0,    13,    14,    15,
  431.      0,     0,     0,    16,    17,    18,     0,     0,     0,     0,
  432.      0,    56,   -86,    20,    21,     0,     0,    55,    57,     6,
  433.      7,    24,     8,     0,     0,     9,     0,     0,     0,     0,
  434.      0,     0,     0,     0,     0,     0,     7,     0,     8,     0,
  435.      0,     0,    80,     0,     0,-32768,     0,     0,    13,    14,
  436.     15,     0,     0,     0,    16,    17,    18,     0,   203,     0,
  437.      6,     7,    56,     8,    20,    21,     9,    82,     0,    57,
  438.     16,    17,    24,     0,     0,    86,    87,    88,    56,     0,
  439.     20,    21,     0,     0,     0,    57,     0,     0,    24,    13,
  440.     14,    15,     0,     0,     0,    16,    17,    18,     0,   258,
  441.      0,     6,     7,    56,     8,    20,    21,     9,     0,     0,
  442.     57,     0,     0,    24,     0,     0,     0,     0,     0,     0,
  443.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  444.    181,    14,    15,     0,     0,     0,    16,    17,    18,     0,
  445.      0,     0,     6,     7,    61,     8,    20,    21,     9,    80,
  446.      0,    57,    81,     0,    24,     0,     0,     0,     0,     0,
  447.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  448.      0,    13,    14,    15,    82,    83,    84,    16,    17,    18,
  449.     85,     0,    86,    87,    88,    56,   135,    20,    21,     0,
  450.      6,     7,    57,     8,     0,    24,     9,    80,     0,     0,
  451.     81,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  452.      0,     0,     0,     0,     0,     0,     0,     0,     0,    13,
  453.     14,    15,    82,    83,    84,    16,    17,    18,    85,   207,
  454.     86,    87,    88,    56,     0,    20,    21,     0,     6,     7,
  455.     57,     8,     0,    24,     9,    80,     0,     0,    81,     0,
  456.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  457.      0,     0,     0,     0,     0,     0,     0,    13,    14,    15,
  458.     82,    83,    84,    16,    17,    18,    85,     0,    86,    87,
  459.     88,    56,     0,    20,    21,     0,     6,     7,    57,     8,
  460.      0,    24,     9,    80,     0,     0,    81,     0,     0,     0,
  461.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  462.      0,     0,     0,     0,     0,    13,    14,    15,    82,    83,
  463.      0,    16,    17,    18,     0,     0,    86,    87,    88,    56,
  464.      0,    20,    21,     0,     6,     7,    57,     8,     0,    24,
  465.      9,   226,     0,     0,   227,     0,     0,     0,     0,     0,
  466.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  467.      0,     0,     0,   181,    14,    15,   228,   229,   230,    16,
  468.     17,    18,   231,   283,     0,     6,     7,    61,     8,    20,
  469.     21,     9,    80,     0,    57,    81,     0,    24,     0,     0,
  470.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  471.      0,     0,     0,     0,    13,    14,    15,    82,     0,     0,
  472.     16,    17,    18,     0,     0,    86,    87,    88,    56,     0,
  473.     20,    21,     0,     6,     7,    57,     8,     0,    24,     9,
  474.    226,     0,     0,   227,     0,     0,     0,     0,     0,     0,
  475.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  476.      0,     0,   181,    14,    15,   228,   229,   230,    16,    17,
  477.     18,   231,     0,     0,     6,     7,    61,     8,    20,    21,
  478.      9,   226,     0,    57,   227,     0,    24,     0,     0,     0,
  479.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  480.      0,     0,     0,   181,    14,    15,   228,   229,     0,    16,
  481.     17,    18,     0,     0,     0,     6,     7,    61,     8,    20,
  482.     21,     9,   226,     0,    57,   227,     0,    24,     0,     0,
  483.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  484.      0,     0,     0,     0,   181,    14,    15,   228,     0,     0,
  485.     16,    17,    18,     6,     7,     0,     8,     0,    61,     9,
  486.     20,    21,     0,     0,     0,    57,     0,     0,    24,     0,
  487.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  488.      0,     0,    13,    14,    15,     0,     0,     0,    16,    17,
  489.     18,     6,     7,     0,     8,     0,    56,     9,    20,    21,
  490.      0,    22,     0,    57,     0,     0,    24,     0,     0,     0,
  491.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  492.     13,    14,    15,     0,     0,     0,    16,    17,    18,     6,
  493.      7,     0,     8,     0,    19,     9,    20,    21,     0,    22,
  494.      0,    23,     0,     0,    24,     0,     0,     0,     0,     0,
  495.      6,     7,     0,     8,     0,     0,     9,     0,   181,    14,
  496.     15,     0,     0,     0,    16,    17,    18,     0,     0,     0,
  497.      0,     0,    61,     0,    20,    21,     0,    22,     0,    57,
  498.     14,    15,    24,     0,     0,    16,    17,    18,     6,     7,
  499.      0,     8,     0,    61,     9,    20,    21,     0,    22,     0,
  500.     57,     0,     0,    24,     0,     0,     0,     0,     0,     0,
  501.      0,     0,     0,     0,     0,     0,     0,    13,    14,    15,
  502.      0,     0,     0,    16,    17,    18,     6,   214,     0,     8,
  503.      0,    56,     9,    20,    21,     0,     0,     0,    57,     0,
  504.      0,    24,     0,     0,     0,     0,     0,     0,     0,     0,
  505.      0,     0,     0,     0,     0,    13,    14,    15,     0,     0,
  506.      0,    16,    17,    18,     6,     7,     0,     8,     0,    56,
  507.      9,    20,    21,     0,     0,     0,    57,     0,     0,    24,
  508.      0,     0,     0,     0,     0,     6,     7,     0,     8,     0,
  509.      0,     9,     0,   181,    14,    15,     0,     0,     0,    16,
  510.     17,    18,     7,     0,     8,     0,     0,    61,-32768,    20,
  511.     21,     0,     0,     0,    57,    14,    15,    24,     0,     0,
  512.     16,    17,    18,     0,     0,     0,     0,     0,    61,     0,
  513.     20,    21,     0,    82,     0,    57,    16,    17,    24,     0,
  514.      0,-32768,-32768,-32768,    56,     0,    20,    21,     0,     0,
  515.      7,    57,     8,     0,    24,     0,-32768,     0,     0,     0,
  516.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  517.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  518.      0,   228,     0,     0,    16,    17,     0,     0,     0,     0,
  519.      0,     0,    61,     0,    20,    21,     0,     0,     0,    57,
  520.      0,     0,    24
  521. };
  522.  
  523. static const short yycheck[] = {     3,
  524.     50,   111,   113,    10,    11,     1,     1,     4,    14,    29,
  525.     38,    39,   157,    14,    14,    19,     1,    10,    11,     4,
  526.     73,    35,    26,    30,     1,    11,    54,     1,    46,     1,
  527.     14,    81,   143,    37,    38,    39,   181,    30,     1,    11,
  528.      1,     4,    14,    57,    30,    75,    50,    51,    78,    79,
  529.     54,    47,    56,    59,    19,    61,    46,    61,    23,    56,
  530.     61,   171,    47,    58,    46,   118,    62,    62,   113,    73,
  531.     47,    75,    44,    45,    78,    79,    80,    81,   189,    83,
  532.     84,    85,    86,    87,    58,    62,    47,    57,    62,    61,
  533.     62,    12,    96,    36,    37,     3,     4,   101,   143,   106,
  534.    107,    62,    46,   110,    11,    38,    39,   111,    59,   113,
  535.    117,   131,   132,   133,   118,    12,    62,    38,    39,    13,
  536.    106,   107,    16,    17,   110,   170,    20,    21,    43,    23,
  537.     24,   117,    25,   137,    47,   139,    55,    44,    45,   143,
  538.      5,    38,    39,     4,   189,    50,    51,    52,    32,   199,
  539.     55,    44,     4,    35,   182,    46,    46,    46,    61,   166,
  540.     46,   165,    57,    57,   184,   169,   170,   171,   175,   197,
  541.    198,   281,    51,     4,    22,     4,    46,   227,   182,     3,
  542.    166,    74,   292,   211,     4,   189,    10,    11,     0,   175,
  543.     26,    19,     0,   197,   198,   199,    90,    91,    92,    93,
  544.     94,    95,    26,   207,    28,   218,    30,   211,   252,    -1,
  545.     54,   104,   179,    38,    39,    -1,   223,    -1,   238,   112,
  546.     -1,   115,    -1,    48,    49,    -1,    -1,   120,    53,    -1,
  547.    275,    56,   277,    -1,    -1,   129,    -1,   223,    48,    49,
  548.     50,    51,    52,    -1,    -1,    55,   250,    20,    21,    -1,
  549.     23,    24,    -1,   298,    -1,    -1,   301,    -1,    -1,    -1,
  550.    305,    -1,   307,   157,    -1,    -1,    -1,    -1,    -1,   276,
  551.    115,   275,    -1,   277,   278,   282,    -1,   281,    -1,    -1,
  552.     -1,    -1,    58,    59,    57,    -1,    -1,   181,   292,    -1,
  553.    276,   185,    -1,    -1,   298,    -1,   282,   301,    -1,    -1,
  554.     -1,   305,    -1,   307,    -1,    -1,    -1,    -1,    -1,    -1,
  555.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    90,    91,    92,
  556.     93,    94,    95,    -1,    -1,    -1,   220,   221,   222,    -1,
  557.    224,   225,   226,   227,    -1,   229,   230,   231,   232,   233,
  558.     -1,    -1,   115,    -1,    -1,   121,    -1,    -1,    -1,    -1,
  559.     -1,    -1,   245,    -1,   247,    -1,   129,    -1,   134,    -1,
  560.     -1,    -1,    -1,   257,    -1,   259,   260,    -1,   262,    -1,
  561.    264,   265,   266,   267,    -1,   268,    10,    11,    -1,   224,
  562.    225,   226,   227,    -1,   229,   230,   231,    -1,   233,   283,
  563.     -1,    -1,    -1,    -1,    -1,    -1,    30,    -1,   291,    -1,
  564.     -1,   295,    -1,   296,   297,    -1,    -1,   300,    -1,    -1,
  565.     -1,   304,   185,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  566.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  567.     -1,    -1,    -1,   209,    -1,    -1,   212,    -1,   283,    -1,
  568.     -1,    -1,    -1,   219,    -1,    -1,    -1,   220,   221,   222,
  569.     -1,   224,   225,   226,   227,    -1,   229,   230,   231,   232,
  570.    233,   237,    -1,   239,   240,   241,   242,    -1,    -1,    -1,
  571.     -1,    -1,   106,   107,    -1,    -1,   110,    -1,    -1,    -1,
  572.     -1,    -1,    -1,   117,   257,   119,   259,   260,    -1,   262,
  573.     -1,   264,   265,   266,   267,    -1,    -1,    -1,    -1,    -1,
  574.     -1,    -1,    -1,   279,    -1,    -1,    -1,    -1,    -1,    -1,
  575.    283,    -1,    -1,    -1,   290,    -1,    -1,   293,    -1,    -1,
  576.     -1,    -1,   295,   299,    -1,    -1,    -1,    -1,    -1,    -1,
  577.     -1,    -1,   166,    -1,    -1,     1,    -1,     3,     4,    -1,
  578.      6,   175,    -1,     9,    -1,   179,    -1,    -1,    -1,    -1,
  579.     -1,    -1,    18,    -1,    20,    21,    22,    23,    24,    25,
  580.     26,    27,    28,    29,    30,    -1,    32,    33,    34,    -1,
  581.     -1,    -1,    38,    39,    40,    -1,    -1,    -1,    -1,    -1,
  582.     46,   215,    48,    49,    -1,    -1,    -1,    53,    -1,   223,
  583.     56,    -1,    -1,    59,    60,    61,    -1,    -1,    -1,    -1,
  584.     -1,    -1,     1,    -1,     3,     4,    -1,     6,    -1,    -1,
  585.      9,    -1,    -1,    -1,    -1,    -1,   250,    -1,    -1,    18,
  586.     -1,    20,    21,    22,    23,    24,    25,    26,    27,    28,
  587.     29,    30,    -1,    32,    33,    34,    -1,    -1,    -1,    38,
  588.     39,    40,   276,    -1,    -1,    -1,   280,    46,   282,    48,
  589.     49,    -1,    -1,    -1,    53,    -1,    -1,    56,    -1,    -1,
  590.     59,    60,    61,     1,    -1,     3,     4,    -1,     6,    -1,
  591.     -1,     9,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  592.     18,    -1,    20,    21,    22,    23,    24,    25,    26,    27,
  593.     28,    29,    30,    -1,    32,    33,    34,    -1,    -1,    -1,
  594.     38,    39,    40,    -1,     1,    -1,     3,     4,    46,     6,
  595.     48,    49,     9,    -1,    11,    53,    -1,    14,    56,    -1,
  596.     -1,    59,    -1,    61,    -1,    -1,    -1,    -1,    -1,    -1,
  597.     -1,    -1,    -1,    -1,    -1,    32,    33,    34,    -1,    -1,
  598.     -1,    38,    39,    40,    -1,    -1,    -1,    44,    45,    46,
  599.     -1,    48,    49,    -1,    -1,    -1,    53,    -1,    -1,    56,
  600.      3,     4,    -1,     6,    61,    -1,     9,    10,    -1,    -1,
  601.     13,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  602.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    32,
  603.     33,    34,    35,    36,    37,    38,    39,    40,    41,    -1,
  604.     43,    44,    45,    46,    -1,    48,    49,    -1,     0,     1,
  605.     53,     3,     4,    56,     6,    -1,    -1,     9,    -1,    62,
  606.     -1,    -1,    -1,    -1,    16,    17,    -1,    -1,    -1,    -1,
  607.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,
  608.     32,    33,    34,    -1,    -1,    -1,    38,    39,    40,    -1,
  609.     -1,    -1,    -1,    -1,    46,    -1,    48,    49,    -1,    51,
  610.     -1,    53,     3,     4,    56,     6,    -1,    59,     9,    -1,
  611.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    18,    -1,    20,
  612.     21,    22,    23,    24,    25,    26,    27,    28,    29,    30,
  613.     -1,    32,    33,    34,    -1,    -1,    -1,    38,    39,    40,
  614.     -1,    -1,    -1,     3,     4,    46,     6,    48,    49,     9,
  615.     10,    -1,    53,    13,    14,    56,    -1,    -1,    59,    -1,
  616.     61,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  617.     -1,    -1,    32,    33,    34,    35,    36,    37,    38,    39,
  618.     40,    41,    -1,    43,    44,    45,    46,    -1,    48,    49,
  619.     -1,    -1,    -1,    53,    -1,    -1,    56,     3,     4,    -1,
  620.      6,    61,    -1,     9,    10,    -1,    -1,    13,    -1,    -1,
  621.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  622.     -1,    -1,    -1,    -1,    -1,    -1,    32,    33,    34,    35,
  623.     36,    37,    38,    39,    40,    41,    -1,    43,    44,    45,
  624.     46,    -1,    48,    49,    -1,    -1,     1,    53,     3,     4,
  625.     56,     6,    -1,    -1,     9,    61,    -1,    -1,    -1,    -1,
  626.     -1,    16,    17,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  627.     -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,    34,
  628.     -1,    -1,    -1,    38,    39,    40,     3,     4,    -1,     6,
  629.     -1,    46,     9,    48,    49,    -1,    51,    -1,    53,    -1,
  630.     -1,    56,    -1,     4,    59,     6,    -1,    -1,    -1,    10,
  631.     -1,    -1,    13,    -1,    -1,    32,    33,    34,    -1,    -1,
  632.     -1,    38,    39,    40,    -1,     1,    -1,     3,     4,    46,
  633.      6,    48,    49,     9,    35,    -1,    53,    38,    39,    56,
  634.     -1,    -1,    -1,    -1,    61,    46,    -1,    48,    49,    -1,
  635.     -1,    -1,    53,    -1,    -1,    56,    32,    33,    34,    -1,
  636.     -1,    -1,    38,    39,    40,    -1,     1,    -1,     3,     4,
  637.     46,     6,    48,    49,     9,    51,    -1,    53,    -1,    -1,
  638.     56,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  639.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    32,    33,    34,
  640.     -1,    -1,    -1,    38,    39,    40,    -1,    -1,    -1,    -1,
  641.     -1,    46,    47,    48,    49,    -1,    -1,     1,    53,     3,
  642.      4,    56,     6,    -1,    -1,     9,    -1,    -1,    -1,    -1,
  643.     -1,    -1,    -1,    -1,    -1,    -1,     4,    -1,     6,    -1,
  644.     -1,    -1,    10,    -1,    -1,    13,    -1,    -1,    32,    33,
  645.     34,    -1,    -1,    -1,    38,    39,    40,    -1,     1,    -1,
  646.      3,     4,    46,     6,    48,    49,     9,    35,    -1,    53,
  647.     38,    39,    56,    -1,    -1,    43,    44,    45,    46,    -1,
  648.     48,    49,    -1,    -1,    -1,    53,    -1,    -1,    56,    32,
  649.     33,    34,    -1,    -1,    -1,    38,    39,    40,    -1,     1,
  650.     -1,     3,     4,    46,     6,    48,    49,     9,    -1,    -1,
  651.     53,    -1,    -1,    56,    -1,    -1,    -1,    -1,    -1,    -1,
  652.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  653.     32,    33,    34,    -1,    -1,    -1,    38,    39,    40,    -1,
  654.     -1,    -1,     3,     4,    46,     6,    48,    49,     9,    10,
  655.     -1,    53,    13,    -1,    56,    -1,    -1,    -1,    -1,    -1,
  656.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  657.     -1,    32,    33,    34,    35,    36,    37,    38,    39,    40,
  658.     41,    -1,    43,    44,    45,    46,    47,    48,    49,    -1,
  659.      3,     4,    53,     6,    -1,    56,     9,    10,    -1,    -1,
  660.     13,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  661.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    32,
  662.     33,    34,    35,    36,    37,    38,    39,    40,    41,    42,
  663.     43,    44,    45,    46,    -1,    48,    49,    -1,     3,     4,
  664.     53,     6,    -1,    56,     9,    10,    -1,    -1,    13,    -1,
  665.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  666.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    32,    33,    34,
  667.     35,    36,    37,    38,    39,    40,    41,    -1,    43,    44,
  668.     45,    46,    -1,    48,    49,    -1,     3,     4,    53,     6,
  669.     -1,    56,     9,    10,    -1,    -1,    13,    -1,    -1,    -1,
  670.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  671.     -1,    -1,    -1,    -1,    -1,    32,    33,    34,    35,    36,
  672.     -1,    38,    39,    40,    -1,    -1,    43,    44,    45,    46,
  673.     -1,    48,    49,    -1,     3,     4,    53,     6,    -1,    56,
  674.      9,    10,    -1,    -1,    13,    -1,    -1,    -1,    -1,    -1,
  675.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  676.     -1,    -1,    -1,    32,    33,    34,    35,    36,    37,    38,
  677.     39,    40,    41,    42,    -1,     3,     4,    46,     6,    48,
  678.     49,     9,    10,    -1,    53,    13,    -1,    56,    -1,    -1,
  679.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  680.     -1,    -1,    -1,    -1,    32,    33,    34,    35,    -1,    -1,
  681.     38,    39,    40,    -1,    -1,    43,    44,    45,    46,    -1,
  682.     48,    49,    -1,     3,     4,    53,     6,    -1,    56,     9,
  683.     10,    -1,    -1,    13,    -1,    -1,    -1,    -1,    -1,    -1,
  684.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  685.     -1,    -1,    32,    33,    34,    35,    36,    37,    38,    39,
  686.     40,    41,    -1,    -1,     3,     4,    46,     6,    48,    49,
  687.      9,    10,    -1,    53,    13,    -1,    56,    -1,    -1,    -1,
  688.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  689.     -1,    -1,    -1,    32,    33,    34,    35,    36,    -1,    38,
  690.     39,    40,    -1,    -1,    -1,     3,     4,    46,     6,    48,
  691.     49,     9,    10,    -1,    53,    13,    -1,    56,    -1,    -1,
  692.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  693.     -1,    -1,    -1,    -1,    32,    33,    34,    35,    -1,    -1,
  694.     38,    39,    40,     3,     4,    -1,     6,    -1,    46,     9,
  695.     48,    49,    -1,    -1,    -1,    53,    -1,    -1,    56,    -1,
  696.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  697.     -1,    -1,    32,    33,    34,    -1,    -1,    -1,    38,    39,
  698.     40,     3,     4,    -1,     6,    -1,    46,     9,    48,    49,
  699.     -1,    51,    -1,    53,    -1,    -1,    56,    -1,    -1,    -1,
  700.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  701.     32,    33,    34,    -1,    -1,    -1,    38,    39,    40,     3,
  702.      4,    -1,     6,    -1,    46,     9,    48,    49,    -1,    51,
  703.     -1,    53,    -1,    -1,    56,    -1,    -1,    -1,    -1,    -1,
  704.      3,     4,    -1,     6,    -1,    -1,     9,    -1,    32,    33,
  705.     34,    -1,    -1,    -1,    38,    39,    40,    -1,    -1,    -1,
  706.     -1,    -1,    46,    -1,    48,    49,    -1,    51,    -1,    53,
  707.     33,    34,    56,    -1,    -1,    38,    39,    40,     3,     4,
  708.     -1,     6,    -1,    46,     9,    48,    49,    -1,    51,    -1,
  709.     53,    -1,    -1,    56,    -1,    -1,    -1,    -1,    -1,    -1,
  710.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    32,    33,    34,
  711.     -1,    -1,    -1,    38,    39,    40,     3,     4,    -1,     6,
  712.     -1,    46,     9,    48,    49,    -1,    -1,    -1,    53,    -1,
  713.     -1,    56,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  714.     -1,    -1,    -1,    -1,    -1,    32,    33,    34,    -1,    -1,
  715.     -1,    38,    39,    40,     3,     4,    -1,     6,    -1,    46,
  716.      9,    48,    49,    -1,    -1,    -1,    53,    -1,    -1,    56,
  717.     -1,    -1,    -1,    -1,    -1,     3,     4,    -1,     6,    -1,
  718.     -1,     9,    -1,    32,    33,    34,    -1,    -1,    -1,    38,
  719.     39,    40,     4,    -1,     6,    -1,    -1,    46,    10,    48,
  720.     49,    -1,    -1,    -1,    53,    33,    34,    56,    -1,    -1,
  721.     38,    39,    40,    -1,    -1,    -1,    -1,    -1,    46,    -1,
  722.     48,    49,    -1,    35,    -1,    53,    38,    39,    56,    -1,
  723.     -1,    43,    44,    45,    46,    -1,    48,    49,    -1,    -1,
  724.      4,    53,     6,    -1,    56,    -1,    10,    -1,    -1,    -1,
  725.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  726.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  727.     -1,    35,    -1,    -1,    38,    39,    -1,    -1,    -1,    -1,
  728.     -1,    -1,    46,    -1,    48,    49,    -1,    -1,    -1,    53,
  729.     -1,    -1,    56
  730. };
  731. #define YYPURE 1
  732.  
  733. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  734. #line 3 "bison.simple"
  735.  
  736. /* Skeleton output parser for bison,
  737.    Copyright (C) 1984 Bob Corbett and Richard Stallman
  738.  
  739.    This program is free software; you can redistribute it and/or modify
  740.    it under the terms of the GNU General Public License as published by
  741.    the Free Software Foundation; either version 1, or (at your option)
  742.    any later version.
  743.  
  744.    This program is distributed in the hope that it will be useful,
  745.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  746.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  747.    GNU General Public License for more details.
  748.  
  749.    You should have received a copy of the GNU General Public License
  750.    along with this program; if not, write to the Free Software
  751.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  752.  
  753.  
  754. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  755. #include <alloca.h>
  756. #endif
  757.  
  758. /* This is the parser code that is written into each bison parser
  759.   when the %semantic_parser declaration is not specified in the grammar.
  760.   It was written by Richard Stallman by simplifying the hairy parser
  761.   used when %semantic_parser is specified.  */
  762.  
  763. /* Note: there must be only one dollar sign in this file.
  764.    It is replaced by the list of actions, each action
  765.    as one case of the switch.  */
  766.  
  767. #ifndef BSD
  768. #define bcopy(s,d,l) memcpy(d,s,l)
  769. #endif
  770.  
  771. #define yyerrok        (yyerrstatus = 0)
  772. #define yyclearin    (yychar = YYEMPTY)
  773. #define YYEMPTY        -2
  774. #define YYEOF        0
  775. #define YYFAIL        goto yyerrlab;
  776. #define YYACCEPT    return(0)
  777. #define YYABORT     return(1)
  778. #define YYERROR        goto yyerrlab
  779.  
  780. #define YYTERROR    1
  781.  
  782. #ifndef YYIMPURE
  783. #define YYLEX        yylex()
  784. #endif
  785.  
  786. #ifndef YYPURE
  787. #define YYLEX        yylex(&yylval, &yylloc)
  788. #endif
  789.  
  790. /* If nonreentrant, generate the variables here */
  791.  
  792. #ifndef YYIMPURE
  793.  
  794. int    yychar;            /*  the lookahead symbol        */
  795. YYSTYPE    yylval;            /*  the semantic value of the        */
  796.                 /*  lookahead symbol            */
  797.  
  798. YYLTYPE yylloc;            /*  location data for the lookahead    */
  799.                 /*  symbol                */
  800.  
  801. int yynerrs;            /*  number of parse errors so far       */
  802. #endif  /* YYIMPURE */
  803.  
  804. #if YYDEBUG != 0
  805. int yydebug;            /*  nonzero means print parse trace    */
  806. /* Since this is uninitialized, it does not stop multiple parsers
  807.    from coexisting.  */
  808. #endif
  809.  
  810. /*  YYMAXDEPTH indicates the initial size of the parser's stacks    */
  811.  
  812. #ifndef    YYMAXDEPTH
  813. #define YYMAXDEPTH 200
  814. #endif
  815.  
  816. /*  YYMAXLIMIT is the maximum size the stacks can grow to
  817.     (effective only if the built-in stack extension method is used).  */
  818.  
  819. #ifndef YYMAXLIMIT
  820. #define YYMAXLIMIT 10000
  821. #endif
  822.  
  823.  
  824. #line 175 "bison.simple"
  825. int
  826. yyparse()
  827. {
  828.   register int yystate;
  829.   register int yyn;
  830.   register short *yyssp;
  831.   register YYSTYPE *yyvsp;
  832.   YYLTYPE *yylsp;
  833.   int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  834.   int yychar1;        /*  lookahead token as an internal (translated) token number */
  835.  
  836.   short    yyssa[YYMAXDEPTH];    /*  the state stack            */
  837.   YYSTYPE yyvsa[YYMAXDEPTH];    /*  the semantic value stack        */
  838.   YYLTYPE yylsa[YYMAXDEPTH];    /*  the location stack            */
  839.  
  840.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  841.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  842.   YYLTYPE *yyls = yylsa;
  843.  
  844.   int yymaxdepth = YYMAXDEPTH;
  845.  
  846. #ifndef YYPURE
  847.   int yychar;
  848.   YYSTYPE yylval;
  849.   YYLTYPE yylloc;
  850.   int yynerrs;
  851. #endif
  852.  
  853.   YYSTYPE yyval;        /*  the variable used to return        */
  854.                 /*  semantic values from the action    */
  855.                 /*  routines                */
  856.  
  857.   int yylen;
  858.  
  859. #if YYDEBUG != 0
  860.   if (yydebug)
  861.     fprintf(stderr, "Starting parse\n");
  862. #endif
  863.  
  864.   yystate = 0;
  865.   yyerrstatus = 0;
  866.   yynerrs = 0;
  867.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  868.  
  869.   /* Initialize stack pointers.
  870.      Waste one element of value and location stack
  871.      so that they stay on the same level as the state stack.  */
  872.  
  873.   yyssp = yyss - 1;
  874.   yyvsp = yyvs;
  875.   yylsp = yyls;
  876.  
  877. /* Push a new state, which is found in  yystate  .  */
  878. /* In all cases, when you get here, the value and location stacks
  879.    have just been pushed. so pushing a state here evens the stacks.  */
  880. yynewstate:
  881.  
  882.   *++yyssp = yystate;
  883.  
  884.   if (yyssp >= yyss + yymaxdepth - 1)
  885.     {
  886.       /* Give user a chance to reallocate the stack */
  887.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  888.       YYSTYPE *yyvs1 = yyvs;
  889.       YYLTYPE *yyls1 = yyls;
  890.       short *yyss1 = yyss;
  891.  
  892.       /* Get the current used size of the three stacks, in elements.  */
  893.       int size = yyssp - yyss + 1;
  894.  
  895. #ifdef yyoverflow
  896.       /* Each stack pointer address is followed by the size of
  897.      the data in use in that stack, in bytes.  */
  898.       yyoverflow("parser stack overflow",
  899.          &yyss1, size * sizeof (*yyssp),
  900.          &yyvs1, size * sizeof (*yyvsp),
  901.          &yyls1, size * sizeof (*yylsp),
  902.          &yymaxdepth);
  903.  
  904.       yyss = yyss1; yyvs = yyvs1; yyls = yyls1;
  905. #else /* no yyoverflow */
  906.       /* Extend the stack our own way.  */
  907.       if (yymaxdepth >= YYMAXLIMIT)
  908.     yyerror("parser stack overflow");
  909.       yymaxdepth *= 2;
  910.       if (yymaxdepth > YYMAXLIMIT)
  911.     yymaxdepth = YYMAXLIMIT;
  912.       yyss = (short *) alloca (yymaxdepth * sizeof (*yyssp));
  913.       bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  914.       yyvs = (YYSTYPE *) alloca (yymaxdepth * sizeof (*yyvsp));
  915.       bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  916. #ifdef YYLSP_NEEDED
  917.       yyls = (YYLTYPE *) alloca (yymaxdepth * sizeof (*yylsp));
  918.       bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  919. #endif
  920. #endif /* no yyoverflow */
  921.  
  922.       yyssp = yyss + size - 1;
  923.       yyvsp = yyvs + size - 1;
  924. #ifdef YYLSP_NEEDED
  925.       yylsp = yyls + size - 1;
  926. #endif
  927.  
  928. #if YYDEBUG != 0
  929.       if (yydebug)
  930.     fprintf(stderr, "Stack size increased to %d\n", yymaxdepth);
  931. #endif
  932.  
  933.       if (yyssp >= yyss + yymaxdepth - 1)
  934.     YYABORT;
  935.     }
  936.  
  937. #if YYDEBUG != 0
  938.   if (yydebug)
  939.     fprintf(stderr, "Entering state %d\n", yystate);
  940. #endif
  941.  
  942. /* Do appropriate processing given the current state.  */
  943. /* Read a lookahead token if we need one and don't already have one.  */
  944. yyresume:
  945.  
  946.   /* First try to decide what to do without reference to lookahead token.  */
  947.  
  948.   yyn = yypact[yystate];
  949.   if (yyn == YYFLAG)
  950.     goto yydefault;
  951.  
  952.   /* Not known => get a lookahead token if don't already have one.  */
  953.  
  954.   /* yychar is either YYEMPTY or YYEOF
  955.      or a valid token in external form.  */
  956.  
  957.   if (yychar == YYEMPTY)
  958.     {
  959. #if YYDEBUG != 0
  960.       if (yydebug)
  961.     fprintf(stderr, "Reading a token: ");
  962. #endif
  963.       yychar = YYLEX;
  964.     }
  965.  
  966.   /* Convert token to internal form (in yychar1) for indexing tables with */
  967.  
  968.   if (yychar <= 0)        /* This means end of input. */
  969.     {
  970.       yychar1 = 0;
  971.       yychar = YYEOF;        /* Don't call YYLEX any more */
  972.  
  973. #if YYDEBUG != 0
  974.       if (yydebug)
  975.     fprintf(stderr, "Now at end of input.\n");
  976. #endif
  977.     }
  978.   else
  979.     {
  980.       yychar1 = YYTRANSLATE(yychar);
  981.  
  982. #if YYDEBUG != 0
  983.       if (yydebug)
  984.     fprintf(stderr, "Next token is %d (%s)\n", yychar, yytname[yychar1]);
  985. #endif
  986.     }
  987.  
  988.   yyn += yychar1;
  989.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  990.     goto yydefault;
  991.  
  992.   yyn = yytable[yyn];
  993.  
  994.   /* yyn is what to do for this token type in this state.
  995.      Negative => reduce, -yyn is rule number.
  996.      Positive => shift, yyn is new state.
  997.        New state is final state => don't bother to shift,
  998.        just return success.
  999.      0, or most negative number => error.  */
  1000.  
  1001.   if (yyn < 0)
  1002.     {
  1003.       if (yyn == YYFLAG)
  1004.     goto yyerrlab;
  1005.       yyn = -yyn;
  1006.       goto yyreduce;
  1007.     }
  1008.   else if (yyn == 0)
  1009.     goto yyerrlab;
  1010.  
  1011.   if (yyn == YYFINAL)
  1012.     YYACCEPT;
  1013.  
  1014.   /* Shift the lookahead token.  */
  1015.  
  1016. #if YYDEBUG != 0
  1017.   if (yydebug)
  1018.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1019. #endif
  1020.  
  1021.   /* Discard the token being shifted unless it is eof.  */
  1022.   if (yychar != YYEOF)
  1023.     yychar = YYEMPTY;
  1024.  
  1025.   *++yyvsp = yylval;
  1026. #ifdef YYLSP_NEEDED
  1027.   *++yylsp = yylloc;
  1028. #endif
  1029.  
  1030.   /* count tokens shifted since error; after three, turn off error status.  */
  1031.   if (yyerrstatus) yyerrstatus--;
  1032.  
  1033.   yystate = yyn;
  1034.   goto yynewstate;
  1035.  
  1036. /* Do the default action for the current state.  */
  1037. yydefault:
  1038.  
  1039.   yyn = yydefact[yystate];
  1040.   if (yyn == 0)
  1041.     goto yyerrlab;
  1042.  
  1043. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1044. yyreduce:
  1045.   yylen = yyr2[yyn];
  1046.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1047.  
  1048. #if YYDEBUG != 0
  1049.   if (yydebug)
  1050.     {
  1051.       if (yylen == 1)
  1052.     fprintf (stderr, "Reducing 1 value via line %d, ",
  1053.          yyrline[yyn]);
  1054.       else
  1055.     fprintf (stderr, "Reducing %d values via line %d, ",
  1056.          yylen, yyrline[yyn]);
  1057.     }
  1058. #endif
  1059.  
  1060.  
  1061.   switch (yyn) {
  1062.  
  1063. case 1:
  1064. #line 301 "awk.y"
  1065. { expression_value = yyvsp[0].nodeval; ;
  1066.     break;}
  1067. case 2:
  1068. #line 306 "awk.y"
  1069. { 
  1070.             if (yyvsp[0].nodeval != NULL)
  1071.                 yyval.nodeval = yyvsp[0].nodeval;
  1072.             else
  1073.                 yyval.nodeval = NULL;
  1074.             yyerrok;
  1075.         ;
  1076.     break;}
  1077. case 3:
  1078. #line 315 "awk.y"
  1079. {
  1080.             if (yyvsp[0].nodeval == NULL)
  1081.                 yyval.nodeval = yyvsp[-1].nodeval;
  1082.             else if (yyvsp[-1].nodeval == NULL)
  1083.                 yyval.nodeval = yyvsp[0].nodeval;
  1084.             else {
  1085.                 if (yyvsp[-1].nodeval->type != Node_rule_list)
  1086.                     yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_rule_list,
  1087.                         (NODE*)NULL);
  1088.                 yyval.nodeval = append_right (yyvsp[-1].nodeval,
  1089.                    node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL));
  1090.             }
  1091.             yyerrok;
  1092.         ;
  1093.     break;}
  1094. case 4:
  1095. #line 329 "awk.y"
  1096. { yyval.nodeval = NULL; ;
  1097.     break;}
  1098. case 5:
  1099. #line 330 "awk.y"
  1100. { yyval.nodeval = NULL; ;
  1101.     break;}
  1102. case 6:
  1103. #line 335 "awk.y"
  1104. {
  1105.         if (begin_block) {
  1106.             if (begin_block->type != Node_rule_list)
  1107.                 begin_block = node(begin_block, Node_rule_list,
  1108.                     (NODE *)NULL);
  1109.             append_right (begin_block, node(
  1110.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1111.                 Node_rule_list, (NODE *)NULL) );
  1112.         } else
  1113.             begin_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1114.         yyval.nodeval = NULL;
  1115.         yyerrok;
  1116.       ;
  1117.     break;}
  1118. case 7:
  1119. #line 349 "awk.y"
  1120. {
  1121.         if (end_block) {
  1122.             if (end_block->type != Node_rule_list)
  1123.                 end_block = node(end_block, Node_rule_list,
  1124.                     (NODE *)NULL);
  1125.             append_right (end_block, node(
  1126.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1127.                 Node_rule_list, (NODE *)NULL));
  1128.         } else
  1129.             end_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1130.         yyval.nodeval = NULL;
  1131.         yyerrok;
  1132.       ;
  1133.     break;}
  1134. case 8:
  1135. #line 363 "awk.y"
  1136. {
  1137.         msg ("error near line %d: BEGIN blocks must have an action part", lineno);
  1138.         errcount++;
  1139.         yyerrok;
  1140.       ;
  1141.     break;}
  1142. case 9:
  1143. #line 369 "awk.y"
  1144. {
  1145.         msg ("error near line %d: END blocks must have an action part", lineno);
  1146.         errcount++;
  1147.         yyerrok;
  1148.       ;
  1149.     break;}
  1150. case 10:
  1151. #line 375 "awk.y"
  1152. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1153.     break;}
  1154. case 11:
  1155. #line 377 "awk.y"
  1156. { yyval.nodeval = node ((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1157.     break;}
  1158. case 12:
  1159. #line 379 "awk.y"
  1160. { if(yyvsp[-1].nodeval) yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, (NODE *)NULL); yyerrok; ;
  1161.     break;}
  1162. case 13:
  1163. #line 381 "awk.y"
  1164. {
  1165.             func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
  1166.             yyval.nodeval = NULL;
  1167.             yyerrok;
  1168.         ;
  1169.     break;}
  1170. case 14:
  1171. #line 390 "awk.y"
  1172. { yyval.sval = yyvsp[0].sval; ;
  1173.     break;}
  1174. case 15:
  1175. #line 392 "awk.y"
  1176. { yyval.sval = yyvsp[0].sval; ;
  1177.     break;}
  1178. case 16:
  1179. #line 397 "awk.y"
  1180. {
  1181.             param_counter = 0;
  1182.         ;
  1183.     break;}
  1184. case 17:
  1185. #line 401 "awk.y"
  1186. {
  1187.             yyval.nodeval = append_right(make_param(yyvsp[-4].sval), yyvsp[-2].nodeval);
  1188.         ;
  1189.     break;}
  1190. case 18:
  1191. #line 408 "awk.y"
  1192. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1193.     break;}
  1194. case 19:
  1195. #line 414 "awk.y"
  1196. { yyval.nodeval = yyvsp[0].nodeval; ;
  1197.     break;}
  1198. case 20:
  1199. #line 416 "awk.y"
  1200. { yyval.nodeval = yyvsp[0].nodeval; ;
  1201.     break;}
  1202. case 21:
  1203. #line 418 "awk.y"
  1204. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1205.     break;}
  1206. case 22:
  1207. #line 420 "awk.y"
  1208. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1209.     break;}
  1210. case 23:
  1211. #line 422 "awk.y"
  1212. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  1213.     break;}
  1214. case 24:
  1215. #line 424 "awk.y"
  1216. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1217.     break;}
  1218. case 25:
  1219. #line 429 "awk.y"
  1220. { yyval.nodeval = yyvsp[0].nodeval; ;
  1221.     break;}
  1222. case 26:
  1223. #line 431 "awk.y"
  1224. { yyval.nodeval = mkrangenode ( node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval) ); ;
  1225.     break;}
  1226. case 27:
  1227. #line 436 "awk.y"
  1228. { 
  1229.           yyval.nodeval = node(
  1230.                node(make_number((AWKNUM)0),Node_field_spec,(NODE*)NULL),
  1231.                Node_match, yyvsp[0].nodeval);
  1232.         ;
  1233.     break;}
  1234. case 28:
  1235. #line 449 "awk.y"
  1236. { ++want_regexp; ;
  1237.     break;}
  1238. case 29:
  1239. #line 451 "awk.y"
  1240. {
  1241.           want_regexp = 0;
  1242.           yyval.nodeval = node((NODE *)NULL,Node_regex,(NODE *)mk_re_parse(yyvsp[-1].sval, 0));
  1243.           yyval.nodeval -> re_case = 0;
  1244.           emalloc (yyval.nodeval -> re_text, char *, strlen(yyvsp[-1].sval)+1, "regexp");
  1245.           strcpy (yyval.nodeval -> re_text, yyvsp[-1].sval);
  1246.         ;
  1247.     break;}
  1248. case 30:
  1249. #line 462 "awk.y"
  1250. {
  1251.             /* empty actions are different from missing actions */
  1252.             yyval.nodeval = node ((NODE *) NULL, Node_illegal, (NODE *) NULL);
  1253.         ;
  1254.     break;}
  1255. case 31:
  1256. #line 467 "awk.y"
  1257. { yyval.nodeval = yyvsp[-2].nodeval ; ;
  1258.     break;}
  1259. case 32:
  1260. #line 472 "awk.y"
  1261. { yyval.nodeval = yyvsp[0].nodeval; ;
  1262.     break;}
  1263. case 33:
  1264. #line 474 "awk.y"
  1265. {
  1266.             if (yyvsp[-1].nodeval->type != Node_statement_list)
  1267.                 yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list,(NODE *)NULL);
  1268.                 yyval.nodeval = append_right(yyvsp[-1].nodeval,
  1269.                 node( yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL));
  1270.                 yyerrok;
  1271.         ;
  1272.     break;}
  1273. case 34:
  1274. #line 482 "awk.y"
  1275. { yyval.nodeval = NULL; ;
  1276.     break;}
  1277. case 35:
  1278. #line 484 "awk.y"
  1279. { yyval.nodeval = NULL; ;
  1280.     break;}
  1281. case 36:
  1282. #line 489 "awk.y"
  1283. { yyval.nodetypeval = Node_illegal; ;
  1284.     break;}
  1285. case 37:
  1286. #line 491 "awk.y"
  1287. { yyval.nodetypeval = Node_illegal; ;
  1288.     break;}
  1289. case 38:
  1290. #line 497 "awk.y"
  1291. { yyval.nodeval = NULL; ;
  1292.     break;}
  1293. case 39:
  1294. #line 499 "awk.y"
  1295. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1296.     break;}
  1297. case 40:
  1298. #line 501 "awk.y"
  1299. { yyval.nodeval = yyvsp[0].nodeval; ;
  1300.     break;}
  1301. case 41:
  1302. #line 503 "awk.y"
  1303. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
  1304.     break;}
  1305. case 42:
  1306. #line 505 "awk.y"
  1307. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
  1308.     break;}
  1309. case 43:
  1310. #line 507 "awk.y"
  1311. {
  1312.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_arrayfor, make_for_loop(variable(yyvsp[-5].sval),
  1313.             (NODE *)NULL, variable(yyvsp[-3].sval)));
  1314.       ;
  1315.     break;}
  1316. case 44:
  1317. #line 512 "awk.y"
  1318. {
  1319.         yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
  1320.       ;
  1321.     break;}
  1322. case 45:
  1323. #line 516 "awk.y"
  1324. {
  1325.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for,
  1326.             (NODE *)make_for_loop(yyvsp[-6].nodeval, (NODE *)NULL, yyvsp[-3].nodeval));
  1327.       ;
  1328.     break;}
  1329. case 46:
  1330. #line 522 "awk.y"
  1331. { yyval.nodeval = node ((NODE *)NULL, Node_K_break, (NODE *)NULL); ;
  1332.     break;}
  1333. case 47:
  1334. #line 525 "awk.y"
  1335. { yyval.nodeval = node ((NODE *)NULL, Node_K_continue, (NODE *)NULL); ;
  1336.     break;}
  1337. case 48:
  1338. #line 527 "awk.y"
  1339. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1340.     break;}
  1341. case 49:
  1342. #line 529 "awk.y"
  1343. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval); ;
  1344.     break;}
  1345. case 50:
  1346. #line 531 "awk.y"
  1347. { yyval.nodeval = node ((NODE *)NULL, Node_K_next, (NODE *)NULL); ;
  1348.     break;}
  1349. case 51:
  1350. #line 533 "awk.y"
  1351. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_exit, (NODE *)NULL); ;
  1352.     break;}
  1353. case 52:
  1354. #line 535 "awk.y"
  1355. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_return, (NODE *)NULL); ;
  1356.     break;}
  1357. case 53:
  1358. #line 537 "awk.y"
  1359. { yyval.nodeval = node (variable(yyvsp[-4].sval), Node_K_delete, yyvsp[-2].nodeval); ;
  1360.     break;}
  1361. case 54:
  1362. #line 539 "awk.y"
  1363. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1364.     break;}
  1365. case 55:
  1366. #line 544 "awk.y"
  1367. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1368.     break;}
  1369. case 56:
  1370. #line 546 "awk.y"
  1371. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1372.     break;}
  1373. case 57:
  1374. #line 551 "awk.y"
  1375. {
  1376.         yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_if, 
  1377.             node(yyvsp[0].nodeval, Node_if_branches, (NODE *)NULL));
  1378.       ;
  1379.     break;}
  1380. case 58:
  1381. #line 557 "awk.y"
  1382. { yyval.nodeval = node (yyvsp[-6].nodeval, Node_K_if,
  1383.                 node (yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
  1384.     break;}
  1385. case 59:
  1386. #line 563 "awk.y"
  1387. { yyval.nodetypeval = NULL; ;
  1388.     break;}
  1389. case 60:
  1390. #line 565 "awk.y"
  1391. { yyval.nodetypeval = NULL; ;
  1392.     break;}
  1393. case 61:
  1394. #line 570 "awk.y"
  1395. { yyval.nodetypeval = NULL; ;
  1396.     break;}
  1397. case 62:
  1398. #line 572 "awk.y"
  1399. { yyval.nodetypeval = NULL; ;
  1400.     break;}
  1401. case 63:
  1402. #line 577 "awk.y"
  1403. { yyval.nodeval = NULL; ;
  1404.     break;}
  1405. case 64:
  1406. #line 579 "awk.y"
  1407. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_input, (NODE *)NULL); ;
  1408.     break;}
  1409. case 65:
  1410. #line 584 "awk.y"
  1411. { yyval.nodeval = NULL; ;
  1412.     break;}
  1413. case 66:
  1414. #line 586 "awk.y"
  1415. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_output, (NODE *)NULL); ;
  1416.     break;}
  1417. case 67:
  1418. #line 588 "awk.y"
  1419. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_append, (NODE *)NULL); ;
  1420.     break;}
  1421. case 68:
  1422. #line 590 "awk.y"
  1423. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_pipe, (NODE *)NULL); ;
  1424.     break;}
  1425. case 69:
  1426. #line 595 "awk.y"
  1427. { yyval.nodeval = NULL; ;
  1428.     break;}
  1429. case 70:
  1430. #line 597 "awk.y"
  1431. { yyval.nodeval = yyvsp[0].nodeval; ;
  1432.     break;}
  1433. case 71:
  1434. #line 602 "awk.y"
  1435. { yyval.nodeval = make_param(yyvsp[0].sval); ;
  1436.     break;}
  1437. case 72:
  1438. #line 604 "awk.y"
  1439. { yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
  1440.     break;}
  1441. case 73:
  1442. #line 606 "awk.y"
  1443. { yyval.nodeval = NULL; ;
  1444.     break;}
  1445. case 74:
  1446. #line 608 "awk.y"
  1447. { yyval.nodeval = NULL; ;
  1448.     break;}
  1449. case 75:
  1450. #line 610 "awk.y"
  1451. { yyval.nodeval = NULL; ;
  1452.     break;}
  1453. case 76:
  1454. #line 616 "awk.y"
  1455. { yyval.nodeval = NULL; ;
  1456.     break;}
  1457. case 77:
  1458. #line 618 "awk.y"
  1459. { yyval.nodeval = yyvsp[0].nodeval; ;
  1460.     break;}
  1461. case 78:
  1462. #line 623 "awk.y"
  1463. { yyval.nodeval = NULL; ;
  1464.     break;}
  1465. case 79:
  1466. #line 625 "awk.y"
  1467. { yyval.nodeval = yyvsp[0].nodeval; ;
  1468.     break;}
  1469. case 80:
  1470. #line 630 "awk.y"
  1471. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1472.     break;}
  1473. case 81:
  1474. #line 632 "awk.y"
  1475. {
  1476.         yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1477.             node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1478.         yyerrok;
  1479.       ;
  1480.     break;}
  1481. case 82:
  1482. #line 638 "awk.y"
  1483. { yyval.nodeval = NULL; ;
  1484.     break;}
  1485. case 83:
  1486. #line 640 "awk.y"
  1487. { yyval.nodeval = NULL; ;
  1488.     break;}
  1489. case 84:
  1490. #line 642 "awk.y"
  1491. { yyval.nodeval = NULL; ;
  1492.     break;}
  1493. case 85:
  1494. #line 644 "awk.y"
  1495. { yyval.nodeval = NULL; ;
  1496.     break;}
  1497. case 86:
  1498. #line 649 "awk.y"
  1499. { yyval.nodeval = NULL; ;
  1500.     break;}
  1501. case 87:
  1502. #line 651 "awk.y"
  1503. { yyval.nodeval = yyvsp[0].nodeval; ;
  1504.     break;}
  1505. case 88:
  1506. #line 656 "awk.y"
  1507. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1508.     break;}
  1509. case 89:
  1510. #line 658 "awk.y"
  1511. {
  1512.             yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1513.                 node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1514.             yyerrok;
  1515.         ;
  1516.     break;}
  1517. case 90:
  1518. #line 664 "awk.y"
  1519. { yyval.nodeval = NULL; ;
  1520.     break;}
  1521. case 91:
  1522. #line 666 "awk.y"
  1523. { yyval.nodeval = NULL; ;
  1524.     break;}
  1525. case 92:
  1526. #line 668 "awk.y"
  1527. { yyval.nodeval = NULL; ;
  1528.     break;}
  1529. case 93:
  1530. #line 670 "awk.y"
  1531. { yyval.nodeval = NULL; ;
  1532.     break;}
  1533. case 94:
  1534. #line 675 "awk.y"
  1535. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1536.     break;}
  1537. case 95:
  1538. #line 677 "awk.y"
  1539. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-3].nodeval); ;
  1540.     break;}
  1541. case 96:
  1542. #line 679 "awk.y"
  1543. {
  1544.           yyval.nodeval = node (yyvsp[0].nodeval, Node_K_getline,
  1545.              node (yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *)NULL));
  1546.         ;
  1547.     break;}
  1548. case 97:
  1549. #line 684 "awk.y"
  1550. {
  1551.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1552.         ;
  1553.     break;}
  1554. case 98:
  1555. #line 688 "awk.y"
  1556. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1557.     break;}
  1558. case 99:
  1559. #line 690 "awk.y"
  1560. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1561.     break;}
  1562. case 100:
  1563. #line 692 "awk.y"
  1564. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1565.     break;}
  1566. case 101:
  1567. #line 694 "awk.y"
  1568. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1569.     break;}
  1570. case 102:
  1571. #line 696 "awk.y"
  1572. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-2].nodeval); ;
  1573.     break;}
  1574. case 103:
  1575. #line 698 "awk.y"
  1576. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1577.     break;}
  1578. case 104:
  1579. #line 700 "awk.y"
  1580. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
  1581.     break;}
  1582. case 105:
  1583. #line 702 "awk.y"
  1584. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
  1585.     break;}
  1586. case 106:
  1587. #line 704 "awk.y"
  1588. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1589.     break;}
  1590. case 107:
  1591. #line 706 "awk.y"
  1592. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1593.     break;}
  1594. case 108:
  1595. #line 708 "awk.y"
  1596. { yyval.nodeval = yyvsp[0].nodeval; ;
  1597.     break;}
  1598. case 109:
  1599. #line 713 "awk.y"
  1600. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1601.     break;}
  1602. case 110:
  1603. #line 715 "awk.y"
  1604. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1605.     break;}
  1606. case 111:
  1607. #line 717 "awk.y"
  1608. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1609.     break;}
  1610. case 112:
  1611. #line 719 "awk.y"
  1612. {
  1613.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1614.         ;
  1615.     break;}
  1616. case 113:
  1617. #line 723 "awk.y"
  1618. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1619.     break;}
  1620. case 114:
  1621. #line 725 "awk.y"
  1622. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1623.     break;}
  1624. case 115:
  1625. #line 727 "awk.y"
  1626. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-2].nodeval); ;
  1627.     break;}
  1628. case 116:
  1629. #line 729 "awk.y"
  1630. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1631.     break;}
  1632. case 117:
  1633. #line 731 "awk.y"
  1634. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1635.     break;}
  1636. case 118:
  1637. #line 733 "awk.y"
  1638. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1639.     break;}
  1640. case 119:
  1641. #line 735 "awk.y"
  1642. { yyval.nodeval = yyvsp[0].nodeval; ;
  1643.     break;}
  1644. case 120:
  1645. #line 740 "awk.y"
  1646. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  1647.     break;}
  1648. case 121:
  1649. #line 742 "awk.y"
  1650. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1651.     break;}
  1652. case 122:
  1653. #line 744 "awk.y"
  1654. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, yyvsp[-3].ptrval); ;
  1655.     break;}
  1656. case 123:
  1657. #line 746 "awk.y"
  1658. { yyval.nodeval = snode ((NODE *)NULL, Node_builtin, yyvsp[0].ptrval); ;
  1659.     break;}
  1660. case 124:
  1661. #line 748 "awk.y"
  1662. { yyval.nodeval = node(yyvsp[-1].nodeval, yyvsp[-5].nodetypeval, yyvsp[-3].nodeval); ;
  1663.     break;}
  1664. case 125:
  1665. #line 750 "awk.y"
  1666. { yyval.nodeval = node(yyvsp[-1].nodeval, yyvsp[-5].nodetypeval, yyvsp[-3].nodeval); ;
  1667.     break;}
  1668. case 126:
  1669. #line 752 "awk.y"
  1670. { yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1671.     break;}
  1672. case 127:
  1673. #line 754 "awk.y"
  1674. { yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1675.     break;}
  1676. case 128:
  1677. #line 756 "awk.y"
  1678. {
  1679.         yyval.nodeval = node (yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
  1680.       ;
  1681.     break;}
  1682. case 129:
  1683. #line 760 "awk.y"
  1684. { yyval.nodeval = node (yyvsp[0].nodeval, Node_preincrement, (NODE *)NULL); ;
  1685.     break;}
  1686. case 130:
  1687. #line 762 "awk.y"
  1688. { yyval.nodeval = node (yyvsp[0].nodeval, Node_predecrement, (NODE *)NULL); ;
  1689.     break;}
  1690. case 131:
  1691. #line 764 "awk.y"
  1692. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postincrement, (NODE *)NULL); ;
  1693.     break;}
  1694. case 132:
  1695. #line 766 "awk.y"
  1696. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postdecrement, (NODE *)NULL); ;
  1697.     break;}
  1698. case 133:
  1699. #line 768 "awk.y"
  1700. { yyval.nodeval = yyvsp[0].nodeval; ;
  1701.     break;}
  1702. case 134:
  1703. #line 770 "awk.y"
  1704. { yyval.nodeval = make_number (yyvsp[0].fval); ;
  1705.     break;}
  1706. case 135:
  1707. #line 772 "awk.y"
  1708. { yyval.nodeval = make_string (yyvsp[0].sval, -1); ;
  1709.     break;}
  1710. case 136:
  1711. #line 776 "awk.y"
  1712. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
  1713.     break;}
  1714. case 137:
  1715. #line 778 "awk.y"
  1716. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
  1717.     break;}
  1718. case 138:
  1719. #line 780 "awk.y"
  1720. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
  1721.     break;}
  1722. case 139:
  1723. #line 782 "awk.y"
  1724. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
  1725.     break;}
  1726. case 140:
  1727. #line 784 "awk.y"
  1728. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
  1729.     break;}
  1730. case 141:
  1731. #line 786 "awk.y"
  1732. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
  1733.     break;}
  1734. case 142:
  1735. #line 788 "awk.y"
  1736. { yyval.nodeval = node (yyvsp[0].nodeval, Node_unary_minus, (NODE *)NULL); ;
  1737.     break;}
  1738. case 143:
  1739. #line 790 "awk.y"
  1740. { yyval.nodeval = yyvsp[0].nodeval; ;
  1741.     break;}
  1742. case 144:
  1743. #line 795 "awk.y"
  1744. { yyval.nodeval = NULL; ;
  1745.     break;}
  1746. case 145:
  1747. #line 797 "awk.y"
  1748. { yyval.nodeval = yyvsp[0].nodeval; ;
  1749.     break;}
  1750. case 146:
  1751. #line 802 "awk.y"
  1752. { yyval.nodeval = variable (yyvsp[0].sval); ;
  1753.     break;}
  1754. case 147:
  1755. #line 804 "awk.y"
  1756. { yyval.nodeval = node (variable(yyvsp[-3].sval), Node_subscript, yyvsp[-1].nodeval); ;
  1757.     break;}
  1758. case 148:
  1759. #line 806 "awk.y"
  1760. { yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1761.     break;}
  1762. case 150:
  1763. #line 814 "awk.y"
  1764. { yyerrok; ;
  1765.     break;}
  1766. case 151:
  1767. #line 818 "awk.y"
  1768. { yyval.nodetypeval = Node_illegal; yyerrok; ;
  1769.     break;}
  1770. case 154:
  1771. #line 827 "awk.y"
  1772. { yyerrok; ;
  1773.     break;}
  1774. case 155:
  1775. #line 830 "awk.y"
  1776. { yyval.nodetypeval = Node_illegal; yyerrok; ;
  1777.     break;}
  1778. }
  1779.    /* the action file gets copied in in place of this dollarsign */
  1780. #line 412 "bison.simple"
  1781.  
  1782.   yyvsp -= yylen;
  1783.   yyssp -= yylen;
  1784. #ifdef YYLSP_NEEDED
  1785.   yylsp -= yylen;
  1786. #endif
  1787.  
  1788. #if YYDEBUG != 0
  1789.   if (yydebug)
  1790.     {
  1791.       short *ssp1 = yyss - 1;
  1792.       fprintf (stderr, "state stack now");
  1793.       while (ssp1 != yyssp)
  1794.     fprintf (stderr, " %d", *++ssp1);
  1795.       fprintf (stderr, "\n");
  1796.     }
  1797. #endif
  1798.  
  1799.   *++yyvsp = yyval;
  1800.  
  1801. #ifdef YYLSP_NEEDED
  1802.   yylsp++;
  1803.   if (yylen == 0)
  1804.     {
  1805.       yylsp->first_line = yylloc.first_line;
  1806.       yylsp->first_column = yylloc.first_column;
  1807.       yylsp->last_line = (yylsp-1)->last_line;
  1808.       yylsp->last_column = (yylsp-1)->last_column;
  1809.       yylsp->text = 0;
  1810.     }
  1811.   else
  1812.     {
  1813.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  1814.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  1815.     }
  1816. #endif
  1817.  
  1818.   /* Now "shift" the result of the reduction.
  1819.      Determine what state that goes to,
  1820.      based on the state we popped back to
  1821.      and the rule number reduced by.  */
  1822.  
  1823.   yyn = yyr1[yyn];
  1824.  
  1825.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  1826.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  1827.     yystate = yytable[yystate];
  1828.   else
  1829.     yystate = yydefgoto[yyn - YYNTBASE];
  1830.  
  1831.   goto yynewstate;
  1832.  
  1833. yyerrlab:   /* here on detecting error */
  1834.  
  1835.   if (! yyerrstatus)
  1836.     /* If not already recovering from an error, report this error.  */
  1837.     {
  1838.       ++yynerrs;
  1839.       yyerror("parse error");
  1840.     }
  1841.  
  1842.   if (yyerrstatus == 3)
  1843.     {
  1844.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  1845.  
  1846.       /* return failure if at end of input */
  1847.       if (yychar == YYEOF)
  1848.     YYABORT;
  1849.  
  1850. #if YYDEBUG != 0
  1851.       if (yydebug)
  1852.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  1853. #endif
  1854.  
  1855.       yychar = YYEMPTY;
  1856.     }
  1857.  
  1858.   /* Else will try to reuse lookahead token
  1859.      after shifting the error token.  */
  1860.  
  1861.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  1862.  
  1863.   goto yyerrhandle;
  1864.  
  1865. yyerrdefault:  /* current state does not do anything special for the error token. */
  1866.  
  1867. #if 0
  1868.   /* This is wrong; only states that explicitly want error tokens
  1869.      should shift them.  */
  1870.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  1871.   if (yyn) goto yydefault;
  1872. #endif
  1873.  
  1874. yyerrpop:   /* pop the current state because it cannot handle the error token */
  1875.  
  1876.   if (yyssp == yyss) YYABORT;
  1877.   yyvsp--;
  1878.   yystate = *--yyssp;
  1879. #ifdef YYLSP_NEEDED
  1880.   yylsp--;
  1881. #endif
  1882.  
  1883. #if YYDEBUG != 0
  1884.   if (yydebug)
  1885.     {
  1886.       short *ssp1 = yyss - 1;
  1887.       fprintf (stderr, "Error: state stack now");
  1888.       while (ssp1 != yyssp)
  1889.     fprintf (stderr, " %d", *++ssp1);
  1890.       fprintf (stderr, "\n");
  1891.     }
  1892. #endif
  1893.  
  1894. yyerrhandle:
  1895.  
  1896.   yyn = yypact[yystate];
  1897.   if (yyn == YYFLAG)
  1898.     goto yyerrdefault;
  1899.  
  1900.   yyn += YYTERROR;
  1901.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  1902.     goto yyerrdefault;
  1903.  
  1904.   yyn = yytable[yyn];
  1905.   if (yyn < 0)
  1906.     {
  1907.       if (yyn == YYFLAG)
  1908.     goto yyerrpop;
  1909.       yyn = -yyn;
  1910.       goto yyreduce;
  1911.     }
  1912.   else if (yyn == 0)
  1913.     goto yyerrpop;
  1914.  
  1915.   if (yyn == YYFINAL)
  1916.     YYACCEPT;
  1917.  
  1918. #if YYDEBUG != 0
  1919.   if (yydebug)
  1920.     fprintf(stderr, "Shifting error token, ");
  1921. #endif
  1922.  
  1923.   *++yyvsp = yylval;
  1924. #ifdef YYLSP_NEEDED
  1925.   *++yylsp = yylloc;
  1926. #endif
  1927.  
  1928.   yystate = yyn;
  1929.   goto yynewstate;
  1930. }
  1931. #line 833 "awk.y"
  1932.  
  1933.  
  1934. struct token {
  1935.     char *operator;        /* text to match */
  1936.     NODETYPE value;        /* node type */
  1937.     int class;        /* lexical class */
  1938.     short nostrict;        /* ignore if in strict compatibility mode */
  1939.     NODE *(*ptr) ();    /* function that implements this keyword */
  1940. };
  1941.  
  1942. #ifndef NULL
  1943. #define NULL 0
  1944. #endif
  1945.  
  1946. extern NODE
  1947.     *do_exp(),    *do_getline(),    *do_index(),    *do_length(),
  1948.     *do_sqrt(),    *do_log(),    *do_sprintf(),    *do_substr(),
  1949.     *do_split(),    *do_system(),    *do_int(),    *do_close(),
  1950.     *do_atan2(),    *do_sin(),    *do_cos(),    *do_rand(),
  1951.     *do_srand(),    *do_match(),    *do_tolower(),    *do_toupper();
  1952.  
  1953. /* Special functions for debugging */
  1954. #ifdef DEBUG
  1955. NODE *do_prvars(), *do_bp();
  1956. #endif
  1957.  
  1958. /* Tokentab is sorted ascii ascending order, so it can be binary searched. */
  1959.  
  1960. static struct token tokentab[] = {
  1961.     { "BEGIN",    Node_illegal,        LEX_BEGIN,    0,    0 },
  1962.     { "END",    Node_illegal,        LEX_END,    0,    0 },
  1963.     { "atan2",    Node_builtin,        LEX_BUILTIN,    0,    do_atan2 },
  1964. #ifdef DEBUG
  1965.     { "bp",        Node_builtin,        LEX_BUILTIN,    0,    do_bp },
  1966. #endif
  1967.     { "break",    Node_K_break,        LEX_BREAK,    0,    0 },
  1968.     { "close",    Node_builtin,        LEX_BUILTIN,    0,    do_close },
  1969.     { "continue",    Node_K_continue,    LEX_CONTINUE,    0,    0 },
  1970.     { "cos",    Node_builtin,        LEX_BUILTIN,    0,    do_cos },
  1971.     { "delete",    Node_K_delete,        LEX_DELETE,    0,    0 },
  1972.     { "do",        Node_K_do,        LEX_DO,        0,    0 },
  1973.     { "else",    Node_illegal,        LEX_ELSE,    0,    0 },
  1974.     { "exit",    Node_K_exit,        LEX_EXIT,    0,    0 },
  1975.     { "exp",    Node_builtin,        LEX_BUILTIN,    0,    do_exp },
  1976.     { "for",    Node_K_for,        LEX_FOR,    0,    0 },
  1977.     { "func",    Node_K_function,    LEX_FUNCTION,    0,    0 },
  1978.     { "function",    Node_K_function,    LEX_FUNCTION,    0,    0 },
  1979.     { "getline",    Node_K_getline,        LEX_GETLINE,    0,    0 },
  1980.     { "gsub",    Node_gsub,        LEX_SUB,    0,    0 },
  1981.     { "if",        Node_K_if,        LEX_IF,        0,    0 },
  1982.     { "in",        Node_illegal,        LEX_IN,        0,    0 },
  1983.     { "index",    Node_builtin,        LEX_BUILTIN,    0,    do_index },
  1984.     { "int",    Node_builtin,        LEX_BUILTIN,    0,    do_int },
  1985.     { "length",    Node_builtin,        LEX_BUILTIN,    0,    do_length },
  1986.     { "log",    Node_builtin,        LEX_BUILTIN,    0,    do_log },
  1987.     { "match",    Node_K_match,        LEX_MATCH,    0,    0 },
  1988.     { "next",    Node_K_next,        LEX_NEXT,    0,    0 },
  1989.     { "print",    Node_K_print,        LEX_PRINT,    0,    0 },
  1990.     { "printf",    Node_K_printf,        LEX_PRINTF,    0,    0 },
  1991. #ifdef DEBUG
  1992.     { "prvars",    Node_builtin,        LEX_BUILTIN,    0,    do_prvars },
  1993. #endif
  1994.     { "rand",    Node_builtin,        LEX_BUILTIN,    0,    do_rand },
  1995.     { "return",    Node_K_return,        LEX_RETURN,    0,    0 },
  1996.     { "sin",    Node_builtin,        LEX_BUILTIN,    0,    do_sin },
  1997.     { "split",    Node_builtin,        LEX_BUILTIN,    0,    do_split },
  1998.     { "sprintf",    Node_builtin,        LEX_BUILTIN,    0,    do_sprintf },
  1999.     { "sqrt",    Node_builtin,        LEX_BUILTIN,    0,    do_sqrt },
  2000.     { "srand",    Node_builtin,        LEX_BUILTIN,    0,    do_srand },
  2001.     { "sub",    Node_sub,        LEX_SUB,    0,    0 },
  2002.     { "substr",    Node_builtin,        LEX_BUILTIN,    0,    do_substr },
  2003.     { "system",    Node_builtin,        LEX_BUILTIN,    0,    do_system },
  2004.     { "tolower",    Node_builtin,        LEX_BUILTIN,    1,    do_tolower },
  2005.     { "toupper",    Node_builtin,        LEX_BUILTIN,    1,    do_toupper },
  2006.     { "while",    Node_K_while,        LEX_WHILE,    0,    0 },
  2007. };
  2008.  
  2009. /* VARARGS0 */
  2010. static void
  2011. yyerror(va_alist)
  2012. va_dcl
  2013. {
  2014.     va_list args;
  2015.     char *mesg;
  2016.     char *a1;
  2017.     register char *ptr, *beg;
  2018.     static int list = 0;
  2019.     char *scan;
  2020.  
  2021.     errcount++;
  2022.     va_start(args);
  2023.     mesg = va_arg(args, char *);
  2024.     if (! list)
  2025.         a1 = va_arg(args, char *);
  2026.     va_end(args);
  2027.     if (mesg || !list) {
  2028.         /* Find the current line in the input file */
  2029.         if (!lexptr) {
  2030.             beg = "(END OF FILE)";
  2031.             ptr = beg + 13;
  2032.         } else {
  2033.             if (*lexptr == '\n' && lexptr != lexptr_begin)
  2034.                 --lexptr;
  2035.             for (beg = lexptr; beg != lexptr_begin && *beg != '\n'; --beg)
  2036.                 ;
  2037.             /* NL isn't guaranteed */
  2038.             for (ptr = lexptr; *ptr && *ptr != '\n'; ptr++)
  2039.                 ;
  2040.             if (beg != lexptr_begin)
  2041.                 beg++;
  2042.         }
  2043.         msg("syntax error near line %d:\n%.*s", lineno, ptr - beg, beg);
  2044.         scan = beg;
  2045.         while (scan <= lexptr)
  2046.             if (*scan++ == '\t')
  2047.                 putc('\t', stderr);
  2048.             else
  2049.                 putc(' ', stderr);
  2050.         putc('^', stderr);
  2051.         putc(' ', stderr);
  2052.         if (mesg) {
  2053.             vfprintf(stderr, mesg, args);
  2054.                 putc('\n', stderr);
  2055.             exit(1);
  2056.         } else {
  2057.             if (a1) {
  2058.                 fputs("expecting: ", stderr);
  2059.                 fputs(a1, stderr);
  2060.                 list = 1;
  2061.                 return;
  2062.             }
  2063.         }
  2064.         return;
  2065.     }
  2066.     if (a1) {
  2067.         fputs(" or ", stderr);
  2068.         fputs(a1, stderr);
  2069.         putc('\n', stderr);
  2070.         return;
  2071.     }
  2072.     putc('\n', stderr);
  2073.     list = 0;
  2074. }
  2075.  
  2076. /*
  2077.  * Parse a C escape sequence.  STRING_PTR points to a variable containing a
  2078.  * pointer to the string to parse.  That pointer is updated past the
  2079.  * characters we use.  The value of the escape sequence is returned. 
  2080.  *
  2081.  * A negative value means the sequence \ newline was seen, which is supposed to
  2082.  * be equivalent to nothing at all. 
  2083.  *
  2084.  * If \ is followed by a null character, we return a negative value and leave
  2085.  * the string pointer pointing at the null character. 
  2086.  *
  2087.  * If \ is followed by 000, we return 0 and leave the string pointer after the
  2088.  * zeros.  A value of 0 does not mean end of string.  
  2089.  */
  2090.  
  2091. static int
  2092. parse_escape(string_ptr)
  2093. char **string_ptr;
  2094. {
  2095.     register int c = *(*string_ptr)++;
  2096.     register int i;
  2097.  
  2098.     switch (c) {
  2099.     case 'a':
  2100.         if (strict)
  2101.             goto def;
  2102.         else
  2103.             return BELL;
  2104.     case 'b':
  2105.         return '\b';
  2106.     case 'f':
  2107.         return '\f';
  2108.     case 'n':
  2109.         return '\n';
  2110.     case 'r':
  2111.         return '\r';
  2112.     case 't':
  2113.         return '\t';
  2114.     case 'v':
  2115.         if (strict)
  2116.             goto def;
  2117.         else
  2118.             return '\v';
  2119.     case '\n':
  2120.         return -2;
  2121.     case 0:
  2122.         (*string_ptr)--;
  2123.         return 0;
  2124.     case '0':
  2125.     case '1':
  2126.     case '2':
  2127.     case '3':
  2128.     case '4':
  2129.     case '5':
  2130.     case '6':
  2131.     case '7':
  2132.         {
  2133.             register int i = c - '0';
  2134.             register int count = 0;
  2135.  
  2136.             while (++count < 3) {
  2137.                 if ((c = *(*string_ptr)++) >= '0' && c <= '7') {
  2138.                     i *= 8;
  2139.                     i += c - '0';
  2140.                 } else {
  2141.                     (*string_ptr)--;
  2142.                     break;
  2143.                 }
  2144.             }
  2145.             return i;
  2146.         }
  2147.     case 'x':
  2148.         if (strict)
  2149.             goto def;
  2150.  
  2151.         i = 0;
  2152.         while (1) {
  2153.             if (isxdigit((c = *(*string_ptr)++))) {
  2154.                 if (isdigit(c))
  2155.                     i += c - '0';
  2156.                 else if (isupper(c))
  2157.                     i += c - 'A' + 10;
  2158.                 else
  2159.                     i += c - 'a' + 10;
  2160.             } else {
  2161.                 (*string_ptr)--;
  2162.                 break;
  2163.             }
  2164.         }
  2165.         return i;
  2166.     default:
  2167.     def:
  2168.         return c;
  2169.     }
  2170. }
  2171.  
  2172. /*
  2173.  * Read the input and turn it into tokens. Input is now read from a file
  2174.  * instead of from malloc'ed memory. The main program takes a program
  2175.  * passed as a command line argument and writes it to a temp file. Otherwise
  2176.  * the file name is made available in an external variable.
  2177.  */
  2178. #line 1080 "awk.y"
  2179. static int
  2180. yylex()
  2181. {
  2182.     register int c;
  2183.     register int namelen;
  2184.     register char *tokstart;
  2185.     char *tokkey;
  2186.     static did_newline = 0;    /* the grammar insists that actions end
  2187.                  * with newlines.  This was easier than
  2188.                  * hacking the grammar. */
  2189.     int seen_e = 0;        /* These are for numbers */
  2190.     int seen_point = 0;
  2191.     extern char **sourcefile;
  2192.     extern int tempsource, numfiles;
  2193.     static int file_opened = 0;
  2194.     static FILE *fin;
  2195.     static char cbuf[BUFSIZ];
  2196.     int low, mid, high;
  2197. #ifdef DEBUG
  2198.     extern int debugging;
  2199. #endif
  2200.  
  2201.     if (! file_opened) {
  2202.         file_opened = 1;
  2203. #ifdef DEBUG
  2204.         if (debugging) {
  2205.             int i;
  2206.  
  2207.             for (i = 0; i <= numfiles; i++)
  2208.                 fprintf (stderr, "sourcefile[%d] = %s\n", i,
  2209.                         sourcefile[i]);
  2210.         }
  2211. #endif
  2212.     nextfile:
  2213.         if ((fin = pathopen (sourcefile[++curinfile])) == NULL)
  2214.             fatal("cannot open `%s' for reading (%s)",
  2215.                 sourcefile[curinfile],
  2216.                 sys_errlist[errno]);
  2217.         *(lexptr = cbuf) = '\0';
  2218.         /*
  2219.          * immediately unlink the tempfile so that it will
  2220.          * go away cleanly if we bomb.
  2221.          */
  2222.         if (tempsource && curinfile == 0)
  2223.             (void) unlink (sourcefile[curinfile]);
  2224.     }
  2225.  
  2226. retry:
  2227.     if (! *lexptr)
  2228.         if (fgets (cbuf, sizeof cbuf, fin) == NULL) {
  2229.             if (fin != NULL)
  2230.                 fclose (fin);    /* be neat and clean */
  2231.             if (curinfile < numfiles)
  2232.                 goto nextfile;
  2233.             return 0;
  2234.         } else
  2235.             lexptr = lexptr_begin = cbuf;
  2236.  
  2237.     if (want_regexp) {
  2238.         want_regexp = 0;
  2239.  
  2240.         /*
  2241.          * there is a potential bug if a regexp is followed by an
  2242.          * equal sign: "/foo/=bar" would result in assign_quotient
  2243.          * being returned as the next token.  Nothing is done about
  2244.          * it since it is not valid awk, but maybe something should
  2245.          * be done anyway. 
  2246.          */
  2247.  
  2248.         tokstart = lexptr;
  2249.         while (c = *lexptr++) {
  2250.             switch (c) {
  2251.             case '\\':
  2252.                 if (*lexptr++ == '\0') {
  2253.                     yyerror("unterminated regexp ends with \\");
  2254.                     return ERROR;
  2255.                 } else if (lexptr[-1] == '\n')
  2256.                     goto retry;
  2257.                 break;
  2258.             case '/':    /* end of the regexp */
  2259.                 lexptr--;
  2260.                 yylval.sval = tokstart;
  2261.                 return REGEXP;
  2262.             case '\n':
  2263.                 lineno++;
  2264.             case '\0':
  2265.                 lexptr--;    /* so error messages work */
  2266.                 yyerror("unterminated regexp");
  2267.                 return ERROR;
  2268.             }
  2269.         }
  2270.     }
  2271.  
  2272.     if (*lexptr == '\n') {
  2273.         lexptr++;
  2274.         lineno++;
  2275.         return NEWLINE;
  2276.     }
  2277.  
  2278.     while (*lexptr == ' ' || *lexptr == '\t')
  2279.         lexptr++;
  2280.  
  2281.     tokstart = lexptr;
  2282.  
  2283.     switch (c = *lexptr++) {
  2284.     case 0:
  2285.         return 0;
  2286.  
  2287.     case '\n':
  2288.         lineno++;
  2289.         return NEWLINE;
  2290.  
  2291.     case '#':        /* it's a comment */
  2292.         while (*lexptr != '\n' && *lexptr != '\0')
  2293.             lexptr++;
  2294.         goto retry;
  2295.  
  2296.     case '\\':
  2297.         if (*lexptr == '\n') {
  2298.             lineno++;
  2299.             lexptr++;
  2300.             goto retry;
  2301.         } else
  2302.             break;
  2303.     case ')':
  2304.     case ']':
  2305.     case '(':    
  2306.     case '[':
  2307.     case '$':
  2308.     case ';':
  2309.     case ':':
  2310.     case '?':
  2311.  
  2312.         /*
  2313.          * set node type to ILLEGAL because the action should set it
  2314.          * to the right thing 
  2315.          */
  2316.         yylval.nodetypeval = Node_illegal;
  2317.         return c;
  2318.  
  2319.     case '{':
  2320.     case ',':
  2321.         yylval.nodetypeval = Node_illegal;
  2322.         return c;
  2323.  
  2324.     case '*':
  2325.         if (*lexptr == '=') {
  2326.             yylval.nodetypeval = Node_assign_times;
  2327.             lexptr++;
  2328.             return ASSIGNOP;
  2329.         } else if (*lexptr == '*') {    /* make ** and **= aliases
  2330.                          * for ^ and ^= */
  2331.             if (lexptr[1] == '=') {
  2332.                 yylval.nodetypeval = Node_assign_exp;
  2333.                 lexptr += 2;
  2334.                 return ASSIGNOP;
  2335.             } else {
  2336.                 yylval.nodetypeval = Node_illegal;
  2337.                 lexptr++;
  2338.                 return '^';
  2339.             }
  2340.         }
  2341.         yylval.nodetypeval = Node_illegal;
  2342.         return c;
  2343.  
  2344.     case '/':
  2345.         if (*lexptr == '=') {
  2346.             yylval.nodetypeval = Node_assign_quotient;
  2347.             lexptr++;
  2348.             return ASSIGNOP;
  2349.         }
  2350.         yylval.nodetypeval = Node_illegal;
  2351.         return c;
  2352.  
  2353.     case '%':
  2354.         if (*lexptr == '=') {
  2355.             yylval.nodetypeval = Node_assign_mod;
  2356.             lexptr++;
  2357.             return ASSIGNOP;
  2358.         }
  2359.         yylval.nodetypeval = Node_illegal;
  2360.         return c;
  2361.  
  2362.     case '^':
  2363.         if (*lexptr == '=') {
  2364.             yylval.nodetypeval = Node_assign_exp;
  2365.             lexptr++;
  2366.             return ASSIGNOP;
  2367.         }
  2368.         yylval.nodetypeval = Node_illegal;
  2369.         return c;
  2370.  
  2371.     case '+':
  2372.         if (*lexptr == '=') {
  2373.             yylval.nodetypeval = Node_assign_plus;
  2374.             lexptr++;
  2375.             return ASSIGNOP;
  2376.         }
  2377.         if (*lexptr == '+') {
  2378.             yylval.nodetypeval = Node_illegal;
  2379.             lexptr++;
  2380.             return INCREMENT;
  2381.         }
  2382.         yylval.nodetypeval = Node_illegal;
  2383.         return c;
  2384.  
  2385.     case '!':
  2386.         if (*lexptr == '=') {
  2387.             yylval.nodetypeval = Node_notequal;
  2388.             lexptr++;
  2389.             return RELOP;
  2390.         }
  2391.         if (*lexptr == '~') {
  2392.             yylval.nodetypeval = Node_nomatch;
  2393.             lexptr++;
  2394.             return MATCHOP;
  2395.         }
  2396.         yylval.nodetypeval = Node_illegal;
  2397.         return c;
  2398.  
  2399.     case '<':
  2400.         if (*lexptr == '=') {
  2401.             yylval.nodetypeval = Node_leq;
  2402.             lexptr++;
  2403.             return RELOP;
  2404.         }
  2405.         yylval.nodetypeval = Node_less;
  2406.         return c;
  2407.  
  2408.     case '=':
  2409.         if (*lexptr == '=') {
  2410.             yylval.nodetypeval = Node_equal;
  2411.             lexptr++;
  2412.             return RELOP;
  2413.         }
  2414.         yylval.nodetypeval = Node_assign;
  2415.         return ASSIGNOP;
  2416.  
  2417.     case '>':
  2418.         if (*lexptr == '=') {
  2419.             yylval.nodetypeval = Node_geq;
  2420.             lexptr++;
  2421.             return RELOP;
  2422.         } else if (*lexptr == '>') {
  2423.             yylval.nodetypeval = Node_redirect_append;
  2424.             lexptr++;
  2425.             return APPEND_OP;
  2426.         }
  2427.         yylval.nodetypeval = Node_greater;
  2428.         return c;
  2429.  
  2430.     case '~':
  2431.         yylval.nodetypeval = Node_match;
  2432.         return MATCHOP;
  2433.  
  2434.     case '}':
  2435.         /*
  2436.          * Added did newline stuff.  Easier than
  2437.          * hacking the grammar
  2438.          */
  2439.         if (did_newline) {
  2440.             did_newline = 0;
  2441.             return c;
  2442.         }
  2443.         did_newline++;
  2444.         --lexptr;
  2445.         return NEWLINE;
  2446.  
  2447.     case '"':
  2448.         while (*lexptr != '\0') {
  2449.             switch (*lexptr++) {
  2450.             case '\\':
  2451.                 if (*lexptr++ != '\0')
  2452.                     break;
  2453.                 /* fall through */
  2454.             case '\n':
  2455.                 yyerror("unterminated string");
  2456.                 return ERROR;
  2457.             case '\"':
  2458.                 /* Skip the doublequote */
  2459.                 yylval.sval = tokstart + 1;
  2460.                 return YSTRING;
  2461.             }
  2462.         }
  2463.         return ERROR;
  2464.  
  2465.     case '-':
  2466.         if (*lexptr == '=') {
  2467.             yylval.nodetypeval = Node_assign_minus;
  2468.             lexptr++;
  2469.             return ASSIGNOP;
  2470.         }
  2471.         if (*lexptr == '-') {
  2472.             yylval.nodetypeval = Node_illegal;
  2473.             lexptr++;
  2474.             return DECREMENT;
  2475.         }
  2476.  
  2477.         /*
  2478.          * It looks like space tab comma and newline are the legal
  2479.          * places for a UMINUS.  Have we missed any? 
  2480.          */
  2481.         if ((! isdigit(*lexptr) && *lexptr != '.') ||
  2482.             (lexptr > lexptr_begin + 1 &&
  2483.                     ! index(" \t,\n", lexptr[-2]))) {
  2484.  
  2485.             /*
  2486.              * set node type to ILLEGAL because the action should
  2487.              * set it to the right thing 
  2488.              */
  2489.             yylval.nodetypeval = Node_illegal;
  2490.             return c;
  2491.         }
  2492.         /* FALL through into number code */
  2493.     case '0':
  2494.     case '1':
  2495.     case '2':
  2496.     case '3':
  2497.     case '4':
  2498.     case '5':
  2499.     case '6':
  2500.     case '7':
  2501.     case '8':
  2502.     case '9':
  2503.     case '.':
  2504.         /* It's a number */
  2505.         if (c == '-')
  2506.             namelen = 1;
  2507.         else
  2508.             namelen = 0;
  2509.         for (; (c = tokstart[namelen]) != '\0'; namelen++) {
  2510.             switch (c) {
  2511.             case '.':
  2512.                 if (seen_point)
  2513.                     goto got_number;
  2514.                 ++seen_point;
  2515.                 break;
  2516.             case 'e':
  2517.             case 'E':
  2518.                 if (seen_e)
  2519.                     goto got_number;
  2520.                 ++seen_e;
  2521.                 if (tokstart[namelen + 1] == '-' ||
  2522.                     tokstart[namelen + 1] == '+')
  2523.                     namelen++;
  2524.                 break;
  2525.             case '0':
  2526.             case '1':
  2527.             case '2':
  2528.             case '3':
  2529.             case '4':
  2530.             case '5':
  2531.             case '6':
  2532.             case '7':
  2533.             case '8':
  2534.             case '9':
  2535.                 break;
  2536.             default:
  2537.                 goto got_number;
  2538.             }
  2539.         }
  2540.  
  2541. got_number:
  2542.         lexptr = tokstart + namelen;
  2543.         yylval.fval = atof(tokstart);
  2544.         return NUMBER;
  2545.  
  2546.     case '&':
  2547.         if (*lexptr == '&') {
  2548.             yylval.nodetypeval = Node_and;
  2549.             while (c = *++lexptr) {
  2550.                 if (c == '#')
  2551.                     while ((c = *++lexptr) != '\n'
  2552.                            && c != '\0')
  2553.                         ;
  2554.                 if (c == '\n')
  2555.                     lineno++;
  2556.                 else if (!isspace(c))
  2557.                     break;
  2558.             }
  2559.             return LEX_AND;
  2560.         }
  2561.         return ERROR;
  2562.  
  2563.     case '|':
  2564.         if (*lexptr == '|') {
  2565.             yylval.nodetypeval = Node_or;
  2566.             while (c = *++lexptr) {
  2567.                 if (c == '#')
  2568.                     while ((c = *++lexptr) != '\n'
  2569.                            && c != '\0')
  2570.                         ;
  2571.                 if (c == '\n')
  2572.                     lineno++;
  2573.                 else if (!isspace(c))
  2574.                     break;
  2575.             }
  2576.             return LEX_OR;
  2577.         }
  2578.             yylval.nodetypeval = Node_illegal;
  2579.             return c;
  2580.         }
  2581.  
  2582.     if (c != '_' && !isalpha(c)) {
  2583.         yyerror("Invalid char '%c' in expression\n", c);
  2584.         return ERROR;
  2585.     }
  2586.  
  2587.     /* it's some type of name-type-thing.  Find its length */
  2588.     for (namelen = 0; is_identchar(tokstart[namelen]); namelen++)
  2589.         /* null */ ;
  2590.     emalloc(tokkey, char *, namelen+1, "yylex");
  2591.     (void) strncpy (tokkey, tokstart, namelen);
  2592.     tokkey[namelen] = '\0';
  2593.  
  2594.     /* See if it is a special token.  */
  2595.     low = 0;
  2596.     high = (sizeof (tokentab) / sizeof (tokentab[0])) - 1;
  2597.     while (low <= high) {
  2598.         int i, c;
  2599.  
  2600.         mid = (low + high) / 2;
  2601.  
  2602.     compare:
  2603.         c = *tokstart - tokentab[mid].operator[0];
  2604.         i = c ? c : strcmp (tokkey, tokentab[mid].operator);
  2605.  
  2606.         if (i < 0) {        /* token < mid */
  2607.             high = mid - 1;
  2608.         } else if (i > 0) {    /* token > mid */
  2609.             low = mid + 1;
  2610.         } else {
  2611.             lexptr = tokstart + namelen;
  2612.             if (strict && tokentab[mid].nostrict)
  2613.                 break;
  2614.             if (tokentab[mid].class == LEX_BUILTIN)
  2615.                 yylval.ptrval = tokentab[mid].ptr;
  2616.             else
  2617.                 yylval.nodetypeval = tokentab[mid].value;
  2618.             return tokentab[mid].class;
  2619.         }
  2620.     }
  2621.  
  2622.     /* It's a name.  See how long it is.  */
  2623.     yylval.sval = tokkey;
  2624.     lexptr = tokstart + namelen;
  2625.     if (*lexptr == '(')
  2626.         return FUNC_CALL;
  2627.     else
  2628.         return NAME;
  2629. }
  2630.  
  2631. #ifndef DEFPATH
  2632. /*** CHANGE [2632,2639] IN x:awk.tab.c TO [2632,2695] IN awktab.c ***/
  2633.     #ifdef AMIGA
  2634.         #define DEFPATH "S:"
  2635.         #define ENVSEP ' '
  2636.     #elif defined MSDOS
  2637.         #define DEFPATH "."
  2638.         #define ENVSEP    ';'
  2639.     #else
  2640.         #define DEFPATH ".:/usr/lib/awk:/usr/local/lib/awk"
  2641.         #define ENVSEP    ':'
  2642.     #endif
  2643. #endif
  2644.  
  2645. #ifdef AMIGA /* static FILE * pathopen() for AMIGA YEA! */
  2646.  
  2647. static FILE *
  2648. pathopen (file)
  2649. char *file;
  2650. {
  2651.     static char *savepath = DEFPATH;
  2652.     static int first = 1;
  2653.     char *awkpath, *cp;
  2654.     char trypath[BUFSIZ];
  2655.     int fh; /* temp to check devopen() >= 0 before returning fdopen() */
  2656.     extern int debugging;
  2657.  
  2658.     if (strcmp (file, "-") == 0)
  2659.         return (stdin);
  2660.  
  2661.     if (strict)
  2662.         return (fopen (file, "r"));
  2663.    
  2664.    /* check for file in current directory first */
  2665.     if ((fh = devopen(file, "r")) >= 0)
  2666.         return(fdopen(fh, "r"));
  2667.     
  2668.     if (first) {
  2669.         first = 0;
  2670.         if ((awkpath = getenv("AWKPATH")) != NULL && *awkpath)
  2671.             savepath = awkpath;    /* used for restarting */
  2672.     }
  2673.     awkpath = savepath;
  2674.     
  2675.     do {
  2676.         for (cp = trypath; *awkpath && *awkpath != ENVSEP; )
  2677.             *cp++ = *awkpath++;
  2678.             
  2679.         if (*(cp-1) == ':' || *(cp-1) == '/')
  2680.             *cp = '\0';
  2681.         else {
  2682.             *cp++ = '/';
  2683.             *cp = '\0';
  2684.         }
  2685.         if ((fh = devopen(strcat(trypath, file), "r")) >= 0)
  2686.             return(fdopen(fh, "r"));
  2687.     
  2688.         if(*awkpath)
  2689.             awkpath++;    /* skip colon */
  2690.  
  2691.     } while (*awkpath);
  2692.     
  2693.     return (NULL);
  2694. }
  2695.  
  2696. #else /* static FILE * pathopen() for the rest of the world BOO! */
  2697. /*** CHANGE [2632,2639] IN x:awk.tab.c TO [2632,2695] IN awktab.c ***/
  2698.  
  2699. static FILE *
  2700. pathopen (file)
  2701. char *file;
  2702. {
  2703.     static char *savepath = DEFPATH;
  2704.     static int first = 1;
  2705.     char *awkpath, *cp;
  2706.     char trypath[BUFSIZ];
  2707.     FILE *fp;
  2708.     extern int debugging;
  2709.  
  2710.     if (strcmp (file, "-") == 0)
  2711.         return (stdin);
  2712.  
  2713.     if (strict)
  2714.         return (fopen (file, "r"));
  2715.  
  2716.     if (first) {
  2717.         first = 0;
  2718.         if ((awkpath = getenv ("AWKPATH")) != NULL && *awkpath)
  2719.             savepath = awkpath;    /* used for restarting */
  2720. #ifdef MSDOS
  2721.         else if ((awkpath = getenv ("INIT")) != NULL && *awkpath)
  2722.             savepath = awkpath;    /* MSC 5.1 users may prefer */
  2723.                         /* to use INIT            */
  2724. #endif
  2725.     }
  2726.     awkpath = savepath;
  2727.  
  2728.     /* some kind of path name, no search */
  2729. #ifndef MSDOS
  2730.     if (index (file, '/') != NULL)
  2731. #else
  2732.     if (index (file, '/') != NULL || index (file, '\\') != NULL
  2733.             || index (file, ':') != NULL)
  2734. #endif
  2735.         return (fdopen(devopen (file, "r"), "r"));
  2736.  
  2737.     do {
  2738.         /* this should take into account limits on size of trypath */
  2739.         for (cp = trypath; *awkpath && *awkpath != ENVSEP; )
  2740.             *cp++ = *awkpath++;
  2741.         *cp++ = '/';
  2742.         *cp = '\0';    /* clear left over junk */
  2743.         strcat (cp, file);
  2744.         if ((fp = fdopen(devopen (trypath, "r"), "r")) != NULL)
  2745.             return (fp);
  2746.  
  2747.         /* no luck, keep going */
  2748.         if(*awkpath)
  2749.             awkpath++;    /* skip colon */
  2750.     } while (*awkpath);
  2751. #ifdef MSDOS
  2752. /*
  2753. ** under DOS (and probably elsewhere) you might have one of the awk paths
  2754. ** defined, WITHOUT the current working directory in it.  Therefore you
  2755. ** should try to open the file in the current directory
  2756. */
  2757.     return fdopen(devopen(file,"r"),"r");
  2758. #else
  2759.     return (NULL);
  2760. #endif
  2761. }
  2762. /*** APPEND AFTER 2703 IN x:awk.tab.c ***/
  2763. #endif /* static FILE * pathopen() */
  2764. /*** APPEND AFTER 2703 IN x:awk.tab.c ***/
  2765.  
  2766. static NODE *
  2767. node_common(op)
  2768. NODETYPE op;
  2769. {
  2770.     register NODE *r;
  2771.     extern int numfiles;
  2772.     extern int tempsource;
  2773.     extern char **sourcefile;
  2774.  
  2775.     r = newnode(op);
  2776.     r->source_line = lineno;
  2777.     if (numfiles > 1 && !tempsource)
  2778.         r->source_file = sourcefile[curinfile];
  2779.     else
  2780.         r->source_file = NULL;
  2781.     return r;
  2782. }
  2783.  
  2784. /*
  2785.  * This allocates a node with defined lnode and rnode. 
  2786.  * This should only be used by yyparse+co while reading in the program 
  2787.  */
  2788. NODE *
  2789. node(left, op, right)
  2790. NODE *left, *right;
  2791. NODETYPE op;
  2792. {
  2793.     register NODE *r;
  2794.  
  2795.     r = node_common(op);
  2796.     r->lnode = left;
  2797.     r->rnode = right;
  2798.     return r;
  2799. }
  2800.  
  2801. /*
  2802.  * This allocates a node with defined subnode and proc
  2803.  * Otherwise like node()
  2804.  */
  2805. static NODE *
  2806. snode(subn, op, procp)
  2807. NODETYPE op;
  2808. NODE *(*procp) ();
  2809. NODE *subn;
  2810. {
  2811.     register NODE *r;
  2812.  
  2813.     r = node_common(op);
  2814.     r->subnode = subn;
  2815.     r->proc = procp;
  2816.     return r;
  2817. }
  2818.  
  2819. /*
  2820.  * This allocates a Node_line_range node with defined condpair and
  2821.  * zeroes the trigger word to avoid the temptation of assuming that calling
  2822.  * 'node( foo, Node_line_range, 0)' will properly initialize 'triggered'. 
  2823.  */
  2824. /* Otherwise like node() */
  2825. static NODE *
  2826. mkrangenode(cpair)
  2827. NODE *cpair;
  2828. {
  2829.     register NODE *r;
  2830.  
  2831.     r = newnode(Node_line_range);
  2832.     r->condpair = cpair;
  2833.     r->triggered = 0;
  2834.     return r;
  2835. }
  2836.  
  2837. /* Build a for loop */
  2838. static NODE *
  2839. make_for_loop(init, cond, incr)
  2840. NODE *init, *cond, *incr;
  2841. {
  2842.     register FOR_LOOP_HEADER *r;
  2843.     NODE *n;
  2844.  
  2845.     emalloc(r, FOR_LOOP_HEADER *, sizeof(FOR_LOOP_HEADER), "make_for_loop");
  2846.     n = newnode(Node_illegal);
  2847.     r->init = init;
  2848.     r->cond = cond;
  2849.     r->incr = incr;
  2850.     n->sub.nodep.r.hd = r;
  2851.     return n;
  2852. }
  2853.  
  2854. /*
  2855.  * Install a name in the hash table specified, even if it is already there.
  2856.  * Name stops with first non alphanumeric. Caller must check against
  2857.  * redefinition if that is desired. 
  2858.  */
  2859. NODE *
  2860. install(table, name, value)
  2861. NODE **table;
  2862. char *name;
  2863. NODE *value;
  2864. {
  2865.     register NODE *hp;
  2866.     register int len, bucket;
  2867.     register char *p;
  2868.  
  2869.     len = 0;
  2870.     p = name;
  2871.     while (is_identchar(*p))
  2872.         p++;
  2873.     len = p - name;
  2874.  
  2875.     hp = newnode(Node_hashnode);
  2876.     bucket = hashf(name, len, HASHSIZE);
  2877.     hp->hnext = table[bucket];
  2878.     table[bucket] = hp;
  2879.     hp->hlength = len;
  2880.     hp->hvalue = value;
  2881.     emalloc(hp->hname, char *, len + 1, "install");
  2882.     bcopy(name, hp->hname, len);
  2883.     hp->hname[len] = '\0';
  2884.     hp->hvalue->varname = hp->hname;
  2885.     return hp->hvalue;
  2886. }
  2887.  
  2888. /*
  2889.  * find the most recent hash node for name name (ending with first
  2890.  * non-identifier char) installed by install 
  2891.  */
  2892. NODE *
  2893. lookup(table, name)
  2894. NODE **table;
  2895. char *name;
  2896. {
  2897.     register char *bp;
  2898.     register NODE *bucket;
  2899.     register int len;
  2900.  
  2901.     for (bp = name; is_identchar(*bp); bp++)
  2902.         ;
  2903.     len = bp - name;
  2904.     bucket = table[hashf(name, len, HASHSIZE)];
  2905.     while (bucket) {
  2906.         if (bucket->hlength == len && STREQN(bucket->hname, name, len))
  2907.             return bucket->hvalue;
  2908.         bucket = bucket->hnext;
  2909.     }
  2910.     return NULL;
  2911. }
  2912.  
  2913. #define HASHSTEP(old, c) ((old << 1) + c)
  2914. #define MAKE_POS(v) (v & ~0x80000000)    /* make number positive */
  2915.  
  2916. /*
  2917.  * return hash function on name.
  2918.  */
  2919. static int
  2920. hashf(name, len, hashsize)
  2921. register char *name;
  2922. register int len;
  2923. int hashsize;
  2924. {
  2925.     register int r = 0;
  2926.  
  2927.     while (len--)
  2928.         r = HASHSTEP(r, *name++);
  2929.  
  2930.     r = MAKE_POS(r) % hashsize;
  2931.     return r;
  2932. }
  2933.  
  2934. /*
  2935.  * Add new to the rightmost branch of LIST.  This uses n^2 time, but doesn't
  2936.  * get used enough to make optimizing worth it. . . 
  2937.  */
  2938. /* You don't believe me?  Profile it yourself! */
  2939. static NODE *
  2940. append_right(list, new)
  2941. NODE *list, *new;
  2942.  
  2943. {
  2944.     register NODE *oldlist;
  2945.  
  2946.     oldlist = list;
  2947.     while (list->rnode != NULL)
  2948.         list = list->rnode;
  2949.     list->rnode = new;
  2950.     return oldlist;
  2951. }
  2952.  
  2953. /*
  2954.  * check if name is already installed;  if so, it had better have Null value,
  2955.  * in which case def is added as the value. Otherwise, install name with def
  2956.  * as value. 
  2957.  */
  2958. static void
  2959. func_install(params, def)
  2960. NODE *params;
  2961. NODE *def;
  2962. {
  2963.     NODE *r;
  2964.  
  2965.     pop_params(params->rnode);
  2966.     pop_var(params, 0);
  2967.     r = lookup(variables, params->param);
  2968.     if (r != NULL) {
  2969.         fatal("function name `%s' previously defined", params->param);
  2970.     } else
  2971.         (void) install(variables, params->param,
  2972.             node(params, Node_func, def));
  2973. }
  2974.  
  2975. static void
  2976. pop_var(np, freeit)
  2977. NODE *np;
  2978. int freeit;
  2979. {
  2980.     register char *bp;
  2981.     register NODE *bucket, **save;
  2982.     register int len;
  2983.     char *name;
  2984.  
  2985.     name = np->param;
  2986.     for (bp = name; is_identchar(*bp); bp++)
  2987.         ;
  2988.     len = bp - name;
  2989.     save = &(variables[hashf(name, len, HASHSIZE)]);
  2990.     for (bucket = *save; bucket; bucket = bucket->hnext) {
  2991.         if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
  2992.             *save = bucket->hnext;
  2993.             freenode(bucket);
  2994.             free(bucket->hname);
  2995.             if (freeit)
  2996.                 free(np->param);
  2997.             return;
  2998.         }
  2999.         save = &(bucket->hnext);
  3000.     }
  3001. }
  3002.  
  3003. static void
  3004. pop_params(params)
  3005. NODE *params;
  3006. {
  3007.     register NODE *np;
  3008.  
  3009.     for (np = params; np != NULL; np = np->rnode)
  3010.         pop_var(np, 1);
  3011. }
  3012.  
  3013. static NODE *
  3014. make_param(name)
  3015. char *name;
  3016. {
  3017.     NODE *r;
  3018.  
  3019.     r = newnode(Node_param_list);
  3020.     r->param = name;
  3021.     r->rnode = NULL;
  3022.     r->param_cnt = param_counter++;
  3023.     return (install(variables, name, r));
  3024. }
  3025.  
  3026. /* Name points to a variable name.  Make sure its in the symbol table */
  3027. NODE *
  3028. variable(name)
  3029. char *name;
  3030. {
  3031.     register NODE *r;
  3032.  
  3033.     if ((r = lookup(variables, name)) == NULL)
  3034.         r = install(variables, name,
  3035.             node(Nnull_string, Node_var, (NODE *) NULL));
  3036.     return r;
  3037. }
  3038.