home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / TOP / USR / SRC / gawk2.0.t.Z / gawk2.0.t / awk.tab.c < prev    next >
Text File  |  1989-04-06  |  71KB  |  2,295 lines
  1.  
  2. /*  A Bison parser, made from awk.y  */
  3.  
  4. #define    NAME    258
  5. #define    REGEXP    259
  6. #define    YSTRING    260
  7. #define    ERROR    261
  8. #define    INCDEC    262
  9. #define    NUMBER    263
  10. #define    ASSIGNOP    264
  11. #define    RELOP    265
  12. #define    MATCHOP    266
  13. #define    NEWLINE    267
  14. #define    REDIRECT_OP    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_SUB    287
  34. #define    LEX_MATCH    288
  35. #define    LEX_IN    289
  36. #define    LEX_AND    290
  37. #define    LEX_OR    291
  38. #define    INCREMENT    292
  39. #define    DECREMENT    293
  40. #define    LEX_BUILTIN    294
  41. #define    UNARY    295
  42.  
  43. #line 139 "awk.y"
  44.  
  45. #define YYDEBUG 12
  46. #define YYIMPROVE
  47.  
  48. #include "awk.h"
  49.  
  50. static int yylex ();
  51.  
  52. /*
  53.  * The following variable is used for a very sickening thing.
  54.  * The awk language uses white space as the string concatenation
  55.  * operator, but having a white space token that would have to appear
  56.  * everywhere in all the grammar rules would be unbearable.
  57.  * It turns out we can return CONCAT_OP exactly when there really
  58.  * is one, just from knowing what kinds of other tokens it can appear
  59.  * between (namely, constants, variables, or close parentheses).
  60.  * This is because concatenation has the lowest priority of all
  61.  * operators.  want_concat_token is used to remember that something
  62.  * that could be the left side of a concat has just been returned.
  63.  *
  64.  * If anyone knows a cleaner way to do this (don't look at the Un*x
  65.  * code to find one, though), please suggest it.
  66.  */
  67. static int want_concat_token;
  68.  
  69. /* Two more horrible kludges.  The same comment applies to these two too */
  70. static int want_regexp;        /* lexical scanning kludge */
  71. static int want_redirect;    /* similarly */
  72. int lineno = 1;            /* for error msgs */
  73.  
  74. /* During parsing of a gawk program, the pointer to the next character
  75.    is in this variable.  */
  76. char *lexptr;        /* moved it up here */
  77. char *lexptr_begin;    /* for error msgs */
  78. char *func_def;
  79. extern int errcount;
  80. extern struct obstack var_stack;
  81. extern NODE *begin_block;
  82. extern NODE *end_block;
  83. extern struct re_pattern_buffer *mk_re_parse();
  84. extern int param_counter;
  85. struct re_pattern_buffer *rp;
  86.  
  87. #line 183 "awk.y"
  88. typedef union {
  89.     long lval;
  90.     AWKNUM fval;
  91.     NODE *nodeval;
  92.     NODETYPE nodetypeval;
  93.     char *sval;
  94.     NODE *(*ptrval)();
  95. } YYSTYPE;
  96.  
  97. #ifndef YYLTYPE
  98. typedef
  99.   struct yyltype
  100.     {
  101.       int timestamp;
  102.       int first_line;
  103.       int first_column;
  104.       int last_line;
  105.       int last_column;
  106.       char *text;
  107.    }
  108.   yyltype;
  109.  
  110. #define YYLTYPE yyltype
  111. #endif
  112.  
  113. #define    YYOS9FREE {    \
  114.             if (yyss != 0) free(yyss);\
  115.             if (yyls != 0) free(yyls);\
  116.             if (yyvs != 0) free(yyvs);\
  117.         }
  118. #define    YYACCEPT    { YYOS9FREE; return(0);}
  119. #define    YYABORT    { YYOS9FREE; return(1);}
  120. #define    YYERROR    { YYOS9FREE; return(1);}
  121. #ifndef stdin
  122. #include <stdio.h>
  123. #endif
  124.  
  125.  
  126.  
  127. #define    YYFINAL        282
  128. #define    YYFLAG        -32768
  129. #define    YYNTBASE    60
  130.  
  131. #define YYTRANSLATE(x) (yytranslate[x])
  132.  
  133. static char yytranslate[] = {     0,
  134.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  135.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  136.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  137.      2,     2,    51,     2,     2,    49,    46,     2,     2,    50,
  138.     58,    44,    42,    52,    43,     2,    45,     2,     2,     2,
  139.      2,     2,     2,     2,     2,     2,     2,    41,    59,     2,
  140.      2,     2,    40,     2,     2,     2,     2,     2,     2,     2,
  141.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  142.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  143.     53,     2,    54,    48,     2,     2,     2,     2,     2,     2,
  144.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  145.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  146.      2,     2,    56,    55,    57,     2,     2,     2,     2,     2,
  147.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  148.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  149.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  150.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  151.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  152.      2,     2,     2,     2,     2,     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,     1,     2,     3,     4,     5,
  160.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  161.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  162.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  163.     36,    37,    38,    39,    47
  164. };
  165.  
  166. static short yyrline[] = {     0,
  167.    233,   238,   246,   258,   259,   263,   275,   287,   293,   299,
  168.    301,   303,   313,   318,   325,   330,   332,   334,   340,   342,
  169.    344,   346,   348,   355,   357,   365,   370,   375,   377,   383,
  170.    385,   389,   391,   396,   398,   400,   402,   404,   409,   411,
  171.    413,   415,   417,   419,   421,   423,   429,   432,   435,   437,
  172.    439,   441,   443,   445,   447,   449,   451,   453,   455,   457,
  173.    459,   464,   467,   474,   475,   480,   482,   485,   489,   491,
  174.    496,   500,   505,   507,   508,   513,   515,   519,   521,   526,
  175.    528,   534,   536,   537,   538,   542,   543,   545,   547,   549,
  176.    553,   555,   557,   559,   561,   563,   565,   567,   569,   571,
  177.    573,   575,   579,   584,   586,   588,   592,   594,   596,   598,
  178.    600,   602,   604,   606,   608,   612,   614,   616,   618,   620,
  179.    622,   625,   627,   632,   634,   638,   640,   642,   647,   651,
  180.    655,   659
  181. };
  182.  
  183. static char * yytname[] = {     0,
  184. "error","$illegal.","NAME","REGEXP","YSTRING","ERROR","INCDEC","NUMBER","ASSIGNOP","RELOP",
  185. "MATCHOP","NEWLINE","REDIRECT_OP","CONCAT_OP","LEX_BEGIN","LEX_END","LEX_IF","LEX_ELSE","LEX_RETURN","LEX_DELETE",
  186. "LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT","LEX_PRINTF","LEX_NEXT","LEX_EXIT","LEX_FUNCTION",
  187. "LEX_GETLINE","LEX_SUB","LEX_MATCH","LEX_IN","LEX_AND","LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN","'?'",
  188. "':'","'+'","'-'","'*'","'/'","'%'","UNARY","'^'","'$'","'('",
  189. "'!'","','","'['","']'","'|'","'{'","'}'","')'","';'","start"
  190. };
  191.  
  192. static short yyr1[] = {     0,
  193.     60,    61,    61,    61,    61,    62,    62,    62,    62,    62,
  194.     62,    62,    64,    63,    65,    66,    66,    66,    66,    66,
  195.     66,    66,    66,    68,    67,    69,    69,    70,    70,    70,
  196.     70,    71,    71,    72,    72,    72,    72,    72,    73,    73,
  197.     73,    73,    73,    73,    73,    73,    73,    73,    74,    73,
  198.     75,    73,    76,    73,    77,    73,    73,    73,    73,    73,
  199.     73,    78,    78,    79,    79,    80,    81,    80,    82,    82,
  200.     83,    83,    83,    83,    83,    84,    84,    85,    85,    86,
  201.     86,    86,    86,    86,    86,    87,    87,    87,    87,    87,
  202.     88,    88,    88,    88,    88,    88,    88,    88,    88,    88,
  203.     89,    88,    88,    88,    88,    88,    88,    88,    88,    88,
  204.     88,    88,    88,    88,    88,    88,    88,    88,    88,    88,
  205.     88,    88,    88,    90,    90,    91,    91,    91,    92,    93,
  206.     94,    95
  207. };
  208.  
  209. static short yyr2[] = {     0,
  210.      2,     1,     2,     1,     2,     2,     2,     2,     2,     2,
  211.      2,     2,     0,     8,     4,     0,     1,     1,     3,     3,
  212.      2,     3,     3,     0,     4,     2,     3,     1,     2,     1,
  213.      2,     2,     2,     0,     1,     1,     2,     2,     2,     4,
  214.      1,     6,     8,    10,     9,     9,     2,     2,     0,     5,
  215.      0,     7,     0,     5,     0,     7,     2,     3,     3,     6,
  216.      2,     6,     9,     0,     2,     0,     0,     3,     0,     1,
  217.      1,     3,     1,     2,     3,     0,     1,     0,     1,     1,
  218.      3,     1,     2,     3,     3,     1,     4,     4,     2,     3,
  219.      4,     1,     3,     3,     4,     6,     6,     6,     6,     6,
  220.      0,     4,     4,     3,     5,     4,     2,     2,     2,     2,
  221.      2,     2,     1,     1,     1,     3,     3,     3,     3,     3,
  222.      3,     3,     3,     0,     1,     1,     4,     2,     2,     1,
  223.      1,     1
  224. };
  225.  
  226. static short yydefact[] = {    64,
  227.      0,     4,   126,   115,   114,    65,     0,     0,    13,   101,
  228.      0,     0,     0,     0,    92,     0,     0,    24,     0,     0,
  229.     16,     0,     2,     0,     0,    18,     0,    86,   113,     0,
  230.      0,    64,    34,   132,     6,     8,     0,    64,     7,     9,
  231.      0,   124,     0,     0,   126,   109,   110,     0,     0,     0,
  232.    108,    86,   107,     0,   128,    82,     0,     0,    80,    21,
  233.     89,     5,     3,    12,     0,    16,    16,    16,    10,    11,
  234.      0,     0,     0,    34,    34,     0,     0,     0,     0,     0,
  235.      0,     0,     0,     0,   111,   112,     0,     0,    80,     0,
  236.     32,    36,    35,   129,    30,     0,    76,     0,     0,    34,
  237.      0,     0,     0,    49,    53,     0,    76,   130,     0,    28,
  238.     41,     0,     0,    26,    64,    33,    34,    66,   125,     0,
  239.      0,     0,     0,     0,   131,    22,    83,     0,     0,    90,
  240.      0,    19,    20,    23,   104,    93,    94,     0,   122,     0,
  241.      0,     0,   120,   121,   117,   118,   119,   116,   124,   123,
  242.    106,   127,    38,    37,     0,     0,    77,     0,     0,     0,
  243.     76,    47,    48,     0,     0,     0,     0,    57,     0,    31,
  244.     29,    27,    61,     0,    39,     0,    67,   102,     0,     0,
  245.      0,    91,    25,    84,    85,    81,     0,     0,    95,    87,
  246.     88,     0,   103,     0,    59,     0,     0,     0,   126,     0,
  247.      0,    66,     0,    66,    58,    34,     0,     0,     0,     0,
  248.      0,     0,     0,    15,   105,    34,     0,    34,     0,     0,
  249.      0,    51,     0,    55,     0,    40,    73,    71,     0,     0,
  250.     68,    97,    98,    99,   100,    96,     0,     0,     0,     0,
  251.      0,     0,    76,    66,    50,    66,    54,    34,    74,     0,
  252.     62,    60,    42,     0,     0,    76,     0,     0,     0,    14,
  253.     75,    72,    34,    34,    34,     0,    34,    52,    56,     0,
  254.     43,     0,    34,     0,    63,    46,     0,    45,    44,     0,
  255.      0,     0
  256. };
  257.  
  258. static short yydefgoto[] = {   280,
  259.     22,    23,    24,    41,    64,    25,    26,    54,    35,   109,
  260.     36,    94,   110,   165,   244,   167,   246,   111,     1,   178,
  261.    208,   229,   230,   156,    87,    88,   112,    52,    42,   118,
  262.     29,   113,   114,   126,    38
  263. };
  264.  
  265. static short yypact[] = {-32768,
  266.    515,-32768,   -26,-32768,-32768,-32768,    72,    72,-32768,-32768,
  267.    -22,   -16,    95,    95,   -12,  1013,  1013,-32768,  1013,   619,
  268.    894,   297,-32768,    -2,   255,-32768,  1152,   503,    73,   641,
  269.    754,-32768,   134,-32768,-32768,-32768,   349,-32768,-32768,-32768,
  270.     60,    95,   943,  1013,    11,-32768,-32768,   641,   754,  1013,
  271.    -43,-32768,   -43,    64,    40,-32768,   174,     1,  1025,    62,
  272.    -43,-32768,-32768,-32768,   463,   894,   894,   894,-32768,-32768,
  273.   1013,   943,   964,   134,   134,  1013,  1013,  1013,  1013,  1013,
  274.   1013,  1013,    84,  1013,-32768,-32768,    67,    61,  1152,    49,
  275.    126,-32768,-32768,   145,-32768,    99,  1013,   153,   111,   134,
  276.    124,    27,    27,   127,   131,    27,  1013,-32768,   406,-32768,
  277. -32768,   817,   463,-32768,-32768,   126,   134,   183,-32768,   130,
  278.   1081,  1099,    67,   147,-32768,-32768,  1013,   805,   197,-32768,
  279.    406,    62,    70,   149,   593,-32768,  1199,   209,   539,   879,
  280.    879,  1138,   225,   225,   -43,   -43,   -43,   -43,    95,  1152,
  281. -32768,-32768,-32768,-32768,  1013,    27,  1152,   161,  1013,   690,
  282.   1069,-32768,-32768,   641,   567,   641,   567,-32768,    27,-32768,
  283. -32768,-32768,-32768,   406,   126,   123,-32768,-32768,   754,   754,
  284.    943,-32768,-32768,  1152,-32768,  1152,   182,    27,-32768,  1207,
  285.   1191,  1013,-32768,  1025,-32768,   754,  1025,   196,    79,   160,
  286.     67,   183,    67,   183,-32768,   134,     0,  1013,     1,     1,
  287.     67,  1025,   227,-32768,  1152,   134,    50,   134,   178,   199,
  288.    739,-32768,    27,-32768,    27,   145,-32768,-32768,    67,    36,
  289.    179,-32768,-32768,-32768,-32768,-32768,   690,    27,   690,  1013,
  290.    235,   835,  1013,   183,-32768,   183,-32768,   134,-32768,   166,
  291.    222,-32768,-32768,  1025,    67,  1013,    67,    27,    27,   145,
  292. -32768,-32768,   134,   134,   134,    67,   134,-32768,-32768,   690,
  293.    145,   690,   134,   690,-32768,-32768,   690,-32768,-32768,   241,
  294.    243,-32768
  295. };
  296.  
  297. static short yypgoto[] = {-32768,
  298. -32768,   223,-32768,-32768,-32768,   169,   -36,-32768,   122,   -57,
  299.      6,   -65,    12,-32768,-32768,-32768,-32768,-32768,   -15,  -147,
  300. -32768,-32768,-32768,  -101,    39,    -9,    -1,    24,-32768,    98,
  301.     19,   109,  -105,    65,   -24
  302. };
  303.  
  304.  
  305. #define    YYLAST        1262
  306.  
  307.  
  308. static short yytable[] = {    27,
  309.    227,   127,   228,   172,    82,   169,   120,   131,   140,   141,
  310.     58,    83,   115,    40,    51,    53,    91,    55,    59,    61,
  311.     27,    90,   116,    30,    28,   188,    31,    43,    89,    89,
  312.     70,    46,    47,    44,   160,   136,   249,    48,    32,    58,
  313.    115,   121,   122,    28,    28,    28,    89,    59,    61,   127,
  314.    127,   176,   128,    33,   223,   174,   225,   -69,   125,   200,
  315.    119,   127,   117,    31,    27,    27,    27,   124,   206,   135,
  316.    137,   139,   -79,   -79,   142,   143,   144,   145,   146,   147,
  317.    148,    84,   150,    32,   115,    34,   123,   250,   115,    28,
  318.     28,    28,   220,   -70,    83,   157,   258,    45,   259,   175,
  319.    128,   128,   152,   238,    66,   157,   115,   162,   163,    85,
  320.     86,   168,   128,    68,   149,    37,    37,   173,   -79,   -79,
  321.    171,    68,   129,   130,   125,   184,   186,    33,    30,    39,
  322.     34,    31,    65,    37,   153,   115,   154,     6,   190,   191,
  323.    226,   257,   171,    19,   211,    92,    69,    93,   155,   115,
  324.    237,   151,   239,   194,   266,   158,   153,   197,   154,   157,
  325.    159,   195,    89,    89,    89,    89,   261,   119,   262,   209,
  326.    210,   198,   207,   161,   205,   221,   164,    89,    89,   212,
  327.    166,   179,   260,    66,    67,   171,   217,   182,    57,    60,
  328.    215,   183,    73,   214,    89,   177,   243,   270,   271,   272,
  329.     68,   274,   201,   202,   203,   204,   231,   277,    66,    67,
  330.    187,   189,   115,   196,   115,   213,   219,   256,    34,   242,
  331.     77,    78,    79,    80,    81,    68,    82,   240,   245,   236,
  332.    247,   125,   241,    83,   132,   133,   134,   255,   254,   263,
  333.    281,   157,   282,   252,    63,   115,   193,   115,   251,   115,
  334.    253,     0,   115,     0,   157,     0,     0,     0,   216,     0,
  335.      0,   218,     0,   268,   269,   222,    32,   224,    79,    80,
  336.     81,     0,    82,   232,   233,   234,   235,     0,     0,    83,
  337.      0,   275,     0,   276,     0,   278,     0,     0,   279,    66,
  338.     67,     0,     0,   248,     0,     0,    -1,    62,     0,     3,
  339.      0,     4,     0,     0,     5,     0,    68,     0,   -16,     0,
  340.     33,     7,     8,    34,     0,     0,     0,     0,   264,   265,
  341.      0,   267,     0,     0,     0,     0,     9,    10,    11,    12,
  342.    273,   -16,   -16,    13,    14,    15,     0,     0,    16,    17,
  343.      0,    18,     0,     0,     0,    19,    20,    21,   -16,    95,
  344.      0,     3,   -16,     4,     0,   -16,     5,     0,     0,     0,
  345.      0,     0,     0,     0,     0,    96,     0,    97,    98,    99,
  346.    100,   101,   102,   103,   104,   105,   106,   107,     0,    10,
  347.     11,    12,     0,     0,     0,    13,    14,    15,     0,     0,
  348.     16,    17,     0,     0,     0,     0,     0,    19,    49,    50,
  349.      0,     0,     0,     0,    33,   108,   170,    34,     3,     0,
  350.      4,     0,     0,     5,     0,     0,     0,     0,     0,     0,
  351.      0,     0,    96,     0,    97,    98,    99,   100,   101,   102,
  352.    103,   104,   105,   106,   107,     0,    10,    11,    12,     0,
  353.      0,     0,    13,    14,    15,     0,     0,    16,    17,     0,
  354.      0,     0,     0,     0,    19,    49,    50,     0,     0,     0,
  355.      0,    33,   108,    95,    34,     3,     0,     4,     0,     0,
  356.      5,     0,     0,     0,     0,     0,     0,     0,     0,    96,
  357.      0,    97,    98,    99,   100,   101,   102,   103,   104,   105,
  358.    106,   107,     0,    10,    11,    12,     0,     0,     0,    13,
  359.     14,    15,     0,     0,    16,    17,     0,     0,     0,     0,
  360.      0,    19,    49,    50,   -17,     2,     0,     3,    33,     4,
  361.      0,    34,     5,     0,     0,     0,     6,     0,     0,     7,
  362.      8,     0,     0,     0,     0,     0,     0,   -17,   -17,     0,
  363.      0,     0,     0,     0,     9,    10,    11,    12,     0,   -16,
  364.    -16,    13,    14,    15,   -17,     0,    16,    17,   -17,    18,
  365.    -17,   -17,     0,    19,    20,    21,   -16,    56,     0,     3,
  366.    -16,     4,     0,   -16,     5,     0,     0,     0,   -78,   -78,
  367.     77,    78,    79,    80,    81,     0,    82,     0,     0,     0,
  368.      0,     0,     0,    83,     0,     0,     0,    10,    11,    12,
  369.      0,     0,-32768,    13,    14,    15,    73,     0,    16,    17,
  370.      0,     0,     0,     0,     0,    19,    49,    50,     0,    56,
  371.      0,     3,     0,     4,     0,   -78,     5,     0,     0,     0,
  372.      0,     0,     0,     0,    77,    78,    79,    80,    81,     0,
  373.     82,    56,     0,     3,     0,     4,     0,    83,     5,    10,
  374.     11,    12,     0,   -16,   -16,    13,    14,    15,     0,     0,
  375.     16,    17,     0,    18,     0,     0,     0,    19,    20,    21,
  376.    -16,    10,    11,    12,     0,     0,   -16,    13,    14,    15,
  377.      0,     0,    16,    17,     0,     0,     0,     0,     0,    19,
  378.     49,    50,     3,     0,     4,     0,     0,     5,   -78,     0,
  379.      0,   153,     0,   154,     0,     0,    96,     0,    97,    98,
  380.     99,   100,   101,   102,   103,   104,   105,   106,   107,     0,
  381.     10,    11,    12,     0,     0,     0,    13,    14,    15,     0,
  382.      0,    16,    17,     0,     0,     0,     0,     0,    19,    49,
  383.     50,     3,     0,     4,     0,    33,     5,     0,    34,     0,
  384.      0,     0,     0,     0,    56,     0,     3,     0,     4,     0,
  385.      0,     5,     0,     0,     0,     0,     0,     0,     0,    10,
  386.     11,    12,     0,     0,     0,    13,    14,    15,     0,     0,
  387.     16,    17,     0,     0,    10,    11,    12,    19,    49,    50,
  388.     13,    14,    15,     0,     0,    16,    17,    34,     0,     0,
  389.      0,     0,    19,    49,    50,   185,     0,     3,     0,     4,
  390.      0,     0,     5,     0,     0,     0,     0,     0,     0,     0,
  391.      0,     0,     0,     0,     0,     0,    71,    72,    32,     0,
  392.     73,     0,     0,     0,     0,    10,    11,    12,     0,     0,
  393.      0,    13,    14,    15,    71,    72,    16,    17,    73,     0,
  394.      0,    74,    75,    19,    49,    50,    76,     0,    77,    78,
  395.     79,    80,    81,     0,    82,     0,     0,     0,     0,    74,
  396.     75,    83,     0,     0,    76,    34,    77,    78,    79,    80,
  397.     81,     3,    82,     4,     0,     0,     5,     0,     0,    83,
  398.    153,     0,   154,    34,     0,     0,     3,     0,     4,     0,
  399.      0,     5,     0,     0,     0,     0,     0,     0,     0,    10,
  400.     11,    12,     0,     0,     0,    13,    14,    15,     0,     0,
  401.     16,    17,     0,     0,    10,    11,    12,    19,    49,    50,
  402.     13,    14,    15,     0,     0,    16,    17,     0,    18,     0,
  403.      0,     0,    19,    20,    21,     3,     0,     4,     0,     0,
  404.      5,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  405.      0,     0,     0,     0,     0,     0,     3,     0,     4,     0,
  406.      0,     5,     0,    10,    11,    12,     0,     0,     0,    13,
  407.     14,    15,     0,     0,    16,    17,     0,    18,     0,     0,
  408.      0,    19,    49,    50,    10,    11,    12,   138,     0,     0,
  409.     13,    14,    15,     0,     0,    16,    17,     0,     0,     0,
  410.      0,     0,    19,    49,    50,     3,     0,     4,     0,     0,
  411.      5,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  412.      0,     0,     0,     0,    71,    72,     0,     0,    73,     0,
  413.      0,     0,     0,    10,    11,    12,     0,     0,     0,    13,
  414.     14,    15,     0,     0,    16,    17,     0,     0,     0,    74,
  415.     75,    19,    49,    50,    76,     0,    77,    78,    79,    80,
  416.     81,   199,    82,     4,     0,     0,     5,     0,     0,    83,
  417.      0,     0,   125,     0,     0,     0,     0,     0,     0,     0,
  418.     71,    72,     0,     0,    73,     0,     0,     0,     0,    10,
  419.     11,    12,     0,     0,     0,    13,    14,    15,    71,    72,
  420.     16,    17,    73,     0,     0,    74,    75,    19,    49,    50,
  421.     76,     0,    77,    78,    79,    80,    81,     0,    82,     0,
  422.      0,     0,   180,    74,    75,    83,     0,     0,    76,     0,
  423.     77,    78,    79,    80,    81,     0,    82,    71,    72,     0,
  424.    181,    73,     0,    83,     0,     0,     0,     0,     0,     0,
  425.      0,    71,    72,     0,     0,    73,     0,     0,     0,     0,
  426.      0,     0,    74,    75,     0,     0,     0,    76,   192,    77,
  427.     78,    79,    80,    81,     0,    82,    74,    75,     0,     0,
  428.      0,    76,    83,    77,    78,    79,    80,    81,     0,    82,
  429.     71,    72,     0,     0,    73,     0,    83,     0,    71,-32768,
  430.      0,     0,    73,     0,     0,     0,    71,    72,     0,     0,
  431.     73,     0,     0,     0,     0,    74,     0,     0,     0,     0,
  432.      0,     0,    77,    78,    79,    80,    81,     0,    82,     0,
  433.     77,    78,    79,    80,    81,    83,    82,     0,    77,    78,
  434.     79,    80,    81,    83,    82,     0,     0,     0,     0,     0,
  435.      0,    83
  436. };
  437.  
  438. static short yycheck[] = {     1,
  439.      1,     1,     3,   109,    48,   107,    43,    65,    74,    75,
  440.     20,    55,    37,     8,    16,    17,    32,    19,    20,    21,
  441.     22,    31,    38,    50,     1,   131,    53,    50,    30,    31,
  442.     25,    13,    14,    50,   100,    72,     1,    50,    12,    49,
  443.     65,    43,    44,    20,    21,    22,    48,    49,    50,     1,
  444.      1,   117,    52,    56,   202,   113,   204,    58,    58,   161,
  445.     42,     1,     3,    53,    66,    67,    68,     4,   174,    71,
  446.     72,    73,    12,    13,    76,    77,    78,    79,    80,    81,
  447.     82,     9,    84,    12,   109,    59,    48,    52,   113,    66,
  448.     67,    68,    14,    58,    55,    97,   244,     3,   246,   115,
  449.     52,    52,    54,    54,    35,   107,   131,   102,   103,    37,
  450.     38,   106,    52,    52,    31,     7,     8,   112,    58,    59,
  451.    109,    52,    58,    59,    58,   127,   128,    56,    50,     8,
  452.     59,    53,    24,    25,    12,   160,    14,    12,   140,   141,
  453.    206,   243,   131,    49,   181,    12,    25,    14,    50,   174,
  454.    216,    87,   218,   155,   256,     3,    12,   159,    14,   161,
  455.     50,   156,   164,   165,   166,   167,     1,   149,     3,   179,
  456.    180,   160,    50,    50,   169,   200,    50,   179,   180,   181,
  457.     50,    52,   248,    35,    36,   174,   196,   123,    20,    21,
  458.    192,    45,    14,   188,   196,    13,   221,   263,   264,   265,
  459.     52,   267,   164,   165,   166,   167,   208,   273,    35,    36,
  460.     14,     3,   237,    53,   239,    34,    21,   242,    59,   221,
  461.     42,    43,    44,    45,    46,    52,    48,    50,   223,     3,
  462.    225,    58,    34,    55,    66,    67,    68,     3,   240,    18,
  463.      0,   243,     0,   238,    22,   270,   149,   272,   237,   274,
  464.    239,    -1,   277,    -1,   256,    -1,    -1,    -1,   194,    -1,
  465.     -1,   197,    -1,   258,   259,   201,    12,   203,    44,    45,
  466.     46,    -1,    48,   209,   210,   211,   212,    -1,    -1,    55,
  467.     -1,   270,    -1,   272,    -1,   274,    -1,    -1,   277,    35,
  468.     36,    -1,    -1,   229,    -1,    -1,     0,     1,    -1,     3,
  469.     -1,     5,    -1,    -1,     8,    -1,    52,    -1,    12,    -1,
  470.     56,    15,    16,    59,    -1,    -1,    -1,    -1,   254,   255,
  471.     -1,   257,    -1,    -1,    -1,    -1,    30,    31,    32,    33,
  472.    266,    35,    36,    37,    38,    39,    -1,    -1,    42,    43,
  473.     -1,    45,    -1,    -1,    -1,    49,    50,    51,    52,     1,
  474.     -1,     3,    56,     5,    -1,    59,     8,    -1,    -1,    -1,
  475.     -1,    -1,    -1,    -1,    -1,    17,    -1,    19,    20,    21,
  476.     22,    23,    24,    25,    26,    27,    28,    29,    -1,    31,
  477.     32,    33,    -1,    -1,    -1,    37,    38,    39,    -1,    -1,
  478.     42,    43,    -1,    -1,    -1,    -1,    -1,    49,    50,    51,
  479.     -1,    -1,    -1,    -1,    56,    57,     1,    59,     3,    -1,
  480.      5,    -1,    -1,     8,    -1,    -1,    -1,    -1,    -1,    -1,
  481.     -1,    -1,    17,    -1,    19,    20,    21,    22,    23,    24,
  482.     25,    26,    27,    28,    29,    -1,    31,    32,    33,    -1,
  483.     -1,    -1,    37,    38,    39,    -1,    -1,    42,    43,    -1,
  484.     -1,    -1,    -1,    -1,    49,    50,    51,    -1,    -1,    -1,
  485.     -1,    56,    57,     1,    59,     3,    -1,     5,    -1,    -1,
  486.      8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    17,
  487.     -1,    19,    20,    21,    22,    23,    24,    25,    26,    27,
  488.     28,    29,    -1,    31,    32,    33,    -1,    -1,    -1,    37,
  489.     38,    39,    -1,    -1,    42,    43,    -1,    -1,    -1,    -1,
  490.     -1,    49,    50,    51,    12,     1,    -1,     3,    56,     5,
  491.     -1,    59,     8,    -1,    -1,    -1,    12,    -1,    -1,    15,
  492.     16,    -1,    -1,    -1,    -1,    -1,    -1,    35,    36,    -1,
  493.     -1,    -1,    -1,    -1,    30,    31,    32,    33,    -1,    35,
  494.     36,    37,    38,    39,    52,    -1,    42,    43,    56,    45,
  495.     58,    59,    -1,    49,    50,    51,    52,     1,    -1,     3,
  496.     56,     5,    -1,    59,     8,    -1,    -1,    -1,    12,    13,
  497.     42,    43,    44,    45,    46,    -1,    48,    -1,    -1,    -1,
  498.     -1,    -1,    -1,    55,    -1,    -1,    -1,    31,    32,    33,
  499.     -1,    -1,    10,    37,    38,    39,    14,    -1,    42,    43,
  500.     -1,    -1,    -1,    -1,    -1,    49,    50,    51,    -1,     1,
  501.     -1,     3,    -1,     5,    -1,    59,     8,    -1,    -1,    -1,
  502.     -1,    -1,    -1,    -1,    42,    43,    44,    45,    46,    -1,
  503.     48,     1,    -1,     3,    -1,     5,    -1,    55,     8,    31,
  504.     32,    33,    -1,    35,    36,    37,    38,    39,    -1,    -1,
  505.     42,    43,    -1,    45,    -1,    -1,    -1,    49,    50,    51,
  506.     52,    31,    32,    33,    -1,    -1,    58,    37,    38,    39,
  507.     -1,    -1,    42,    43,    -1,    -1,    -1,    -1,    -1,    49,
  508.     50,    51,     3,    -1,     5,    -1,    -1,     8,    58,    -1,
  509.     -1,    12,    -1,    14,    -1,    -1,    17,    -1,    19,    20,
  510.     21,    22,    23,    24,    25,    26,    27,    28,    29,    -1,
  511.     31,    32,    33,    -1,    -1,    -1,    37,    38,    39,    -1,
  512.     -1,    42,    43,    -1,    -1,    -1,    -1,    -1,    49,    50,
  513.     51,     3,    -1,     5,    -1,    56,     8,    -1,    59,    -1,
  514.     -1,    -1,    -1,    -1,     1,    -1,     3,    -1,     5,    -1,
  515.     -1,     8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,
  516.     32,    33,    -1,    -1,    -1,    37,    38,    39,    -1,    -1,
  517.     42,    43,    -1,    -1,    31,    32,    33,    49,    50,    51,
  518.     37,    38,    39,    -1,    -1,    42,    43,    59,    -1,    -1,
  519.     -1,    -1,    49,    50,    51,     1,    -1,     3,    -1,     5,
  520.     -1,    -1,     8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  521.     -1,    -1,    -1,    -1,    -1,    -1,    10,    11,    12,    -1,
  522.     14,    -1,    -1,    -1,    -1,    31,    32,    33,    -1,    -1,
  523.     -1,    37,    38,    39,    10,    11,    42,    43,    14,    -1,
  524.     -1,    35,    36,    49,    50,    51,    40,    -1,    42,    43,
  525.     44,    45,    46,    -1,    48,    -1,    -1,    -1,    -1,    35,
  526.     36,    55,    -1,    -1,    40,    59,    42,    43,    44,    45,
  527.     46,     3,    48,     5,    -1,    -1,     8,    -1,    -1,    55,
  528.     12,    -1,    14,    59,    -1,    -1,     3,    -1,     5,    -1,
  529.     -1,     8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,
  530.     32,    33,    -1,    -1,    -1,    37,    38,    39,    -1,    -1,
  531.     42,    43,    -1,    -1,    31,    32,    33,    49,    50,    51,
  532.     37,    38,    39,    -1,    -1,    42,    43,    -1,    45,    -1,
  533.     -1,    -1,    49,    50,    51,     3,    -1,     5,    -1,    -1,
  534.      8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  535.     -1,    -1,    -1,    -1,    -1,    -1,     3,    -1,     5,    -1,
  536.     -1,     8,    -1,    31,    32,    33,    -1,    -1,    -1,    37,
  537.     38,    39,    -1,    -1,    42,    43,    -1,    45,    -1,    -1,
  538.     -1,    49,    50,    51,    31,    32,    33,    34,    -1,    -1,
  539.     37,    38,    39,    -1,    -1,    42,    43,    -1,    -1,    -1,
  540.     -1,    -1,    49,    50,    51,     3,    -1,     5,    -1,    -1,
  541.      8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  542.     -1,    -1,    -1,    -1,    10,    11,    -1,    -1,    14,    -1,
  543.     -1,    -1,    -1,    31,    32,    33,    -1,    -1,    -1,    37,
  544.     38,    39,    -1,    -1,    42,    43,    -1,    -1,    -1,    35,
  545.     36,    49,    50,    51,    40,    -1,    42,    43,    44,    45,
  546.     46,     3,    48,     5,    -1,    -1,     8,    -1,    -1,    55,
  547.     -1,    -1,    58,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  548.     10,    11,    -1,    -1,    14,    -1,    -1,    -1,    -1,    31,
  549.     32,    33,    -1,    -1,    -1,    37,    38,    39,    10,    11,
  550.     42,    43,    14,    -1,    -1,    35,    36,    49,    50,    51,
  551.     40,    -1,    42,    43,    44,    45,    46,    -1,    48,    -1,
  552.     -1,    -1,    52,    35,    36,    55,    -1,    -1,    40,    -1,
  553.     42,    43,    44,    45,    46,    -1,    48,    10,    11,    -1,
  554.     52,    14,    -1,    55,    -1,    -1,    -1,    -1,    -1,    -1,
  555.     -1,    10,    11,    -1,    -1,    14,    -1,    -1,    -1,    -1,
  556.     -1,    -1,    35,    36,    -1,    -1,    -1,    40,    41,    42,
  557.     43,    44,    45,    46,    -1,    48,    35,    36,    -1,    -1,
  558.     -1,    40,    55,    42,    43,    44,    45,    46,    -1,    48,
  559.     10,    11,    -1,    -1,    14,    -1,    55,    -1,    10,    11,
  560.     -1,    -1,    14,    -1,    -1,    -1,    10,    11,    -1,    -1,
  561.     14,    -1,    -1,    -1,    -1,    35,    -1,    -1,    -1,    -1,
  562.     -1,    -1,    42,    43,    44,    45,    46,    -1,    48,    -1,
  563.     42,    43,    44,    45,    46,    55,    48,    -1,    42,    43,
  564.     44,    45,    46,    55,    48,    -1,    -1,    -1,    -1,    -1,
  565.     -1,    55
  566. };
  567. #define YYPURE 1
  568.  
  569. #line 2 "bison.simple"
  570.  
  571. /* Note: there must be only one dollar sign in this file.
  572.    It is replaced by the list of actions, each action
  573.    as one case of the switch.  */
  574.  
  575. #define yyerrok        (yyerrstatus = 0)
  576. #define yyclearin    (yychar = YYEMPTY)
  577. #define YYEMPTY        -2
  578. #define YYEOF        0
  579. #define YYFAIL        goto yyerrlab;
  580.  
  581. #define YYTERROR    1
  582.  
  583. #ifndef YYIMPURE
  584. #define YYLEX        yylex()
  585. #endif
  586.  
  587. #ifndef YYPURE
  588. #define YYLEX        yylex(&yylval, &yylloc)
  589. #endif
  590.  
  591. /* If nonreentrant, generate the variables here */
  592.  
  593. #ifndef YYIMPURE
  594.  
  595. int    yychar;            /*  the lookahead symbol        */
  596. YYSTYPE    yylval;            /*  the semantic value of the        */
  597.                 /*  lookahead symbol            */
  598.  
  599. YYLTYPE yylloc;            /*  location data for the lookahead    */
  600.                 /*  symbol                */
  601.  
  602. int yydebug = 0;        /*  nonzero means print parse trace    */
  603.  
  604. #endif  /* YYIMPURE */
  605.  
  606.  
  607. /*  YYMAXDEPTH indicates the initial size of the parser's stacks    */
  608.  
  609. #ifndef    YYMAXDEPTH
  610. #define YYMAXDEPTH 200
  611. #endif
  612.  
  613. /*  YYMAXLIMIT is the maximum size the stacks can grow to
  614.     (effective only if the built-in stack extension method is used).  */
  615.  
  616. #ifndef YYMAXLIMIT
  617. #define YYMAXLIMIT 10000
  618. #endif
  619.  
  620.  
  621. #line 87 "bison.simple"
  622. int
  623. yyparse()
  624. {
  625.   register int yystate;
  626.   register int yyn;
  627.   register short *yyssp;
  628.   register YYSTYPE *yyvsp;
  629.   YYLTYPE *yylsp;
  630.   int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  631.   int yychar1;        /*  lookahead token as an internal (translated) token number */
  632.  
  633.   short    yyssa[YYMAXDEPTH];    /*  the state stack            */
  634.   YYSTYPE yyvsa[YYMAXDEPTH];    /*  the semantic value stack        */
  635.   YYLTYPE yylsa[YYMAXDEPTH];    /*  the location stack            */
  636.  
  637.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  638.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  639.   YYLTYPE *yyls = yylsa;
  640.  
  641.   int yymaxdepth = YYMAXDEPTH;
  642.  
  643. #ifndef YYPURE
  644.  
  645.   int yychar;
  646.   YYSTYPE yylval;
  647.   YYLTYPE yylloc;
  648.  
  649.   extern int yydebug;
  650.  
  651. #endif
  652.  
  653.  
  654.   YYSTYPE yyval;        /*  the variable used to return        */
  655.                 /*  semantic values from the action    */
  656.                 /*  routines                */
  657.  
  658.   int yylen;
  659.  
  660.   if (yydebug)
  661.     fprintf(stderr, "Starting parse\n");
  662.  
  663.   yystate = 0;
  664.   yyerrstatus = 0;
  665.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  666.  
  667.   /* Initialize stack pointers.
  668.      Waste one element of value and location stack
  669.      so that they stay on the same level as the state stack.  */
  670.  
  671.   yyssp = yyss - 1;
  672.   yyvsp = yyvs;
  673.   yylsp = yyls;
  674.  
  675. /* Push a new state, which is found in  yystate  .  */
  676. /* In all cases, when you get here, the value and location stacks
  677.    have just been pushed. so pushing a state here evens the stacks.  */
  678. yynewstate:
  679.  
  680.   *++yyssp = yystate;
  681.  
  682.   if (yyssp >= yyss + yymaxdepth - 1)
  683.     {
  684.       /* Give user a chance to reallocate the stack */
  685.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  686.       YYSTYPE *yyvs1 = yyvs;
  687.       YYLTYPE *yyls1 = yyls;
  688.       short *yyss1 = yyss;
  689.  
  690.       /* Get the current used size of the three stacks, in elements.  */
  691.       int size = yyssp - yyss + 1;
  692.  
  693. #ifdef yyoverflow
  694.       /* Each stack pointer address is followed by the size of
  695.      the data in use in that stack, in bytes.  */
  696.       yyoverflow("parser stack overflow",
  697.          &yyss1, size * sizeof (*yyssp),
  698.          &yyvs1, size * sizeof (*yyvsp),
  699.          &yyls1, size * sizeof (*yylsp),
  700.          &yymaxdepth);
  701.  
  702.       yyss = yyss1; yyvs = yyvs1; yyls = yyls1;
  703. #else /* no yyoverflow */
  704.       /* Extend the stack our own way.  */
  705.       if (yymaxdepth >= YYMAXLIMIT)
  706.     yyerror("parser stack overflow");
  707.       yymaxdepth *= 2;
  708.       if (yymaxdepth > YYMAXLIMIT)
  709.     yymaxdepth = YYMAXLIMIT;
  710.       yyss = (short *) alloca (yymaxdepth * sizeof (*yyssp));
  711.       bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  712.       yyls = (YYLTYPE *) alloca (yymaxdepth * sizeof (*yylsp));
  713.       bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  714.       yyvs = (YYSTYPE *) alloca (yymaxdepth * sizeof (*yyvsp));
  715.       bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  716. #endif /* no yyoverflow */
  717.  
  718.       yyssp = yyss + size - 1;
  719.       yylsp = yyls + size - 1;
  720.       yyvsp = yyvs + size - 1;
  721.  
  722.       if (yydebug)
  723.     fprintf(stderr, "Stack size increased to %d\n", yymaxdepth);
  724.  
  725.       if (yyssp >= yyss + yymaxdepth - 1)
  726.     YYERROR;
  727.     }
  728.  
  729.   if (yydebug)
  730.     fprintf(stderr, "Entering state %d\n", yystate);
  731.  
  732. /* Do appropriate processing given the current state.  */
  733. /* Read a lookahead token if we need one and don't already have one.  */
  734. yyresume:
  735.  
  736.   /* First try to decide what to do without reference to lookahead token.  */
  737.  
  738.   yyn = yypact[yystate];
  739.   if (yyn == YYFLAG)
  740.     goto yydefault;
  741.  
  742.   /* Not known => get a lookahead token if don't already have one.  */
  743.  
  744.   /* yychar is either YYEMPTY or YYEOF
  745.      or a valid token in external form.  */
  746.  
  747.   if (yychar == YYEMPTY)
  748.     {
  749.       yychar = YYLEX;
  750.     }
  751.  
  752.   /* Convert token to internal form (in yychar1) for indexing tables with */
  753.  
  754.   if (yychar <= 0)        /* This means end of input. */
  755.     {
  756.       yychar1 = 0;
  757.       yychar = YYEOF;        /* Don't call YYLEX any more */
  758.  
  759.       if (yydebug)
  760.     fprintf(stderr, "Now at end of input.\n");
  761.     }
  762.   else
  763.     {
  764.       yychar1 = YYTRANSLATE(yychar);
  765.  
  766.       if (yydebug)
  767.     fprintf(stderr, "Parsing next token; it is %d (%s)\n", yychar, yytname[yychar1]);
  768.     }
  769.  
  770.   yyn += yychar1;
  771.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  772.     goto yydefault;
  773.  
  774.   yyn = yytable[yyn];
  775.  
  776.   /* yyn is what to do for this token type in this state.
  777.      Negative => reduce, -yyn is rule number.
  778.      Positive => shift, yyn is new state.
  779.        New state is final state => don't bother to shift,
  780.        just return success.
  781.      0, or most negative number => error.  */
  782.  
  783.   if (yyn < 0)
  784.     {
  785.       if (yyn == YYFLAG)
  786.     goto yyerrlab;
  787.       yyn = -yyn;
  788.       goto yyreduce;
  789.     }
  790.   else if (yyn == 0)
  791.     goto yyerrlab;
  792.  
  793.   if (yyn == YYFINAL)
  794.     YYACCEPT;
  795.  
  796.   /* Shift the lookahead token.  */
  797.  
  798.   if (yydebug)
  799.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  800.  
  801.   /* Discard the token being shifted unless it is eof.  */
  802.   if (yychar != YYEOF)
  803.     yychar = YYEMPTY;
  804.  
  805.   *++yyvsp = yylval;
  806.   *++yylsp = yylloc;
  807.  
  808.   /* count tokens shifted since error; after three, turn off error status.  */
  809.   if (yyerrstatus) yyerrstatus--;
  810.  
  811.   yystate = yyn;
  812.   goto yynewstate;
  813.  
  814. /* Do the default action for the current state.  */
  815. yydefault:
  816.  
  817.   yyn = yydefact[yystate];
  818.   if (yyn == 0)
  819.     goto yyerrlab;
  820.  
  821. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  822. yyreduce:
  823.   yylen = yyr2[yyn];
  824.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  825.  
  826.   if (yydebug)
  827.     {
  828.       if (yylen == 1)
  829.     fprintf (stderr, "Reducing 1 value via line %d, ",
  830.          yyrline[yyn]);
  831.       else
  832.     fprintf (stderr, "Reducing %d values via line %d, ",
  833.          yylen, yyrline[yyn]);
  834.     }
  835.  
  836.  
  837.   switch (yyn) {
  838.  
  839. case 1:
  840. #line 234 "awk.y"
  841. { expression_value = yyvsp[0].nodeval; ;
  842.     break;}
  843. case 2:
  844. #line 239 "awk.y"
  845. { 
  846.             if (yyvsp[0].nodeval != NULL)
  847.                 yyval.nodeval = node (yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL);
  848.             else
  849.                 yyval.nodeval = NULL;
  850.             yyerrok;
  851.         ;
  852.     break;}
  853. case 3:
  854. #line 248 "awk.y"
  855. {
  856.             if (yyvsp[0].nodeval == NULL)
  857.                 yyval.nodeval = yyvsp[-1].nodeval;
  858.             else if (yyvsp[-1].nodeval == NULL)
  859.                 yyval.nodeval = node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL);
  860.             else
  861.                 yyval.nodeval = append_right (yyvsp[-1].nodeval,
  862.                    node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL));
  863.             yyerrok;
  864.         ;
  865.     break;}
  866. case 4:
  867. #line 258 "awk.y"
  868. { yyval.nodeval = NULL; ;
  869.     break;}
  870. case 6:
  871. #line 264 "awk.y"
  872. {
  873.         if (begin_block)
  874.             append_right (begin_block, node(
  875.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  876.                 Node_rule_list, (NODE *)NULL) );
  877.         else
  878.             begin_block = node(node((NODE *)NULL,Node_rule_node,yyvsp[0].nodeval),
  879.                 Node_rule_list, (NODE *)NULL);
  880.         yyval.nodeval = NULL;
  881.         yyerrok;
  882.       ;
  883.     break;}
  884. case 7:
  885. #line 276 "awk.y"
  886. {
  887.         if (end_block)
  888.             append_right (end_block, node(
  889.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  890.                 Node_rule_list, (NODE *)NULL));
  891.         else
  892.             end_block = node(node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  893.                 Node_rule_list, (NODE *)NULL);
  894.         yyval.nodeval = NULL;
  895.         yyerrok;
  896.       ;
  897.     break;}
  898. case 8:
  899. #line 288 "awk.y"
  900. {
  901.         msg ("error near line %d: BEGIN blocks must have an action part", lineno);
  902.         errcount++;
  903.         yyerrok;
  904.       ;
  905.     break;}
  906. case 9:
  907. #line 294 "awk.y"
  908. {
  909.         msg ("error near line %d: END blocks must have an action part", lineno);
  910.         errcount++;
  911.         yyerrok;
  912.       ;
  913.     break;}
  914. case 10:
  915. #line 300 "awk.y"
  916. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  917.     break;}
  918. case 11:
  919. #line 302 "awk.y"
  920. { if(yyvsp[-1].nodeval) yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, (NODE *)NULL); yyerrok; ;
  921.     break;}
  922. case 12:
  923. #line 304 "awk.y"
  924. {
  925.             /*obstack_free(&var_stack, func_def);*/
  926.             func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
  927.             yyval.nodeval = NULL;
  928.             yyerrok;
  929.         ;
  930.     break;}
  931. case 13:
  932. #line 314 "awk.y"
  933. {
  934.             func_def = (char *) obstack_alloc(&var_stack, 0);
  935.             param_counter = 0;
  936.         ;
  937.     break;}
  938. case 14:
  939. #line 319 "awk.y"
  940. {
  941.             yyval.nodeval = append_right(make_param(yyvsp[-5].sval), yyvsp[-2].nodeval);
  942.         ;
  943.     break;}
  944. case 15:
  945. #line 326 "awk.y"
  946. { yyval.nodeval = yyvsp[-2].nodeval; ;
  947.     break;}
  948. case 16:
  949. #line 331 "awk.y"
  950. { yyval.nodeval = NULL; ;
  951.     break;}
  952. case 17:
  953. #line 333 "awk.y"
  954. { yyval.nodeval = yyvsp[0].nodeval; ;
  955.     break;}
  956. case 18:
  957. #line 335 "awk.y"
  958. { 
  959.           yyval.nodeval = node(
  960.                node(make_number((AWKNUM)0),Node_field_spec,(NODE*)NULL),
  961.                Node_match, yyvsp[0].nodeval);
  962.         ;
  963.     break;}
  964. case 19:
  965. #line 341 "awk.y"
  966. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  967.     break;}
  968. case 20:
  969. #line 343 "awk.y"
  970. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  971.     break;}
  972. case 21:
  973. #line 345 "awk.y"
  974. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  975.     break;}
  976. case 22:
  977. #line 347 "awk.y"
  978. { yyval.nodeval = yyvsp[-1].nodeval; ;
  979.     break;}
  980. case 23:
  981. #line 349 "awk.y"
  982. { yyval.nodeval = mkrangenode ( node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval) ); ;
  983.     break;}
  984. case 24:
  985. #line 356 "awk.y"
  986. { ++want_regexp; ;
  987.     break;}
  988. case 25:
  989. #line 358 "awk.y"
  990. { want_regexp = 0;
  991.           rp = mk_re_parse(yyvsp[-1].sval);
  992.           yyval.nodeval = node((NODE *)NULL, Node_regex, (NODE *)rp);
  993.         ;
  994.     break;}
  995. case 26:
  996. #line 366 "awk.y"
  997. {
  998.             /* empty actions are different from missing actions */
  999.             yyval.nodeval = node ((NODE *) NULL, Node_illegal, (NODE *) NULL);
  1000.         ;
  1001.     break;}
  1002. case 27:
  1003. #line 371 "awk.y"
  1004. { yyval.nodeval = yyvsp[-1].nodeval ; ;
  1005.     break;}
  1006. case 28:
  1007. #line 376 "awk.y"
  1008. { yyval.nodeval = node (yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL); ;
  1009.     break;}
  1010. case 29:
  1011. #line 378 "awk.y"
  1012. {
  1013.                 yyval.nodeval = append_right(yyvsp[-1].nodeval,
  1014.                 node( yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL));
  1015.                 yyerrok;
  1016.         ;
  1017.     break;}
  1018. case 30:
  1019. #line 384 "awk.y"
  1020. { yyval.nodeval = NULL; ;
  1021.     break;}
  1022. case 32:
  1023. #line 390 "awk.y"
  1024. { yyval.nodetypeval = Node_illegal; want_redirect = 0; ;
  1025.     break;}
  1026. case 33:
  1027. #line 392 "awk.y"
  1028. { yyval.nodetypeval = Node_illegal; want_redirect = 0; ;
  1029.     break;}
  1030. case 34:
  1031. #line 397 "awk.y"
  1032. { yyval.nodetypeval = Node_illegal; ;
  1033.     break;}
  1034. case 35:
  1035. #line 399 "awk.y"
  1036. { yyval.nodetypeval = Node_illegal; ;
  1037.     break;}
  1038. case 36:
  1039. #line 401 "awk.y"
  1040. { yyval.nodetypeval = Node_illegal; ;
  1041.     break;}
  1042. case 37:
  1043. #line 403 "awk.y"
  1044. { yyval.nodetypeval = Node_illegal; ;
  1045.     break;}
  1046. case 38:
  1047. #line 405 "awk.y"
  1048. { yyval.nodetypeval = Node_illegal; ;
  1049.     break;}
  1050. case 39:
  1051. #line 410 "awk.y"
  1052. { yyval.nodeval = NULL; ;
  1053.     break;}
  1054. case 40:
  1055. #line 412 "awk.y"
  1056. { yyval.nodeval = yyvsp[-2].nodeval; ;
  1057.     break;}
  1058. case 41:
  1059. #line 414 "awk.y"
  1060. { yyval.nodeval = yyvsp[0].nodeval; ;
  1061.     break;}
  1062. case 42:
  1063. #line 416 "awk.y"
  1064. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
  1065.     break;}
  1066. case 43:
  1067. #line 418 "awk.y"
  1068. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
  1069.     break;}
  1070. case 44:
  1071. #line 420 "awk.y"
  1072. { yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop (yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval)); ;
  1073.     break;}
  1074. case 45:
  1075. #line 422 "awk.y"
  1076. { yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop (yyvsp[-6].nodeval, (NODE *)NULL, yyvsp[-3].nodeval)); ;
  1077.     break;}
  1078. case 46:
  1079. #line 424 "awk.y"
  1080. {
  1081.             yyval.nodeval = node (yyvsp[0].nodeval, Node_K_arrayfor,
  1082.                 make_for_loop(variable(yyvsp[-6].sval),
  1083.                     (NODE *)NULL, variable(yyvsp[-3].sval)));
  1084.         ;
  1085.     break;}
  1086. case 47:
  1087. #line 431 "awk.y"
  1088. { yyval.nodeval = node ((NODE *)NULL, Node_K_break, (NODE *)NULL); ;
  1089.     break;}
  1090. case 48:
  1091. #line 434 "awk.y"
  1092. { yyval.nodeval = node ((NODE *)NULL, Node_K_continue, (NODE *)NULL); ;
  1093.     break;}
  1094. case 49:
  1095. #line 436 "awk.y"
  1096. { ++want_redirect; ;
  1097.     break;}
  1098. case 50:
  1099. #line 438 "awk.y"
  1100. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_print, yyvsp[-1].nodeval); ;
  1101.     break;}
  1102. case 51:
  1103. #line 440 "awk.y"
  1104. { ++want_redirect; want_concat_token = 0; ;
  1105.     break;}
  1106. case 52:
  1107. #line 442 "awk.y"
  1108. { yyval.nodeval = node (yyvsp[-4].nodeval, Node_K_print, yyvsp[-1].nodeval); ;
  1109.     break;}
  1110. case 53:
  1111. #line 444 "awk.y"
  1112. { ++want_redirect; ;
  1113.     break;}
  1114. case 54:
  1115. #line 446 "awk.y"
  1116. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_printf, yyvsp[-1].nodeval); ;
  1117.     break;}
  1118. case 55:
  1119. #line 448 "awk.y"
  1120. { ++want_redirect; want_concat_token = 0; ;
  1121.     break;}
  1122. case 56:
  1123. #line 450 "awk.y"
  1124. { yyval.nodeval = node (yyvsp[-4].nodeval, Node_K_printf, yyvsp[-1].nodeval); ;
  1125.     break;}
  1126. case 57:
  1127. #line 452 "awk.y"
  1128. { yyval.nodeval = node ((NODE *)NULL, Node_K_next, (NODE *)NULL); ;
  1129.     break;}
  1130. case 58:
  1131. #line 454 "awk.y"
  1132. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_exit, (NODE *)NULL); ;
  1133.     break;}
  1134. case 59:
  1135. #line 456 "awk.y"
  1136. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_return, (NODE *)NULL); ;
  1137.     break;}
  1138. case 60:
  1139. #line 458 "awk.y"
  1140. { yyval.nodeval = node (variable(yyvsp[-4].sval), Node_K_delete, yyvsp[-2].nodeval); ;
  1141.     break;}
  1142. case 61:
  1143. #line 460 "awk.y"
  1144. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1145.     break;}
  1146. case 62:
  1147. #line 465 "awk.y"
  1148. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_if,
  1149.                 node (yyvsp[0].nodeval, Node_if_branches, (NODE *)NULL)); ;
  1150.     break;}
  1151. case 63:
  1152. #line 469 "awk.y"
  1153. { yyval.nodeval = node (yyvsp[-6].nodeval, Node_K_if,
  1154.                 node (yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
  1155.     break;}
  1156. case 65:
  1157. #line 476 "awk.y"
  1158. { yyval.nodetypeval = Node_illegal; ;
  1159.     break;}
  1160. case 66:
  1161. #line 481 "awk.y"
  1162. { want_redirect = 0; yyval.nodeval = NULL; ;
  1163.     break;}
  1164. case 67:
  1165. #line 483 "awk.y"
  1166. { want_redirect = 0; ;
  1167.     break;}
  1168. case 68:
  1169. #line 485 "awk.y"
  1170. { yyval.nodeval = node (yyvsp[0].nodeval, yyvsp[-2].nodetypeval, (NODE *)NULL); ;
  1171.     break;}
  1172. case 69:
  1173. #line 490 "awk.y"
  1174. { yyval.nodeval = NULL; ;
  1175.     break;}
  1176. case 71:
  1177. #line 497 "awk.y"
  1178. {
  1179.             yyval.nodeval = make_param(yyvsp[0].sval);
  1180.         ;
  1181.     break;}
  1182. case 72:
  1183. #line 501 "awk.y"
  1184. {
  1185.             yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval));
  1186.             yyerrok;
  1187.         ;
  1188.     break;}
  1189. case 73:
  1190. #line 506 "awk.y"
  1191. { yyval.nodeval = NULL; ;
  1192.     break;}
  1193. case 76:
  1194. #line 514 "awk.y"
  1195. { yyval.nodeval = NULL; /* node(NULL, Node_builtin, NULL); */ ;
  1196.     break;}
  1197. case 78:
  1198. #line 520 "awk.y"
  1199. { yyval.nodeval = NULL; ;
  1200.     break;}
  1201. case 79:
  1202. #line 522 "awk.y"
  1203. { yyval.nodeval = yyvsp[0].nodeval; ;
  1204.     break;}
  1205. case 80:
  1206. #line 527 "awk.y"
  1207. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1208.     break;}
  1209. case 81:
  1210. #line 529 "awk.y"
  1211. {
  1212.             yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1213.                 node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1214.             yyerrok;
  1215.         ;
  1216.     break;}
  1217. case 82:
  1218. #line 535 "awk.y"
  1219. { yyval.nodeval = NULL; ;
  1220.     break;}
  1221. case 87:
  1222. #line 544 "awk.y"
  1223. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_and, yyvsp[0].nodeval); ;
  1224.     break;}
  1225. case 88:
  1226. #line 546 "awk.y"
  1227. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_or, yyvsp[0].nodeval); ;
  1228.     break;}
  1229. case 89:
  1230. #line 548 "awk.y"
  1231. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  1232.     break;}
  1233. case 90:
  1234. #line 550 "awk.y"
  1235. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1236.     break;}
  1237. case 91:
  1238. #line 554 "awk.y"
  1239. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, yyvsp[-3].ptrval); ;
  1240.     break;}
  1241. case 92:
  1242. #line 556 "awk.y"
  1243. { yyval.nodeval = snode ((NODE *)NULL, Node_builtin, yyvsp[0].ptrval); ;
  1244.     break;}
  1245. case 93:
  1246. #line 558 "awk.y"
  1247. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1248.     break;}
  1249. case 94:
  1250. #line 560 "awk.y"
  1251. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1252.     break;}
  1253. case 95:
  1254. #line 562 "awk.y"
  1255. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-3].nodeval); ;
  1256.     break;}
  1257. case 96:
  1258. #line 564 "awk.y"
  1259. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-4].nodeval); ;
  1260.     break;}
  1261. case 97:
  1262. #line 566 "awk.y"
  1263. { yyval.nodeval = node(yyvsp[-1].nodeval, yyvsp[-5].nodetypeval, yyvsp[-3].nodeval); ;
  1264.     break;}
  1265. case 98:
  1266. #line 568 "awk.y"
  1267. { yyval.nodeval = node(yyvsp[-1].nodeval, yyvsp[-5].nodetypeval, yyvsp[-3].nodeval); ;
  1268.     break;}
  1269. case 99:
  1270. #line 570 "awk.y"
  1271. { yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1272.     break;}
  1273. case 100:
  1274. #line 572 "awk.y"
  1275. { yyval.nodeval = node(yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1276.     break;}
  1277. case 101:
  1278. #line 574 "awk.y"
  1279. {++want_redirect; ;
  1280.     break;}
  1281. case 102:
  1282. #line 576 "awk.y"
  1283. {
  1284.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1285.         ;
  1286.     break;}
  1287. case 103:
  1288. #line 580 "awk.y"
  1289. {
  1290.           yyval.nodeval = node (yyvsp[0].nodeval, Node_K_getline,
  1291.              node (yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *)NULL));
  1292.         ;
  1293.     break;}
  1294. case 104:
  1295. #line 585 "awk.y"
  1296. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1297.     break;}
  1298. case 105:
  1299. #line 587 "awk.y"
  1300. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
  1301.     break;}
  1302. case 106:
  1303. #line 589 "awk.y"
  1304. {
  1305.             yyval.nodeval = node (yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
  1306.         ;
  1307.     break;}
  1308. case 107:
  1309. #line 593 "awk.y"
  1310. { yyval.nodeval = node (yyvsp[0].nodeval, Node_unary_minus, (NODE *)NULL); ;
  1311.     break;}
  1312. case 108:
  1313. #line 595 "awk.y"
  1314. { yyval.nodeval = yyvsp[0].nodeval; ;
  1315.     break;}
  1316. case 109:
  1317. #line 597 "awk.y"
  1318. { yyval.nodeval = node (yyvsp[0].nodeval, Node_preincrement, (NODE *)NULL); ;
  1319.     break;}
  1320. case 110:
  1321. #line 599 "awk.y"
  1322. { yyval.nodeval = node (yyvsp[0].nodeval, Node_predecrement, (NODE *)NULL); ;
  1323.     break;}
  1324. case 111:
  1325. #line 601 "awk.y"
  1326. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postincrement, (NODE *)NULL); ;
  1327.     break;}
  1328. case 112:
  1329. #line 603 "awk.y"
  1330. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postdecrement, (NODE *)NULL); ;
  1331.     break;}
  1332. case 113:
  1333. #line 605 "awk.y"
  1334. { yyval.nodeval = yyvsp[0].nodeval; ;
  1335.     break;}
  1336. case 114:
  1337. #line 607 "awk.y"
  1338. { yyval.nodeval = make_number (yyvsp[0].fval); ;
  1339.     break;}
  1340. case 115:
  1341. #line 609 "awk.y"
  1342. { yyval.nodeval = make_string (yyvsp[0].sval, -1); ;
  1343.     break;}
  1344. case 116:
  1345. #line 613 "awk.y"
  1346. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
  1347.     break;}
  1348. case 117:
  1349. #line 615 "awk.y"
  1350. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
  1351.     break;}
  1352. case 118:
  1353. #line 617 "awk.y"
  1354. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
  1355.     break;}
  1356. case 119:
  1357. #line 619 "awk.y"
  1358. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
  1359.     break;}
  1360. case 120:
  1361. #line 621 "awk.y"
  1362. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
  1363.     break;}
  1364. case 121:
  1365. #line 623 "awk.y"
  1366. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
  1367.     break;}
  1368. case 122:
  1369. #line 626 "awk.y"
  1370. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1371.     break;}
  1372. case 123:
  1373. #line 628 "awk.y"
  1374. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1375.     break;}
  1376. case 124:
  1377. #line 633 "awk.y"
  1378. { yyval.nodeval = NULL; ;
  1379.     break;}
  1380. case 126:
  1381. #line 639 "awk.y"
  1382. { yyval.nodeval = variable (yyvsp[0].sval); ;
  1383.     break;}
  1384. case 127:
  1385. #line 641 "awk.y"
  1386. { yyval.nodeval = node (variable(yyvsp[-3].sval), Node_subscript, yyvsp[-1].nodeval); ;
  1387.     break;}
  1388. case 128:
  1389. #line 643 "awk.y"
  1390. { yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1391.     break;}
  1392. case 130:
  1393. #line 651 "awk.y"
  1394. { yyerrok; ;
  1395.     break;}
  1396. case 131:
  1397. #line 655 "awk.y"
  1398. { yyval.nodetypeval = Node_illegal; yyerrok; ;
  1399.     break;}
  1400. case 132:
  1401. #line 659 "awk.y"
  1402. { yyerrok; ;
  1403.     break;}
  1404. }
  1405.    /* the action file gets copied in in place of this dollarsign */
  1406. #line 303 "bison.simple"
  1407.  
  1408.   yyvsp -= yylen;
  1409.   yylsp -= yylen;
  1410.   yyssp -= yylen;
  1411.  
  1412.   if (yydebug)
  1413.     {
  1414.       short *ssp1 = yyss - 1;
  1415.       fprintf (stderr, "state stack now", yyssp-yyss);
  1416.       while (ssp1 != yyssp)
  1417.     fprintf (stderr, " %d", *++ssp1);
  1418.       fprintf (stderr, "\n");
  1419.     }
  1420.  
  1421.   *++yyvsp = yyval;
  1422.  
  1423.   yylsp++;
  1424.   if (yylen == 0)
  1425.     {
  1426.       yylsp->first_line = yylloc.first_line;
  1427.       yylsp->first_column = yylloc.first_column;
  1428.       yylsp->last_line = (yylsp-1)->last_line;
  1429.       yylsp->last_column = (yylsp-1)->last_column;
  1430.       yylsp->text = 0;
  1431.     }
  1432.   else
  1433.     {
  1434.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  1435.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  1436.     }
  1437.  
  1438.   /* Now "shift" the result of the reduction.
  1439.      Determine what state that goes to,
  1440.      based on the state we popped back to
  1441.      and the rule number reduced by.  */
  1442.  
  1443.   yyn = yyr1[yyn];
  1444.  
  1445.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  1446.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  1447.     yystate = yytable[yystate];
  1448.   else
  1449.     yystate = yydefgoto[yyn - YYNTBASE];
  1450.  
  1451.   goto yynewstate;
  1452.  
  1453. yyerrlab:   /* here on detecting error */
  1454.  
  1455.   if (! yyerrstatus)
  1456.     /* If not already recovering from an error, report this error.  */
  1457.     {
  1458.       yyerror("parse error");
  1459.     }
  1460.  
  1461.   if (yyerrstatus == 3)
  1462.     {
  1463.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  1464.  
  1465.       /* return failure if at end of input */
  1466.       if (yychar == YYEOF)
  1467.     YYERROR;
  1468.  
  1469.       if (yydebug)
  1470.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  1471.  
  1472.       yychar = YYEMPTY;
  1473.     }
  1474.  
  1475.   /* Else will try to reuse lookahead token
  1476.      after shifting the error token.  */
  1477.  
  1478.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  1479.  
  1480.   goto yyerrhandle;
  1481.  
  1482. yyerrdefault:  /* current state does not do anything special for the error token. */
  1483.  
  1484. #if 0
  1485.   /* This is wrong; only states that explicitly want error tokens
  1486.      should shift them.  */
  1487.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  1488.   if (yyn) goto yydefault;
  1489. #endif
  1490.  
  1491. yyerrpop:   /* pop the current state because it cannot handle the error token */
  1492.  
  1493.   if (yyssp == yyss) YYERROR;
  1494.   yyvsp--;
  1495.   yylsp--;
  1496.   yystate = *--yyssp;
  1497.  
  1498.   if (yydebug)
  1499.     {
  1500.       short *ssp1 = yyss - 1;
  1501.       fprintf (stderr, "Error: state stack now", yyssp-yyss);
  1502.       while (ssp1 != yyssp)
  1503.     fprintf (stderr, " %d", *++ssp1);
  1504.       fprintf (stderr, "\n");
  1505.     }
  1506.  
  1507. yyerrhandle:
  1508.  
  1509.   yyn = yypact[yystate];
  1510.   if (yyn == YYFLAG)
  1511.     goto yyerrdefault;
  1512.  
  1513.   yyn += YYTERROR;
  1514.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  1515.     goto yyerrdefault;
  1516.  
  1517.   yyn = yytable[yyn];
  1518.   if (yyn < 0)
  1519.     {
  1520.       if (yyn == YYFLAG)
  1521.     goto yyerrpop;
  1522.       yyn = -yyn;
  1523.       goto yyreduce;
  1524.     }
  1525.   else if (yyn == 0)
  1526.     goto yyerrpop;
  1527.  
  1528.   if (yyn == YYFINAL)
  1529.     YYACCEPT;
  1530.  
  1531.   if (yydebug)
  1532.     fprintf(stderr, "Shifting error token, ");
  1533.  
  1534.   *++yyvsp = yylval;
  1535.   *++yylsp = yylloc;
  1536.  
  1537.   yystate = yyn;
  1538.   goto yynewstate;
  1539. }
  1540.  
  1541. #line 662 "awk.y"
  1542.  
  1543.  
  1544. struct token {
  1545.     char *operator;
  1546.     NODETYPE value;
  1547.     int class;
  1548.     NODE *(*ptr) ();
  1549. };
  1550.  
  1551. #define NULL 0
  1552.  
  1553. NODE    *do_exp(),    *do_getline(),    *do_index(),    *do_length(),
  1554.     *do_sqrt(),    *do_log(),    *do_sprintf(),    *do_substr(),
  1555.     *do_split(),    *do_system(),    *do_int(),    *do_close(),
  1556.     *do_atan2(),    *do_sin(),    *do_cos(),    *do_rand(),
  1557.     *do_srand(),    *do_match();
  1558.  
  1559. /* Special functions for debugging */
  1560. #ifdef DEBUG
  1561. NODE *do_prvars(), *do_bp();
  1562. #endif
  1563.  
  1564. /* Tokentab is sorted ascii ascending order, so it can be binary searched. */
  1565.  
  1566. static struct token tokentab[] = {
  1567.     { "BEGIN",    Node_illegal,        LEX_BEGIN,    0 },
  1568.     { "END",    Node_illegal,        LEX_END,    0 },
  1569.     { "atan2",    Node_builtin,        LEX_BUILTIN,    do_atan2 },
  1570. #ifdef DEBUG
  1571.     { "bp",        Node_builtin,        LEX_BUILTIN,    do_bp },
  1572. #endif
  1573.     { "break",    Node_K_break,        LEX_BREAK,    0 },
  1574.     { "close",    Node_builtin,        LEX_BUILTIN,    do_close },
  1575.     { "continue",    Node_K_continue,    LEX_CONTINUE,    0 },
  1576.     { "cos",    Node_builtin,        LEX_BUILTIN,    do_cos },
  1577.     { "delete",    Node_K_delete,        LEX_DELETE,    0 },
  1578.     { "do",        Node_K_do,        LEX_DO,        0 },
  1579.     { "else",    Node_illegal,        LEX_ELSE,    0 },
  1580.     { "exit",    Node_K_exit,        LEX_EXIT,    0 },
  1581.     { "exp",    Node_builtin,        LEX_BUILTIN,    do_exp },
  1582.     { "for",    Node_K_for,        LEX_FOR,    0 },
  1583.     { "func",    Node_K_function,    LEX_FUNCTION,    0 },
  1584.     { "function",    Node_K_function,    LEX_FUNCTION,    0 },
  1585.     { "getline",    Node_K_getline,        LEX_GETLINE,    0 },
  1586.     { "gsub",    Node_gsub,        LEX_SUB,    0 },
  1587.     { "if",        Node_K_if,        LEX_IF,        0 },
  1588.     { "in",        Node_illegal,        LEX_IN,        0 },
  1589.     { "index",    Node_builtin,        LEX_BUILTIN,    do_index },
  1590.     { "int",    Node_builtin,        LEX_BUILTIN,    do_int },
  1591.     { "length",    Node_builtin,        LEX_BUILTIN,    do_length },
  1592.     { "log",    Node_builtin,        LEX_BUILTIN,    do_log },
  1593.     { "match",    Node_K_match,        LEX_MATCH,    0 },
  1594.     { "next",    Node_K_next,        LEX_NEXT,    0 },
  1595.     { "print",    Node_K_print,        LEX_PRINT,    0 },
  1596.     { "printf",    Node_K_printf,        LEX_PRINTF,    0 },
  1597. #ifdef DEBUG
  1598.     { "prvars",    Node_builtin,        LEX_BUILTIN,    do_prvars },
  1599. #endif
  1600.     { "rand",    Node_builtin,        LEX_BUILTIN,    do_rand },
  1601.     { "return",    Node_K_return,        LEX_RETURN,    0 },
  1602.     { "sin",    Node_builtin,        LEX_BUILTIN,    do_sin },
  1603.     { "split",    Node_builtin,        LEX_BUILTIN,    do_split },
  1604.     { "sprintf",    Node_builtin,        LEX_BUILTIN,    do_sprintf },
  1605.     { "sqrt",    Node_builtin,        LEX_BUILTIN,    do_sqrt },
  1606.     { "srand",    Node_builtin,        LEX_BUILTIN,    do_srand },
  1607.     { "sub",    Node_sub,        LEX_SUB,    0 },
  1608.     { "substr",    Node_builtin,        LEX_BUILTIN,    do_substr },
  1609.     { "system",    Node_builtin,        LEX_BUILTIN,    do_system },
  1610.     { "while",    Node_K_while,        LEX_WHILE,    0 },
  1611. };
  1612.  
  1613. /* VARARGS0 */
  1614. yyerror(va_alist)
  1615. va_dcl
  1616. {
  1617.     va_list args;
  1618.     char *mesg;
  1619.     char *a1;
  1620.     register char *ptr, *beg;
  1621.     static int list = 0;
  1622.     char *scan;
  1623. #ifdef OSK
  1624.     char oskbuf[50];
  1625. #endif
  1626.  
  1627.     errcount++;
  1628.     va_start(args);
  1629.     mesg = va_arg(args, char *);
  1630.     if (mesg || !list) {
  1631.         /* Find the current line in the input file */
  1632.         if (!lexptr) {
  1633.             beg = "(END OF FILE)";
  1634.             ptr = beg + 13;
  1635.         } else {
  1636.             if (*lexptr == '\n' && lexptr != lexptr_begin)
  1637.                 --lexptr;
  1638.             for (beg = lexptr; beg != lexptr_begin && *beg != '\n'; --beg)
  1639.                 ;
  1640.             /* NL isn't guaranteed */
  1641.             for (ptr = lexptr; *ptr && *ptr != '\n'; ptr++)
  1642.                 ;
  1643.             if (beg != lexptr_begin)
  1644.                 beg++;
  1645.         }
  1646. #ifdef OSK
  1647.         sprintf(oskbuf,"syntax error near line %%d:\n%%.%ds", ptr - beg);
  1648.         msg(oskbuf, lineno, beg);
  1649. #else
  1650.         msg("syntax error near line %d:\n%.*s", lineno, ptr - beg, beg);
  1651. #endif
  1652.         scan = beg;
  1653.         while (scan <= lexptr)
  1654.             if (*scan++ == '\t')
  1655.                 putc('\t', stderr);
  1656.             else
  1657.                 putc(' ', stderr);
  1658.         putc('^', stderr);
  1659.         putc(' ', stderr);
  1660.         if (mesg) {
  1661.             vfprintf(stderr, mesg, args);
  1662.             va_end(args);
  1663.                 putc('\n', stderr);
  1664.             exit(1);
  1665.         } else {
  1666.             a1 = va_arg(args, char *);
  1667.             if (a1) {
  1668.                 fputs("expecting: ", stderr);
  1669.                 fputs(a1, stderr);
  1670.                 list = 1;
  1671.                 va_end(args);
  1672.                 return;
  1673.             }
  1674.         }
  1675.         va_end(args);
  1676.         return;
  1677.     }
  1678.     a1 = va_arg(args, char *);
  1679.     if (a1) {
  1680.         fputs(" or ", stderr);
  1681.         fputs(a1, stderr);
  1682.         va_end(args);
  1683.         putc('\n', stderr);
  1684.         return;
  1685.     }
  1686.     putc('\n', stderr);
  1687.     list = 0;
  1688.     va_end(args);
  1689. }
  1690.  
  1691. /*
  1692.  * Parse a C escape sequence.  STRING_PTR points to a variable containing a
  1693.  * pointer to the string to parse.  That pointer is updated past the
  1694.  * characters we use.  The value of the escape sequence is returned. 
  1695.  *
  1696.  * A negative value means the sequence \ newline was seen, which is supposed to
  1697.  * be equivalent to nothing at all. 
  1698.  *
  1699.  * If \ is followed by a null character, we return a negative value and leave
  1700.  * the string pointer pointing at the null character. 
  1701.  *
  1702.  * If \ is followed by 000, we return 0 and leave the string pointer after the
  1703.  * zeros.  A value of 0 does not mean end of string.  
  1704.  */
  1705.  
  1706. static int
  1707. parse_escape(string_ptr)
  1708. char **string_ptr;
  1709. {
  1710.     register int c = *(*string_ptr)++;
  1711.  
  1712.     switch (c) {
  1713.     case 'b':
  1714.         return '\b';
  1715.     case 'f':
  1716.         return '\f';
  1717.     case 'n':
  1718.         return '\n';
  1719.     case 'r':
  1720.         return '\r';
  1721.     case 't':
  1722.         return '\t';
  1723.     case 'v':
  1724.         return '\v';
  1725.     case '\n':
  1726.         return -2;
  1727.     case 0:
  1728.         (*string_ptr)--;
  1729.         return 0;
  1730.     case '0':
  1731.     case '1':
  1732.     case '2':
  1733.     case '3':
  1734.     case '4':
  1735.     case '5':
  1736.     case '6':
  1737.     case '7':
  1738.         {
  1739.             register int i = c - '0';
  1740.             register int count = 0;
  1741.  
  1742.             while (++count < 3) {
  1743.                 if ((c = *(*string_ptr)++) >= '0' && c <= '7') {
  1744.                     i *= 8;
  1745.                     i += c - '0';
  1746.                 } else {
  1747.                     (*string_ptr)--;
  1748.                     break;
  1749.                 }
  1750.             }
  1751.             return i;
  1752.         }
  1753.     default:
  1754.         return c;
  1755.     }
  1756. }
  1757.  
  1758. /*
  1759.  * Read the input and turn it into tokens. Input is now read from a file
  1760.  * instead of from malloc'ed memory. The main program takes a program
  1761.  * passed as a command line argument and writes it to a temp file. Otherwise
  1762.  * the file name is made available in an external variable.
  1763.  */
  1764.  
  1765. int curinfile = -1;
  1766.  
  1767. static int
  1768. yylex()
  1769. {
  1770.     register int c;
  1771.     register int namelen;
  1772.     register char *tokstart;
  1773.     register struct token *tokptr;
  1774.     char *tokkey;
  1775.     extern double atof();    /* know what happens if you forget this? */
  1776.     static did_newline = 0;    /* the grammar insists that actions end
  1777.                  * with newlines.  This was easier than
  1778.                  * hacking the grammar. */
  1779.     int do_concat;
  1780.     int seen_e = 0;        /* These are for numbers */
  1781.     int seen_point = 0;
  1782.     extern char **sourcefile;
  1783.     extern int tempsource, numfiles;
  1784.     extern FILE *pathopen();
  1785.     static int file_opened = 0;
  1786.     static FILE *fin;
  1787.     static char cbuf[BUFSIZ];
  1788.     int low, mid, high;
  1789.     extern int debugging;
  1790.  
  1791.     if (! file_opened) {
  1792.         file_opened = 1;
  1793. #ifdef DEBUG
  1794.         if (debugging) {
  1795.             int i;
  1796.  
  1797.             for (i = 0; i <= numfiles; i++)
  1798.                 fprintf (stderr, "sourcefile[%d] = %s\n", i,
  1799.                         sourcefile[i]);
  1800.         }
  1801. #endif
  1802.     nextfile:
  1803.         if ((fin = pathopen (sourcefile[++curinfile])) == NULL)
  1804.             fatal("cannot open `%s' for reading (%s)",
  1805.                 sourcefile[curinfile],
  1806.                 sys_errlist[errno]);
  1807.         *(lexptr = cbuf) = '\0';
  1808.         /*
  1809.          * immediately unlink the tempfile so that it will
  1810.          * go away cleanly if we bomb.
  1811.          */
  1812.         if (tempsource && curinfile == 0)
  1813.             (void) unlink (sourcefile[curinfile]);
  1814.     }
  1815.  
  1816. retry:
  1817.     if (! *lexptr)
  1818.         if (fgets (cbuf, sizeof cbuf, fin) == NULL) {
  1819.             if (fin != NULL)
  1820.                 fclose (fin);    /* be neat and clean */
  1821.             if (curinfile < numfiles)
  1822.                 goto nextfile;
  1823.             return 0;
  1824.         } else
  1825.             lexptr = lexptr_begin = cbuf;
  1826.  
  1827.     if (want_regexp) {
  1828.         want_regexp = 0;
  1829.  
  1830.         /*
  1831.          * there is a potential bug if a regexp is followed by an
  1832.          * equal sign: "/foo/=bar" would result in assign_quotient
  1833.          * being returned as the next token.  Nothing is done about
  1834.          * it since it is not valid awk, but maybe something should
  1835.          * be done anyway. 
  1836.          */
  1837.  
  1838.         tokstart = lexptr;
  1839.         while (c = *lexptr++) {
  1840.             switch (c) {
  1841.             case '\\':
  1842.                 if (*lexptr++ == '\0') {
  1843.                     yyerror("unterminated regexp ends with \\");
  1844.                     return ERROR;
  1845.                 } else if (lexptr[-1] == '\n')
  1846.                     goto retry;
  1847.                 break;
  1848.             case '/':    /* end of the regexp */
  1849.                 lexptr--;
  1850.                 yylval.sval = tokstart;
  1851.                 return REGEXP;
  1852.             case '\n':
  1853.                 lineno++;
  1854.             case '\0':
  1855.                 yyerror("unterminated regexp");
  1856.                 return ERROR;
  1857.             }
  1858.         }
  1859.     }
  1860.     do_concat = want_concat_token;
  1861.     want_concat_token = 0;
  1862.  
  1863.     if (*lexptr == '\n') {
  1864.         lexptr++;
  1865.         lineno++;
  1866.         return NEWLINE;
  1867.     }
  1868.  
  1869.     /*
  1870.      * if lexptr is at white space between two terminal tokens or parens,
  1871.      * it is a concatenation operator. 
  1872.      */
  1873.     if (do_concat && (*lexptr == ' ' || *lexptr == '\t')) {
  1874.         while (*lexptr == ' ' || *lexptr == '\t')
  1875.             lexptr++;
  1876.         if (isalnum(*lexptr) || *lexptr == '_' || *lexptr == '\"' ||
  1877.             *lexptr == '(' || *lexptr == '.' || *lexptr == '$' ||
  1878.             (*lexptr == '+' && *(lexptr+1) == '+') ||
  1879.             (*lexptr == '-' && *(lexptr+1) == '-'))
  1880.                     /* the '.' is for decimal pt */
  1881.             return CONCAT_OP;
  1882.     }
  1883.     while (*lexptr == ' ' || *lexptr == '\t')
  1884.         lexptr++;
  1885.  
  1886.     tokstart = lexptr;
  1887.  
  1888.     switch (c = *lexptr++) {
  1889.     case 0:
  1890.         return 0;
  1891.  
  1892.     case '\n':
  1893.         lineno++;
  1894.         return NEWLINE;
  1895.  
  1896.     case '#':        /* it's a comment */
  1897.         while (*lexptr != '\n' && *lexptr != '\0')
  1898.             lexptr++;
  1899.         goto retry;
  1900.  
  1901.     case '\\':
  1902.         if (*lexptr == '\n') {
  1903.             lineno++;
  1904.             lexptr++;
  1905.             want_concat_token = do_concat;
  1906.             goto retry;
  1907.         } else
  1908.             break;
  1909.     case ')':
  1910.     case ']':
  1911.         ++want_concat_token;
  1912.         /* fall through */
  1913.     case '(':    
  1914.     case '[':
  1915.     case '$':
  1916.     case ';':
  1917.     case ':':
  1918.     case '?':
  1919.  
  1920.         /*
  1921.          * set node type to ILLEGAL because the action should set it
  1922.          * to the right thing 
  1923.          */
  1924.         yylval.nodetypeval = Node_illegal;
  1925.         return c;
  1926.  
  1927.     case '{':
  1928.     case ',':
  1929.         while (isspace(*lexptr)) {
  1930.             if (*lexptr == '\n')
  1931.                 lineno++;
  1932.             lexptr++;
  1933.         }
  1934.         yylval.nodetypeval = Node_illegal;
  1935.         return c;
  1936.  
  1937.     case '*':
  1938.         if (*lexptr == '=') {
  1939.             yylval.nodetypeval = Node_assign_times;
  1940.             lexptr++;
  1941.             return ASSIGNOP;
  1942.         } else if (*lexptr == '*') {    /* make ** and **= aliases
  1943.                          * for ^ and ^= */
  1944.             if (lexptr[1] == '=') {
  1945.                 yylval.nodetypeval = Node_assign_exp;
  1946.                 lexptr += 2;
  1947.                 return ASSIGNOP;
  1948.             } else {
  1949.                 yylval.nodetypeval = Node_illegal;
  1950.                 lexptr++;
  1951.                 return '^';
  1952.             }
  1953.         }
  1954.         yylval.nodetypeval = Node_illegal;
  1955.         return c;
  1956.  
  1957.     case '/':
  1958.         if (*lexptr == '=') {
  1959.             yylval.nodetypeval = Node_assign_quotient;
  1960.             lexptr++;
  1961.             return ASSIGNOP;
  1962.         }
  1963.         yylval.nodetypeval = Node_illegal;
  1964.         return c;
  1965.  
  1966.     case '%':
  1967.         if (*lexptr == '=') {
  1968.             yylval.nodetypeval = Node_assign_mod;
  1969.             lexptr++;
  1970.             return ASSIGNOP;
  1971.         }
  1972.         yylval.nodetypeval = Node_illegal;
  1973.         return c;
  1974.  
  1975.     case '^':
  1976.         if (*lexptr == '=') {
  1977.             yylval.nodetypeval = Node_assign_exp;
  1978.             lexptr++;
  1979.             return ASSIGNOP;
  1980.         }
  1981.         yylval.nodetypeval = Node_illegal;
  1982.         return c;
  1983.  
  1984.     case '+':
  1985.         if (*lexptr == '=') {
  1986.             yylval.nodetypeval = Node_assign_plus;
  1987.             lexptr++;
  1988.             return ASSIGNOP;
  1989.         }
  1990.         if (*lexptr == '+') {
  1991.             yylval.nodetypeval = Node_illegal;
  1992.             lexptr++;
  1993.             return INCREMENT;
  1994.         }
  1995.         yylval.nodetypeval = Node_illegal;
  1996.         return c;
  1997.  
  1998.     case '!':
  1999.         if (*lexptr == '=') {
  2000.             yylval.nodetypeval = Node_notequal;
  2001.             lexptr++;
  2002.             return RELOP;
  2003.         }
  2004.         if (*lexptr == '~') {
  2005.             yylval.nodetypeval = Node_nomatch;
  2006.             if (! strict && lexptr[1] == '~') {
  2007.                 yylval.nodetypeval = Node_case_nomatch;
  2008.                 lexptr++;
  2009.             }
  2010.             lexptr++;
  2011.             return MATCHOP;
  2012.         }
  2013.         yylval.nodetypeval = Node_illegal;
  2014.         return c;
  2015.  
  2016.     case '<':
  2017.         if (want_redirect) {
  2018.             yylval.nodetypeval = Node_redirect_input;
  2019.             return REDIRECT_OP;
  2020.         }
  2021.         if (*lexptr == '=') {
  2022.             yylval.nodetypeval = Node_leq;
  2023.             lexptr++;
  2024.             return RELOP;
  2025.         }
  2026.         yylval.nodetypeval = Node_less;
  2027.         return RELOP;
  2028.  
  2029.     case '=':
  2030.         if (*lexptr == '=') {
  2031.             yylval.nodetypeval = Node_equal;
  2032.             lexptr++;
  2033.             return RELOP;
  2034.         }
  2035.         yylval.nodetypeval = Node_assign;
  2036.         return ASSIGNOP;
  2037.  
  2038.     case '>':
  2039.         if (want_redirect) {
  2040.             if (*lexptr == '>') {
  2041.                 yylval.nodetypeval = Node_redirect_append;
  2042.                 lexptr++;
  2043.             } else
  2044.                 yylval.nodetypeval = Node_redirect_output;
  2045.             return REDIRECT_OP;
  2046.         }
  2047.         if (*lexptr == '=') {
  2048.             yylval.nodetypeval = Node_geq;
  2049.             lexptr++;
  2050.             return RELOP;
  2051.         }
  2052.         yylval.nodetypeval = Node_greater;
  2053.         return RELOP;
  2054.  
  2055.     case '~':
  2056.         yylval.nodetypeval = Node_match;
  2057.         if (! strict && *lexptr == '~') {
  2058.             yylval.nodetypeval = Node_case_match;
  2059.             lexptr++;
  2060.         }
  2061.         return MATCHOP;
  2062.  
  2063.     case '}':
  2064.         /*
  2065.          * Added did newline stuff.  Easier than
  2066.          * hacking the grammar
  2067.          */
  2068.         if (did_newline) {
  2069.             did_newline = 0;
  2070.             return c;
  2071.         }
  2072.         did_newline++;
  2073.         --lexptr;
  2074.         return NEWLINE;
  2075.  
  2076.     case '"':
  2077.         while (*lexptr != '\0') {
  2078.             switch (*lexptr++) {
  2079.             case '\\':
  2080.                 if (*lexptr++ != '\0')
  2081.                     break;
  2082.                 /* fall through */
  2083.             case '\n':
  2084.                 yyerror("unterminated string");
  2085.                 return ERROR;
  2086.             case '\"':
  2087.                 /* Skip the doublequote */
  2088.                 yylval.sval = tokstart + 1;
  2089.                 ++want_concat_token;
  2090.                 return YSTRING;
  2091.             }
  2092.         }
  2093.         return ERROR;
  2094.  
  2095.     case '-':
  2096.         if (*lexptr == '=') {
  2097.             yylval.nodetypeval = Node_assign_minus;
  2098.             lexptr++;
  2099.             return ASSIGNOP;
  2100.         }
  2101.         if (*lexptr == '-') {
  2102.             yylval.nodetypeval = Node_illegal;
  2103.             lexptr++;
  2104.             return DECREMENT;
  2105.         }
  2106.  
  2107.         /*
  2108.          * It looks like space tab comma and newline are the legal
  2109.          * places for a UMINUS.  Have we missed any? 
  2110.          */
  2111.         if ((! isdigit(*lexptr) && *lexptr != '.') ||
  2112.             (lexptr > lexptr_begin + 1 &&
  2113.                     ! index(" \t,\n", lexptr[-2]))) {
  2114.  
  2115.             /*
  2116.              * set node type to ILLEGAL because the action should
  2117.              * set it to the right thing 
  2118.              */
  2119.             yylval.nodetypeval = Node_illegal;
  2120.             return c;
  2121.         }
  2122.         /* FALL through into number code */
  2123.     case '0':
  2124.     case '1':
  2125.     case '2':
  2126.     case '3':
  2127.     case '4':
  2128.     case '5':
  2129.     case '6':
  2130.     case '7':
  2131.     case '8':
  2132.     case '9':
  2133.     case '.':
  2134.         /* It's a number */
  2135.         if (c == '-')
  2136.             namelen = 1;
  2137.         else
  2138.             namelen = 0;
  2139.         for (; (c = tokstart[namelen]) != '\0'; namelen++) {
  2140.             switch (c) {
  2141.             case '.':
  2142.                 if (seen_point)
  2143.                     goto got_number;
  2144.                 ++seen_point;
  2145.                 break;
  2146.             case 'e':
  2147.             case 'E':
  2148.                 if (seen_e)
  2149.                     goto got_number;
  2150.                 ++seen_e;
  2151.                 if (tokstart[namelen + 1] == '-' || tokstart[namelen + 1] == '+')
  2152.                     namelen++;
  2153.                 break;
  2154.             case '0':
  2155.             case '1':
  2156.             case '2':
  2157.             case '3':
  2158.             case '4':
  2159.             case '5':
  2160.             case '6':
  2161.             case '7':
  2162.             case '8':
  2163.             case '9':
  2164.                 break;
  2165.             default:
  2166.                 goto got_number;
  2167.             }
  2168.         }
  2169.  
  2170. got_number:
  2171.         lexptr = tokstart + namelen;
  2172.         yylval.fval = atof(tokstart);
  2173.         ++want_concat_token;
  2174.         return NUMBER;
  2175.  
  2176.     case '&':
  2177.         if (*lexptr == '&') {
  2178.             yylval.nodetypeval = Node_and;
  2179.             lexptr++;
  2180.             return LEX_AND;
  2181.         }
  2182.         return ERROR;
  2183.  
  2184.     case '|':
  2185.         if (*lexptr == '|') {
  2186.             yylval.nodetypeval = Node_or;
  2187.             lexptr++;
  2188.             return LEX_OR;
  2189.         } else if (want_redirect) {
  2190.             yylval.nodetypeval = Node_redirect_pipe;
  2191.             return REDIRECT_OP;
  2192.         } else {
  2193.             yylval.nodetypeval = Node_illegal;
  2194.             return c;
  2195.         }
  2196.         break;
  2197.     }
  2198.  
  2199.     if (c != '_' && !isalpha(c)) {
  2200.         yyerror("Invalid char '%c' in expression\n", c);
  2201.         return ERROR;
  2202.     }
  2203.  
  2204.     /* it's some type of name-type-thing.  Find its length */
  2205.     for (namelen = 0; is_identchar(tokstart[namelen]); namelen++)
  2206.         /* null */ ;
  2207.     emalloc(tokkey, char *, namelen+1, "yylex");
  2208.     strncpy (tokkey, tokstart, namelen);
  2209.     tokkey[namelen] = '\0';
  2210.  
  2211.     /* See if it is a special token.  */
  2212.     low = 0;
  2213.     high = (sizeof (tokentab) / sizeof (tokentab[0])) - 1;
  2214.     while (low <= high) {
  2215.         int i, c;
  2216.  
  2217.         mid = (low + high) / 2;
  2218.  
  2219.     compare:
  2220.         c = *tokstart - tokentab[mid].operator[0];
  2221.         i = c ? c : strcmp (tokkey, tokentab[mid].operator);
  2222.  
  2223.         if (i < 0) {        /* token < mid */
  2224.             high = mid - 1;
  2225.         } else if (i > 0) {    /* token > mid */
  2226.             low = mid + 1;
  2227.         } else {
  2228.             lexptr = tokstart + namelen;
  2229.             if (tokentab[mid].class == LEX_BUILTIN)
  2230.                 yylval.ptrval = tokentab[mid].ptr;
  2231.             else
  2232.                 yylval.nodetypeval = tokentab[mid].value;
  2233.             if (tokentab[mid].class == LEX_PRINT)
  2234.                 want_redirect++;
  2235.             return tokentab[mid].class;
  2236.         }
  2237.     }
  2238.  
  2239.     /* It's a name.  See how long it is.  */
  2240.     yylval.sval = tokkey;
  2241.     lexptr = tokstart + namelen;
  2242.     ++want_concat_token;
  2243.     return NAME;
  2244. }
  2245.  
  2246. #ifndef DEFPATH
  2247. #ifdef OSK
  2248. #define DEFPATH    ".:/h0/usr/lib/awk:/h0/usr/local/lib/awk"
  2249. #else
  2250. #define DEFPATH    ".:/usr/lib/awk:/usr/local/lib/awk"
  2251. #endif
  2252. #endif
  2253.  
  2254. FILE *
  2255. pathopen (file)
  2256. char *file;
  2257. {
  2258.     static char defpath[] = DEFPATH;
  2259.     static char *savepath;
  2260.     static int first = 1;
  2261.     extern char *getenv ();
  2262.     char *awkpath, *cp;
  2263.     char trypath[BUFSIZ];
  2264.     FILE *fp;
  2265.     extern int debugging;
  2266.  
  2267.     if (strict)
  2268.         return (fopen (file, "r"));
  2269.  
  2270.     if (first) {
  2271.         first = 0;
  2272.         if ((awkpath = getenv ("AWKPATH")) == NULL || ! *awkpath)
  2273.             awkpath = defpath;
  2274.         savepath = awkpath;    /* savepath used for restarting */
  2275.     } else
  2276.         awkpath = savepath;
  2277.  
  2278.     if (index (file, '/') != NULL)    /* some kind of path name, no search */
  2279.         return (fopen (file, "r"));
  2280.  
  2281.     do {
  2282.         for (cp = trypath; *awkpath && *awkpath != ':'; )
  2283.             *cp++ = *awkpath++;
  2284.         *cp++ = '/';
  2285.         *cp = '\0';    /* clear left over junk */
  2286.         strcat (cp, file);
  2287.         if ((fp = fopen (trypath, "r")) != NULL)
  2288.             return (fp);
  2289.  
  2290.         /* no luck, keep going */
  2291.         awkpath++;    /* skip colon */
  2292.     } while (*awkpath);
  2293.     return (NULL);
  2294. }
  2295.