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