+/* A Bison parser, made by GNU Bison 2.3. */
-/* A Bison parser, made from /usr/src/local/chet/src/bash/src/parse.y
- by GNU Bison version 1.28 */
-
-#define YYBISON 1 /* Identify Bison output. */
-
-#define IF 257
-#define THEN 258
-#define ELSE 259
-#define ELIF 260
-#define FI 261
-#define CASE 262
-#define ESAC 263
-#define FOR 264
-#define SELECT 265
-#define WHILE 266
-#define UNTIL 267
-#define DO 268
-#define DONE 269
-#define FUNCTION 270
-#define COND_START 271
-#define COND_END 272
-#define COND_ERROR 273
-#define IN 274
-#define BANG 275
-#define TIME 276
-#define TIMEOPT 277
-#define WORD 278
-#define ASSIGNMENT_WORD 279
-#define NUMBER 280
-#define ARITH_CMD 281
-#define ARITH_FOR_EXPRS 282
-#define COND_CMD 283
-#define AND_AND 284
-#define OR_OR 285
-#define GREATER_GREATER 286
-#define LESS_LESS 287
-#define LESS_AND 288
-#define LESS_LESS_LESS 289
-#define GREATER_AND 290
-#define SEMI_SEMI 291
-#define LESS_LESS_MINUS 292
-#define AND_GREATER 293
-#define LESS_GREATER 294
-#define GREATER_BAR 295
-#define yacc_EOF 296
-
-#line 21 "/usr/src/local/chet/src/bash/src/parse.y"
+/* Skeleton implementation for Bison's Yacc-like parsers in C
+
+ Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+ Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ Boston, MA 02110-1301, USA. */
+
+/* As a special exception, you may create a larger work that contains
+ part or all of the Bison parser skeleton and distribute that work
+ under terms of your choice, so long as that work isn't itself a
+ parser generator using the skeleton or a modified version thereof
+ as a parser skeleton. Alternatively, if you modify or redistribute
+ the parser skeleton itself, you may (at your option) remove this
+ special exception, which will cause the skeleton and the resulting
+ Bison output files to be licensed under the GNU General Public
+ License without this special exception.
+
+ This special exception was added by the Free Software Foundation in
+ version 2.2 of Bison. */
+
+/* C LALR(1) parser skeleton written by Richard Stallman, by
+ simplifying the original so-called "semantic" parser. */
+
+/* All symbols defined below should begin with yy or YY, to avoid
+ infringing on user name space. This should be done even for local
+ variables, as they might otherwise be expanded by user macros.
+ There are some unavoidable exceptions within include files to
+ define necessary library symbols; they are noted "INFRINGES ON
+ USER NAME SPACE" below. */
+
+/* Identify Bison output. */
+#define YYBISON 1
+
+/* Bison version. */
+#define YYBISON_VERSION "2.3"
+
+/* Skeleton name. */
+#define YYSKELETON_NAME "yacc.c"
+
+/* Pure parsers. */
+#define YYPURE 0
+
+/* Using locations. */
+#define YYLSP_NEEDED 0
+
+
+
+/* Tokens. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ /* Put the tokens into the symbol table, so that GDB and other debuggers
+ know about them. */
+ enum yytokentype {
+ IF = 258,
+ THEN = 259,
+ ELSE = 260,
+ ELIF = 261,
+ FI = 262,
+ CASE = 263,
+ ESAC = 264,
+ FOR = 265,
+ SELECT = 266,
+ WHILE = 267,
+ UNTIL = 268,
+ DO = 269,
+ DONE = 270,
+ FUNCTION = 271,
+ COPROC = 272,
+ COND_START = 273,
+ COND_END = 274,
+ COND_ERROR = 275,
+ IN = 276,
+ BANG = 277,
+ TIME = 278,
+ TIMEOPT = 279,
+ WORD = 280,
+ ASSIGNMENT_WORD = 281,
+ NUMBER = 282,
+ ARITH_CMD = 283,
+ ARITH_FOR_EXPRS = 284,
+ COND_CMD = 285,
+ AND_AND = 286,
+ OR_OR = 287,
+ GREATER_GREATER = 288,
+ LESS_LESS = 289,
+ LESS_AND = 290,
+ LESS_LESS_LESS = 291,
+ GREATER_AND = 292,
+ SEMI_SEMI = 293,
+ SEMI_AND = 294,
+ SEMI_SEMI_AND = 295,
+ LESS_LESS_MINUS = 296,
+ AND_GREATER = 297,
+ AND_GREATER_GREATER = 298,
+ LESS_GREATER = 299,
+ GREATER_BAR = 300,
+ BAR_AND = 301,
+ yacc_EOF = 302
+ };
+#endif
+/* Tokens. */
+#define IF 258
+#define THEN 259
+#define ELSE 260
+#define ELIF 261
+#define FI 262
+#define CASE 263
+#define ESAC 264
+#define FOR 265
+#define SELECT 266
+#define WHILE 267
+#define UNTIL 268
+#define DO 269
+#define DONE 270
+#define FUNCTION 271
+#define COPROC 272
+#define COND_START 273
+#define COND_END 274
+#define COND_ERROR 275
+#define IN 276
+#define BANG 277
+#define TIME 278
+#define TIMEOPT 279
+#define WORD 280
+#define ASSIGNMENT_WORD 281
+#define NUMBER 282
+#define ARITH_CMD 283
+#define ARITH_FOR_EXPRS 284
+#define COND_CMD 285
+#define AND_AND 286
+#define OR_OR 287
+#define GREATER_GREATER 288
+#define LESS_LESS 289
+#define LESS_AND 290
+#define LESS_LESS_LESS 291
+#define GREATER_AND 292
+#define SEMI_SEMI 293
+#define SEMI_AND 294
+#define SEMI_SEMI_AND 295
+#define LESS_LESS_MINUS 296
+#define AND_GREATER 297
+#define AND_GREATER_GREATER 298
+#define LESS_GREATER 299
+#define GREATER_BAR 300
+#define BAR_AND 301
+#define yacc_EOF 302
+
+
+
+
+/* Copy the first part of user declarations. */
+#line 21 "/Users/chet/src/bash/src/parse.y"
#include "config.h"
extern int eof_encountered;
extern int no_line_editing, running_under_emacs;
extern int current_command_number;
-extern int sourcelevel;
+extern int sourcelevel, parse_and_execute_level;
extern int posixly_correct;
extern int last_command_exit_value;
-extern int interrupt_immediately;
extern char *shell_name, *current_host_name;
extern char *dist_version;
extern int patch_level;
static int yy_string_get __P((void));
static int yy_string_unget __P((int));
+static void rewind_input_string __P((void));
static int yy_stream_get __P((void));
static int yy_stream_unget __P((int));
static int special_case_tokens __P((char *));
static int read_token __P((int));
static char *parse_matched_pair __P((int, int, int, int *, int));
+static char *parse_comsub __P((int, int, int, int *, int));
#if defined (ARRAY_VARS)
static char *parse_compound_assignment __P((int *));
#endif
#endif
static void print_prompt __P((void));
-#if defined (HISTORY)
-char *history_delimiting_chars __P((void));
-#endif
-
#if defined (HANDLE_MULTIBYTE)
static void set_line_mbstate __P((void));
static char *shell_input_line_property = NULL;
/* The number of lines read from input while creating the current command. */
int current_command_line_count;
+/* The token that currently denotes the end of parse. */
+int shell_eof_token;
+
+/* The token currently being read. */
+int current_token;
+
/* Variables to manage the task of reading here documents, because we need to
defer the reading until after a complete command has been collected. */
static REDIRECT *redir_stack[10];
/* The line number in a script at which an arithmetic for command starts. */
static int arith_for_lineno;
+/* The current parser state. */
+static int parser_state;
+
+/* The last read token, or NULL. read_token () uses this for context
+ checking. */
+static int last_read_token;
+
+/* The token read prior to last_read_token. */
+static int token_before_that;
+
+/* The token read prior to token_before_that. */
+static int two_tokens_ago;
+
/* The line number in a script where the word in a `case WORD', `select WORD'
or `for WORD' begins. This is a nested command maximum, since the array
index is decremented after a case, select, or for command is parsed. */
static REDIRECTEE redir;
-#line 300 "/usr/src/local/chet/src/bash/src/parse.y"
-typedef union {
+
+/* Enabling traces. */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+
+/* Enabling verbose error messages. */
+#ifdef YYERROR_VERBOSE
+# undef YYERROR_VERBOSE
+# define YYERROR_VERBOSE 1
+#else
+# define YYERROR_VERBOSE 0
+#endif
+
+/* Enabling the token table. */
+#ifndef YYTOKEN_TABLE
+# define YYTOKEN_TABLE 0
+#endif
+
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef union YYSTYPE
+#line 316 "/Users/chet/src/bash/src/parse.y"
+{
WORD_DESC *word; /* the word that we read. */
int number; /* the number that we read. */
WORD_LIST *word_list;
REDIRECT *redirect;
ELEMENT element;
PATTERN_LIST *pattern;
-} YYSTYPE;
-#include <stdio.h>
+}
+/* Line 187 of yacc.c. */
+#line 495 "y.tab.c"
+ YYSTYPE;
+# define yystype YYSTYPE /* obsolescent; will be withdrawn */
+# define YYSTYPE_IS_DECLARED 1
+# define YYSTYPE_IS_TRIVIAL 1
+#endif
+
-#ifndef __cplusplus
-#ifndef __STDC__
-#define const
+
+/* Copy the second part of user declarations. */
+
+
+/* Line 216 of yacc.c. */
+#line 508 "y.tab.c"
+
+#ifdef short
+# undef short
#endif
+
+#ifdef YYTYPE_UINT8
+typedef YYTYPE_UINT8 yytype_uint8;
+#else
+typedef unsigned char yytype_uint8;
#endif
+#ifdef YYTYPE_INT8
+typedef YYTYPE_INT8 yytype_int8;
+#elif (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+typedef signed char yytype_int8;
+#else
+typedef short int yytype_int8;
+#endif
+#ifdef YYTYPE_UINT16
+typedef YYTYPE_UINT16 yytype_uint16;
+#else
+typedef unsigned short int yytype_uint16;
+#endif
-#define YYFINAL 302
-#define YYFLAG -32768
-#define YYNTBASE 54
-
-#define YYTRANSLATE(x) ((unsigned)(x) <= 296 ? yytranslate[x] : 90)
-
-static const char yytranslate[] = { 0,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 44,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 42, 2, 52,
- 53, 2, 2, 2, 49, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 43, 48,
- 2, 47, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 50, 46, 51, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 1, 3, 4, 5, 6,
- 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
- 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
- 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
- 37, 38, 39, 40, 41, 45
-};
+#ifdef YYTYPE_INT16
+typedef YYTYPE_INT16 yytype_int16;
+#else
+typedef short int yytype_int16;
+#endif
-#if YYDEBUG != 0
-static const short yyprhs[] = { 0,
- 0, 3, 5, 8, 10, 12, 15, 18, 21, 25,
- 29, 32, 36, 39, 43, 46, 50, 53, 57, 60,
- 64, 67, 71, 74, 78, 81, 85, 88, 92, 95,
- 99, 102, 106, 109, 112, 116, 118, 120, 122, 124,
- 127, 129, 132, 134, 136, 139, 141, 143, 145, 151,
- 157, 159, 161, 163, 165, 167, 169, 171, 178, 185,
- 193, 201, 212, 223, 233, 243, 251, 259, 265, 271,
- 278, 285, 293, 301, 312, 323, 330, 338, 345, 351,
- 358, 363, 365, 368, 372, 378, 386, 393, 397, 399,
- 403, 408, 415, 421, 423, 426, 431, 436, 442, 448,
- 451, 455, 457, 461, 464, 466, 469, 473, 477, 481,
- 486, 491, 496, 501, 506, 508, 510, 512, 514, 516,
- 518, 519, 522, 524, 527, 530, 535, 540, 544, 548,
- 550, 552, 555, 558, 562, 566, 569, 574, 576, 578
-};
+#ifndef YYSIZE_T
+# ifdef __SIZE_TYPE__
+# define YYSIZE_T __SIZE_TYPE__
+# elif defined size_t
+# define YYSIZE_T size_t
+# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
+# define YYSIZE_T size_t
+# else
+# define YYSIZE_T unsigned int
+# endif
+#endif
-static const short yyrhs[] = { 85,
- 82, 0, 44, 0, 1, 44, 0, 45, 0, 24,
- 0, 55, 24, 0, 47, 24, 0, 48, 24, 0,
- 26, 47, 24, 0, 26, 48, 24, 0, 32, 24,
- 0, 26, 32, 24, 0, 33, 24, 0, 26, 33,
- 24, 0, 35, 24, 0, 26, 35, 24, 0, 34,
- 26, 0, 26, 34, 26, 0, 36, 26, 0, 26,
- 36, 26, 0, 34, 24, 0, 26, 34, 24, 0,
- 36, 24, 0, 26, 36, 24, 0, 38, 24, 0,
- 26, 38, 24, 0, 36, 49, 0, 26, 36, 49,
- 0, 34, 49, 0, 26, 34, 49, 0, 39, 24,
- 0, 26, 40, 24, 0, 40, 24, 0, 41, 24,
- 0, 26, 41, 24, 0, 24, 0, 25, 0, 56,
- 0, 56, 0, 58, 56, 0, 57, 0, 59, 57,
- 0, 59, 0, 61, 0, 61, 58, 0, 66, 0,
- 62, 0, 65, 0, 12, 79, 14, 79, 15, 0,
- 13, 79, 14, 79, 15, 0, 64, 0, 69, 0,
- 68, 0, 70, 0, 71, 0, 72, 0, 63, 0,
- 10, 24, 84, 14, 79, 15, 0, 10, 24, 84,
- 50, 79, 51, 0, 10, 24, 43, 84, 14, 79,
- 15, 0, 10, 24, 43, 84, 50, 79, 51, 0,
- 10, 24, 84, 20, 55, 83, 84, 14, 79, 15,
- 0, 10, 24, 84, 20, 55, 83, 84, 50, 79,
- 51, 0, 10, 24, 84, 20, 83, 84, 14, 79,
- 15, 0, 10, 24, 84, 20, 83, 84, 50, 79,
- 51, 0, 10, 28, 83, 84, 14, 79, 15, 0,
- 10, 28, 83, 84, 50, 79, 51, 0, 10, 28,
- 14, 79, 15, 0, 10, 28, 50, 79, 51, 0,
- 11, 24, 84, 14, 78, 15, 0, 11, 24, 84,
- 50, 78, 51, 0, 11, 24, 43, 84, 14, 78,
- 15, 0, 11, 24, 43, 84, 50, 78, 51, 0,
- 11, 24, 84, 20, 55, 83, 84, 14, 78, 15,
- 0, 11, 24, 84, 20, 55, 83, 84, 50, 78,
- 51, 0, 8, 24, 84, 20, 84, 9, 0, 8,
- 24, 84, 20, 76, 84, 9, 0, 8, 24, 84,
- 20, 74, 9, 0, 24, 52, 53, 84, 67, 0,
- 16, 24, 52, 53, 84, 67, 0, 16, 24, 84,
- 67, 0, 61, 0, 61, 58, 0, 52, 79, 53,
- 0, 3, 79, 4, 79, 7, 0, 3, 79, 4,
- 79, 5, 79, 7, 0, 3, 79, 4, 79, 73,
- 7, 0, 50, 79, 51, 0, 27, 0, 17, 29,
- 18, 0, 6, 79, 4, 79, 0, 6, 79, 4,
- 79, 5, 79, 0, 6, 79, 4, 79, 73, 0,
- 75, 0, 76, 75, 0, 84, 77, 53, 79, 0,
- 84, 77, 53, 84, 0, 84, 52, 77, 53, 79,
- 0, 84, 52, 77, 53, 84, 0, 75, 37, 0,
- 76, 75, 37, 0, 24, 0, 77, 46, 24, 0,
- 84, 80, 0, 78, 0, 84, 81, 0, 81, 44,
- 84, 0, 81, 42, 84, 0, 81, 43, 84, 0,
- 81, 30, 84, 81, 0, 81, 31, 84, 81, 0,
- 81, 42, 84, 81, 0, 81, 43, 84, 81, 0,
- 81, 44, 84, 81, 0, 87, 0, 44, 0, 45,
- 0, 44, 0, 43, 0, 45, 0, 0, 84, 44,
- 0, 86, 0, 86, 42, 0, 86, 43, 0, 86,
- 30, 84, 86, 0, 86, 31, 84, 86, 0, 86,
- 42, 86, 0, 86, 43, 86, 0, 87, 0, 88,
- 0, 21, 88, 0, 89, 88, 0, 89, 21, 88,
- 0, 21, 89, 88, 0, 89, 83, 0, 88, 46,
- 84, 88, 0, 60, 0, 22, 0, 22, 23, 0
-};
+#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
+#ifndef YY_
+# if YYENABLE_NLS
+# if ENABLE_NLS
+# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
+# define YY_(msgid) dgettext ("bison-runtime", msgid)
+# endif
+# endif
+# ifndef YY_
+# define YY_(msgid) msgid
+# endif
#endif
-#if YYDEBUG != 0
-static const short yyrline[] = { 0,
- 351, 360, 367, 382, 392, 394, 398, 403, 408, 413,
- 418, 423, 428, 434, 440, 445, 450, 455, 460, 465,
- 470, 475, 480, 485, 490, 497, 504, 509, 514, 519,
- 524, 529, 534, 539, 544, 551, 553, 555, 559, 563,
- 574, 576, 580, 582, 584, 600, 604, 606, 608, 610,
- 612, 614, 616, 618, 620, 622, 624, 628, 633, 638,
- 643, 648, 653, 658, 663, 670, 675, 680, 685, 692,
- 697, 702, 707, 712, 717, 724, 729, 734, 741, 744,
- 747, 752, 754, 785, 792, 794, 796, 801, 805, 809,
- 813, 815, 817, 821, 822, 826, 828, 830, 832, 836,
- 837, 841, 843, 852, 860, 861, 867, 868, 875, 879,
- 881, 883, 890, 892, 894, 898, 899, 902, 904, 906,
- 910, 911, 920, 926, 935, 943, 945, 947, 954, 957,
- 961, 963, 969, 975, 981, 987, 1007, 1010, 1014, 1016
-};
+/* Suppress unused-variable warnings by "using" E. */
+#if ! defined lint || defined __GNUC__
+# define YYUSE(e) ((void) (e))
+#else
+# define YYUSE(e) /* empty */
#endif
+/* Identity function, used to suppress warnings about constant conditions. */
+#ifndef lint
+# define YYID(n) (n)
+#else
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static int
+YYID (int i)
+#else
+static int
+YYID (i)
+ int i;
+#endif
+{
+ return i;
+}
+#endif
+
+#if ! defined yyoverflow || YYERROR_VERBOSE
+
+/* The parser invokes alloca or malloc; define the necessary symbols. */
+
+# ifdef YYSTACK_USE_ALLOCA
+# if YYSTACK_USE_ALLOCA
+# ifdef __GNUC__
+# define YYSTACK_ALLOC __builtin_alloca
+# elif defined __BUILTIN_VA_ARG_INCR
+# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
+# elif defined _AIX
+# define YYSTACK_ALLOC __alloca
+# elif defined _MSC_VER
+# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
+# define alloca _alloca
+# else
+# define YYSTACK_ALLOC alloca
+# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
+# ifndef _STDLIB_H
+# define _STDLIB_H 1
+# endif
+# endif
+# endif
+# endif
+# endif
+
+# ifdef YYSTACK_ALLOC
+ /* Pacify GCC's `empty if-body' warning. */
+# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
+# ifndef YYSTACK_ALLOC_MAXIMUM
+ /* The OS might guarantee only one guard page at the bottom of the stack,
+ and a page size can be as small as 4096 bytes. So we cannot safely
+ invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
+ to allow for a few compiler-allocated temporary stack slots. */
+# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
+# endif
+# else
+# define YYSTACK_ALLOC YYMALLOC
+# define YYSTACK_FREE YYFREE
+# ifndef YYSTACK_ALLOC_MAXIMUM
+# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
+# endif
+# if (defined __cplusplus && ! defined _STDLIB_H \
+ && ! ((defined YYMALLOC || defined malloc) \
+ && (defined YYFREE || defined free)))
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
+# ifndef _STDLIB_H
+# define _STDLIB_H 1
+# endif
+# endif
+# ifndef YYMALLOC
+# define YYMALLOC malloc
+# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
+# endif
+# endif
+# ifndef YYFREE
+# define YYFREE free
+# if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+void free (void *); /* INFRINGES ON USER NAME SPACE */
+# endif
+# endif
+# endif
+#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
+
+
+#if (! defined yyoverflow \
+ && (! defined __cplusplus \
+ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
+
+/* A type that is properly aligned for any stack member. */
+union yyalloc
+{
+ yytype_int16 yyss;
+ YYSTYPE yyvs;
+ };
+
+/* The size of the maximum gap between one aligned stack and the next. */
+# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
+
+/* The size of an array large to enough to hold all stacks, each with
+ N elements. */
+# define YYSTACK_BYTES(N) \
+ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
+ + YYSTACK_GAP_MAXIMUM)
+
+/* Copy COUNT objects from FROM to TO. The source and destination do
+ not overlap. */
+# ifndef YYCOPY
+# if defined __GNUC__ && 1 < __GNUC__
+# define YYCOPY(To, From, Count) \
+ __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
+# else
+# define YYCOPY(To, From, Count) \
+ do \
+ { \
+ YYSIZE_T yyi; \
+ for (yyi = 0; yyi < (Count); yyi++) \
+ (To)[yyi] = (From)[yyi]; \
+ } \
+ while (YYID (0))
+# endif
+# endif
+
+/* Relocate STACK from its old location to the new one. The
+ local variables YYSIZE and YYSTACKSIZE give the old and new number of
+ elements in the stack, and YYPTR gives the new location of the
+ stack. Advance YYPTR to a properly aligned location for the next
+ stack. */
+# define YYSTACK_RELOCATE(Stack) \
+ do \
+ { \
+ YYSIZE_T yynewbytes; \
+ YYCOPY (&yyptr->Stack, Stack, yysize); \
+ Stack = &yyptr->Stack; \
+ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
+ yyptr += yynewbytes / sizeof (*yyptr); \
+ } \
+ while (YYID (0))
-#if YYDEBUG != 0 || defined (YYERROR_VERBOSE)
-
-static const char * const yytname[] = { "$","error","$undefined.","IF","THEN",
-"ELSE","ELIF","FI","CASE","ESAC","FOR","SELECT","WHILE","UNTIL","DO","DONE",
-"FUNCTION","COND_START","COND_END","COND_ERROR","IN","BANG","TIME","TIMEOPT",
-"WORD","ASSIGNMENT_WORD","NUMBER","ARITH_CMD","ARITH_FOR_EXPRS","COND_CMD","AND_AND",
-"OR_OR","GREATER_GREATER","LESS_LESS","LESS_AND","LESS_LESS_LESS","GREATER_AND",
-"SEMI_SEMI","LESS_LESS_MINUS","AND_GREATER","LESS_GREATER","GREATER_BAR","'&'",
-"';'","'\\n'","yacc_EOF","'|'","'>'","'<'","'-'","'{'","'}'","'('","')'","inputunit",
-"word_list","redirection","simple_command_element","redirection_list","simple_command",
-"command","shell_command","for_command","arith_for_command","select_command",
-"case_command","function_def","function_body","subshell","if_command","group_command",
-"arith_command","cond_command","elif_clause","case_clause","pattern_list","case_clause_sequence",
-"pattern","list","compound_list","list0","list1","simple_list_terminator","list_terminator",
-"newline_list","simple_list","simple_list1","pipeline_command","pipeline","timespec", NULL
-};
#endif
-static const short yyr1[] = { 0,
- 54, 54, 54, 54, 55, 55, 56, 56, 56, 56,
- 56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
- 56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
- 56, 56, 56, 56, 56, 57, 57, 57, 58, 58,
- 59, 59, 60, 60, 60, 60, 61, 61, 61, 61,
- 61, 61, 61, 61, 61, 61, 61, 62, 62, 62,
- 62, 62, 62, 62, 62, 63, 63, 63, 63, 64,
- 64, 64, 64, 64, 64, 65, 65, 65, 66, 66,
- 66, 67, 67, 68, 69, 69, 69, 70, 71, 72,
- 73, 73, 73, 74, 74, 75, 75, 75, 75, 76,
- 76, 77, 77, 78, 79, 79, 80, 80, 80, 81,
- 81, 81, 81, 81, 81, 82, 82, 83, 83, 83,
- 84, 84, 85, 85, 85, 86, 86, 86, 86, 86,
- 87, 87, 87, 87, 87, 87, 88, 88, 89, 89
+/* YYFINAL -- State number of the termination state. */
+#define YYFINAL 102
+/* YYLAST -- Last index in YYTABLE. */
+#define YYLAST 728
+
+/* YYNTOKENS -- Number of terminals. */
+#define YYNTOKENS 59
+/* YYNNTS -- Number of nonterminals. */
+#define YYNNTS 38
+/* YYNRULES -- Number of rules. */
+#define YYNRULES 153
+/* YYNRULES -- Number of states. */
+#define YYNSTATES 319
+
+/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
+#define YYUNDEFTOK 2
+#define YYMAXUTOK 302
+
+#define YYTRANSLATE(YYX) \
+ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
+
+/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
+static const yytype_uint8 yytranslate[] =
+{
+ 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 49, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 47, 2,
+ 57, 58, 2, 2, 2, 54, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 48,
+ 53, 2, 52, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 55, 51, 56, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
+ 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
+ 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
+ 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
+ 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
+ 45, 46, 50
};
-static const short yyr2[] = { 0,
- 2, 1, 2, 1, 1, 2, 2, 2, 3, 3,
- 2, 3, 2, 3, 2, 3, 2, 3, 2, 3,
- 2, 3, 2, 3, 2, 3, 2, 3, 2, 3,
- 2, 3, 2, 2, 3, 1, 1, 1, 1, 2,
- 1, 2, 1, 1, 2, 1, 1, 1, 5, 5,
- 1, 1, 1, 1, 1, 1, 1, 6, 6, 7,
- 7, 10, 10, 9, 9, 7, 7, 5, 5, 6,
- 6, 7, 7, 10, 10, 6, 7, 6, 5, 6,
- 4, 1, 2, 3, 5, 7, 6, 3, 1, 3,
- 4, 6, 5, 1, 2, 4, 4, 5, 5, 2,
- 3, 1, 3, 2, 1, 2, 3, 3, 3, 4,
- 4, 4, 4, 4, 1, 1, 1, 1, 1, 1,
- 0, 2, 1, 2, 2, 4, 4, 3, 3, 1,
- 1, 2, 2, 3, 3, 2, 4, 1, 1, 2
+#if YYDEBUG
+/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
+ YYRHS. */
+static const yytype_uint16 yyprhs[] =
+{
+ 0, 0, 3, 6, 8, 11, 13, 15, 18, 21,
+ 24, 28, 32, 35, 39, 42, 46, 49, 53, 56,
+ 60, 63, 67, 70, 74, 77, 81, 84, 88, 91,
+ 95, 98, 102, 105, 108, 112, 115, 118, 122, 124,
+ 126, 128, 130, 133, 135, 138, 140, 142, 145, 147,
+ 149, 151, 153, 159, 165, 167, 169, 171, 173, 175,
+ 177, 179, 186, 193, 201, 209, 220, 231, 241, 251,
+ 259, 267, 273, 279, 286, 293, 301, 309, 320, 331,
+ 338, 346, 353, 359, 366, 371, 373, 376, 380, 383,
+ 387, 391, 396, 399, 405, 413, 420, 424, 426, 430,
+ 435, 442, 448, 450, 453, 458, 463, 469, 475, 478,
+ 482, 485, 489, 492, 496, 498, 502, 505, 507, 510,
+ 514, 518, 522, 527, 532, 537, 542, 547, 549, 551,
+ 553, 555, 557, 559, 560, 563, 565, 568, 571, 576,
+ 581, 585, 589, 591, 593, 596, 599, 603, 607, 610,
+ 615, 620, 622, 624
};
-static const short yydefact[] = { 0,
- 0, 121, 0, 0, 0, 121, 121, 0, 0, 0,
- 139, 36, 37, 0, 89, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 2, 4, 0, 0, 121, 121,
- 38, 41, 43, 138, 44, 47, 57, 51, 48, 46,
- 53, 52, 54, 55, 56, 0, 123, 130, 131, 0,
- 3, 105, 0, 0, 121, 121, 0, 121, 0, 0,
- 121, 0, 132, 0, 140, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 11, 13, 21, 17,
- 29, 15, 23, 19, 27, 25, 31, 33, 34, 7,
- 8, 0, 0, 36, 42, 39, 45, 116, 117, 1,
- 121, 121, 124, 125, 121, 0, 119, 118, 120, 136,
- 133, 121, 122, 104, 106, 115, 0, 121, 0, 121,
- 121, 121, 121, 0, 121, 121, 0, 0, 90, 135,
- 121, 12, 14, 22, 18, 30, 16, 24, 20, 28,
- 26, 32, 35, 9, 10, 88, 84, 40, 0, 0,
- 128, 129, 0, 134, 0, 121, 121, 121, 121, 121,
- 121, 0, 121, 0, 121, 0, 0, 0, 0, 121,
- 0, 121, 0, 0, 121, 82, 81, 0, 126, 127,
- 0, 0, 137, 121, 121, 85, 0, 0, 0, 108,
- 109, 107, 0, 94, 121, 0, 121, 121, 0, 5,
- 0, 121, 0, 68, 69, 121, 121, 121, 121, 0,
- 0, 0, 0, 49, 50, 0, 83, 79, 0, 0,
- 87, 110, 111, 112, 113, 114, 78, 100, 95, 0,
- 76, 102, 0, 0, 0, 0, 58, 6, 121, 0,
- 59, 0, 0, 0, 0, 70, 0, 121, 71, 80,
- 86, 121, 121, 121, 121, 101, 77, 0, 0, 121,
- 60, 61, 0, 121, 121, 66, 67, 72, 73, 0,
- 91, 0, 0, 0, 121, 103, 96, 97, 121, 121,
- 0, 0, 121, 121, 121, 93, 98, 99, 0, 0,
- 64, 65, 0, 0, 92, 62, 63, 74, 75, 0,
- 0, 0
+/* YYRHS -- A `-1'-separated list of the rules' RHS. */
+static const yytype_int8 yyrhs[] =
+{
+ 60, 0, -1, 92, 89, -1, 49, -1, 1, 49,
+ -1, 50, -1, 25, -1, 61, 25, -1, 52, 25,
+ -1, 53, 25, -1, 27, 52, 25, -1, 27, 53,
+ 25, -1, 33, 25, -1, 27, 33, 25, -1, 34,
+ 25, -1, 27, 34, 25, -1, 36, 25, -1, 27,
+ 36, 25, -1, 35, 27, -1, 27, 35, 27, -1,
+ 37, 27, -1, 27, 37, 27, -1, 35, 25, -1,
+ 27, 35, 25, -1, 37, 25, -1, 27, 37, 25,
+ -1, 41, 25, -1, 27, 41, 25, -1, 37, 54,
+ -1, 27, 37, 54, -1, 35, 54, -1, 27, 35,
+ 54, -1, 42, 25, -1, 43, 25, -1, 27, 44,
+ 25, -1, 44, 25, -1, 45, 25, -1, 27, 45,
+ 25, -1, 25, -1, 26, -1, 62, -1, 62, -1,
+ 64, 62, -1, 63, -1, 65, 63, -1, 65, -1,
+ 67, -1, 67, 64, -1, 72, -1, 75, -1, 68,
+ -1, 71, -1, 12, 86, 14, 86, 15, -1, 13,
+ 86, 14, 86, 15, -1, 70, -1, 76, -1, 74,
+ -1, 77, -1, 78, -1, 79, -1, 69, -1, 10,
+ 25, 91, 14, 86, 15, -1, 10, 25, 91, 55,
+ 86, 56, -1, 10, 25, 48, 91, 14, 86, 15,
+ -1, 10, 25, 48, 91, 55, 86, 56, -1, 10,
+ 25, 91, 21, 61, 90, 91, 14, 86, 15, -1,
+ 10, 25, 91, 21, 61, 90, 91, 55, 86, 56,
+ -1, 10, 25, 91, 21, 90, 91, 14, 86, 15,
+ -1, 10, 25, 91, 21, 90, 91, 55, 86, 56,
+ -1, 10, 29, 90, 91, 14, 86, 15, -1, 10,
+ 29, 90, 91, 55, 86, 56, -1, 10, 29, 14,
+ 86, 15, -1, 10, 29, 55, 86, 56, -1, 11,
+ 25, 91, 14, 85, 15, -1, 11, 25, 91, 55,
+ 85, 56, -1, 11, 25, 48, 91, 14, 85, 15,
+ -1, 11, 25, 48, 91, 55, 85, 56, -1, 11,
+ 25, 91, 21, 61, 90, 91, 14, 85, 15, -1,
+ 11, 25, 91, 21, 61, 90, 91, 55, 85, 56,
+ -1, 8, 25, 91, 21, 91, 9, -1, 8, 25,
+ 91, 21, 83, 91, 9, -1, 8, 25, 91, 21,
+ 81, 9, -1, 25, 57, 58, 91, 73, -1, 16,
+ 25, 57, 58, 91, 73, -1, 16, 25, 91, 73,
+ -1, 67, -1, 67, 64, -1, 57, 86, 58, -1,
+ 17, 67, -1, 17, 67, 64, -1, 17, 25, 67,
+ -1, 17, 25, 67, 64, -1, 17, 65, -1, 3,
+ 86, 4, 86, 7, -1, 3, 86, 4, 86, 5,
+ 86, 7, -1, 3, 86, 4, 86, 80, 7, -1,
+ 55, 86, 56, -1, 28, -1, 18, 30, 19, -1,
+ 6, 86, 4, 86, -1, 6, 86, 4, 86, 5,
+ 86, -1, 6, 86, 4, 86, 80, -1, 82, -1,
+ 83, 82, -1, 91, 84, 58, 86, -1, 91, 84,
+ 58, 91, -1, 91, 57, 84, 58, 86, -1, 91,
+ 57, 84, 58, 91, -1, 82, 38, -1, 83, 82,
+ 38, -1, 82, 39, -1, 83, 82, 39, -1, 82,
+ 40, -1, 83, 82, 40, -1, 25, -1, 84, 51,
+ 25, -1, 91, 87, -1, 85, -1, 91, 88, -1,
+ 88, 49, 91, -1, 88, 47, 91, -1, 88, 48,
+ 91, -1, 88, 31, 91, 88, -1, 88, 32, 91,
+ 88, -1, 88, 47, 91, 88, -1, 88, 48, 91,
+ 88, -1, 88, 49, 91, 88, -1, 94, -1, 49,
+ -1, 50, -1, 49, -1, 48, -1, 50, -1, -1,
+ 91, 49, -1, 93, -1, 93, 47, -1, 93, 48,
+ -1, 93, 31, 91, 93, -1, 93, 32, 91, 93,
+ -1, 93, 47, 93, -1, 93, 48, 93, -1, 94,
+ -1, 95, -1, 22, 95, -1, 96, 95, -1, 96,
+ 22, 95, -1, 22, 96, 95, -1, 96, 90, -1,
+ 95, 51, 91, 95, -1, 95, 46, 91, 95, -1,
+ 66, -1, 23, -1, 23, 24, -1
};
-static const short yydefgoto[] = { 300,
- 201, 31, 32, 97, 33, 34, 35, 36, 37, 38,
- 39, 40, 177, 41, 42, 43, 44, 45, 187, 193,
- 194, 195, 234, 52, 53, 114, 115, 100, 110, 54,
- 46, 151, 116, 49, 50
+/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
+static const yytype_uint16 yyrline[] =
+{
+ 0, 369, 369, 380, 389, 404, 414, 416, 420, 425,
+ 430, 435, 440, 445, 450, 456, 462, 467, 472, 477,
+ 482, 487, 492, 497, 502, 507, 512, 519, 526, 531,
+ 536, 541, 546, 551, 556, 561, 566, 571, 578, 580,
+ 582, 586, 590, 601, 603, 607, 609, 611, 627, 629,
+ 633, 635, 637, 639, 641, 643, 645, 647, 649, 651,
+ 653, 657, 662, 667, 672, 677, 682, 687, 692, 699,
+ 704, 709, 714, 721, 726, 731, 736, 741, 746, 753,
+ 758, 763, 770, 773, 776, 780, 782, 813, 820, 825,
+ 842, 847, 864, 871, 873, 875, 880, 884, 888, 892,
+ 894, 896, 900, 901, 905, 907, 909, 911, 915, 917,
+ 919, 921, 923, 925, 929, 931, 940, 948, 949, 955,
+ 956, 963, 967, 969, 971, 978, 980, 982, 986, 987,
+ 990, 992, 994, 998, 999, 1008, 1021, 1037, 1052, 1054,
+ 1056, 1063, 1066, 1070, 1072, 1078, 1084, 1090, 1096, 1116,
+ 1118, 1140, 1144, 1146
};
+#endif
-static const short yypact[] = { 274,
- -23,-32768, 5, 55, 10,-32768,-32768, 21, 31, 446,
- 32, 19,-32768, 553,-32768, 56, 72, -12, 89, -11,
- 92, 102, 111, 113,-32768,-32768, 117, 124,-32768,-32768,
--32768,-32768, 183,-32768, 202,-32768,-32768,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,-32768, -13, 134,-32768, 52, 317,
--32768,-32768, 148, 360,-32768, 115, 22, 120, 154, 173,
- 114, 155, 52, 532,-32768, 140, 180, 181, 101, 182,
- 112, 186, 188, 189, 190, 205,-32768,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
--32768, 193, 195,-32768,-32768,-32768, 202,-32768,-32768,-32768,
--32768,-32768, 403, 403,-32768, 532,-32768,-32768,-32768,-32768,
- 52,-32768,-32768,-32768, 221,-32768, -9,-32768, 42,-32768,
--32768,-32768,-32768, 61,-32768,-32768, 200, 41,-32768, 52,
--32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 360, 360,
- 152, 152, 489, 52, 192,-32768,-32768,-32768,-32768,-32768,
--32768, 26,-32768, 127,-32768, 218, 194, 34, 73,-32768,
- 215,-32768, 242, 245,-32768, 202,-32768, 41,-32768,-32768,
- 403, 403, 52,-32768,-32768,-32768, 254, 360, 360, 360,
- 360, 360, 253, 229,-32768, -2,-32768,-32768, 252,-32768,
- 151,-32768, 217,-32768,-32768,-32768,-32768,-32768,-32768, 255,
- 360, 151, 220,-32768,-32768, 41, 202,-32768, 265, 272,
--32768,-32768,-32768, 159, 159, 159,-32768,-32768, 241, 17,
--32768,-32768, 256, 36, 266, 232,-32768,-32768,-32768, 74,
--32768, 273, 238, 277, 243,-32768, 221,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,-32768, 116, 269,-32768,
--32768,-32768, 90,-32768,-32768,-32768,-32768,-32768,-32768, 95,
- 197, 360, 360, 360,-32768,-32768,-32768, 360,-32768,-32768,
- 282, 251,-32768,-32768,-32768,-32768,-32768, 360, 288, 260,
--32768,-32768, 289, 280,-32768,-32768,-32768,-32768,-32768, 305,
- 316,-32768
+#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
+/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
+ First, the terminals, then, starting at YYNTOKENS, nonterminals. */
+static const char *const yytname[] =
+{
+ "$end", "error", "$undefined", "IF", "THEN", "ELSE", "ELIF", "FI",
+ "CASE", "ESAC", "FOR", "SELECT", "WHILE", "UNTIL", "DO", "DONE",
+ "FUNCTION", "COPROC", "COND_START", "COND_END", "COND_ERROR", "IN",
+ "BANG", "TIME", "TIMEOPT", "WORD", "ASSIGNMENT_WORD", "NUMBER",
+ "ARITH_CMD", "ARITH_FOR_EXPRS", "COND_CMD", "AND_AND", "OR_OR",
+ "GREATER_GREATER", "LESS_LESS", "LESS_AND", "LESS_LESS_LESS",
+ "GREATER_AND", "SEMI_SEMI", "SEMI_AND", "SEMI_SEMI_AND",
+ "LESS_LESS_MINUS", "AND_GREATER", "AND_GREATER_GREATER", "LESS_GREATER",
+ "GREATER_BAR", "BAR_AND", "'&'", "';'", "'\\n'", "yacc_EOF", "'|'",
+ "'>'", "'<'", "'-'", "'{'", "'}'", "'('", "')'", "$accept", "inputunit",
+ "word_list", "redirection", "simple_command_element", "redirection_list",
+ "simple_command", "command", "shell_command", "for_command",
+ "arith_for_command", "select_command", "case_command", "function_def",
+ "function_body", "subshell", "coproc", "if_command", "group_command",
+ "arith_command", "cond_command", "elif_clause", "case_clause",
+ "pattern_list", "case_clause_sequence", "pattern", "list",
+ "compound_list", "list0", "list1", "simple_list_terminator",
+ "list_terminator", "newline_list", "simple_list", "simple_list1",
+ "pipeline_command", "pipeline", "timespec", 0
};
+#endif
-static const short yypgoto[] = {-32768,
- 146, -33, 290, 156,-32768,-32768, -119,-32768,-32768,-32768,
--32768,-32768, -153,-32768,-32768,-32768,-32768,-32768, 64,-32768,
- 141,-32768, 104, -162, -6,-32768, -172,-32768, -52, -28,
--32768, 6, 4, -7, 329
+# ifdef YYPRINT
+/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
+ token YYLEX-NUM. */
+static const yytype_uint16 yytoknum[] =
+{
+ 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
+ 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
+ 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
+ 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
+ 295, 296, 297, 298, 299, 300, 301, 38, 59, 10,
+ 302, 124, 62, 60, 45, 123, 125, 40, 41
+};
+# endif
+
+/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
+static const yytype_uint8 yyr1[] =
+{
+ 0, 59, 60, 60, 60, 60, 61, 61, 62, 62,
+ 62, 62, 62, 62, 62, 62, 62, 62, 62, 62,
+ 62, 62, 62, 62, 62, 62, 62, 62, 62, 62,
+ 62, 62, 62, 62, 62, 62, 62, 62, 63, 63,
+ 63, 64, 64, 65, 65, 66, 66, 66, 66, 66,
+ 67, 67, 67, 67, 67, 67, 67, 67, 67, 67,
+ 67, 68, 68, 68, 68, 68, 68, 68, 68, 69,
+ 69, 69, 69, 70, 70, 70, 70, 70, 70, 71,
+ 71, 71, 72, 72, 72, 73, 73, 74, 75, 75,
+ 75, 75, 75, 76, 76, 76, 77, 78, 79, 80,
+ 80, 80, 81, 81, 82, 82, 82, 82, 83, 83,
+ 83, 83, 83, 83, 84, 84, 85, 86, 86, 87,
+ 87, 87, 88, 88, 88, 88, 88, 88, 89, 89,
+ 90, 90, 90, 91, 91, 92, 92, 92, 93, 93,
+ 93, 93, 93, 94, 94, 94, 94, 94, 94, 95,
+ 95, 95, 96, 96
};
+/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
+static const yytype_uint8 yyr2[] =
+{
+ 0, 2, 2, 1, 2, 1, 1, 2, 2, 2,
+ 3, 3, 2, 3, 2, 3, 2, 3, 2, 3,
+ 2, 3, 2, 3, 2, 3, 2, 3, 2, 3,
+ 2, 3, 2, 2, 3, 2, 2, 3, 1, 1,
+ 1, 1, 2, 1, 2, 1, 1, 2, 1, 1,
+ 1, 1, 5, 5, 1, 1, 1, 1, 1, 1,
+ 1, 6, 6, 7, 7, 10, 10, 9, 9, 7,
+ 7, 5, 5, 6, 6, 7, 7, 10, 10, 6,
+ 7, 6, 5, 6, 4, 1, 2, 3, 2, 3,
+ 3, 4, 2, 5, 7, 6, 3, 1, 3, 4,
+ 6, 5, 1, 2, 4, 4, 5, 5, 2, 3,
+ 2, 3, 2, 3, 1, 3, 2, 1, 2, 3,
+ 3, 3, 4, 4, 4, 4, 4, 1, 1, 1,
+ 1, 1, 1, 0, 2, 1, 2, 2, 4, 4,
+ 3, 3, 1, 1, 2, 2, 3, 3, 2, 4,
+ 4, 1, 1, 2
+};
-#define YYLAST 601
-
-
-static const short yytable[] = { 59,
- 60, 96, 63, 48, 122, 47, 231, 210, 176, 213,
- 161, 79, 83, 80, 84, 222, 223, 224, 225, 226,
- 51, 232, 92, 93, 218, 257, 117, 119, 55, 124,
- 98, 99, 128, 58, 113, 120, 81, 85, 247, 197,
- 232, 113, 111, 2, 61, 244, 245, 206, 3, 233,
- 4, 5, 6, 7, 65, 163, 130, 9, 176, 62,
- 113, 164, 250, 148, 107, 108, 109, 15, 233, 113,
- 66, 121, 149, 150, 170, 198, 153, 113, 56, 77,
- 171, 259, 57, 207, 113, 113, 208, 264, 260, 162,
- 29, 165, 30, 168, 169, 78, 176, 105, 154, 224,
- 225, 226, 178, 279, 113, 155, 48, 48, 283, 152,
- 172, 202, 82, 166, 167, 86, 113, 113, 173, 174,
- 293, 294, 209, 265, 134, 87, 135, 188, 189, 190,
- 191, 192, 196, 113, 88, 138, 89, 139, 113, 280,
- 90, 211, 96, 211, 284, 183, 216, 91, 239, 136,
- 200, 112, 48, 48, 179, 180, 199, 118, 203, 248,
- 140, 259, 123, 101, 102, 127, 230, 125, 275, 107,
- 108, 109, 129, 240, 238, 103, 104, 219, 220, 211,
- 211, 101, 102, 148, 48, 48, 126, 152, 156, 157,
- 235, 236, 131, 107, 108, 109, 184, 185, 186, 242,
- 243, 285, 185, 132, 133, 137, 94, 13, 14, 141,
- 263, 142, 143, 144, 16, 17, 18, 19, 20, 270,
- 21, 22, 23, 24, 272, 273, 274, 14, 145, 27,
- 28, 278, 204, 16, 17, 18, 19, 20, 200, 21,
- 22, 23, 24, 146, 205, 271, 288, 147, 27, 28,
- 156, 157, 175, 277, 211, 211, 214, 281, 282, 215,
- 221, 227, 158, 159, 160, 228, 237, 241, 287, 246,
- 249, 251, 289, 290, 1, 252, 2, 256, 295, 232,
- 261, 3, 262, 4, 5, 6, 7, 266, 267, 8,
- 9, 268, 276, 269, 10, 11, 291, 12, 13, 14,
- 15, 292, 296, 298, 301, 16, 17, 18, 19, 20,
- 297, 21, 22, 23, 24, 302, 212, 25, 26, 2,
- 27, 28, 95, 29, 3, 30, 4, 5, 6, 7,
- 299, 217, 8, 9, 286, 229, 258, 106, 64, 0,
- 12, 13, 14, 15, 0, 0, 0, 0, 16, 17,
- 18, 19, 20, 0, 21, 22, 23, 24, 0, 107,
- 108, 109, 2, 27, 28, 0, 29, 3, 30, 4,
- 5, 6, 7, 0, 0, 8, 9, 0, 0, 0,
- 10, 11, 0, 12, 13, 14, 15, 0, 0, 0,
- 0, 16, 17, 18, 19, 20, 0, 21, 22, 23,
- 24, 0, 0, 113, 0, 2, 27, 28, 0, 29,
- 3, 30, 4, 5, 6, 7, 0, 0, 8, 9,
- 0, 0, 0, 10, 11, 0, 12, 13, 14, 15,
- 0, 0, 0, 0, 16, 17, 18, 19, 20, 0,
- 21, 22, 23, 24, 0, 0, 0, 0, 2, 27,
- 28, 0, 29, 3, 30, 4, 5, 6, 7, 0,
- 0, 8, 9, 0, 0, 0, 0, 11, 0, 12,
- 13, 14, 15, 0, 0, 0, 0, 16, 17, 18,
- 19, 20, 0, 21, 22, 23, 24, 0, 0, 0,
- 0, 2, 27, 28, 0, 29, 3, 30, 4, 5,
- 6, 7, 0, 0, 8, 9, 0, 0, 0, 0,
- 0, 0, 12, 13, 14, 15, 0, 0, 0, 0,
- 16, 17, 18, 19, 20, 0, 21, 22, 23, 24,
- 0, 0, 113, 0, 2, 27, 28, 0, 29, 3,
- 30, 4, 5, 6, 7, 0, 0, 8, 9, 0,
- 0, 0, 0, 0, 0, 12, 13, 14, 15, 0,
- 0, 0, 0, 16, 17, 18, 19, 20, 0, 21,
- 22, 23, 24, 0, 0, 0, 0, 0, 27, 28,
- 0, 29, 0, 30, 67, 68, 69, 70, 71, 0,
- 72, 0, 73, 74, 0, 0, 0, 0, 0, 75,
- 76
+/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
+ STATE-NUM when YYTABLE doesn't specify something else to do. Zero
+ means the default is an error. */
+static const yytype_uint8 yydefact[] =
+{
+ 0, 0, 133, 0, 0, 0, 133, 133, 0, 0,
+ 0, 0, 152, 38, 39, 0, 97, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 3, 5, 0,
+ 0, 133, 133, 0, 40, 43, 45, 151, 46, 50,
+ 60, 54, 51, 48, 56, 49, 55, 57, 58, 59,
+ 0, 135, 142, 143, 0, 4, 117, 0, 0, 133,
+ 133, 0, 133, 0, 0, 133, 38, 92, 88, 0,
+ 144, 0, 153, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 12, 14, 22, 18, 30, 16,
+ 24, 20, 28, 26, 32, 33, 35, 36, 8, 9,
+ 0, 0, 1, 38, 44, 41, 47, 128, 129, 2,
+ 133, 133, 136, 137, 133, 133, 0, 131, 130, 132,
+ 148, 145, 133, 134, 116, 118, 127, 0, 133, 0,
+ 133, 133, 133, 133, 0, 133, 133, 0, 0, 90,
+ 89, 98, 147, 133, 13, 15, 23, 19, 31, 17,
+ 25, 21, 29, 27, 34, 37, 10, 11, 96, 87,
+ 42, 0, 0, 140, 141, 0, 0, 146, 0, 133,
+ 133, 133, 133, 133, 133, 0, 133, 0, 133, 0,
+ 0, 0, 0, 133, 0, 133, 0, 0, 133, 85,
+ 84, 91, 0, 138, 139, 0, 0, 150, 149, 133,
+ 133, 93, 0, 0, 0, 120, 121, 119, 0, 102,
+ 133, 0, 133, 133, 0, 6, 0, 133, 0, 71,
+ 72, 133, 133, 133, 133, 0, 0, 0, 0, 52,
+ 53, 0, 86, 82, 0, 0, 95, 122, 123, 124,
+ 125, 126, 81, 108, 110, 112, 103, 0, 79, 114,
+ 0, 0, 0, 0, 61, 7, 133, 0, 62, 0,
+ 0, 0, 0, 73, 0, 133, 74, 83, 94, 133,
+ 133, 133, 133, 109, 111, 113, 80, 0, 0, 133,
+ 63, 64, 0, 133, 133, 69, 70, 75, 76, 0,
+ 99, 0, 0, 0, 133, 115, 104, 105, 133, 133,
+ 0, 0, 133, 133, 133, 101, 106, 107, 0, 0,
+ 67, 68, 0, 0, 100, 65, 66, 77, 78
};
-static const short yycheck[] = { 6,
- 7, 35, 10, 0, 57, 0, 9, 170, 128, 172,
- 20, 24, 24, 26, 26, 188, 189, 190, 191, 192,
- 44, 24, 29, 30, 178, 9, 55, 56, 24, 58,
- 44, 45, 61, 24, 44, 14, 49, 49, 211, 14,
- 24, 44, 50, 3, 24, 208, 209, 14, 8, 52,
- 10, 11, 12, 13, 23, 14, 64, 17, 178, 29,
- 44, 20, 216, 97, 43, 44, 45, 27, 52, 44,
- 52, 50, 101, 102, 14, 50, 105, 44, 24, 24,
- 20, 46, 28, 50, 44, 44, 14, 14, 53, 118,
- 50, 50, 52, 122, 123, 24, 216, 46, 106, 272,
- 273, 274, 131, 14, 44, 112, 103, 104, 14, 104,
- 50, 164, 24, 120, 121, 24, 44, 44, 125, 126,
- 283, 284, 50, 50, 24, 24, 26, 156, 157, 158,
- 159, 160, 161, 44, 24, 24, 24, 26, 44, 50,
- 24, 170, 176, 172, 50, 153, 175, 24, 201, 49,
- 24, 4, 149, 150, 149, 150, 163, 43, 165, 212,
- 49, 46, 43, 30, 31, 52, 195, 14, 53, 43,
- 44, 45, 18, 202, 24, 42, 43, 184, 185, 208,
- 209, 30, 31, 217, 181, 182, 14, 182, 30, 31,
- 197, 198, 53, 43, 44, 45, 5, 6, 7, 206,
- 207, 5, 6, 24, 24, 24, 24, 25, 26, 24,
- 239, 24, 24, 24, 32, 33, 34, 35, 36, 248,
- 38, 39, 40, 41, 253, 254, 255, 26, 24, 47,
- 48, 260, 15, 32, 33, 34, 35, 36, 24, 38,
- 39, 40, 41, 51, 51, 252, 275, 53, 47, 48,
- 30, 31, 53, 260, 283, 284, 15, 264, 265, 15,
- 7, 9, 42, 43, 44, 37, 15, 51, 275, 15,
- 51, 7, 279, 280, 1, 4, 3, 37, 285, 24,
- 15, 8, 51, 10, 11, 12, 13, 15, 51, 16,
- 17, 15, 24, 51, 21, 22, 15, 24, 25, 26,
- 27, 51, 15, 15, 0, 32, 33, 34, 35, 36,
- 51, 38, 39, 40, 41, 0, 171, 44, 45, 3,
- 47, 48, 33, 50, 8, 52, 10, 11, 12, 13,
- 51, 176, 16, 17, 271, 195, 233, 21, 10, -1,
- 24, 25, 26, 27, -1, -1, -1, -1, 32, 33,
- 34, 35, 36, -1, 38, 39, 40, 41, -1, 43,
- 44, 45, 3, 47, 48, -1, 50, 8, 52, 10,
- 11, 12, 13, -1, -1, 16, 17, -1, -1, -1,
- 21, 22, -1, 24, 25, 26, 27, -1, -1, -1,
- -1, 32, 33, 34, 35, 36, -1, 38, 39, 40,
- 41, -1, -1, 44, -1, 3, 47, 48, -1, 50,
- 8, 52, 10, 11, 12, 13, -1, -1, 16, 17,
- -1, -1, -1, 21, 22, -1, 24, 25, 26, 27,
- -1, -1, -1, -1, 32, 33, 34, 35, 36, -1,
- 38, 39, 40, 41, -1, -1, -1, -1, 3, 47,
- 48, -1, 50, 8, 52, 10, 11, 12, 13, -1,
- -1, 16, 17, -1, -1, -1, -1, 22, -1, 24,
- 25, 26, 27, -1, -1, -1, -1, 32, 33, 34,
- 35, 36, -1, 38, 39, 40, 41, -1, -1, -1,
- -1, 3, 47, 48, -1, 50, 8, 52, 10, 11,
- 12, 13, -1, -1, 16, 17, -1, -1, -1, -1,
- -1, -1, 24, 25, 26, 27, -1, -1, -1, -1,
- 32, 33, 34, 35, 36, -1, 38, 39, 40, 41,
- -1, -1, 44, -1, 3, 47, 48, -1, 50, 8,
- 52, 10, 11, 12, 13, -1, -1, 16, 17, -1,
- -1, -1, -1, -1, -1, 24, 25, 26, 27, -1,
- -1, -1, -1, 32, 33, 34, 35, 36, -1, 38,
- 39, 40, 41, -1, -1, -1, -1, -1, 47, 48,
- -1, 50, -1, 52, 32, 33, 34, 35, 36, -1,
- 38, -1, 40, 41, -1, -1, -1, -1, -1, 47,
- 48
+/* YYDEFGOTO[NTERM-NUM]. */
+static const yytype_int16 yydefgoto[] =
+{
+ -1, 33, 216, 34, 35, 106, 36, 37, 38, 39,
+ 40, 41, 42, 43, 190, 44, 45, 46, 47, 48,
+ 49, 202, 208, 209, 210, 251, 56, 57, 124, 125,
+ 109, 120, 58, 50, 163, 126, 53, 54
};
-/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
-#line 3 "/usr/share/bison.simple"
-/* This file comes from bison-1.28. */
-/* Skeleton output parser for bison,
- Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
+/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+ STATE-NUM. */
+#define YYPACT_NINF -188
+static const yytype_int16 yypact[] =
+{
+ 293, -26, -188, 7, 41, 43, -188, -188, 46, 629,
+ -17, 485, 11, 23, -188, 675, -188, 65, 68, 96,
+ 77, 119, 92, 124, 127, 140, 143, -188, -188, 149,
+ 154, -188, -188, 98, -188, -188, 662, -188, 208, -188,
+ -188, -188, -188, -188, -188, -188, -188, -188, -188, -188,
+ 24, 12, -188, -36, 341, -188, -188, 177, 389, -188,
+ 142, 8, 147, 169, 185, 148, 200, 662, 208, 181,
+ -36, 581, -188, 146, 184, 189, 130, 192, 135, 197,
+ 198, 202, 207, 209, -188, -188, -188, -188, -188, -188,
+ -188, -188, -188, -188, -188, -188, -188, -188, -188, -188,
+ 180, 167, -188, -188, -188, -188, 208, -188, -188, -188,
+ -188, -188, 437, 437, -188, -188, 581, -188, -188, -188,
+ -188, -36, -188, -188, -188, 227, -188, -12, -188, 20,
+ -188, -188, -188, -188, 122, -188, -188, 179, 37, 208,
+ 208, -188, -36, -188, -188, -188, -188, -188, -188, -188,
+ -188, -188, -188, -188, -188, -188, -188, -188, -188, -188,
+ -188, 389, 389, 53, 53, 533, 533, -36, 224, -188,
+ -188, -188, -188, -188, -188, 40, -188, 171, -188, 233,
+ 190, 48, 73, -188, 247, -188, 239, 267, -188, 208,
+ -188, 208, 37, -188, -188, 437, 437, -36, -36, -188,
+ -188, -188, 276, 389, 389, 389, 389, 389, 275, 226,
+ -188, 42, -188, -188, 270, -188, 231, -188, 230, -188,
+ -188, -188, -188, -188, -188, 272, 389, 231, 234, -188,
+ -188, 37, 208, -188, 282, 287, -188, -188, -188, 76,
+ 76, 76, -188, -188, -188, -188, 229, 63, -188, -188,
+ 274, -27, 280, 241, -188, -188, -188, 99, -188, 285,
+ 246, 292, 252, -188, 227, -188, -188, -188, -188, -188,
+ -188, -188, -188, -188, -188, -188, -188, -22, 288, -188,
+ -188, -188, 131, -188, -188, -188, -188, -188, -188, 133,
+ 129, 389, 389, 389, -188, -188, -188, 389, -188, -188,
+ 297, 258, -188, -188, -188, -188, -188, 389, 302, 266,
+ -188, -188, 308, 268, -188, -188, -188, -188, -188
+};
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
+/* YYPGOTO[NTERM-NUM]. */
+static const yytype_int16 yypgoto[] =
+{
+ -188, -188, 141, -30, -25, -62, 322, -188, -5, -188,
+ -188, -188, -188, -188, -185, -188, -188, -188, -188, -188,
+ -188, 49, -188, 123, -188, 82, -171, -6, -188, -187,
+ -188, -58, -32, -188, 5, 2, 10, 329
+};
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
+/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
+ positive, shift that token. If negative, reduce the rule which
+ number is the opposite. If zero, do what YYDEFACT says.
+ If YYTABLE_NINF, syntax error. */
+#define YYTABLE_NINF -1
+static const yytype_uint16 yytable[] =
+{
+ 63, 64, 52, 132, 68, 51, 140, 233, 105, 174,
+ 114, 104, 225, 69, 228, 115, 237, 238, 239, 240,
+ 241, 70, 130, 55, 278, 100, 101, 127, 129, 278,
+ 134, 279, 59, 138, 176, 72, 294, 123, 105, 264,
+ 2, 177, 104, 110, 111, 3, 267, 4, 5, 6,
+ 7, 248, 261, 262, 212, 10, 117, 118, 119, 112,
+ 113, 139, 221, 131, 121, 16, 60, 249, 62, 123,
+ 61, 65, 276, 107, 108, 178, 160, 191, 161, 162,
+ 73, 142, 165, 166, 110, 111, 123, 223, 249, 123,
+ 84, 123, 31, 85, 32, 213, 175, 123, 102, 250,
+ 181, 182, 89, 222, 239, 240, 241, 169, 170, 105,
+ 160, 192, 123, 283, 52, 52, 168, 93, 164, 217,
+ 250, 86, 123, 87, 179, 180, 167, 232, 224, 186,
+ 187, 312, 313, 189, 304, 200, 183, 203, 204, 205,
+ 206, 207, 211, 184, 90, 298, 91, 302, 123, 94,
+ 88, 226, 95, 226, 284, 146, 231, 147, 256, 105,
+ 150, 160, 151, 52, 52, 96, 193, 194, 97, 265,
+ 214, 123, 218, 92, 98, 197, 198, 185, 247, 99,
+ 123, 122, 123, 135, 148, 257, 299, 189, 303, 152,
+ 128, 226, 226, 234, 235, 133, 215, 52, 52, 136,
+ 141, 164, 160, 2, 143, 137, 252, 253, 3, 144,
+ 4, 5, 6, 7, 145, 259, 260, 149, 10, 117,
+ 118, 119, 153, 154, 282, 159, 189, 155, 16, 199,
+ 200, 201, 156, 289, 157, 15, 158, 188, 291, 292,
+ 293, 17, 18, 19, 20, 21, 220, 297, 219, 22,
+ 23, 24, 25, 26, 229, 31, 255, 32, 169, 170,
+ 29, 30, 307, 290, 243, 244, 245, 273, 274, 275,
+ 226, 226, 215, 296, 171, 172, 173, 300, 301, 117,
+ 118, 119, 230, 236, 242, 254, 258, 263, 306, 268,
+ 266, 269, 308, 309, 1, 280, 2, 281, 314, 249,
+ 285, 3, 286, 4, 5, 6, 7, 287, 288, 8,
+ 9, 10, 310, 295, 311, 11, 12, 315, 13, 14,
+ 15, 16, 316, 317, 318, 227, 17, 18, 19, 20,
+ 21, 67, 277, 246, 22, 23, 24, 25, 26, 305,
+ 71, 0, 27, 28, 2, 29, 30, 0, 31, 3,
+ 32, 4, 5, 6, 7, 0, 0, 8, 9, 10,
+ 0, 0, 0, 116, 0, 0, 13, 14, 15, 16,
+ 0, 0, 0, 0, 17, 18, 19, 20, 21, 0,
+ 0, 0, 22, 23, 24, 25, 26, 0, 0, 117,
+ 118, 119, 2, 29, 30, 0, 31, 3, 32, 4,
+ 5, 6, 7, 0, 0, 8, 9, 10, 0, 0,
+ 0, 11, 12, 0, 13, 14, 15, 16, 0, 0,
+ 0, 0, 17, 18, 19, 20, 21, 0, 0, 0,
+ 22, 23, 24, 25, 26, 0, 0, 0, 123, 0,
+ 2, 29, 30, 0, 31, 3, 32, 4, 5, 6,
+ 7, 0, 0, 8, 9, 10, 0, 0, 0, 11,
+ 12, 0, 13, 14, 15, 16, 0, 0, 0, 0,
+ 17, 18, 19, 20, 21, 0, 0, 0, 22, 23,
+ 24, 25, 26, 0, 0, 0, 0, 0, 2, 29,
+ 30, 0, 31, 3, 32, 4, 5, 6, 7, 0,
+ 0, 8, 9, 10, 0, 0, 0, 0, 12, 0,
+ 13, 14, 15, 16, 0, 0, 0, 0, 17, 18,
+ 19, 20, 21, 0, 0, 0, 22, 23, 24, 25,
+ 26, 0, 0, 0, 0, 0, 2, 29, 30, 0,
+ 31, 3, 32, 4, 5, 6, 7, 0, 0, 8,
+ 9, 10, 0, 0, 0, 0, 0, 0, 13, 14,
+ 15, 16, 0, 0, 0, 0, 17, 18, 19, 20,
+ 21, 0, 0, 0, 22, 23, 24, 25, 26, 0,
+ 0, 0, 123, 0, 2, 29, 30, 0, 31, 3,
+ 32, 4, 5, 6, 7, 0, 0, 8, 9, 10,
+ 0, 0, 0, 0, 0, 0, 13, 14, 15, 16,
+ 0, 0, 0, 0, 17, 18, 19, 20, 21, 0,
+ 0, 0, 22, 23, 24, 25, 26, 0, 0, 0,
+ 0, 0, 2, 29, 30, 0, 31, 3, 32, 4,
+ 5, 6, 7, 0, 0, 0, 0, 10, 0, 0,
+ 0, 0, 0, 0, 66, 14, 15, 16, 0, 0,
+ 0, 0, 17, 18, 19, 20, 21, 0, 0, 0,
+ 22, 23, 24, 25, 26, 0, 0, 0, 0, 0,
+ 0, 29, 30, 0, 31, 0, 32, 103, 14, 15,
+ 0, 0, 0, 0, 0, 17, 18, 19, 20, 21,
+ 0, 0, 0, 22, 23, 24, 25, 26, 74, 75,
+ 76, 77, 78, 0, 29, 30, 79, 0, 0, 80,
+ 81, 0, 0, 0, 0, 0, 0, 82, 83
+};
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330,
- Boston, MA 02111-1307, USA. */
-
-/* As a special exception, when this file is copied by Bison into a
- Bison output file, you may use that output file without restriction.
- This special exception was added by the Free Software Foundation
- in version 1.24 of Bison. */
-
-/* This is the parser code that is written into each bison parser
- when the %semantic_parser declaration is not specified in the grammar.
- It was written by Richard Stallman by simplifying the hairy parser
- used when %semantic_parser is specified. */
-
-#ifndef YYSTACK_USE_ALLOCA
-#ifdef alloca
-#define YYSTACK_USE_ALLOCA
-#else /* alloca not defined */
-#ifdef __GNUC__
-#define YYSTACK_USE_ALLOCA
-#define alloca __builtin_alloca
-#else /* not GNU C. */
-#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) || (defined (__sun) && defined (__i386))
-#define YYSTACK_USE_ALLOCA
-#include <alloca.h>
-#else /* not sparc */
-/* We think this test detects Watcom and Microsoft C. */
-/* This used to test MSDOS, but that is a bad idea
- since that symbol is in the user namespace. */
-#if (defined (_MSDOS) || defined (_MSDOS_)) && !defined (__TURBOC__)
-#if 0 /* No need for malloc.h, which pollutes the namespace;
- instead, just don't use alloca. */
-#include <malloc.h>
-#endif
-#else /* not MSDOS, or __TURBOC__ */
-#if defined(_AIX)
-/* I don't know what this was needed for, but it pollutes the namespace.
- So I turned it off. rms, 2 May 1997. */
-/* #include <malloc.h> */
- #pragma alloca
-#define YYSTACK_USE_ALLOCA
-#else /* not MSDOS, or __TURBOC__, or _AIX */
-#if 0
-#ifdef __hpux /* haible@ilog.fr says this works for HPUX 9.05 and up,
- and on HPUX 10. Eventually we can turn this on. */
-#define YYSTACK_USE_ALLOCA
-#define alloca __builtin_alloca
-#endif /* __hpux */
-#endif
-#endif /* not _AIX */
-#endif /* not MSDOS, or __TURBOC__ */
-#endif /* not sparc */
-#endif /* not GNU C */
-#endif /* alloca not defined */
-#endif /* YYSTACK_USE_ALLOCA not defined */
-
-#ifdef YYSTACK_USE_ALLOCA
-#define YYSTACK_ALLOC alloca
-#else
-#define YYSTACK_ALLOC malloc
-#endif
+static const yytype_int16 yycheck[] =
+{
+ 6, 7, 0, 61, 9, 0, 68, 192, 38, 21,
+ 46, 36, 183, 30, 185, 51, 203, 204, 205, 206,
+ 207, 11, 14, 49, 51, 31, 32, 59, 60, 51,
+ 62, 58, 25, 65, 14, 24, 58, 49, 68, 226,
+ 3, 21, 67, 31, 32, 8, 231, 10, 11, 12,
+ 13, 9, 223, 224, 14, 18, 48, 49, 50, 47,
+ 48, 66, 14, 55, 54, 28, 25, 25, 25, 49,
+ 29, 25, 9, 49, 50, 55, 106, 139, 110, 111,
+ 57, 71, 114, 115, 31, 32, 49, 14, 25, 49,
+ 25, 49, 55, 25, 57, 55, 128, 49, 0, 57,
+ 132, 133, 25, 55, 291, 292, 293, 31, 32, 139,
+ 140, 143, 49, 14, 112, 113, 122, 25, 113, 177,
+ 57, 25, 49, 27, 130, 131, 116, 189, 55, 135,
+ 136, 302, 303, 138, 5, 6, 14, 169, 170, 171,
+ 172, 173, 174, 21, 25, 14, 27, 14, 49, 25,
+ 54, 183, 25, 185, 55, 25, 188, 27, 216, 189,
+ 25, 191, 27, 161, 162, 25, 161, 162, 25, 227,
+ 176, 49, 178, 54, 25, 165, 166, 55, 210, 25,
+ 49, 4, 49, 14, 54, 217, 55, 192, 55, 54,
+ 48, 223, 224, 199, 200, 48, 25, 195, 196, 14,
+ 19, 196, 232, 3, 58, 57, 212, 213, 8, 25,
+ 10, 11, 12, 13, 25, 221, 222, 25, 18, 48,
+ 49, 50, 25, 25, 256, 58, 231, 25, 28, 5,
+ 6, 7, 25, 265, 25, 27, 56, 58, 270, 271,
+ 272, 33, 34, 35, 36, 37, 56, 279, 15, 41,
+ 42, 43, 44, 45, 15, 55, 25, 57, 31, 32,
+ 52, 53, 294, 269, 38, 39, 40, 38, 39, 40,
+ 302, 303, 25, 279, 47, 48, 49, 283, 284, 48,
+ 49, 50, 15, 7, 9, 15, 56, 15, 294, 7,
+ 56, 4, 298, 299, 1, 15, 3, 56, 304, 25,
+ 15, 8, 56, 10, 11, 12, 13, 15, 56, 16,
+ 17, 18, 15, 25, 56, 22, 23, 15, 25, 26,
+ 27, 28, 56, 15, 56, 184, 33, 34, 35, 36,
+ 37, 9, 250, 210, 41, 42, 43, 44, 45, 290,
+ 11, -1, 49, 50, 3, 52, 53, -1, 55, 8,
+ 57, 10, 11, 12, 13, -1, -1, 16, 17, 18,
+ -1, -1, -1, 22, -1, -1, 25, 26, 27, 28,
+ -1, -1, -1, -1, 33, 34, 35, 36, 37, -1,
+ -1, -1, 41, 42, 43, 44, 45, -1, -1, 48,
+ 49, 50, 3, 52, 53, -1, 55, 8, 57, 10,
+ 11, 12, 13, -1, -1, 16, 17, 18, -1, -1,
+ -1, 22, 23, -1, 25, 26, 27, 28, -1, -1,
+ -1, -1, 33, 34, 35, 36, 37, -1, -1, -1,
+ 41, 42, 43, 44, 45, -1, -1, -1, 49, -1,
+ 3, 52, 53, -1, 55, 8, 57, 10, 11, 12,
+ 13, -1, -1, 16, 17, 18, -1, -1, -1, 22,
+ 23, -1, 25, 26, 27, 28, -1, -1, -1, -1,
+ 33, 34, 35, 36, 37, -1, -1, -1, 41, 42,
+ 43, 44, 45, -1, -1, -1, -1, -1, 3, 52,
+ 53, -1, 55, 8, 57, 10, 11, 12, 13, -1,
+ -1, 16, 17, 18, -1, -1, -1, -1, 23, -1,
+ 25, 26, 27, 28, -1, -1, -1, -1, 33, 34,
+ 35, 36, 37, -1, -1, -1, 41, 42, 43, 44,
+ 45, -1, -1, -1, -1, -1, 3, 52, 53, -1,
+ 55, 8, 57, 10, 11, 12, 13, -1, -1, 16,
+ 17, 18, -1, -1, -1, -1, -1, -1, 25, 26,
+ 27, 28, -1, -1, -1, -1, 33, 34, 35, 36,
+ 37, -1, -1, -1, 41, 42, 43, 44, 45, -1,
+ -1, -1, 49, -1, 3, 52, 53, -1, 55, 8,
+ 57, 10, 11, 12, 13, -1, -1, 16, 17, 18,
+ -1, -1, -1, -1, -1, -1, 25, 26, 27, 28,
+ -1, -1, -1, -1, 33, 34, 35, 36, 37, -1,
+ -1, -1, 41, 42, 43, 44, 45, -1, -1, -1,
+ -1, -1, 3, 52, 53, -1, 55, 8, 57, 10,
+ 11, 12, 13, -1, -1, -1, -1, 18, -1, -1,
+ -1, -1, -1, -1, 25, 26, 27, 28, -1, -1,
+ -1, -1, 33, 34, 35, 36, 37, -1, -1, -1,
+ 41, 42, 43, 44, 45, -1, -1, -1, -1, -1,
+ -1, 52, 53, -1, 55, -1, 57, 25, 26, 27,
+ -1, -1, -1, -1, -1, 33, 34, 35, 36, 37,
+ -1, -1, -1, 41, 42, 43, 44, 45, 33, 34,
+ 35, 36, 37, -1, 52, 53, 41, -1, -1, 44,
+ 45, -1, -1, -1, -1, -1, -1, 52, 53
+};
-/* Note: there must be only one dollar sign in this file.
- It is replaced by the list of actions, each action
- as one case of the switch. */
+/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
+ symbol of state STATE-NUM. */
+static const yytype_uint8 yystos[] =
+{
+ 0, 1, 3, 8, 10, 11, 12, 13, 16, 17,
+ 18, 22, 23, 25, 26, 27, 28, 33, 34, 35,
+ 36, 37, 41, 42, 43, 44, 45, 49, 50, 52,
+ 53, 55, 57, 60, 62, 63, 65, 66, 67, 68,
+ 69, 70, 71, 72, 74, 75, 76, 77, 78, 79,
+ 92, 93, 94, 95, 96, 49, 85, 86, 91, 25,
+ 25, 29, 25, 86, 86, 25, 25, 65, 67, 30,
+ 95, 96, 24, 57, 33, 34, 35, 36, 37, 41,
+ 44, 45, 52, 53, 25, 25, 25, 27, 54, 25,
+ 25, 27, 54, 25, 25, 25, 25, 25, 25, 25,
+ 86, 86, 0, 25, 63, 62, 64, 49, 50, 89,
+ 31, 32, 47, 48, 46, 51, 22, 48, 49, 50,
+ 90, 95, 4, 49, 87, 88, 94, 91, 48, 91,
+ 14, 55, 90, 48, 91, 14, 14, 57, 91, 67,
+ 64, 19, 95, 58, 25, 25, 25, 27, 54, 25,
+ 25, 27, 54, 25, 25, 25, 25, 25, 56, 58,
+ 62, 91, 91, 93, 93, 91, 91, 95, 86, 31,
+ 32, 47, 48, 49, 21, 91, 14, 21, 55, 86,
+ 86, 91, 91, 14, 21, 55, 86, 86, 58, 67,
+ 73, 64, 91, 93, 93, 47, 48, 95, 95, 5,
+ 6, 7, 80, 91, 91, 91, 91, 91, 81, 82,
+ 83, 91, 14, 55, 86, 25, 61, 90, 86, 15,
+ 56, 14, 55, 14, 55, 85, 91, 61, 85, 15,
+ 15, 91, 64, 73, 86, 86, 7, 88, 88, 88,
+ 88, 88, 9, 38, 39, 40, 82, 91, 9, 25,
+ 57, 84, 86, 86, 15, 25, 90, 91, 56, 86,
+ 86, 85, 85, 15, 88, 90, 56, 73, 7, 4,
+ 47, 48, 49, 38, 39, 40, 9, 84, 51, 58,
+ 15, 56, 91, 14, 55, 15, 56, 15, 56, 91,
+ 86, 91, 91, 91, 58, 25, 86, 91, 14, 55,
+ 86, 86, 14, 55, 5, 80, 86, 91, 86, 86,
+ 15, 56, 85, 85, 86, 15, 56, 15, 56
+};
#define yyerrok (yyerrstatus = 0)
#define yyclearin (yychar = YYEMPTY)
-#define YYEMPTY -2
+#define YYEMPTY (-2)
#define YYEOF 0
+
#define YYACCEPT goto yyacceptlab
-#define YYABORT goto yyabortlab
-#define YYERROR goto yyerrlab1
-/* Like YYERROR except do call yyerror.
- This remains here temporarily to ease the
- transition to the new meaning of YYERROR, for GCC.
+#define YYABORT goto yyabortlab
+#define YYERROR goto yyerrorlab
+
+
+/* Like YYERROR except do call yyerror. This remains here temporarily
+ to ease the transition to the new meaning of YYERROR, for GCC.
Once GCC version 2 has supplanted version 1, this can go. */
+
#define YYFAIL goto yyerrlab
+
#define YYRECOVERING() (!!yyerrstatus)
-#define YYBACKUP(token, value) \
+
+#define YYBACKUP(Token, Value) \
do \
if (yychar == YYEMPTY && yylen == 1) \
- { yychar = (token), yylval = (value); \
- yychar1 = YYTRANSLATE (yychar); \
- YYPOPSTACK; \
+ { \
+ yychar = (Token); \
+ yylval = (Value); \
+ yytoken = YYTRANSLATE (yychar); \
+ YYPOPSTACK (1); \
goto yybackup; \
} \
else \
- { yyerror ("syntax error: cannot back up"); YYERROR; } \
-while (0)
+ { \
+ yyerror (YY_("syntax error: cannot back up")); \
+ YYERROR; \
+ } \
+while (YYID (0))
+
#define YYTERROR 1
#define YYERRCODE 256
-#ifndef YYPURE
-#define YYLEX yylex()
+
+/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
+ If N is 0, then set CURRENT to the empty location which ends
+ the previous symbol: RHS[0] (always defined). */
+
+#define YYRHSLOC(Rhs, K) ((Rhs)[K])
+#ifndef YYLLOC_DEFAULT
+# define YYLLOC_DEFAULT(Current, Rhs, N) \
+ do \
+ if (YYID (N)) \
+ { \
+ (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
+ (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
+ (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
+ (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
+ } \
+ else \
+ { \
+ (Current).first_line = (Current).last_line = \
+ YYRHSLOC (Rhs, 0).last_line; \
+ (Current).first_column = (Current).last_column = \
+ YYRHSLOC (Rhs, 0).last_column; \
+ } \
+ while (YYID (0))
#endif
-#ifdef YYPURE
-#ifdef YYLSP_NEEDED
-#ifdef YYLEX_PARAM
-#define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
-#else
-#define YYLEX yylex(&yylval, &yylloc)
+
+/* YY_LOCATION_PRINT -- Print the location on the stream.
+ This macro was not mandated originally: define only if we know
+ we won't break user code: when these are the locations we know. */
+
+#ifndef YY_LOCATION_PRINT
+# if YYLTYPE_IS_TRIVIAL
+# define YY_LOCATION_PRINT(File, Loc) \
+ fprintf (File, "%d.%d-%d.%d", \
+ (Loc).first_line, (Loc).first_column, \
+ (Loc).last_line, (Loc).last_column)
+# else
+# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
+# endif
#endif
-#else /* not YYLSP_NEEDED */
+
+
+/* YYLEX -- calling `yylex' with the right arguments. */
+
#ifdef YYLEX_PARAM
-#define YYLEX yylex(&yylval, YYLEX_PARAM)
+# define YYLEX yylex (YYLEX_PARAM)
#else
-#define YYLEX yylex(&yylval)
+# define YYLEX yylex ()
#endif
-#endif /* not YYLSP_NEEDED */
+
+/* Enable debugging if requested. */
+#if YYDEBUG
+
+# ifndef YYFPRINTF
+# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
+# define YYFPRINTF fprintf
+# endif
+
+# define YYDPRINTF(Args) \
+do { \
+ if (yydebug) \
+ YYFPRINTF Args; \
+} while (YYID (0))
+
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
+do { \
+ if (yydebug) \
+ { \
+ YYFPRINTF (stderr, "%s ", Title); \
+ yy_symbol_print (stderr, \
+ Type, Value); \
+ YYFPRINTF (stderr, "\n"); \
+ } \
+} while (YYID (0))
+
+
+/*--------------------------------.
+| Print this symbol on YYOUTPUT. |
+`--------------------------------*/
+
+/*ARGSUSED*/
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+#else
+static void
+yy_symbol_value_print (yyoutput, yytype, yyvaluep)
+ FILE *yyoutput;
+ int yytype;
+ YYSTYPE const * const yyvaluep;
#endif
+{
+ if (!yyvaluep)
+ return;
+# ifdef YYPRINT
+ if (yytype < YYNTOKENS)
+ YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
+# else
+ YYUSE (yyoutput);
+# endif
+ switch (yytype)
+ {
+ default:
+ break;
+ }
+}
+
+
+/*--------------------------------.
+| Print this symbol on YYOUTPUT. |
+`--------------------------------*/
-/* If nonreentrant, generate the variables here */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+#else
+static void
+yy_symbol_print (yyoutput, yytype, yyvaluep)
+ FILE *yyoutput;
+ int yytype;
+ YYSTYPE const * const yyvaluep;
+#endif
+{
+ if (yytype < YYNTOKENS)
+ YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
+ else
+ YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
-#ifndef YYPURE
+ yy_symbol_value_print (yyoutput, yytype, yyvaluep);
+ YYFPRINTF (yyoutput, ")");
+}
-int yychar; /* the lookahead symbol */
-YYSTYPE yylval; /* the semantic value of the */
- /* lookahead symbol */
+/*------------------------------------------------------------------.
+| yy_stack_print -- Print the state stack from its BOTTOM up to its |
+| TOP (included). |
+`------------------------------------------------------------------*/
-#ifdef YYLSP_NEEDED
-YYLTYPE yylloc; /* location data for the lookahead */
- /* symbol */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_stack_print (yytype_int16 *bottom, yytype_int16 *top)
+#else
+static void
+yy_stack_print (bottom, top)
+ yytype_int16 *bottom;
+ yytype_int16 *top;
#endif
+{
+ YYFPRINTF (stderr, "Stack now");
+ for (; bottom <= top; ++bottom)
+ YYFPRINTF (stderr, " %d", *bottom);
+ YYFPRINTF (stderr, "\n");
+}
-int yynerrs; /* number of parse errors so far */
-#endif /* not YYPURE */
+# define YY_STACK_PRINT(Bottom, Top) \
+do { \
+ if (yydebug) \
+ yy_stack_print ((Bottom), (Top)); \
+} while (YYID (0))
-#if YYDEBUG != 0
-int yydebug; /* nonzero means print parse trace */
-/* Since this is uninitialized, it does not stop multiple parsers
- from coexisting. */
+
+/*------------------------------------------------.
+| Report that the YYRULE is going to be reduced. |
+`------------------------------------------------*/
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
+#else
+static void
+yy_reduce_print (yyvsp, yyrule)
+ YYSTYPE *yyvsp;
+ int yyrule;
#endif
+{
+ int yynrhs = yyr2[yyrule];
+ int yyi;
+ unsigned long int yylno = yyrline[yyrule];
+ YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
+ yyrule - 1, yylno);
+ /* The symbols being reduced. */
+ for (yyi = 0; yyi < yynrhs; yyi++)
+ {
+ fprintf (stderr, " $%d = ", yyi + 1);
+ yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
+ &(yyvsp[(yyi + 1) - (yynrhs)])
+ );
+ fprintf (stderr, "\n");
+ }
+}
+
+# define YY_REDUCE_PRINT(Rule) \
+do { \
+ if (yydebug) \
+ yy_reduce_print (yyvsp, Rule); \
+} while (YYID (0))
-/* YYINITDEPTH indicates the initial size of the parser's stacks */
+/* Nonzero means print parse trace. It is left uninitialized so that
+ multiple parsers can coexist. */
+int yydebug;
+#else /* !YYDEBUG */
+# define YYDPRINTF(Args)
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
+# define YY_STACK_PRINT(Bottom, Top)
+# define YY_REDUCE_PRINT(Rule)
+#endif /* !YYDEBUG */
+
+/* YYINITDEPTH -- initial size of the parser's stacks. */
#ifndef YYINITDEPTH
-#define YYINITDEPTH 200
+# define YYINITDEPTH 200
#endif
-/* YYMAXDEPTH is the maximum size the stacks can grow to
- (effective only if the built-in stack extension method is used). */
+/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
+ if the built-in stack extension method is used).
-#if YYMAXDEPTH == 0
-#undef YYMAXDEPTH
-#endif
+ Do not make this value too large; the results are undefined if
+ YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
+ evaluated with infinite-precision integer arithmetic. */
#ifndef YYMAXDEPTH
-#define YYMAXDEPTH 10000
+# define YYMAXDEPTH 10000
#endif
+
\f
-/* Define __yy_memcpy. Note that the size argument
- should be passed with type unsigned int, because that is what the non-GCC
- definitions require. With GCC, __builtin_memcpy takes an arg
- of type size_t, but it can handle unsigned int. */
-
-#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
-#define __yy_memcpy(TO,FROM,COUNT) __builtin_memcpy(TO,FROM,COUNT)
-#else /* not GNU C or C++ */
-#ifndef __cplusplus
-
-/* This is the most reliable way to avoid incompatibilities
- in available built-in functions on various systems. */
-static void
-__yy_memcpy (to, from, count)
- char *to;
- char *from;
- unsigned int count;
+
+#if YYERROR_VERBOSE
+
+# ifndef yystrlen
+# if defined __GLIBC__ && defined _STRING_H
+# define yystrlen strlen
+# else
+/* Return the length of YYSTR. */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static YYSIZE_T
+yystrlen (const char *yystr)
+#else
+static YYSIZE_T
+yystrlen (yystr)
+ const char *yystr;
+#endif
+{
+ YYSIZE_T yylen;
+ for (yylen = 0; yystr[yylen]; yylen++)
+ continue;
+ return yylen;
+}
+# endif
+# endif
+
+# ifndef yystpcpy
+# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
+# define yystpcpy stpcpy
+# else
+/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
+ YYDEST. */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static char *
+yystpcpy (char *yydest, const char *yysrc)
+#else
+static char *
+yystpcpy (yydest, yysrc)
+ char *yydest;
+ const char *yysrc;
+#endif
{
- register char *f = from;
- register char *t = to;
- register int i = count;
+ char *yyd = yydest;
+ const char *yys = yysrc;
+
+ while ((*yyd++ = *yys++) != '\0')
+ continue;
+
+ return yyd - 1;
+}
+# endif
+# endif
+
+# ifndef yytnamerr
+/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
+ quotes and backslashes, so that it's suitable for yyerror. The
+ heuristic is that double-quoting is unnecessary unless the string
+ contains an apostrophe, a comma, or backslash (other than
+ backslash-backslash). YYSTR is taken from yytname. If YYRES is
+ null, do not copy; instead, return the length of what the result
+ would have been. */
+static YYSIZE_T
+yytnamerr (char *yyres, const char *yystr)
+{
+ if (*yystr == '"')
+ {
+ YYSIZE_T yyn = 0;
+ char const *yyp = yystr;
+
+ for (;;)
+ switch (*++yyp)
+ {
+ case '\'':
+ case ',':
+ goto do_not_strip_quotes;
+
+ case '\\':
+ if (*++yyp != '\\')
+ goto do_not_strip_quotes;
+ /* Fall through. */
+ default:
+ if (yyres)
+ yyres[yyn] = *yyp;
+ yyn++;
+ break;
+
+ case '"':
+ if (yyres)
+ yyres[yyn] = '\0';
+ return yyn;
+ }
+ do_not_strip_quotes: ;
+ }
- while (i-- > 0)
- *t++ = *f++;
+ if (! yyres)
+ return yystrlen (yystr);
+
+ return yystpcpy (yyres, yystr) - yyres;
+}
+# endif
+
+/* Copy into YYRESULT an error message about the unexpected token
+ YYCHAR while in state YYSTATE. Return the number of bytes copied,
+ including the terminating null byte. If YYRESULT is null, do not
+ copy anything; just return the number of bytes that would be
+ copied. As a special case, return 0 if an ordinary "syntax error"
+ message will do. Return YYSIZE_MAXIMUM if overflow occurs during
+ size calculation. */
+static YYSIZE_T
+yysyntax_error (char *yyresult, int yystate, int yychar)
+{
+ int yyn = yypact[yystate];
+
+ if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
+ return 0;
+ else
+ {
+ int yytype = YYTRANSLATE (yychar);
+ YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
+ YYSIZE_T yysize = yysize0;
+ YYSIZE_T yysize1;
+ int yysize_overflow = 0;
+ enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
+ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
+ int yyx;
+
+# if 0
+ /* This is so xgettext sees the translatable formats that are
+ constructed on the fly. */
+ YY_("syntax error, unexpected %s");
+ YY_("syntax error, unexpected %s, expecting %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s or %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
+# endif
+ char *yyfmt;
+ char const *yyf;
+ static char const yyunexpected[] = "syntax error, unexpected %s";
+ static char const yyexpecting[] = ", expecting %s";
+ static char const yyor[] = " or %s";
+ char yyformat[sizeof yyunexpected
+ + sizeof yyexpecting - 1
+ + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
+ * (sizeof yyor - 1))];
+ char const *yyprefix = yyexpecting;
+
+ /* Start YYX at -YYN if negative to avoid negative indexes in
+ YYCHECK. */
+ int yyxbegin = yyn < 0 ? -yyn : 0;
+
+ /* Stay within bounds of both yycheck and yytname. */
+ int yychecklim = YYLAST - yyn + 1;
+ int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
+ int yycount = 1;
+
+ yyarg[0] = yytname[yytype];
+ yyfmt = yystpcpy (yyformat, yyunexpected);
+
+ for (yyx = yyxbegin; yyx < yyxend; ++yyx)
+ if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
+ {
+ if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
+ {
+ yycount = 1;
+ yysize = yysize0;
+ yyformat[sizeof yyunexpected - 1] = '\0';
+ break;
+ }
+ yyarg[yycount++] = yytname[yyx];
+ yysize1 = yysize + yytnamerr (0, yytname[yyx]);
+ yysize_overflow |= (yysize1 < yysize);
+ yysize = yysize1;
+ yyfmt = yystpcpy (yyfmt, yyprefix);
+ yyprefix = yyor;
+ }
+
+ yyf = YY_(yyformat);
+ yysize1 = yysize + yystrlen (yyf);
+ yysize_overflow |= (yysize1 < yysize);
+ yysize = yysize1;
+
+ if (yysize_overflow)
+ return YYSIZE_MAXIMUM;
+
+ if (yyresult)
+ {
+ /* Avoid sprintf, as that infringes on the user's name space.
+ Don't have undefined behavior even if the translation
+ produced a string with the wrong number of "%s"s. */
+ char *yyp = yyresult;
+ int yyi = 0;
+ while ((*yyp = *yyf) != '\0')
+ {
+ if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
+ {
+ yyp += yytnamerr (yyp, yyarg[yyi++]);
+ yyf += 2;
+ }
+ else
+ {
+ yyp++;
+ yyf++;
+ }
+ }
+ }
+ return yysize;
+ }
}
+#endif /* YYERROR_VERBOSE */
+\f
-#else /* __cplusplus */
+/*-----------------------------------------------.
+| Release the memory associated to this symbol. |
+`-----------------------------------------------*/
-/* This is the most reliable way to avoid incompatibilities
- in available built-in functions on various systems. */
+/*ARGSUSED*/
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
+#else
static void
-__yy_memcpy (char *to, char *from, unsigned int count)
+yydestruct (yymsg, yytype, yyvaluep)
+ const char *yymsg;
+ int yytype;
+ YYSTYPE *yyvaluep;
+#endif
{
- register char *t = to;
- register char *f = from;
- register int i = count;
+ YYUSE (yyvaluep);
- while (i-- > 0)
- *t++ = *f++;
-}
+ if (!yymsg)
+ yymsg = "Deleting";
+ YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
-#endif
-#endif
+ switch (yytype)
+ {
+
+ default:
+ break;
+ }
+}
\f
-#line 217 "/usr/share/bison.simple"
-/* The user can define YYPARSE_PARAM as the name of an argument to be passed
- into yyparse. The argument should have type void *.
- It should actually point to an object.
- Grammar actions can access the variable by casting it
- to the proper pointer type. */
+/* Prevent warnings from -Wmissing-prototypes. */
#ifdef YYPARSE_PARAM
-#ifdef __cplusplus
-#define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
-#define YYPARSE_PARAM_DECL
-#else /* not __cplusplus */
-#define YYPARSE_PARAM_ARG YYPARSE_PARAM
-#define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
-#endif /* not __cplusplus */
-#else /* not YYPARSE_PARAM */
-#define YYPARSE_PARAM_ARG
-#define YYPARSE_PARAM_DECL
-#endif /* not YYPARSE_PARAM */
-
-/* Prevent warning if -Wstrict-prototypes. */
-#ifdef __GNUC__
-#ifdef YYPARSE_PARAM
-int yyparse (void *);
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void *YYPARSE_PARAM);
#else
-int yyparse (void);
+int yyparse ();
#endif
+#else /* ! YYPARSE_PARAM */
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void);
+#else
+int yyparse ();
#endif
+#endif /* ! YYPARSE_PARAM */
+
-int
-yyparse(YYPARSE_PARAM_ARG)
- YYPARSE_PARAM_DECL
-{
- register int yystate;
- register int yyn;
- register short *yyssp;
- register YYSTYPE *yyvsp;
- int yyerrstatus; /* number of tokens to shift before error messages enabled */
- int yychar1 = 0; /* lookahead token as an internal (translated) token number */
- short yyssa[YYINITDEPTH]; /* the state stack */
- YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */
+/* The look-ahead symbol. */
+int yychar;
- short *yyss = yyssa; /* refer to the stacks thru separate pointers */
- YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */
+/* The semantic value of the look-ahead symbol. */
+YYSTYPE yylval;
-#ifdef YYLSP_NEEDED
- YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */
- YYLTYPE *yyls = yylsa;
- YYLTYPE *yylsp;
+/* Number of syntax errors so far. */
+int yynerrs;
-#define YYPOPSTACK (yyvsp--, yyssp--, yylsp--)
+
+
+/*----------.
+| yyparse. |
+`----------*/
+
+#ifdef YYPARSE_PARAM
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+int
+yyparse (void *YYPARSE_PARAM)
#else
-#define YYPOPSTACK (yyvsp--, yyssp--)
+int
+yyparse (YYPARSE_PARAM)
+ void *YYPARSE_PARAM;
#endif
+#else /* ! YYPARSE_PARAM */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+int
+yyparse (void)
+#else
+int
+yyparse ()
- int yystacksize = YYINITDEPTH;
- int yyfree_stacks = 0;
-
-#ifdef YYPURE
- int yychar;
- YYSTYPE yylval;
- int yynerrs;
-#ifdef YYLSP_NEEDED
- YYLTYPE yylloc;
#endif
#endif
+{
+
+ int yystate;
+ int yyn;
+ int yyresult;
+ /* Number of tokens to shift before error messages enabled. */
+ int yyerrstatus;
+ /* Look-ahead token as an internal (translated) token number. */
+ int yytoken = 0;
+#if YYERROR_VERBOSE
+ /* Buffer for error messages, and its allocated size. */
+ char yymsgbuf[128];
+ char *yymsg = yymsgbuf;
+ YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
+#endif
- YYSTYPE yyval; /* the variable used to return */
- /* semantic values from the action */
- /* routines */
+ /* Three stacks and their tools:
+ `yyss': related to states,
+ `yyvs': related to semantic values,
+ `yyls': related to locations.
- int yylen;
+ Refer to the stacks thru separate pointers, to allow yyoverflow
+ to reallocate them elsewhere. */
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Starting parse\n");
-#endif
+ /* The state stack. */
+ yytype_int16 yyssa[YYINITDEPTH];
+ yytype_int16 *yyss = yyssa;
+ yytype_int16 *yyssp;
+
+ /* The semantic value stack. */
+ YYSTYPE yyvsa[YYINITDEPTH];
+ YYSTYPE *yyvs = yyvsa;
+ YYSTYPE *yyvsp;
+
+
+
+#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
+
+ YYSIZE_T yystacksize = YYINITDEPTH;
+
+ /* The variables used to return semantic value and location from the
+ action routines. */
+ YYSTYPE yyval;
+
+
+ /* The number of symbols on the RHS of the reduced rule.
+ Keep to zero when no symbol should be popped. */
+ int yylen = 0;
+
+ YYDPRINTF ((stderr, "Starting parse\n"));
yystate = 0;
yyerrstatus = 0;
so that they stay on the same level as the state stack.
The wasted elements are never initialized. */
- yyssp = yyss - 1;
+ yyssp = yyss;
yyvsp = yyvs;
-#ifdef YYLSP_NEEDED
- yylsp = yyls;
-#endif
-/* Push a new state, which is found in yystate . */
-/* In all cases, when you get here, the value and location stacks
- have just been pushed. so pushing a state here evens the stacks. */
-yynewstate:
+ goto yysetstate;
- *++yyssp = yystate;
+/*------------------------------------------------------------.
+| yynewstate -- Push a new state, which is found in yystate. |
+`------------------------------------------------------------*/
+ yynewstate:
+ /* In all cases, when you get here, the value and location stacks
+ have just been pushed. So pushing a state here evens the stacks. */
+ yyssp++;
- if (yyssp >= yyss + yystacksize - 1)
- {
- /* Give user a chance to reallocate the stack */
- /* Use copies of these so that the &'s don't force the real ones into memory. */
- YYSTYPE *yyvs1 = yyvs;
- short *yyss1 = yyss;
-#ifdef YYLSP_NEEDED
- YYLTYPE *yyls1 = yyls;
-#endif
+ yysetstate:
+ *yyssp = yystate;
+ if (yyss + yystacksize - 1 <= yyssp)
+ {
/* Get the current used size of the three stacks, in elements. */
- int size = yyssp - yyss + 1;
+ YYSIZE_T yysize = yyssp - yyss + 1;
#ifdef yyoverflow
- /* Each stack pointer address is followed by the size of
- the data in use in that stack, in bytes. */
-#ifdef YYLSP_NEEDED
- /* This used to be a conditional around just the two extra args,
- but that might be undefined if yyoverflow is a macro. */
- yyoverflow("parser stack overflow",
- &yyss1, size * sizeof (*yyssp),
- &yyvs1, size * sizeof (*yyvsp),
- &yyls1, size * sizeof (*yylsp),
- &yystacksize);
-#else
- yyoverflow("parser stack overflow",
- &yyss1, size * sizeof (*yyssp),
- &yyvs1, size * sizeof (*yyvsp),
- &yystacksize);
-#endif
+ {
+ /* Give user a chance to reallocate the stack. Use copies of
+ these so that the &'s don't force the real ones into
+ memory. */
+ YYSTYPE *yyvs1 = yyvs;
+ yytype_int16 *yyss1 = yyss;
- yyss = yyss1; yyvs = yyvs1;
-#ifdef YYLSP_NEEDED
- yyls = yyls1;
-#endif
+
+ /* Each stack pointer address is followed by the size of the
+ data in use in that stack, in bytes. This used to be a
+ conditional around just the two extra args, but that might
+ be undefined if yyoverflow is a macro. */
+ yyoverflow (YY_("memory exhausted"),
+ &yyss1, yysize * sizeof (*yyssp),
+ &yyvs1, yysize * sizeof (*yyvsp),
+
+ &yystacksize);
+
+ yyss = yyss1;
+ yyvs = yyvs1;
+ }
#else /* no yyoverflow */
+# ifndef YYSTACK_RELOCATE
+ goto yyexhaustedlab;
+# else
/* Extend the stack our own way. */
- if (yystacksize >= YYMAXDEPTH)
- {
- yyerror("parser stack overflow");
- if (yyfree_stacks)
- {
- free (yyss);
- free (yyvs);
-#ifdef YYLSP_NEEDED
- free (yyls);
-#endif
- }
- return 2;
- }
+ if (YYMAXDEPTH <= yystacksize)
+ goto yyexhaustedlab;
yystacksize *= 2;
- if (yystacksize > YYMAXDEPTH)
+ if (YYMAXDEPTH < yystacksize)
yystacksize = YYMAXDEPTH;
-#ifndef YYSTACK_USE_ALLOCA
- yyfree_stacks = 1;
-#endif
- yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
- __yy_memcpy ((char *)yyss, (char *)yyss1,
- size * (unsigned int) sizeof (*yyssp));
- yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
- __yy_memcpy ((char *)yyvs, (char *)yyvs1,
- size * (unsigned int) sizeof (*yyvsp));
-#ifdef YYLSP_NEEDED
- yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
- __yy_memcpy ((char *)yyls, (char *)yyls1,
- size * (unsigned int) sizeof (*yylsp));
-#endif
+
+ {
+ yytype_int16 *yyss1 = yyss;
+ union yyalloc *yyptr =
+ (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
+ if (! yyptr)
+ goto yyexhaustedlab;
+ YYSTACK_RELOCATE (yyss);
+ YYSTACK_RELOCATE (yyvs);
+
+# undef YYSTACK_RELOCATE
+ if (yyss1 != yyssa)
+ YYSTACK_FREE (yyss1);
+ }
+# endif
#endif /* no yyoverflow */
- yyssp = yyss + size - 1;
- yyvsp = yyvs + size - 1;
-#ifdef YYLSP_NEEDED
- yylsp = yyls + size - 1;
-#endif
+ yyssp = yyss + yysize - 1;
+ yyvsp = yyvs + yysize - 1;
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Stack size increased to %d\n", yystacksize);
-#endif
- if (yyssp >= yyss + yystacksize - 1)
+ YYDPRINTF ((stderr, "Stack size increased to %lu\n",
+ (unsigned long int) yystacksize));
+
+ if (yyss + yystacksize - 1 <= yyssp)
YYABORT;
}
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Entering state %d\n", yystate);
-#endif
+ YYDPRINTF ((stderr, "Entering state %d\n", yystate));
goto yybackup;
- yybackup:
-/* Do appropriate processing given the current state. */
-/* Read a lookahead token if we need one and don't already have one. */
-/* yyresume: */
+/*-----------.
+| yybackup. |
+`-----------*/
+yybackup:
- /* First try to decide what to do without reference to lookahead token. */
+ /* Do appropriate processing given the current state. Read a
+ look-ahead token if we need one and don't already have one. */
+ /* First try to decide what to do without reference to look-ahead token. */
yyn = yypact[yystate];
- if (yyn == YYFLAG)
+ if (yyn == YYPACT_NINF)
goto yydefault;
- /* Not known => get a lookahead token if don't already have one. */
-
- /* yychar is either YYEMPTY or YYEOF
- or a valid token in external form. */
+ /* Not known => get a look-ahead token if don't already have one. */
+ /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */
if (yychar == YYEMPTY)
{
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Reading a token: ");
-#endif
+ YYDPRINTF ((stderr, "Reading a token: "));
yychar = YYLEX;
}
- /* Convert token to internal form (in yychar1) for indexing tables with */
-
- if (yychar <= 0) /* This means end of input. */
+ if (yychar <= YYEOF)
{
- yychar1 = 0;
- yychar = YYEOF; /* Don't call YYLEX any more */
-
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Now at end of input.\n");
-#endif
+ yychar = yytoken = YYEOF;
+ YYDPRINTF ((stderr, "Now at end of input.\n"));
}
else
{
- yychar1 = YYTRANSLATE(yychar);
-
-#if YYDEBUG != 0
- if (yydebug)
- {
- fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
- /* Give the individual parser a way to print the precise meaning
- of a token, for further debugging info. */
-#ifdef YYPRINT
- YYPRINT (stderr, yychar, yylval);
-#endif
- fprintf (stderr, ")\n");
- }
-#endif
+ yytoken = YYTRANSLATE (yychar);
+ YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
}
- yyn += yychar1;
- if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
+ /* If the proper action on seeing token YYTOKEN is to reduce or to
+ detect an error, take that action. */
+ yyn += yytoken;
+ if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
goto yydefault;
-
yyn = yytable[yyn];
-
- /* yyn is what to do for this token type in this state.
- Negative => reduce, -yyn is rule number.
- Positive => shift, yyn is new state.
- New state is final state => don't bother to shift,
- just return success.
- 0, or most negative number => error. */
-
- if (yyn < 0)
+ if (yyn <= 0)
{
- if (yyn == YYFLAG)
+ if (yyn == 0 || yyn == YYTABLE_NINF)
goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
- else if (yyn == 0)
- goto yyerrlab;
if (yyn == YYFINAL)
YYACCEPT;
- /* Shift the lookahead token. */
+ /* Count tokens shifted since error; after three, turn off error
+ status. */
+ if (yyerrstatus)
+ yyerrstatus--;
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
-#endif
+ /* Shift the look-ahead token. */
+ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
- /* Discard the token being shifted unless it is eof. */
+ /* Discard the shifted token unless it is eof. */
if (yychar != YYEOF)
yychar = YYEMPTY;
+ yystate = yyn;
*++yyvsp = yylval;
-#ifdef YYLSP_NEEDED
- *++yylsp = yylloc;
-#endif
-
- /* count tokens shifted since error; after three, turn off error status. */
- if (yyerrstatus) yyerrstatus--;
- yystate = yyn;
goto yynewstate;
-/* Do the default action for the current state. */
-yydefault:
+/*-----------------------------------------------------------.
+| yydefault -- do the default action for the current state. |
+`-----------------------------------------------------------*/
+yydefault:
yyn = yydefact[yystate];
if (yyn == 0)
goto yyerrlab;
+ goto yyreduce;
-/* Do a reduction. yyn is the number of a rule to reduce with. */
+
+/*-----------------------------.
+| yyreduce -- Do a reduction. |
+`-----------------------------*/
yyreduce:
+ /* yyn is the number of a rule to reduce with. */
yylen = yyr2[yyn];
- if (yylen > 0)
- yyval = yyvsp[1-yylen]; /* implement default value of the action */
-#if YYDEBUG != 0
- if (yydebug)
- {
- int i;
+ /* If YYLEN is nonzero, implement the default value of the action:
+ `$$ = $1'.
- fprintf (stderr, "Reducing via rule %d (line %d), ",
- yyn, yyrline[yyn]);
+ Otherwise, the following line sets YYVAL to garbage.
+ This behavior is undocumented and Bison
+ users should not rely upon it. Assigning to YYVAL
+ unconditionally makes the parser a bit smaller, and it avoids a
+ GCC warning that YYVAL may be used uninitialized. */
+ yyval = yyvsp[1-yylen];
- /* Print the symbols being reduced, and their result. */
- for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
- fprintf (stderr, "%s ", yytname[yyrhs[i]]);
- fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
- }
-#endif
-
- switch (yyn) {
-
-case 1:
-#line 352 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ YY_REDUCE_PRINT (yyn);
+ switch (yyn)
+ {
+ case 2:
+#line 370 "/Users/chet/src/bash/src/parse.y"
+ {
/* Case of regular command. Discard the error
safety net,and return the command just parsed. */
- global_command = yyvsp[-1].command;
+ global_command = (yyvsp[(1) - (2)].command);
eof_encountered = 0;
/* discard_parser_constructs (0); */
+ if (parser_state & PST_CMDSUBST)
+ parser_state |= PST_EOFTOKEN;
YYACCEPT;
- ;
- break;}
-case 2:
-#line 361 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ }
+ break;
+
+ case 3:
+#line 381 "/Users/chet/src/bash/src/parse.y"
+ {
/* Case of regular command, but not a very
interesting one. Return a NULL command. */
global_command = (COMMAND *)NULL;
+ if (parser_state & PST_CMDSUBST)
+ parser_state |= PST_EOFTOKEN;
YYACCEPT;
- ;
- break;}
-case 3:
-#line 368 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ }
+ break;
+
+ case 4:
+#line 390 "/Users/chet/src/bash/src/parse.y"
+ {
/* Error during parsing. Return NULL command. */
global_command = (COMMAND *)NULL;
eof_encountered = 0;
/* discard_parser_constructs (1); */
- if (interactive)
+ if (interactive && parse_and_execute_level == 0)
{
YYACCEPT;
}
{
YYABORT;
}
- ;
- break;}
-case 4:
-#line 383 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ }
+ break;
+
+ case 5:
+#line 405 "/Users/chet/src/bash/src/parse.y"
+ {
/* Case of EOF seen by itself. Do ignoreeof or
not. */
global_command = (COMMAND *)NULL;
handle_eof_input_unit ();
YYACCEPT;
- ;
- break;}
-case 5:
-#line 393 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); ;
- break;}
-case 6:
-#line 395 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-1].word_list); ;
- break;}
-case 7:
-#line 399 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (1, r_output_direction, redir);
- ;
- break;}
-case 8:
-#line 404 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (0, r_input_direction, redir);
- ;
- break;}
-case 9:
-#line 409 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_output_direction, redir);
- ;
- break;}
-case 10:
-#line 414 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_input_direction, redir);
- ;
- break;}
-case 11:
-#line 419 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (1, r_appending_to, redir);
- ;
- break;}
-case 12:
-#line 424 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_appending_to, redir);
- ;
- break;}
-case 13:
-#line 429 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (0, r_reading_until, redir);
- redir_stack[need_here_doc++] = yyval.redirect;
- ;
- break;}
-case 14:
-#line 435 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_reading_until, redir);
- redir_stack[need_here_doc++] = yyval.redirect;
- ;
- break;}
-case 15:
-#line 441 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (0, r_reading_string, redir);
- ;
- break;}
-case 16:
-#line 446 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_reading_string, redir);
- ;
- break;}
-case 17:
-#line 451 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.dest = yyvsp[0].number;
- yyval.redirect = make_redirection (0, r_duplicating_input, redir);
- ;
- break;}
-case 18:
-#line 456 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.dest = yyvsp[0].number;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input, redir);
- ;
- break;}
-case 19:
-#line 461 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.dest = yyvsp[0].number;
- yyval.redirect = make_redirection (1, r_duplicating_output, redir);
- ;
- break;}
-case 20:
-#line 466 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.dest = yyvsp[0].number;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output, redir);
- ;
- break;}
-case 21:
-#line 471 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (0, r_duplicating_input_word, redir);
- ;
- break;}
-case 22:
-#line 476 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input_word, redir);
- ;
- break;}
-case 23:
-#line 481 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (1, r_duplicating_output_word, redir);
- ;
- break;}
-case 24:
-#line 486 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output_word, redir);
- ;
- break;}
-case 25:
-#line 491 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection
+ }
+ break;
+
+ case 6:
+#line 415 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[(1) - (1)].word), (WORD_LIST *)NULL); }
+ break;
+
+ case 7:
+#line 417 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[(2) - (2)].word), (yyvsp[(1) - (2)].word_list)); }
+ break;
+
+ case 8:
+#line 421 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (1, r_output_direction, redir);
+ }
+ break;
+
+ case 9:
+#line 426 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (0, r_input_direction, redir);
+ }
+ break;
+
+ case 10:
+#line 431 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_output_direction, redir);
+ }
+ break;
+
+ case 11:
+#line 436 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_input_direction, redir);
+ }
+ break;
+
+ case 12:
+#line 441 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (1, r_appending_to, redir);
+ }
+ break;
+
+ case 13:
+#line 446 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_appending_to, redir);
+ }
+ break;
+
+ case 14:
+#line 451 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (0, r_reading_until, redir);
+ redir_stack[need_here_doc++] = (yyval.redirect);
+ }
+ break;
+
+ case 15:
+#line 457 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_reading_until, redir);
+ redir_stack[need_here_doc++] = (yyval.redirect);
+ }
+ break;
+
+ case 16:
+#line 463 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (0, r_reading_string, redir);
+ }
+ break;
+
+ case 17:
+#line 468 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_reading_string, redir);
+ }
+ break;
+
+ case 18:
+#line 473 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.dest = (yyvsp[(2) - (2)].number);
+ (yyval.redirect) = make_redirection (0, r_duplicating_input, redir);
+ }
+ break;
+
+ case 19:
+#line 478 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.dest = (yyvsp[(3) - (3)].number);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_input, redir);
+ }
+ break;
+
+ case 20:
+#line 483 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.dest = (yyvsp[(2) - (2)].number);
+ (yyval.redirect) = make_redirection (1, r_duplicating_output, redir);
+ }
+ break;
+
+ case 21:
+#line 488 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.dest = (yyvsp[(3) - (3)].number);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_output, redir);
+ }
+ break;
+
+ case 22:
+#line 493 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (0, r_duplicating_input_word, redir);
+ }
+ break;
+
+ case 23:
+#line 498 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_input_word, redir);
+ }
+ break;
+
+ case 24:
+#line 503 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (1, r_duplicating_output_word, redir);
+ }
+ break;
+
+ case 25:
+#line 508 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_output_word, redir);
+ }
+ break;
+
+ case 26:
+#line 513 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection
(0, r_deblank_reading_until, redir);
- redir_stack[need_here_doc++] = yyval.redirect;
- ;
- break;}
-case 26:
-#line 498 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection
- (yyvsp[-2].number, r_deblank_reading_until, redir);
- redir_stack[need_here_doc++] = yyval.redirect;
- ;
- break;}
-case 27:
-#line 505 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ redir_stack[need_here_doc++] = (yyval.redirect);
+ }
+ break;
+
+ case 27:
+#line 520 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection
+ ((yyvsp[(1) - (3)].number), r_deblank_reading_until, redir);
+ redir_stack[need_here_doc++] = (yyval.redirect);
+ }
+ break;
+
+ case 28:
+#line 527 "/Users/chet/src/bash/src/parse.y"
+ {
redir.dest = 0;
- yyval.redirect = make_redirection (1, r_close_this, redir);
- ;
- break;}
-case 28:
-#line 510 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ (yyval.redirect) = make_redirection (1, r_close_this, redir);
+ }
+ break;
+
+ case 29:
+#line 532 "/Users/chet/src/bash/src/parse.y"
+ {
redir.dest = 0;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
- ;
- break;}
-case 29:
-#line 515 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_close_this, redir);
+ }
+ break;
+
+ case 30:
+#line 537 "/Users/chet/src/bash/src/parse.y"
+ {
redir.dest = 0;
- yyval.redirect = make_redirection (0, r_close_this, redir);
- ;
- break;}
-case 30:
-#line 520 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ (yyval.redirect) = make_redirection (0, r_close_this, redir);
+ }
+ break;
+
+ case 31:
+#line 542 "/Users/chet/src/bash/src/parse.y"
+ {
redir.dest = 0;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
- ;
- break;}
-case 31:
-#line 525 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (1, r_err_and_out, redir);
- ;
- break;}
-case 32:
-#line 530 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_input_output, redir);
- ;
- break;}
-case 33:
-#line 535 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (0, r_input_output, redir);
- ;
- break;}
-case 34:
-#line 540 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (1, r_output_force, redir);
- ;
- break;}
-case 35:
-#line 545 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- redir.filename = yyvsp[0].word;
- yyval.redirect = make_redirection (yyvsp[-2].number, r_output_force, redir);
- ;
- break;}
-case 36:
-#line 552 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; ;
- break;}
-case 37:
-#line 554 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; ;
- break;}
-case 38:
-#line 556 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.element.redirect = yyvsp[0].redirect; yyval.element.word = 0; ;
- break;}
-case 39:
-#line 560 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.redirect = yyvsp[0].redirect;
- ;
- break;}
-case 40:
-#line 564 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_close_this, redir);
+ }
+ break;
+
+ case 32:
+#line 547 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (1, r_err_and_out, redir);
+ }
+ break;
+
+ case 33:
+#line 552 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (1, r_append_err_and_out, redir);
+ }
+ break;
+
+ case 34:
+#line 557 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_input_output, redir);
+ }
+ break;
+
+ case 35:
+#line 562 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (0, r_input_output, redir);
+ }
+ break;
+
+ case 36:
+#line 567 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(2) - (2)].word);
+ (yyval.redirect) = make_redirection (1, r_output_force, redir);
+ }
+ break;
+
+ case 37:
+#line 572 "/Users/chet/src/bash/src/parse.y"
+ {
+ redir.filename = (yyvsp[(3) - (3)].word);
+ (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_output_force, redir);
+ }
+ break;
+
+ case 38:
+#line 579 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.element).word = (yyvsp[(1) - (1)].word); (yyval.element).redirect = 0; }
+ break;
+
+ case 39:
+#line 581 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.element).word = (yyvsp[(1) - (1)].word); (yyval.element).redirect = 0; }
+ break;
+
+ case 40:
+#line 583 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.element).redirect = (yyvsp[(1) - (1)].redirect); (yyval.element).word = 0; }
+ break;
+
+ case 41:
+#line 587 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.redirect) = (yyvsp[(1) - (1)].redirect);
+ }
+ break;
+
+ case 42:
+#line 591 "/Users/chet/src/bash/src/parse.y"
+ {
register REDIRECT *t;
- for (t = yyvsp[-1].redirect; t->next; t = t->next)
+ for (t = (yyvsp[(1) - (2)].redirect); t->next; t = t->next)
;
- t->next = yyvsp[0].redirect;
- yyval.redirect = yyvsp[-1].redirect;
- ;
- break;}
-case 41:
-#line 575 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_simple_command (yyvsp[0].element, (COMMAND *)NULL); ;
- break;}
-case 42:
-#line 577 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_simple_command (yyvsp[0].element, yyvsp[-1].command); ;
- break;}
-case 43:
-#line 581 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = clean_simple_command (yyvsp[0].command); ;
- break;}
-case 44:
-#line 583 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 45:
-#line 585 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ t->next = (yyvsp[(2) - (2)].redirect);
+ (yyval.redirect) = (yyvsp[(1) - (2)].redirect);
+ }
+ break;
+
+ case 43:
+#line 602 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_simple_command ((yyvsp[(1) - (1)].element), (COMMAND *)NULL); }
+ break;
+
+ case 44:
+#line 604 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_simple_command ((yyvsp[(2) - (2)].element), (yyvsp[(1) - (2)].command)); }
+ break;
+
+ case 45:
+#line 608 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = clean_simple_command ((yyvsp[(1) - (1)].command)); }
+ break;
+
+ case 46:
+#line 610 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 47:
+#line 612 "/Users/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
- tc = yyvsp[-1].command;
+ tc = (yyvsp[(1) - (2)].command);
if (tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
- t->next = yyvsp[0].redirect;
+ t->next = (yyvsp[(2) - (2)].redirect);
}
else
- tc->redirects = yyvsp[0].redirect;
- yyval.command = yyvsp[-1].command;
- ;
- break;}
-case 46:
-#line 601 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 47:
-#line 605 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 48:
-#line 607 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 49:
-#line 609 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_while_command (yyvsp[-3].command, yyvsp[-1].command); ;
- break;}
-case 50:
-#line 611 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_until_command (yyvsp[-3].command, yyvsp[-1].command); ;
- break;}
-case 51:
-#line 613 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 52:
-#line 615 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 53:
-#line 617 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 54:
-#line 619 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 55:
-#line 621 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 56:
-#line 623 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 57:
-#line 625 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 58:
-#line 629 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ tc->redirects = (yyvsp[(2) - (2)].redirect);
+ (yyval.command) = (yyvsp[(1) - (2)].command);
+ }
+ break;
+
+ case 48:
+#line 628 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 49:
+#line 630 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 50:
+#line 634 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 51:
+#line 636 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 52:
+#line 638 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_while_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command)); }
+ break;
+
+ case 53:
+#line 640 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_until_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command)); }
+ break;
+
+ case 54:
+#line 642 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 55:
+#line 644 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 56:
+#line 646 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 57:
+#line 648 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 58:
+#line 650 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 59:
+#line 652 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 60:
+#line 654 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 61:
+#line 658 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 59:
-#line 634 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 62:
+#line 663 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 60:
-#line 639 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 63:
+#line 668 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 61:
-#line 644 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 64:
+#line 673 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 62:
-#line 649 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 65:
+#line 678 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 63:
-#line 654 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 66:
+#line 683 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 64:
-#line 659 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-7].word, (WORD_LIST *)NULL, yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 67:
+#line 688 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (9)].word), (WORD_LIST *)NULL, (yyvsp[(8) - (9)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 65:
-#line 664 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_for_command (yyvsp[-7].word, (WORD_LIST *)NULL, yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 68:
+#line 693 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_for_command ((yyvsp[(2) - (9)].word), (WORD_LIST *)NULL, (yyvsp[(8) - (9)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 66:
-#line 671 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno);
+ }
+ break;
+
+ case 69:
+#line 700 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_arith_for_command ((yyvsp[(2) - (7)].word_list), (yyvsp[(6) - (7)].command), arith_for_lineno);
if (word_top > 0) word_top--;
- ;
- break;}
-case 67:
-#line 676 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno);
+ }
+ break;
+
+ case 70:
+#line 705 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_arith_for_command ((yyvsp[(2) - (7)].word_list), (yyvsp[(6) - (7)].command), arith_for_lineno);
if (word_top > 0) word_top--;
- ;
- break;}
-case 68:
-#line 681 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_arith_for_command (yyvsp[-3].word_list, yyvsp[-1].command, arith_for_lineno);
+ }
+ break;
+
+ case 71:
+#line 710 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_arith_for_command ((yyvsp[(2) - (5)].word_list), (yyvsp[(4) - (5)].command), arith_for_lineno);
if (word_top > 0) word_top--;
- ;
- break;}
-case 69:
-#line 686 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_arith_for_command (yyvsp[-3].word_list, yyvsp[-1].command, arith_for_lineno);
+ }
+ break;
+
+ case 72:
+#line 715 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_arith_for_command ((yyvsp[(2) - (5)].word_list), (yyvsp[(4) - (5)].command), arith_for_lineno);
if (word_top > 0) word_top--;
- ;
- break;}
-case 70:
-#line 693 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_select_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 73:
+#line 722 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 71:
-#line 698 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_select_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 74:
+#line 727 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 72:
-#line 703 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_select_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 75:
+#line 732 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 73:
-#line 708 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_select_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 76:
+#line 737 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 74:
-#line 713 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_select_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 77:
+#line 742 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 75:
-#line 718 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_select_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command, word_lineno[word_top]);
+ }
+ break;
+
+ case 78:
+#line 747 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 76:
-#line 725 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_case_command (yyvsp[-4].word, (PATTERN_LIST *)NULL, word_lineno[word_top]);
+ }
+ break;
+
+ case 79:
+#line 754 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_case_command ((yyvsp[(2) - (6)].word), (PATTERN_LIST *)NULL, word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 77:
-#line 730 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_case_command (yyvsp[-5].word, yyvsp[-2].pattern, word_lineno[word_top]);
+ }
+ break;
+
+ case 80:
+#line 759 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_case_command ((yyvsp[(2) - (7)].word), (yyvsp[(5) - (7)].pattern), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 78:
-#line 735 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_case_command (yyvsp[-4].word, yyvsp[-1].pattern, word_lineno[word_top]);
+ }
+ break;
+
+ case 81:
+#line 764 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_case_command ((yyvsp[(2) - (6)].word), (yyvsp[(5) - (6)].pattern), word_lineno[word_top]);
if (word_top > 0) word_top--;
- ;
- break;}
-case 79:
-#line 742 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); ;
- break;}
-case 80:
-#line 745 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); ;
- break;}
-case 81:
-#line 748 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_function_def (yyvsp[-2].word, yyvsp[0].command, function_dstart, function_bstart); ;
- break;}
-case 82:
-#line 753 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 83:
-#line 755 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ }
+ break;
+
+ case 82:
+#line 771 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_function_def ((yyvsp[(1) - (5)].word), (yyvsp[(5) - (5)].command), function_dstart, function_bstart); }
+ break;
+
+ case 83:
+#line 774 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_function_def ((yyvsp[(2) - (6)].word), (yyvsp[(6) - (6)].command), function_dstart, function_bstart); }
+ break;
+
+ case 84:
+#line 777 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_function_def ((yyvsp[(2) - (4)].word), (yyvsp[(4) - (4)].command), function_dstart, function_bstart); }
+ break;
+
+ case 85:
+#line 781 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 86:
+#line 783 "/Users/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
- tc = yyvsp[-1].command;
+ tc = (yyvsp[(1) - (2)].command);
/* According to Posix.2 3.9.5, redirections
specified after the body of a function should
be attached to the function and performed when
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
- t->next = yyvsp[0].redirect;
+ t->next = (yyvsp[(2) - (2)].redirect);
}
else
- tc->redirects = yyvsp[0].redirect;
- yyval.command = yyvsp[-1].command;
- ;
- break;}
-case 84:
-#line 786 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = make_subshell_command (yyvsp[-1].command);
- yyval.command->flags |= CMD_WANT_SUBSHELL;
- ;
- break;}
-case 85:
-#line 793 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, (COMMAND *)NULL); ;
- break;}
-case 86:
-#line 795 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-5].command, yyvsp[-3].command, yyvsp[-1].command); ;
- break;}
-case 87:
-#line 797 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[-1].command); ;
- break;}
-case 88:
-#line 802 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_group_command (yyvsp[-1].command); ;
- break;}
-case 89:
-#line 806 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_arith_command (yyvsp[0].word_list); ;
- break;}
-case 90:
-#line 810 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[-1].command; ;
- break;}
-case 91:
-#line 814 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-2].command, yyvsp[0].command, (COMMAND *)NULL); ;
- break;}
-case 92:
-#line 816 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[0].command); ;
- break;}
-case 93:
-#line 818 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, yyvsp[0].command); ;
- break;}
-case 95:
-#line 823 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyvsp[0].pattern->next = yyvsp[-1].pattern; yyval.pattern = yyvsp[0].pattern; ;
- break;}
-case 96:
-#line 827 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); ;
- break;}
-case 97:
-#line 829 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); ;
- break;}
-case 98:
-#line 831 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); ;
- break;}
-case 99:
-#line 833 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); ;
- break;}
-case 101:
-#line 838 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyvsp[-1].pattern->next = yyvsp[-2].pattern; yyval.pattern = yyvsp[-1].pattern; ;
- break;}
-case 102:
-#line 842 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); ;
- break;}
-case 103:
-#line 844 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-2].word_list); ;
- break;}
-case 104:
-#line 853 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = yyvsp[0].command;
+ tc->redirects = (yyvsp[(2) - (2)].redirect);
+ (yyval.command) = (yyvsp[(1) - (2)].command);
+ }
+ break;
+
+ case 87:
+#line 814 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_subshell_command ((yyvsp[(2) - (3)].command));
+ (yyval.command)->flags |= CMD_WANT_SUBSHELL;
+ }
+ break;
+
+ case 88:
+#line 821 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_coproc_command ("COPROC", (yyvsp[(2) - (2)].command));
+ (yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
+ }
+ break;
+
+ case 89:
+#line 826 "/Users/chet/src/bash/src/parse.y"
+ {
+ COMMAND *tc;
+
+ tc = (yyvsp[(2) - (3)].command);
+ if (tc->redirects)
+ {
+ register REDIRECT *t;
+ for (t = tc->redirects; t->next; t = t->next)
+ ;
+ t->next = (yyvsp[(3) - (3)].redirect);
+ }
+ else
+ tc->redirects = (yyvsp[(3) - (3)].redirect);
+ (yyval.command) = make_coproc_command ("COPROC", (yyvsp[(2) - (3)].command));
+ (yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
+ }
+ break;
+
+ case 90:
+#line 843 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_coproc_command ((yyvsp[(2) - (3)].word)->word, (yyvsp[(3) - (3)].command));
+ (yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
+ }
+ break;
+
+ case 91:
+#line 848 "/Users/chet/src/bash/src/parse.y"
+ {
+ COMMAND *tc;
+
+ tc = (yyvsp[(3) - (4)].command);
+ if (tc->redirects)
+ {
+ register REDIRECT *t;
+ for (t = tc->redirects; t->next; t = t->next)
+ ;
+ t->next = (yyvsp[(4) - (4)].redirect);
+ }
+ else
+ tc->redirects = (yyvsp[(4) - (4)].redirect);
+ (yyval.command) = make_coproc_command ((yyvsp[(2) - (4)].word)->word, (yyvsp[(3) - (4)].command));
+ (yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
+ }
+ break;
+
+ case 92:
+#line 865 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_coproc_command ("COPROC", clean_simple_command ((yyvsp[(2) - (2)].command)));
+ (yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
+ }
+ break;
+
+ case 93:
+#line 872 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command), (COMMAND *)NULL); }
+ break;
+
+ case 94:
+#line 874 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[(2) - (7)].command), (yyvsp[(4) - (7)].command), (yyvsp[(6) - (7)].command)); }
+ break;
+
+ case 95:
+#line 876 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[(2) - (6)].command), (yyvsp[(4) - (6)].command), (yyvsp[(5) - (6)].command)); }
+ break;
+
+ case 96:
+#line 881 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_group_command ((yyvsp[(2) - (3)].command)); }
+ break;
+
+ case 97:
+#line 885 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_arith_command ((yyvsp[(1) - (1)].word_list)); }
+ break;
+
+ case 98:
+#line 889 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(2) - (3)].command); }
+ break;
+
+ case 99:
+#line 893 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[(2) - (4)].command), (yyvsp[(4) - (4)].command), (COMMAND *)NULL); }
+ break;
+
+ case 100:
+#line 895 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[(2) - (6)].command), (yyvsp[(4) - (6)].command), (yyvsp[(6) - (6)].command)); }
+ break;
+
+ case 101:
+#line 897 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command), (yyvsp[(5) - (5)].command)); }
+ break;
+
+ case 103:
+#line 902 "/Users/chet/src/bash/src/parse.y"
+ { (yyvsp[(2) - (2)].pattern)->next = (yyvsp[(1) - (2)].pattern); (yyval.pattern) = (yyvsp[(2) - (2)].pattern); }
+ break;
+
+ case 104:
+#line 906 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[(2) - (4)].word_list), (yyvsp[(4) - (4)].command)); }
+ break;
+
+ case 105:
+#line 908 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[(2) - (4)].word_list), (COMMAND *)NULL); }
+ break;
+
+ case 106:
+#line 910 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[(3) - (5)].word_list), (yyvsp[(5) - (5)].command)); }
+ break;
+
+ case 107:
+#line 912 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[(3) - (5)].word_list), (COMMAND *)NULL); }
+ break;
+
+ case 108:
+#line 916 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = (yyvsp[(1) - (2)].pattern); }
+ break;
+
+ case 109:
+#line 918 "/Users/chet/src/bash/src/parse.y"
+ { (yyvsp[(2) - (3)].pattern)->next = (yyvsp[(1) - (3)].pattern); (yyval.pattern) = (yyvsp[(2) - (3)].pattern); }
+ break;
+
+ case 110:
+#line 920 "/Users/chet/src/bash/src/parse.y"
+ { (yyvsp[(1) - (2)].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyval.pattern) = (yyvsp[(1) - (2)].pattern); }
+ break;
+
+ case 111:
+#line 922 "/Users/chet/src/bash/src/parse.y"
+ { (yyvsp[(2) - (3)].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyvsp[(2) - (3)].pattern)->next = (yyvsp[(1) - (3)].pattern); (yyval.pattern) = (yyvsp[(2) - (3)].pattern); }
+ break;
+
+ case 112:
+#line 924 "/Users/chet/src/bash/src/parse.y"
+ { (yyvsp[(1) - (2)].pattern)->flags |= CASEPAT_TESTNEXT; (yyval.pattern) = (yyvsp[(1) - (2)].pattern); }
+ break;
+
+ case 113:
+#line 926 "/Users/chet/src/bash/src/parse.y"
+ { (yyvsp[(2) - (3)].pattern)->flags |= CASEPAT_TESTNEXT; (yyvsp[(2) - (3)].pattern)->next = (yyvsp[(1) - (3)].pattern); (yyval.pattern) = (yyvsp[(2) - (3)].pattern); }
+ break;
+
+ case 114:
+#line 930 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[(1) - (1)].word), (WORD_LIST *)NULL); }
+ break;
+
+ case 115:
+#line 932 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[(3) - (3)].word), (yyvsp[(1) - (3)].word_list)); }
+ break;
+
+ case 116:
+#line 941 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = (yyvsp[(2) - (2)].command);
if (need_here_doc)
gather_here_documents ();
- ;
- break;}
-case 106:
-#line 862 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = yyvsp[0].command;
- ;
- break;}
-case 108:
-#line 869 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[-2].command->type == cm_connection)
- yyval.command = connect_async_list (yyvsp[-2].command, (COMMAND *)NULL, '&');
+ }
+ break;
+
+ case 118:
+#line 950 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = (yyvsp[(2) - (2)].command);
+ }
+ break;
+
+ case 120:
+#line 957 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(1) - (3)].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[(1) - (3)].command), (COMMAND *)NULL, '&');
else
- yyval.command = command_connect (yyvsp[-2].command, (COMMAND *)NULL, '&');
- ;
- break;}
-case 110:
-#line 880 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); ;
- break;}
-case 111:
-#line 882 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); ;
- break;}
-case 112:
-#line 884 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[-3].command->type == cm_connection)
- yyval.command = connect_async_list (yyvsp[-3].command, yyvsp[0].command, '&');
+ (yyval.command) = command_connect ((yyvsp[(1) - (3)].command), (COMMAND *)NULL, '&');
+ }
+ break;
+
+ case 122:
+#line 968 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), AND_AND); }
+ break;
+
+ case 123:
+#line 970 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), OR_OR); }
+ break;
+
+ case 124:
+#line 972 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(1) - (4)].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '&');
else
- yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '&');
- ;
- break;}
-case 113:
-#line 891 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); ;
- break;}
-case 114:
-#line 893 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); ;
- break;}
-case 115:
-#line 895 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 118:
-#line 903 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.number = '\n'; ;
- break;}
-case 119:
-#line 905 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.number = ';'; ;
- break;}
-case 120:
-#line 907 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.number = yacc_EOF; ;
- break;}
-case 123:
-#line 921 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = yyvsp[0].command;
+ (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '&');
+ }
+ break;
+
+ case 125:
+#line 979 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), ';'); }
+ break;
+
+ case 126:
+#line 981 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), ';'); }
+ break;
+
+ case 127:
+#line 983 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 130:
+#line 991 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.number) = '\n'; }
+ break;
+
+ case 131:
+#line 993 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.number) = ';'; }
+ break;
+
+ case 132:
+#line 995 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.number) = yacc_EOF; }
+ break;
+
+ case 135:
+#line 1009 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = (yyvsp[(1) - (1)].command);
if (need_here_doc)
gather_here_documents ();
- ;
- break;}
-case 124:
-#line 927 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[-1].command->type == cm_connection)
- yyval.command = connect_async_list (yyvsp[-1].command, (COMMAND *)NULL, '&');
+ if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
+ {
+ global_command = (yyvsp[(1) - (1)].command);
+ eof_encountered = 0;
+ rewind_input_string ();
+ YYACCEPT;
+ }
+ }
+ break;
+
+ case 136:
+#line 1022 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(1) - (2)].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[(1) - (2)].command), (COMMAND *)NULL, '&');
else
- yyval.command = command_connect (yyvsp[-1].command, (COMMAND *)NULL, '&');
+ (yyval.command) = command_connect ((yyvsp[(1) - (2)].command), (COMMAND *)NULL, '&');
if (need_here_doc)
gather_here_documents ();
- ;
- break;}
-case 125:
-#line 936 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- yyval.command = yyvsp[-1].command;
+ if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
+ {
+ global_command = (yyvsp[(1) - (2)].command);
+ eof_encountered = 0;
+ rewind_input_string ();
+ YYACCEPT;
+ }
+ }
+ break;
+
+ case 137:
+#line 1038 "/Users/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = (yyvsp[(1) - (2)].command);
if (need_here_doc)
gather_here_documents ();
- ;
- break;}
-case 126:
-#line 944 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); ;
- break;}
-case 127:
-#line 946 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); ;
- break;}
-case 128:
-#line 948 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[-2].command->type == cm_connection)
- yyval.command = connect_async_list (yyvsp[-2].command, yyvsp[0].command, '&');
+ if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
+ {
+ global_command = (yyvsp[(1) - (2)].command);
+ eof_encountered = 0;
+ rewind_input_string ();
+ YYACCEPT;
+ }
+ }
+ break;
+
+ case 138:
+#line 1053 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), AND_AND); }
+ break;
+
+ case 139:
+#line 1055 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), OR_OR); }
+ break;
+
+ case 140:
+#line 1057 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(1) - (3)].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), '&');
else
- yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, '&');
- ;
- break;}
-case 129:
-#line 955 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, ';'); ;
- break;}
-case 130:
-#line 958 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 131:
-#line 962 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 132:
-#line 964 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[0].command)
- yyvsp[0].command->flags |= CMD_INVERT_RETURN;
- yyval.command = yyvsp[0].command;
- ;
- break;}
-case 133:
-#line 970 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[0].command)
- yyvsp[0].command->flags |= yyvsp[-1].number;
- yyval.command = yyvsp[0].command;
- ;
- break;}
-case 134:
-#line 976 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[0].command)
- yyvsp[0].command->flags |= yyvsp[-2].number|CMD_INVERT_RETURN;
- yyval.command = yyvsp[0].command;
- ;
- break;}
-case 135:
-#line 982 "/usr/src/local/chet/src/bash/src/parse.y"
-{
- if (yyvsp[0].command)
- yyvsp[0].command->flags |= yyvsp[-1].number|CMD_INVERT_RETURN;
- yyval.command = yyvsp[0].command;
- ;
- break;}
-case 136:
-#line 988 "/usr/src/local/chet/src/bash/src/parse.y"
-{
+ (yyval.command) = command_connect ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), '&');
+ }
+ break;
+
+ case 141:
+#line 1064 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), ';'); }
+ break;
+
+ case 142:
+#line 1067 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 143:
+#line 1071 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 144:
+#line 1073 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(2) - (2)].command))
+ (yyvsp[(2) - (2)].command)->flags |= CMD_INVERT_RETURN;
+ (yyval.command) = (yyvsp[(2) - (2)].command);
+ }
+ break;
+
+ case 145:
+#line 1079 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(2) - (2)].command))
+ (yyvsp[(2) - (2)].command)->flags |= (yyvsp[(1) - (2)].number);
+ (yyval.command) = (yyvsp[(2) - (2)].command);
+ }
+ break;
+
+ case 146:
+#line 1085 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(3) - (3)].command))
+ (yyvsp[(3) - (3)].command)->flags |= (yyvsp[(1) - (3)].number)|CMD_INVERT_RETURN;
+ (yyval.command) = (yyvsp[(3) - (3)].command);
+ }
+ break;
+
+ case 147:
+#line 1091 "/Users/chet/src/bash/src/parse.y"
+ {
+ if ((yyvsp[(3) - (3)].command))
+ (yyvsp[(3) - (3)].command)->flags |= (yyvsp[(2) - (3)].number)|CMD_INVERT_RETURN;
+ (yyval.command) = (yyvsp[(3) - (3)].command);
+ }
+ break;
+
+ case 148:
+#line 1097 "/Users/chet/src/bash/src/parse.y"
+ {
ELEMENT x;
/* Boy, this is unclean. `time' by itself can
terminate this, one to terminate the command) */
x.word = 0;
x.redirect = 0;
- yyval.command = make_simple_command (x, (COMMAND *)NULL);
- yyval.command->flags |= yyvsp[-1].number;
+ (yyval.command) = make_simple_command (x, (COMMAND *)NULL);
+ (yyval.command)->flags |= (yyvsp[(1) - (2)].number);
/* XXX - let's cheat and push a newline back */
- if (yyvsp[0].number == '\n')
+ if ((yyvsp[(2) - (2)].number) == '\n')
token_to_read = '\n';
- ;
- break;}
-case 137:
-#line 1009 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '|'); ;
- break;}
-case 138:
-#line 1011 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
- break;}
-case 139:
-#line 1015 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.number = CMD_TIME_PIPELINE; ;
- break;}
-case 140:
-#line 1017 "/usr/src/local/chet/src/bash/src/parse.y"
-{ yyval.number = CMD_TIME_PIPELINE|CMD_TIME_POSIX; ;
- break;}
-}
- /* the action file gets copied in in place of this dollarsign */
-#line 543 "/usr/share/bison.simple"
-\f
- yyvsp -= yylen;
- yyssp -= yylen;
-#ifdef YYLSP_NEEDED
- yylsp -= yylen;
-#endif
+ }
+ break;
-#if YYDEBUG != 0
- if (yydebug)
+ case 149:
+#line 1117 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '|'); }
+ break;
+
+ case 150:
+#line 1119 "/Users/chet/src/bash/src/parse.y"
{
- short *ssp1 = yyss - 1;
- fprintf (stderr, "state stack now");
- while (ssp1 != yyssp)
- fprintf (stderr, " %d", *++ssp1);
- fprintf (stderr, "\n");
+ /* Make cmd1 |& cmd2 equivalent to cmd1 2>&1 | cmd2 */
+ COMMAND *tc;
+ REDIRECTEE rd;
+ REDIRECT *r;
+
+ tc = (yyvsp[(1) - (4)].command);
+ rd.dest = 1;
+ r = make_redirection (2, r_duplicating_output, rd);
+ if (tc->redirects)
+ {
+ register REDIRECT *t;
+ for (t = tc->redirects; t->next; t = t->next)
+ ;
+ t->next = r;
+ }
+ else
+ tc->redirects = r;
+
+ (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '|');
+ }
+ break;
+
+ case 151:
+#line 1141 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ break;
+
+ case 152:
+#line 1145 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.number) = CMD_TIME_PIPELINE; }
+ break;
+
+ case 153:
+#line 1147 "/Users/chet/src/bash/src/parse.y"
+ { (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+ break;
+
+
+/* Line 1267 of yacc.c. */
+#line 3193 "y.tab.c"
+ default: break;
}
-#endif
+ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
+
+ YYPOPSTACK (yylen);
+ yylen = 0;
+ YY_STACK_PRINT (yyss, yyssp);
*++yyvsp = yyval;
-#ifdef YYLSP_NEEDED
- yylsp++;
- if (yylen == 0)
- {
- yylsp->first_line = yylloc.first_line;
- yylsp->first_column = yylloc.first_column;
- yylsp->last_line = (yylsp-1)->last_line;
- yylsp->last_column = (yylsp-1)->last_column;
- yylsp->text = 0;
- }
- else
- {
- yylsp->last_line = (yylsp+yylen-1)->last_line;
- yylsp->last_column = (yylsp+yylen-1)->last_column;
- }
-#endif
- /* Now "shift" the result of the reduction.
- Determine what state that goes to,
- based on the state we popped back to
- and the rule number reduced by. */
+ /* Now `shift' the result of the reduction. Determine what state
+ that goes to, based on the state we popped back to and the rule
+ number reduced by. */
yyn = yyr1[yyn];
- yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
- if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
+ yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
+ if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
yystate = yytable[yystate];
else
- yystate = yydefgoto[yyn - YYNTBASE];
+ yystate = yydefgoto[yyn - YYNTOKENS];
goto yynewstate;
-yyerrlab: /* here on detecting error */
- if (! yyerrstatus)
- /* If not already recovering from an error, report this error. */
+/*------------------------------------.
+| yyerrlab -- here on detecting error |
+`------------------------------------*/
+yyerrlab:
+ /* If not already recovering from an error, report this error. */
+ if (!yyerrstatus)
{
++yynerrs;
+#if ! YYERROR_VERBOSE
+ yyerror (YY_("syntax error"));
+#else
+ {
+ YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
+ if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
+ {
+ YYSIZE_T yyalloc = 2 * yysize;
+ if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
+ yyalloc = YYSTACK_ALLOC_MAXIMUM;
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+ yymsg = (char *) YYSTACK_ALLOC (yyalloc);
+ if (yymsg)
+ yymsg_alloc = yyalloc;
+ else
+ {
+ yymsg = yymsgbuf;
+ yymsg_alloc = sizeof yymsgbuf;
+ }
+ }
-#ifdef YYERROR_VERBOSE
- yyn = yypact[yystate];
-
- if (yyn > YYFLAG && yyn < YYLAST)
- {
- int size = 0;
- char *msg;
- int x, count;
-
- count = 0;
- /* Start X at -yyn if nec to avoid negative indexes in yycheck. */
- for (x = (yyn < 0 ? -yyn : 0);
- x < (sizeof(yytname) / sizeof(char *)); x++)
- if (yycheck[x + yyn] == x)
- size += strlen(yytname[x]) + 15, count++;
- msg = (char *) malloc(size + 15);
- if (msg != 0)
- {
- strcpy(msg, "parse error");
-
- if (count < 5)
- {
- count = 0;
- for (x = (yyn < 0 ? -yyn : 0);
- x < (sizeof(yytname) / sizeof(char *)); x++)
- if (yycheck[x + yyn] == x)
- {
- strcat(msg, count == 0 ? ", expecting `" : " or `");
- strcat(msg, yytname[x]);
- strcat(msg, "'");
- count++;
- }
- }
- yyerror(msg);
- free(msg);
- }
- else
- yyerror ("parse error; also virtual memory exceeded");
- }
- else
-#endif /* YYERROR_VERBOSE */
- yyerror("parse error");
+ if (0 < yysize && yysize <= yymsg_alloc)
+ {
+ (void) yysyntax_error (yymsg, yystate, yychar);
+ yyerror (yymsg);
+ }
+ else
+ {
+ yyerror (YY_("syntax error"));
+ if (yysize != 0)
+ goto yyexhaustedlab;
+ }
+ }
+#endif
}
- goto yyerrlab1;
-yyerrlab1: /* here on error raised explicitly by an action */
+
if (yyerrstatus == 3)
{
- /* if just tried and failed to reuse lookahead token after an error, discard it. */
-
- /* return failure if at end of input */
- if (yychar == YYEOF)
- YYABORT;
-
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
-#endif
+ /* If just tried and failed to reuse look-ahead token after an
+ error, discard it. */
- yychar = YYEMPTY;
+ if (yychar <= YYEOF)
+ {
+ /* Return failure if at end of input. */
+ if (yychar == YYEOF)
+ YYABORT;
+ }
+ else
+ {
+ yydestruct ("Error: discarding",
+ yytoken, &yylval);
+ yychar = YYEMPTY;
+ }
}
- /* Else will try to reuse lookahead token
- after shifting the error token. */
+ /* Else will try to reuse look-ahead token after shifting the error
+ token. */
+ goto yyerrlab1;
- yyerrstatus = 3; /* Each real token shifted decrements this */
- goto yyerrhandle;
+/*---------------------------------------------------.
+| yyerrorlab -- error raised explicitly by YYERROR. |
+`---------------------------------------------------*/
+yyerrorlab:
-yyerrdefault: /* current state does not do anything special for the error token. */
+ /* Pacify compilers like GCC when the user code never invokes
+ YYERROR and the label yyerrorlab therefore never appears in user
+ code. */
+ if (/*CONSTCOND*/ 0)
+ goto yyerrorlab;
-#if 0
- /* This is wrong; only states that explicitly want error tokens
- should shift them. */
- yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/
- if (yyn) goto yydefault;
-#endif
+ /* Do not reclaim the symbols of the rule which action triggered
+ this YYERROR. */
+ YYPOPSTACK (yylen);
+ yylen = 0;
+ YY_STACK_PRINT (yyss, yyssp);
+ yystate = *yyssp;
+ goto yyerrlab1;
-yyerrpop: /* pop the current state because it cannot handle the error token */
- if (yyssp == yyss) YYABORT;
- yyvsp--;
- yystate = *--yyssp;
-#ifdef YYLSP_NEEDED
- yylsp--;
-#endif
+/*-------------------------------------------------------------.
+| yyerrlab1 -- common code for both syntax error and YYERROR. |
+`-------------------------------------------------------------*/
+yyerrlab1:
+ yyerrstatus = 3; /* Each real token shifted decrements this. */
-#if YYDEBUG != 0
- if (yydebug)
+ for (;;)
{
- short *ssp1 = yyss - 1;
- fprintf (stderr, "Error: state stack now");
- while (ssp1 != yyssp)
- fprintf (stderr, " %d", *++ssp1);
- fprintf (stderr, "\n");
- }
-#endif
-
-yyerrhandle:
+ yyn = yypact[yystate];
+ if (yyn != YYPACT_NINF)
+ {
+ yyn += YYTERROR;
+ if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
+ {
+ yyn = yytable[yyn];
+ if (0 < yyn)
+ break;
+ }
+ }
- yyn = yypact[yystate];
- if (yyn == YYFLAG)
- goto yyerrdefault;
+ /* Pop the current state because it cannot handle the error token. */
+ if (yyssp == yyss)
+ YYABORT;
- yyn += YYTERROR;
- if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
- goto yyerrdefault;
- yyn = yytable[yyn];
- if (yyn < 0)
- {
- if (yyn == YYFLAG)
- goto yyerrpop;
- yyn = -yyn;
- goto yyreduce;
+ yydestruct ("Error: popping",
+ yystos[yystate], yyvsp);
+ YYPOPSTACK (1);
+ yystate = *yyssp;
+ YY_STACK_PRINT (yyss, yyssp);
}
- else if (yyn == 0)
- goto yyerrpop;
if (yyn == YYFINAL)
YYACCEPT;
-#if YYDEBUG != 0
- if (yydebug)
- fprintf(stderr, "Shifting error token, ");
-#endif
-
*++yyvsp = yylval;
-#ifdef YYLSP_NEEDED
- *++yylsp = yylloc;
-#endif
+
+
+ /* Shift the error token. */
+ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
yystate = yyn;
goto yynewstate;
- yyacceptlab:
- /* YYACCEPT comes here. */
- if (yyfree_stacks)
- {
- free (yyss);
- free (yyvs);
-#ifdef YYLSP_NEEDED
- free (yyls);
+
+/*-------------------------------------.
+| yyacceptlab -- YYACCEPT comes here. |
+`-------------------------------------*/
+yyacceptlab:
+ yyresult = 0;
+ goto yyreturn;
+
+/*-----------------------------------.
+| yyabortlab -- YYABORT comes here. |
+`-----------------------------------*/
+yyabortlab:
+ yyresult = 1;
+ goto yyreturn;
+
+#ifndef yyoverflow
+/*-------------------------------------------------.
+| yyexhaustedlab -- memory exhaustion comes here. |
+`-------------------------------------------------*/
+yyexhaustedlab:
+ yyerror (YY_("memory exhausted"));
+ yyresult = 2;
+ /* Fall through. */
#endif
- }
- return 0;
- yyabortlab:
- /* YYABORT comes here. */
- if (yyfree_stacks)
+yyreturn:
+ if (yychar != YYEOF && yychar != YYEMPTY)
+ yydestruct ("Cleanup: discarding lookahead",
+ yytoken, &yylval);
+ /* Do not reclaim the symbols of the rule which action triggered
+ this YYABORT or YYACCEPT. */
+ YYPOPSTACK (yylen);
+ YY_STACK_PRINT (yyss, yyssp);
+ while (yyssp != yyss)
{
- free (yyss);
- free (yyvs);
-#ifdef YYLSP_NEEDED
- free (yyls);
-#endif
+ yydestruct ("Cleanup: popping",
+ yystos[*yyssp], yyvsp);
+ YYPOPSTACK (1);
}
- return 1;
+#ifndef yyoverflow
+ if (yyss != yyssa)
+ YYSTACK_FREE (yyss);
+#endif
+#if YYERROR_VERBOSE
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+#endif
+ /* Make sure YYID is used. */
+ return YYID (yyresult);
}
-#line 1019 "/usr/src/local/chet/src/bash/src/parse.y"
-
-
-/* Possible states for the parser that require it to do special things. */
-#define PST_CASEPAT 0x0001 /* in a case pattern list */
-#define PST_ALEXPNEXT 0x0002 /* expand next word for aliases */
-#define PST_ALLOWOPNBRC 0x0004 /* allow open brace for function def */
-#define PST_NEEDCLOSBRC 0x0008 /* need close brace */
-#define PST_DBLPAREN 0x0010 /* double-paren parsing */
-#define PST_SUBSHELL 0x0020 /* ( ... ) subshell */
-#define PST_CMDSUBST 0x0040 /* $( ... ) command substitution */
-#define PST_CASESTMT 0x0080 /* parsing a case statement */
-#define PST_CONDCMD 0x0100 /* parsing a [[...]] command */
-#define PST_CONDEXPR 0x0200 /* parsing the guts of [[...]] */
-#define PST_ARITHFOR 0x0400 /* parsing an arithmetic for command */
-#define PST_ALEXPAND 0x0800 /* OK to expand aliases - unused */
-#define PST_CMDTOKEN 0x1000 /* command token OK - unused */
-#define PST_COMPASSIGN 0x2000 /* parsing x=(...) compound assignment */
-#define PST_ASSIGNOK 0x4000 /* assignment statement ok in this context */
-/* Initial size to allocate for tokens, and the
- amount to grow them by. */
-#define TOKEN_DEFAULT_INITIAL_SIZE 496
-#define TOKEN_DEFAULT_GROW_SIZE 512
-/* Should we call prompt_again? */
-#define SHOULD_PROMPT() \
- (interactive && (bash_input.type == st_stdin || bash_input.type == st_stream))
+#line 1149 "/Users/chet/src/bash/src/parse.y"
-#if defined (ALIAS)
-# define expanding_alias() (pushed_string_list && pushed_string_list->expander)
-#else
-# define expanding_alias() 0
-#endif
-
-/* The token currently being read. */
-static int current_token;
-
-/* The last read token, or NULL. read_token () uses this for context
- checking. */
-static int last_read_token;
-/* The token read prior to last_read_token. */
-static int token_before_that;
+/* Initial size to allocate for tokens, and the
+ amount to grow them by. */
+#define TOKEN_DEFAULT_INITIAL_SIZE 496
+#define TOKEN_DEFAULT_GROW_SIZE 512
-/* The token read prior to token_before_that. */
-static int two_tokens_ago;
+/* Should we call prompt_again? */
+#define SHOULD_PROMPT() \
+ (interactive && (bash_input.type == st_stdin || bash_input.type == st_stream))
-/* The current parser state. */
-static int parser_state;
+#if defined (ALIAS)
+# define expanding_alias() (pushed_string_list && pushed_string_list->expander)
+#else
+# define expanding_alias() 0
+#endif
/* Global var is non-zero when end of file has been reached. */
int EOF_Reached = 0;
old_sigint = (SigHandler *)set_signal_handler (SIGINT, sigint_sighandler);
interrupt_immediately++;
}
+ terminate_immediately = 1;
current_readline_line = readline (current_readline_prompt ?
current_readline_prompt : "");
+ terminate_immediately = 0;
if (signal_is_ignored (SIGINT) == 0 && old_sigint)
{
interrupt_immediately--;
init_yy_io (yy_string_get, yy_string_unget, st_string, name, location);
}
+/* Count the number of characters we've consumed from bash_input.location.string
+ and read into shell_input_line, but have not returned from shell_getc.
+ That is the true input location. Rewind bash_input.location.string by
+ that number of characters, so it points to the last character actually
+ consumed by the parser. */
+static void
+rewind_input_string ()
+{
+ int xchars;
+
+ /* number of unconsumed characters in the input -- XXX need to take newlines
+ into account, e.g., $(...\n) */
+ xchars = shell_input_line_len - shell_input_line_index;
+ if (bash_input.location.string[-1] == '\n')
+ xchars++;
+
+ /* XXX - how to reflect bash_input.location.string back to string passed to
+ parse_and_execute or xparse_dolparen? xparse_dolparen needs to know how
+ far into the string we parsed. parse_and_execute knows where bash_input.
+ location.string is, and how far from orig_string that is -- that's the
+ number of characters the command consumed. */
+
+ /* bash_input.location.string - xchars should be where we parsed to */
+ /* need to do more validation on xchars value for sanity -- test cases. */
+ bash_input.location.string -= xchars;
+}
+
/* **************************************************************** */
/* */
/* Let input come from STREAM. */
if (bash_input.location.file)
{
if (interactive)
- interrupt_immediately++;
+ {
+ interrupt_immediately++;
+ terminate_immediately++;
+ }
result = getc_with_restart (bash_input.location.file);
if (interactive)
- interrupt_immediately--;
+ {
+ interrupt_immediately--;
+ terminate_immediately--;
+ }
}
return (result);
}
read_secondary_line (remove_quoted_newline)
int remove_quoted_newline;
{
+ char *ret;
+ int n, c;
+
prompt_string_pointer = &ps2_prompt;
if (SHOULD_PROMPT())
prompt_again ();
- return (read_a_line (remove_quoted_newline));
+ ret = read_a_line (remove_quoted_newline);
+#if defined (HISTORY)
+ if (remember_on_history && (parser_state & PST_HEREDOC))
+ {
+ /* To make adding the the here-document body right, we need to rely
+ on history_delimiting_chars() returning \n for the first line of
+ the here-document body and the null string for the second and
+ subsequent lines, so we avoid double newlines.
+ current_command_line_count == 2 for the first line of the body. */
+
+ current_command_line_count++;
+ maybe_add_history (ret);
+ }
+#endif /* HISTORY */
+ return ret;
}
/* **************************************************************** */
{ "[[", COND_START },
{ "]]", COND_END },
#endif
+#if defined (COPROCESS_SUPPORT)
+ { "coproc", COPROC },
+#endif
{ (char *)NULL, 0}
};
{ "<&", LESS_AND },
{ ">&", GREATER_AND },
{ ";;", SEMI_SEMI },
+ { ";&", SEMI_AND },
+ { ";;&", SEMI_SEMI_AND },
{ "<<-", LESS_LESS_MINUS },
{ "<<<", LESS_LESS_LESS },
{ "&>", AND_GREATER },
+ { "&>>", AND_GREATER_GREATER },
{ "<>", LESS_GREATER },
{ ">|", GREATER_BAR },
+ { "|&", BAR_AND },
{ "EOF", yacc_EOF },
/* Tokens whose value is the character itself */
{ ">", '>' },
register int i;
int c;
unsigned char uc;
- static int mustpop = 0;
QUIT;
}
void
-execute_prompt_command (command)
- char *command;
+execute_variable_command (command, vname)
+ char *command, *vname;
{
char *last_lastarg;
sh_parser_state_t ps;
if (last_lastarg)
last_lastarg = savestring (last_lastarg);
- parse_and_execute (savestring (command), "PROMPT_COMMAND", SEVAL_NONINT|SEVAL_NOHIST);
+ parse_and_execute (savestring (command), vname, SEVAL_NONINT|SEVAL_NOHIST);
restore_parser_state (&ps);
bind_variable ("_", last_lastarg, 0);
token_before_that = last_read_token;
last_read_token = current_token;
current_token = read_token (READ);
+
+ if ((parser_state & PST_EOFTOKEN) && current_token == shell_eof_token)
+ {
+ current_token = yacc_EOF;
+ if (bash_input.type == st_string)
+ rewind_input_string ();
+ }
+ parser_state &= ~PST_EOFTOKEN;
+
return (current_token);
}
void
gather_here_documents ()
{
- int r = 0;
+ int r;
+
+ r = 0;
while (need_here_doc)
{
- make_here_document (redir_stack[r++]);
+ parser_state |= PST_HEREDOC;
+ make_here_document (redir_stack[r++], line_number);
+ parser_state &= ~PST_HEREDOC;
need_here_doc--;
}
}
#define command_token_position(token) \
(((token) == ASSIGNMENT_WORD) || \
- ((token) != SEMI_SEMI && reserved_word_acceptable(token)))
+ ((token) != SEMI_SEMI && (token) != SEMI_AND && (token) != SEMI_SEMI_AND && reserved_word_acceptable(token)))
#define assignment_acceptable(token) \
(command_token_position(token) && ((parser_state & PST_CASEPAT) == 0))
#endif /* ALIAS */
/* Read a single word from input. Start by skipping blanks. */
- while ((character = shell_getc (1)) != EOF && whitespace (character))
+ while ((character = shell_getc (1)) != EOF && shellblank (character))
;
if (character == EOF)
return (character);
}
+ if (parser_state & PST_REGEXP)
+ goto tokword;
+
/* Shell meta-characters. */
if MBTEST(shellmeta (character) && ((parser_state & PST_DBLPAREN) == 0))
{
/* If '<' then we could be at "<<" or at "<<-". We have to
look ahead one more character. */
peek_char = shell_getc (1);
- if (peek_char == '-')
+ if MBTEST(peek_char == '-')
return (LESS_LESS_MINUS);
- else if (peek_char == '<')
+ else if MBTEST(peek_char == '<')
return (LESS_LESS_LESS);
else
{
parser_state &= ~PST_ALEXPNEXT;
#endif /* ALIAS */
- return (SEMI_SEMI);
+ peek_char = shell_getc (1);
+ if MBTEST(peek_char == '&')
+ return (SEMI_SEMI_AND);
+ else
+ {
+ shell_ungetc (peek_char);
+ return (SEMI_SEMI);
+ }
case '&':
return (AND_AND);
return (LESS_GREATER);
else if MBTEST(character == '>' && peek_char == '|')
return (GREATER_BAR);
- else if MBTEST(peek_char == '>' && character == '&')
- return (AND_GREATER);
+ else if MBTEST(character == '&' && peek_char == '>')
+ {
+ peek_char = shell_getc (1);
+ if MBTEST(peek_char == '>')
+ return (AND_GREATER_GREATER);
+ else
+ {
+ shell_ungetc (peek_char);
+ return (AND_GREATER);
+ }
+ }
+ else if MBTEST(character == '|' && peek_char == '&')
+ return (BAR_AND);
+ else if MBTEST(character == ';' && peek_char == '&')
+ {
+ parser_state |= PST_CASEPAT;
+#if defined (ALIAS)
+ parser_state &= ~PST_ALEXPNEXT;
+#endif /* ALIAS */
+ return (SEMI_AND);
+ }
shell_ungetc (peek_char);
return (character);
}
- /* Hack <&- (close stdin) case. Also <&N- (dup and close). */
- if MBTEST(character == '-' && (last_read_token == LESS_AND || last_read_token == GREATER_AND))
- return (character);
-
- /* Okay, if we got this far, we have to read a word. Read one,
- and then check it against the known ones. */
- result = read_token_word (character);
-#if defined (ALIAS)
- if (result == RE_READ_TOKEN)
- goto re_read_token;
-#endif
- return result;
+ /* Hack <&- (close stdin) case. Also <&N- (dup and close). */
+ if MBTEST(character == '-' && (last_read_token == LESS_AND || last_read_token == GREATER_AND))
+ return (character);
+
+tokword:
+ /* Okay, if we got this far, we have to read a word. Read one,
+ and then check it against the known ones. */
+ result = read_token_word (character);
+#if defined (ALIAS)
+ if (result == RE_READ_TOKEN)
+ goto re_read_token;
+#endif
+ return result;
+}
+
+/*
+ * Match a $(...) or other grouping construct. This has to handle embedded
+ * quoted strings ('', ``, "") and nested constructs. It also must handle
+ * reprompting the user, if necessary, after reading a newline, and returning
+ * correct error values if it reads EOF.
+ */
+#define P_FIRSTCLOSE 0x01
+#define P_ALLOWESC 0x02
+#define P_DQUOTE 0x04
+#define P_COMMAND 0x08 /* parsing a command, so look for comments */
+#define P_BACKQUOTE 0x10 /* parsing a backquoted command substitution */
+
+/* Lexical state while parsing a grouping construct or $(...). */
+#define LEX_WASDOL 0x001
+#define LEX_CKCOMMENT 0x002
+#define LEX_INCOMMENT 0x004
+#define LEX_PASSNEXT 0x008
+#define LEX_RESWDOK 0x010
+#define LEX_CKCASE 0x020
+#define LEX_INCASE 0x040
+#define LEX_INHEREDOC 0x080
+#define LEX_HEREDELIM 0x100 /* reading here-doc delimiter */
+#define LEX_STRIPDOC 0x200 /* <<- strip tabs from here doc delim */
+
+#define COMSUB_META(ch) ((ch) == ';' || (ch) == '&' || (ch) == '|')
+
+#define CHECK_NESTRET_ERROR() \
+ do { \
+ if (nestret == &matched_pair_error) \
+ { \
+ free (ret); \
+ return &matched_pair_error; \
+ } \
+ } while (0)
+
+#define APPEND_NESTRET() \
+ do { \
+ if (nestlen) \
+ { \
+ RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64); \
+ strcpy (ret + retind, nestret); \
+ retind += nestlen; \
+ } \
+ } while (0)
+
+static char matched_pair_error;
+
+static char *
+parse_matched_pair (qc, open, close, lenp, flags)
+ int qc; /* `"' if this construct is within double quotes */
+ int open, close;
+ int *lenp, flags;
+{
+ int count, ch, tflags;
+ int nestlen, ttranslen, start_lineno;
+ char *ret, *nestret, *ttrans;
+ int retind, retsize, rflags;
+
+/* itrace("parse_matched_pair: open = %c close = %c flags = %d", open, close, flags); */
+ count = 1;
+ tflags = 0;
+
+ if ((flags & P_COMMAND) && qc != '`' && qc != '\'' && qc != '"' && (flags & P_DQUOTE) == 0)
+ tflags |= LEX_CKCOMMENT;
+
+ /* RFLAGS is the set of flags we want to pass to recursive calls. */
+ rflags = (qc == '"') ? P_DQUOTE : (flags & P_DQUOTE);
+
+ ret = (char *)xmalloc (retsize = 64);
+ retind = 0;
+
+ start_lineno = line_number;
+ while (count)
+ {
+ ch = shell_getc (qc != '\'' && (tflags & LEX_PASSNEXT) == 0);
+
+ if (ch == EOF)
+ {
+ free (ret);
+ parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), close);
+ EOF_Reached = 1; /* XXX */
+ return (&matched_pair_error);
+ }
+
+ /* Possible reprompting. */
+ if (ch == '\n' && SHOULD_PROMPT ())
+ prompt_again ();
+
+ /* Don't bother counting parens or doing anything else if in a comment
+ or part of a case statement */
+ if (tflags & LEX_INCOMMENT)
+ {
+ /* Add this character. */
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+
+ if (ch == '\n')
+ tflags &= ~LEX_INCOMMENT;
+
+ continue;
+ }
+
+ /* Not exactly right yet, should handle shell metacharacters, too. If
+ any changes are made to this test, make analogous changes to subst.c:
+ extract_delimited_string(). */
+ else if MBTEST((tflags & LEX_CKCOMMENT) && (tflags & LEX_INCOMMENT) == 0 && ch == '#' && (retind == 0 || ret[retind-1] == '\n' || shellblank (ret[retind - 1])))
+ tflags |= LEX_INCOMMENT;
+
+ if (tflags & LEX_PASSNEXT) /* last char was backslash */
+ {
+ tflags &= ~LEX_PASSNEXT;
+ if (qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */
+ {
+ if (retind > 0)
+ retind--; /* swallow previously-added backslash */
+ continue;
+ }
+
+ RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
+ if MBTEST(ch == CTLESC || ch == CTLNUL)
+ ret[retind++] = CTLESC;
+ ret[retind++] = ch;
+ continue;
+ }
+ /* If we're reparsing the input (e.g., from parse_string_to_word_list),
+ we've already prepended CTLESC to single-quoted results of $'...'.
+ We may want to do this for other CTLESC-quoted characters in
+ reparse, too. */
+ else if MBTEST((parser_state & PST_REPARSE) && open == '\'' && (ch == CTLESC || ch == CTLNUL))
+ {
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+ continue;
+ }
+ else if MBTEST(ch == CTLESC || ch == CTLNUL) /* special shell escapes */
+ {
+ RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
+ ret[retind++] = CTLESC;
+ ret[retind++] = ch;
+ continue;
+ }
+ else if MBTEST(ch == close) /* ending delimiter */
+ count--;
+ /* handle nested ${...} specially. */
+ else if MBTEST(open != close && (tflags & LEX_WASDOL) && open == '{' && ch == open) /* } */
+ count++;
+ else if MBTEST(((flags & P_FIRSTCLOSE) == 0) && ch == open) /* nested begin */
+ count++;
+
+ /* Add this character. */
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+
+ /* If we just read the ending character, don't bother continuing. */
+ if (count == 0)
+ break;
+
+ if (open == '\'') /* '' inside grouping construct */
+ {
+ if MBTEST((flags & P_ALLOWESC) && ch == '\\')
+ tflags |= LEX_PASSNEXT;
+ continue;
+ }
+
+ if MBTEST(ch == '\\') /* backslashes */
+ tflags |= LEX_PASSNEXT;
+
+#if 0
+ /* The big hammer. Single quotes aren't special in double quotes. The
+ problem is that Posix says the single quotes are semi-special:
+ within a double-quoted ${...} construct "an even number of
+ unescaped double-quotes or single-quotes, if any, shall occur." */
+ if MBTEST(open == '{' && (flags & P_DQUOTE) && ch == '\'') /* } */
+ continue;
+#endif
+
+ /* Could also check open == '`' if we want to parse grouping constructs
+ inside old-style command substitution. */
+ if (open != close) /* a grouping construct */
+ {
+ if MBTEST(shellquote (ch))
+ {
+ /* '', ``, or "" inside $(...) or other grouping construct. */
+ push_delimiter (dstack, ch);
+ if MBTEST((tflags & LEX_WASDOL) && ch == '\'') /* $'...' inside group */
+ nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);
+ else
+ nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);
+ pop_delimiter (dstack);
+ CHECK_NESTRET_ERROR ();
+
+ if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))
+ {
+ /* Translate $'...' here. */
+ ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
+ xfree (nestret);
+
+ if ((rflags & P_DQUOTE) == 0)
+ {
+ nestret = sh_single_quote (ttrans);
+ free (ttrans);
+ nestlen = strlen (nestret);
+ }
+ else
+ {
+ nestret = ttrans;
+ nestlen = ttranslen;
+ }
+ retind -= 2; /* back up before the $' */
+ }
+ else if MBTEST((tflags & LEX_WASDOL) && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))
+ {
+ /* Locale expand $"..." here. */
+ ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
+ xfree (nestret);
+
+ nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
+ free (ttrans);
+ nestlen = ttranslen + 2;
+ retind -= 2; /* back up before the $" */
+ }
+
+ APPEND_NESTRET ();
+ FREE (nestret);
+ }
+ }
+ /* Parse an old-style command substitution within double quotes as a
+ single word. */
+ /* XXX - sh and ksh93 don't do this - XXX */
+ else if MBTEST(open == '"' && ch == '`')
+ {
+ nestret = parse_matched_pair (0, '`', '`', &nestlen, rflags);
+
+ CHECK_NESTRET_ERROR ();
+ APPEND_NESTRET ();
+
+ FREE (nestret);
+ }
+ else if MBTEST(open != '`' && (tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
+ /* check for $(), $[], or ${} inside quoted string. */
+ {
+ if (open == ch) /* undo previous increment */
+ count--;
+ if (ch == '(') /* ) */
+ nestret = parse_comsub (0, '(', ')', &nestlen, (rflags|P_COMMAND) & ~P_DQUOTE);
+ else if (ch == '{') /* } */
+ nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|rflags);
+ else if (ch == '[') /* ] */
+ nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);
+
+ CHECK_NESTRET_ERROR ();
+ APPEND_NESTRET ();
+
+ FREE (nestret);
+ }
+ if MBTEST(ch == '$')
+ tflags |= LEX_WASDOL;
+ else
+ tflags &= ~LEX_WASDOL;
+ }
+
+ ret[retind] = '\0';
+ if (lenp)
+ *lenp = retind;
+ return ret;
}
-/*
- * Match a $(...) or other grouping construct. This has to handle embedded
- * quoted strings ('', ``, "") and nested constructs. It also must handle
- * reprompting the user, if necessary, after reading a newline, and returning
- * correct error values if it reads EOF.
- */
-#define P_FIRSTCLOSE 0x01
-#define P_ALLOWESC 0x02
-#define P_DQUOTE 0x04
-#define P_COMMAND 0x08 /* parsing a command, so look for comments */
-
-static char matched_pair_error;
+/* Parse a $(...) command substitution. This is messier than I'd like, and
+ reproduces a lot more of the token-reading code than I'd like. */
static char *
-parse_matched_pair (qc, open, close, lenp, flags)
+parse_comsub (qc, open, close, lenp, flags)
int qc; /* `"' if this construct is within double quotes */
int open, close;
int *lenp, flags;
{
- int count, ch, was_dollar, in_comment, check_comment;
- int pass_next_character, nestlen, ttranslen, start_lineno;
- char *ret, *nestret, *ttrans;
- int retind, retsize, rflags;
+ int count, ch, peekc, tflags, lex_rwlen, lex_firstind;
+ int nestlen, ttranslen, start_lineno;
+ char *ret, *nestret, *ttrans, *heredelim;
+ int retind, retsize, rflags, hdlen;
+/*itrace("parse_comsub: qc = `%c' open = %c close = %c", qc, open, close);*/
count = 1;
- pass_next_character = was_dollar = in_comment = 0;
- check_comment = (flags & P_COMMAND) && qc != '\'' && qc != '"' && (flags & P_DQUOTE) == 0;
+ tflags = LEX_RESWDOK;
+
+ if ((flags & P_COMMAND) && qc != '\'' && qc != '"' && (flags & P_DQUOTE) == 0)
+ tflags |= LEX_CKCASE;
+ if ((tflags & LEX_CKCASE) && (interactive == 0 || interactive_comments))
+ tflags |= LEX_CKCOMMENT;
/* RFLAGS is the set of flags we want to pass to recursive calls. */
- rflags = (qc == '"') ? P_DQUOTE : (flags & P_DQUOTE);
+ rflags = (flags & P_DQUOTE);
ret = (char *)xmalloc (retsize = 64);
retind = 0;
start_lineno = line_number;
+ lex_rwlen = 0;
+
+ heredelim = 0;
+ lex_firstind = -1;
+
while (count)
{
-#if 0
- ch = shell_getc ((qc != '\'' || (flags & P_ALLOWESC)) && pass_next_character == 0);
-#else
- ch = shell_getc (qc != '\'' && pass_next_character == 0);
-#endif
+comsub_readchar:
+ ch = shell_getc (qc != '\'' && (tflags & LEX_PASSNEXT) == 0);
+
if (ch == EOF)
{
+eof_error:
free (ret);
+ FREE (heredelim);
parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), close);
EOF_Reached = 1; /* XXX */
return (&matched_pair_error);
}
+ /* If we hit the end of a line and are reading the contents of a here
+ document, and it's not the same line that the document starts on,
+ check for this line being the here doc delimiter. Otherwise, if
+ we're in a here document, mark the next character as the beginning
+ of a line. */
+ if (ch == '\n')
+ {
+ if ((tflags & LEX_HEREDELIM) && heredelim)
+ {
+ tflags &= ~LEX_HEREDELIM;
+ tflags |= LEX_INHEREDOC;
+ lex_firstind = retind + 1;
+ }
+ else if (tflags & LEX_INHEREDOC)
+ {
+ int tind;
+ tind = lex_firstind;
+ while ((tflags & LEX_STRIPDOC) && ret[tind] == '\t')
+ tind++;
+ if (STREQN (ret + tind, heredelim, hdlen))
+ {
+ tflags &= ~(LEX_STRIPDOC|LEX_INHEREDOC);
+/*itrace("parse_comsub:%d: found here doc end `%s'", line_number, ret + tind);*/
+ lex_firstind = -1;
+ }
+ else
+ lex_firstind = retind + 1;
+ }
+ }
+
/* Possible reprompting. */
if (ch == '\n' && SHOULD_PROMPT ())
prompt_again ();
- if (in_comment)
+ /* Don't bother counting parens or doing anything else if in a comment */
+ if (tflags & (LEX_INCOMMENT|LEX_INHEREDOC))
{
/* Add this character. */
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
ret[retind++] = ch;
- if (ch == '\n')
- in_comment = 0;
+ if ((tflags & LEX_INCOMMENT) && ch == '\n')
+ tflags &= ~LEX_INCOMMENT;
continue;
}
- /* Not exactly right yet */
- else if (check_comment && in_comment == 0 && ch == '#' && (retind == 0 || ret[retind-1] == '\n' || whitespace (ret[retind -1])))
- in_comment = 1;
- if (pass_next_character) /* last char was backslash */
+ /* Skip whitespace */
+ if MBTEST(shellblank (ch) && lex_rwlen == 0)
+ {
+ /* Add this character. */
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+ continue;
+ }
+
+ /* Either we are looking for the start of the here-doc delimiter
+ (lex_firstind == -1) or we are reading one (lex_firstind >= 0).
+ If this character is a shell break character and we are reading
+ the delimiter, save it and note that we are now reading a here
+ document. If we've found the start of the delimiter, note it by
+ setting lex_firstind. Backslashes can quote shell metacharacters
+ in here-doc delimiters. */
+ if (tflags & LEX_HEREDELIM)
{
- pass_next_character = 0;
+ if (lex_firstind == -1 && shellbreak (ch) == 0)
+ lex_firstind = retind;
+ else if (lex_firstind >= 0 && (tflags & LEX_PASSNEXT) == 0 && shellbreak (ch))
+ {
+ nestret = substring (ret, lex_firstind, retind);
+ heredelim = string_quote_removal (nestret, 0);
+ free (nestret);
+ hdlen = STRLEN(heredelim);
+/*itrace("parse_comsub:%d: found here doc delimiter `%s' (%d)", line_number, heredelim, hdlen);*/
+ if (ch == '\n')
+ {
+ tflags |= LEX_INHEREDOC;
+ tflags &= ~LEX_HEREDELIM;
+ lex_firstind = retind + 1;
+ }
+ else
+ lex_firstind = -1;
+ }
+ }
+
+ /* Meta-characters that can introduce a reserved word. Not perfect yet. */
+ if MBTEST((tflags & LEX_RESWDOK) == 0 && (tflags & LEX_CKCASE) && (tflags & LEX_INCOMMENT) == 0 && shellmeta(ch))
+ {
+ /* Add this character. */
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+ peekc = shell_getc (1);
+ if (ch == peekc && (ch == '&' || ch == '|' || ch == ';')) /* two-character tokens */
+ {
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = peekc;
+/*itrace("parse_comsub:%d: set lex_reswordok = 1, ch = `%c'", line_number, ch); */
+ tflags |= LEX_RESWDOK;
+ lex_rwlen = 0;
+ continue;
+ }
+ else if (ch == '\n' || COMSUB_META(ch))
+ {
+ shell_ungetc (peekc);
+ tflags |= LEX_RESWDOK;
+/*itrace("parse_comsub:%d: set lex_reswordok = 1, ch = `%c'", line_number, ch);*/
+ lex_rwlen = 0;
+ continue;
+ }
+ else if (ch == EOF)
+ goto eof_error;
+ else
+ {
+ /* `unget' the character we just added and fall through */
+ retind--;
+ shell_ungetc (peekc);
+ }
+ }
+
+ /* If we can read a reserved word, try to read one. */
+ if (tflags & LEX_RESWDOK)
+ {
+ if MBTEST(islower (ch))
+ {
+ /* Add this character. */
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+ lex_rwlen++;
+ continue;
+ }
+ else if MBTEST(lex_rwlen == 4 && shellbreak (ch))
+ {
+ if (STREQN (ret + retind - 4, "case", 4))
+{
+ tflags |= LEX_INCASE;
+/*itrace("parse_comsub:%d: found `case', lex_incase -> 1", line_number);*/
+}
+ else if (STREQN (ret + retind - 4, "esac", 4))
+{
+ tflags &= ~LEX_INCASE;
+/*itrace("parse_comsub:%d: found `esac', lex_incase -> 0", line_number);*/
+}
+ tflags &= ~LEX_RESWDOK;
+ }
+ else if (shellbreak (ch) == 0)
+{
+ tflags &= ~LEX_RESWDOK;
+/*itrace("parse_comsub:%d: found `%c', lex_reswordok -> 0", line_number, ch);*/
+}
+ }
+
+ if MBTEST((tflags & LEX_INCOMMENT) == 0 && (tflags & LEX_CKCASE) && ch == '<')
+ {
+ /* Add this character. */
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+ peekc = shell_getc (1);
+ if (peekc == EOF)
+ goto eof_error;
+ if (peekc == ch)
+ {
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = peekc;
+ peekc = shell_getc (1);
+ if (peekc == EOF)
+ goto eof_error;
+ if (peekc == '-')
+ {
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = peekc;
+ tflags |= LEX_STRIPDOC;
+ }
+ else
+ shell_ungetc (peekc);
+ tflags |= LEX_HEREDELIM;
+ lex_firstind = -1;
+ continue;
+ }
+ else
+ ch = peekc; /* fall through and continue XXX - this skips comments if peekc == '#' */
+ }
+ /* Not exactly right yet, should handle shell metacharacters, too. If
+ any changes are made to this test, make analogous changes to subst.c:
+ extract_delimited_string(). */
+ else if MBTEST((tflags & LEX_CKCOMMENT) && (tflags & LEX_INCOMMENT) == 0 && ch == '#' && (retind == 0 || ret[retind-1] == '\n' || shellblank (ret[retind - 1])))
+ tflags |= LEX_INCOMMENT;
+
+ if (tflags & LEX_PASSNEXT) /* last char was backslash */
+ {
+ tflags &= ~LEX_PASSNEXT;
if (qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */
{
- if (retind > 0) retind--; /* swallow previously-added backslash */
+ if (retind > 0)
+ retind--; /* swallow previously-added backslash */
continue;
}
ret[retind++] = ch;
continue;
}
- else if MBTEST(ch == close) /* ending delimiter */
- count--;
-#if 1
- /* handle nested ${...} specially. */
- else if MBTEST(open != close && was_dollar && open == '{' && ch == open) /* } */
- count++;
+#if 0
+ else if MBTEST((tflags & LEX_INCASE) && ch == close && close == ')')
+ tflags &= ~LEX_INCASE; /* XXX */
#endif
- else if MBTEST(((flags & P_FIRSTCLOSE) == 0) && ch == open) /* nested begin */
+ else if MBTEST(ch == close && (tflags & LEX_INCASE) == 0) /* ending delimiter */
+{
+ count--;
+/*itrace("parse_comsub:%d: found close: count = %d", line_number, count);*/
+}
+ else if MBTEST(((flags & P_FIRSTCLOSE) == 0) && (tflags & LEX_INCASE) == 0 && ch == open) /* nested begin */
count++;
/* Add this character. */
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
ret[retind++] = ch;
- if (open == '\'') /* '' inside grouping construct */
- {
- if MBTEST((flags & P_ALLOWESC) && ch == '\\')
- pass_next_character++;
- continue;
- }
+ /* If we just read the ending character, don't bother continuing. */
+ if (count == 0)
+ break;
if MBTEST(ch == '\\') /* backslashes */
- pass_next_character++;
+ tflags |= LEX_PASSNEXT;
- if (open != close) /* a grouping construct */
- {
- if MBTEST(shellquote (ch))
+ if MBTEST(shellquote (ch))
+ {
+ /* '', ``, or "" inside $(...). */
+ push_delimiter (dstack, ch);
+ if MBTEST((tflags & LEX_WASDOL) && ch == '\'') /* $'...' inside group */
+ nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);
+ else
+ nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);
+ pop_delimiter (dstack);
+ CHECK_NESTRET_ERROR ();
+
+ if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))
{
- /* '', ``, or "" inside $(...) or other grouping construct. */
- push_delimiter (dstack, ch);
- if MBTEST(was_dollar && ch == '\'') /* $'...' inside group */
- nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);
- else
- nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);
- pop_delimiter (dstack);
- if (nestret == &matched_pair_error)
- {
- free (ret);
- return &matched_pair_error;
- }
- if MBTEST(was_dollar && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))
- {
- /* Translate $'...' here. */
- ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
- xfree (nestret);
+ /* Translate $'...' here. */
+ ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
+ xfree (nestret);
- if ((rflags & P_DQUOTE) == 0)
- {
- nestret = sh_single_quote (ttrans);
- free (ttrans);
- nestlen = strlen (nestret);
- }
- else
- {
- nestret = ttrans;
- nestlen = ttranslen;
- }
- retind -= 2; /* back up before the $' */
- }
- else if MBTEST(was_dollar && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))
+ if ((rflags & P_DQUOTE) == 0)
{
- /* Locale expand $"..." here. */
- ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
- xfree (nestret);
-
- nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
+ nestret = sh_single_quote (ttrans);
free (ttrans);
- nestlen = ttranslen + 2;
- retind -= 2; /* back up before the $" */
+ nestlen = strlen (nestret);
}
-
- if (nestlen)
+ else
{
- RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
- strcpy (ret + retind, nestret);
- retind += nestlen;
+ nestret = ttrans;
+ nestlen = ttranslen;
}
- FREE (nestret);
- }
- }
- /* Parse an old-style command substitution within double quotes as a
- single word. */
- /* XXX - sh and ksh93 don't do this - XXX */
- else if MBTEST(open == '"' && ch == '`')
- {
- nestret = parse_matched_pair (0, '`', '`', &nestlen, rflags);
-add_nestret:
- if (nestret == &matched_pair_error)
- {
- free (ret);
- return &matched_pair_error;
+ retind -= 2; /* back up before the $' */
}
- if (nestlen)
+ else if MBTEST((tflags & LEX_WASDOL) && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))
{
- RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
- strcpy (ret + retind, nestret);
- retind += nestlen;
+ /* Locale expand $"..." here. */
+ ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
+ xfree (nestret);
+
+ nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
+ free (ttrans);
+ nestlen = ttranslen + 2;
+ retind -= 2; /* back up before the $" */
}
+
+ APPEND_NESTRET ();
FREE (nestret);
}
- else if MBTEST(qc == '`' && (ch == '"' || ch == '\'') && in_comment == 0)
- {
- nestret = parse_matched_pair (0, ch, ch, &nestlen, rflags);
- goto add_nestret;
- }
- else if MBTEST(was_dollar && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
- /* check for $(), $[], or ${} inside quoted string. */
+ else if MBTEST((tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
+ /* check for $(), $[], or ${} inside command substitution. */
{
- if (open == ch) /* undo previous increment */
+ if ((tflags & LEX_INCASE) == 0 && open == ch) /* undo previous increment */
count--;
if (ch == '(') /* ) */
- nestret = parse_matched_pair (0, '(', ')', &nestlen, rflags);
+ nestret = parse_comsub (0, '(', ')', &nestlen, (rflags|P_COMMAND) & ~P_DQUOTE);
else if (ch == '{') /* } */
nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|rflags);
else if (ch == '[') /* ] */
nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);
- goto add_nestret;
+ CHECK_NESTRET_ERROR ();
+ APPEND_NESTRET ();
+
+ FREE (nestret);
}
- was_dollar = MBTEST(ch == '$');
+ if MBTEST(ch == '$')
+ tflags |= LEX_WASDOL;
+ else
+ tflags &= ~LEX_WASDOL;
}
+ FREE (heredelim);
ret[retind] = '\0';
if (lenp)
*lenp = retind;
+/*itrace("parse_comsub:%d: returning `%s'", line_number, ret);*/
+ return ret;
+}
+
+/* XXX - this needs to handle functionality like subst.c:no_longjmp_on_fatal_error;
+ maybe extract_command_subst should handle it. */
+char *
+xparse_dolparen (base, string, indp, flags)
+ char *base;
+ char *string;
+ int *indp;
+ int flags;
+{
+ sh_parser_state_t ps;
+ int orig_ind, nc, sflags;
+ char *ret, *s, *ep, *ostring;
+
+ /*yydebug = 1;*/
+ orig_ind = *indp;
+ ostring = string;
+
+ sflags = SEVAL_NONINT|SEVAL_NOHIST|SEVAL_NOFREE;
+ if (flags & SX_NOLONGJMP)
+ sflags |= SEVAL_NOLONGJMP;
+ save_parser_state (&ps);
+
+ /*(*/
+ parser_state |= PST_CMDSUBST|PST_EOFTOKEN; /* allow instant ')' */ /*(*/
+ shell_eof_token = ')';
+ parse_string (string, "command substitution", sflags, &ep);
+
+ restore_parser_state (&ps);
+ reset_parser ();
+ if (interactive)
+ token_to_read = 0;
+
+ /* Need to find how many characters parse_and_execute consumed, update
+ *indp, if flags != 0, copy the portion of the string parsed into RET
+ and return it. If flags & 1 (EX_NOALLOC) we can return NULL. */
+
+ /*(*/
+ if (ep[-1] != ')')
+ {
+#if DEBUG
+ if (ep[-1] != '\n')
+ itrace("xparse_dolparen:%d: ep[-1] != RPAREN (%d), ep = `%s'", line_number, ep[-1], ep);
+#endif
+ while (ep > ostring && ep[-1] == '\n') ep--;
+ }
+
+ nc = ep - ostring;
+ *indp = ep - base - 1;
+
+ /*(*/
+#if DEBUG
+ if (base[*indp] != ')')
+ itrace("xparse_dolparen:%d: base[%d] != RPAREN (%d), base = `%s'", line_number, *indp, base[*indp], base);
+#endif
+
+ if (flags & SX_NOALLOC)
+ return (char *)NULL;
+
+ if (nc == 0)
+ {
+ ret = xmalloc (1);
+ ret[0] = '\0';
+ }
+ else
+ ret = substring (ostring, 0, nc - 1);
+
return ret;
}
parse_dparen (c)
int c;
{
- int cmdtyp, len, sline;
- char *wval, *wv2;
+ int cmdtyp, sline;
+ char *wval;
WORD_DESC *wd;
#if defined (ARITH_FOR_COMMAND)
{
wd = alloc_word_desc ();
wd->word = wval;
- wd = make_word (wval);
yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
return (ARITH_FOR_EXPRS);
}
if (term)
term->flags |= CMD_INVERT_RETURN;
}
- else if (tok == WORD && test_unop (yylval.word->word))
+ else if (tok == WORD && yylval.word->word[0] == '-' && yylval.word->word[2] == 0 && test_unop (yylval.word->word))
{
op = yylval.word;
tok = read_token (READ);
if (tok == WORD && test_binop (yylval.word->word))
op = yylval.word;
#if defined (COND_REGEXP)
- else if (tok == WORD && STREQ (yylval.word->word,"=~"))
- op = yylval.word;
+ else if (tok == WORD && STREQ (yylval.word->word, "=~"))
+ {
+ op = yylval.word;
+ parser_state |= PST_REGEXP;
+ }
#endif
else if (tok == '<' || tok == '>')
op = make_word_from_token (tok); /* ( */
/* rhs */
tok = read_token (READ);
+ parser_state &= ~PST_REGEXP;
if (tok == WORD)
{
tright = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
if (pass_next_character)
{
pass_next_character = 0;
- goto got_character;
+ goto got_escaped_character;
}
cd = current_delimiter (dstack);
goto next_character;
}
+#ifdef COND_REGEXP
+ /* When parsing a regexp as a single word inside a conditional command,
+ we need to special-case characters special to both the shell and
+ regular expressions. Right now, that is only '(' and '|'. */ /*)*/
+ if MBTEST((parser_state & PST_REGEXP) && (character == '(' || character == '|')) /*)*/
+ {
+ if (character == '|')
+ goto got_character;
+
+ push_delimiter (dstack, character);
+ ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
+ pop_delimiter (dstack);
+ if (ttok == &matched_pair_error)
+ return -1; /* Bail immediately. */
+ RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+ token_buffer_size, TOKEN_DEFAULT_GROW_SIZE);
+ token[token_index++] = character;
+ strcpy (token + token_index, ttok);
+ token_index += ttoklen;
+ FREE (ttok);
+ dollar_present = all_digit_token = 0;
+ goto next_character;
+ }
+#endif /* COND_REGEXP */
+
#ifdef EXTENDED_GLOB
/* Parse a ksh-style extended pattern matching specification. */
- if (extended_glob && PATTERN_CHAR (character))
+ if MBTEST(extended_glob && PATTERN_CHAR (character))
{
peek_char = shell_getc (1);
if MBTEST(peek_char == '(') /* ) */
history literally rather than causing a possibly-
incorrect `;' to be added. ) */
push_delimiter (dstack, peek_char);
- ttok = parse_matched_pair (cd, '(', ')', &ttoklen, P_COMMAND);
+ ttok = parse_comsub (cd, '(', ')', &ttoklen, P_COMMAND);
pop_delimiter (dstack);
}
else
}
else
{
- /* Try to locale)-expand the converted string. */
+ /* Try to locale-expand the converted string. */
ttrans = localeexpand (ttok, 0, ttoklen - 1, first_line, &ttranslen);
free (ttok);
}
#if defined (ARRAY_VARS)
- /* Identify possible array subscript assignment; match [...] */
- else if MBTEST(character == '[' && token_index > 0 && assignment_acceptable (last_read_token) && token_is_ident (token, token_index)) /* ] */
+ /* Identify possible array subscript assignment; match [...]. If
+ parser_state&PST_COMPASSIGN, we need to parse [sub]=words treating
+ `sub' as if it were enclosed in double quotes. */
+ else if MBTEST(character == '[' && /* ] */
+ ((token_index > 0 && assignment_acceptable (last_read_token) && token_is_ident (token, token_index)) ||
+ (token_index == 0 && (parser_state&PST_COMPASSIGN))))
{
ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);
if (ttok == &matched_pair_error)
FREE (ttok);
all_digit_token = 0;
compound_assignment = 1;
-#if 0
+#if 1
goto next_character;
#else
goto got_token; /* ksh93 seems to do this */
got_character:
- all_digit_token &= DIGIT (character);
- dollar_present |= character == '$';
-
if (character == CTLESC || character == CTLNUL)
token[token_index++] = CTLESC;
+ got_escaped_character:
+
+ all_digit_token &= DIGIT (character);
+ dollar_present |= character == '$';
+
token[token_index++] = character;
RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,
if (dollar_present)
the_word->flags |= W_HASDOLLAR;
if (quoted)
- the_word->flags |= W_QUOTED;
- if (compound_assignment)
+ the_word->flags |= W_QUOTED; /*(*/
+ if (compound_assignment && token[token_index-1] == ')')
the_word->flags |= W_COMPASSIGN;
/* A word is an assignment if it appears at the beginning of a
simple command, or after another assignment word. This is
struct builtin *b;
b = builtin_address_internal (token, 0);
if (b && (b->flags & ASSIGNMENT_BUILTIN))
- parser_state |= PST_ASSIGNOK;
+ parser_state |= PST_ASSIGNOK;
+ else if (STREQ (token, "eval") || STREQ (token, "let"))
+ parser_state |= PST_ASSIGNOK;
}
yylval.word = the_word;
case IF:
case OR_OR:
case SEMI_SEMI:
+ case SEMI_AND:
+ case SEMI_SEMI_AND:
case THEN:
case TIME:
case TIMEOPT:
+ case COPROC:
case UNTIL:
case WHILE:
case 0:
return 1;
default:
+#if defined (COPROCESS_SUPPORT)
+ if (last_read_token == WORD && token_before_that == COPROC)
+ return 1;
+#endif
return 0;
}
}
/* A list of tokens which can be followed by newlines, but not by
semi-colons. When concatenating multiple lines of history, the
newline separator for such tokens is replaced with a space. */
-static int no_semi_successors[] = {
+static const int no_semi_successors[] = {
'\n', '{', '(', ')', ';', '&', '|',
- CASE, DO, ELSE, IF, SEMI_SEMI, THEN, UNTIL, WHILE, AND_AND, OR_OR, IN,
+ CASE, DO, ELSE, IF, SEMI_SEMI, SEMI_AND, SEMI_SEMI_AND, THEN, UNTIL,
+ WHILE, AND_AND, OR_OR, IN,
0
};
if (dstack.delimiter_depth != 0)
return ("\n");
-
+
+ /* We look for current_command_line_count == 2 because we are looking to
+ add the first line of the body of the here document (the second line
+ of the command). */
+ if (parser_state & PST_HEREDOC)
+ return (current_command_line_count == 2 ? "\n" : "");
+
/* First, handle some special cases. */
/*(*/
/* If we just read `()', assume it's a function definition, and don't
{
/* Tricky. `for i\nin ...' should not have a semicolon, but
`for i\ndo ...' should. We do what we can. */
- for (i = shell_input_line_index; whitespace(shell_input_line[i]); i++)
+ for (i = shell_input_line_index; whitespace (shell_input_line[i]); i++)
;
if (shell_input_line[i] && shell_input_line[i] == 'i' && shell_input_line[i+1] == 'n')
return " ";
int last_exit_value;
#if defined (PROMPT_STRING_DECODE)
int result_size, result_index;
- int c, n;
+ int c, n, i;
char *temp, octal_string[4];
struct tm *tm;
time_t the_time;
case 'W':
{
/* Use the value of PWD because it is much more efficient. */
- char t_string[PATH_MAX], *t;
+ char t_string[PATH_MAX];
int tlen;
temp = get_string_value ("PWD");
no longer than PATH_MAX - 1 characters. */
strcpy (t_string, polite_directory_format (t_string));
+ temp = trim_pathname (t_string, PATH_MAX - 1);
/* If we're going to be expanding the prompt string later,
quote the directory name. */
if (promptvars || posixly_correct)
break;
}
temp = (char *)xmalloc (3);
- temp[0] = '\001';
- temp[1] = (c == '[') ? RL_PROMPT_START_IGNORE : RL_PROMPT_END_IGNORE;
- temp[2] = '\0';
+ n = (c == '[') ? RL_PROMPT_START_IGNORE : RL_PROMPT_END_IGNORE;
+ i = 0;
+ if (n == CTLESC || n == CTLNUL)
+ temp[i++] = CTLESC;
+ temp[i++] = n;
+ temp[i] = '\0';
goto add_string;
#endif /* READLINE */
if (promptvars || posixly_correct)
{
last_exit_value = last_command_exit_value;
- list = expand_prompt_string (result, Q_DOUBLE_QUOTES);
+ list = expand_prompt_string (result, Q_DOUBLE_QUOTES, 0);
free (result);
result = string_list (list);
dispose_words (list);
}
static char *
-error_token_from_token (token)
- int token;
+error_token_from_token (tok)
+ int tok;
{
char *t;
- if (t = find_token_in_alist (token, word_token_alist, 0))
+ if (t = find_token_in_alist (tok, word_token_alist, 0))
return t;
- if (t = find_token_in_alist (token, other_token_alist, 0))
+ if (t = find_token_in_alist (tok, other_token_alist, 0))
return t;
t = (char *)NULL;
wl = (WORD_LIST *)NULL;
if (flags & 1)
- parser_state |= PST_COMPASSIGN;
+ parser_state |= PST_COMPASSIGN|PST_REPARSE;
while ((tok = read_token (READ)) != yacc_EOF)
{
shell_input_line_terminator = orig_input_terminator;
if (flags & 1)
- parser_state &= ~PST_COMPASSIGN;
+ parser_state &= ~(PST_COMPASSIGN|PST_REPARSE);
if (wl == &parse_string_error)
{
int *retlenp;
{
WORD_LIST *wl, *rl;
- int tok, orig_line_number, orig_token_size;
+ int tok, orig_line_number, orig_token_size, orig_last_token, assignok;
char *saved_token, *ret;
saved_token = token;
orig_token_size = token_buffer_size;
orig_line_number = line_number;
+ orig_last_token = last_read_token;
last_read_token = WORD; /* WORD to allow reserved words here */
token = (char *)NULL;
token_buffer_size = 0;
+ assignok = parser_state&PST_ASSIGNOK; /* XXX */
+
wl = (WORD_LIST *)NULL; /* ( */
parser_state |= PST_COMPASSIGN;
jump_to_top_level (DISCARD);
}
- last_read_token = WORD;
+ last_read_token = orig_last_token; /* XXX - was WORD? */
+
if (wl)
{
rl = REVERSE_LIST (wl, WORD_LIST *);
if (retlenp)
*retlenp = (ret && *ret) ? strlen (ret) : 0;
+
+ if (assignok)
+ parser_state |= PST_ASSIGNOK;
+
return ret;
}
}
}
#endif /* HANDLE_MULTIBYTE */
+
projects / platform / upstream / bash.git / blobdiff