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