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