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