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