-/* A Bison parser, made by GNU Bison 2.3. */
+/* A Bison parser, made by GNU Bison 3.0.4. */
-/* Skeleton implementation for Bison's Yacc-like parsers in C
+/* Bison implementation for Yacc-like parsers in C
- Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
- Free Software Foundation, Inc.
+ Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
- This program is free software; you can redistribute it and/or modify
+ 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.
+ the Free Software Foundation, either version 3 of the License, 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
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. */
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
/* As a special exception, you may create a larger work that contains
part or all of the Bison parser skeleton and distribute that work
#define YYBISON 1
/* Bison version. */
-#define YYBISON_VERSION "2.3"
+#define YYBISON_VERSION "3.0.4"
/* Skeleton name. */
#define YYSKELETON_NAME "yacc.c"
/* Pure parsers. */
#define YYPURE 0
-/* Using locations. */
-#define YYLSP_NEEDED 0
+/* Push parsers. */
+#define YYPUSH 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
+/* Pull parsers. */
+#define YYPULL 1
/* Copy the first part of user declarations. */
-#line 21 "/Users/chet/src/bash/src/parse.y"
+#line 21 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:339 */
#include "config.h"
#define NEED_STRFTIME_DECL /* used in externs.h */
#include "shell.h"
+#include "typemax.h" /* SIZE_MAX if needed */
#include "trap.h"
#include "flags.h"
#include "parser.h"
#if defined (JOB_CONTROL)
# include "jobs.h"
+#else
+extern int cleanup_dead_jobs __P((void));
#endif /* JOB_CONTROL */
#if defined (ALIAS)
extern int sourcelevel, parse_and_execute_level;
extern int posixly_correct;
extern int last_command_exit_value;
+extern pid_t last_command_subst_pid;
extern char *shell_name, *current_host_name;
extern char *dist_version;
extern int patch_level;
extern int dump_translatable_strings, dump_po_strings;
extern sh_builtin_func_t *last_shell_builtin, *this_shell_builtin;
+extern int here_doc_first_line;
#if defined (BUFFERED_INPUT)
extern int bash_input_fd_changed;
#endif
static int reserved_word_acceptable __P((int));
static int yylex __P((void));
+
+static void push_heredoc __P((REDIRECT *));
+static char *mk_alexpansion __P((char *));
static int alias_expand_token __P((char *));
static int time_command_acceptable __P((void));
static int special_case_tokens __P((char *));
/* PROMPT_STRING_POINTER points to one of these, never to an actual string. */
char *ps1_prompt, *ps2_prompt;
+/* Displayed after reading a command but before executing it in an interactive shell */
+char *ps0_prompt;
+
/* Handle on the current prompt string. Indirectly points through
ps1_ or ps2_prompt. */
char **prompt_string_pointer = (char **)NULL;
quotes. */
int extended_quote = 1;
-/* The decoded prompt string. Used if READLINE is not defined or if
- editing is turned off. Analogous to current_readline_prompt. */
-static char *current_decoded_prompt;
-
/* The number of lines read from input while creating the current command. */
int current_command_line_count;
+/* The number of lines in a command saved while we run parse_and_execute */
+int saved_command_line_count;
+
/* The token that currently denotes the end of parse. */
int shell_eof_token;
/* The token currently being read. */
int current_token;
+/* The current parser state. */
+int parser_state;
+
/* 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];
+static REDIRECT *redir_stack[HEREDOC_MAX];
int need_here_doc;
/* Where shell input comes from. History expansion is performed on each
line when the shell is interactive. */
static char *shell_input_line = (char *)NULL;
-static int shell_input_line_index;
-static int shell_input_line_size; /* Amount allocated for shell_input_line. */
-static int shell_input_line_len; /* strlen (shell_input_line) */
+static size_t shell_input_line_index;
+static size_t shell_input_line_size; /* Amount allocated for shell_input_line. */
+static size_t shell_input_line_len; /* strlen (shell_input_line) */
/* Either zero or EOF. */
static int shell_input_line_terminator;
/* 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 decoded prompt string. Used if READLINE is not defined or if
+ editing is turned off. Analogous to current_readline_prompt. */
+static char *current_decoded_prompt;
/* The last read token, or NULL. read_token () uses this for context
checking. */
/* The token read prior to token_before_that. */
static int two_tokens_ago;
+static int global_extglob;
+
/* 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. */
#define MAX_CASE_NEST 128
-static int word_lineno[MAX_CASE_NEST];
+static int word_lineno[MAX_CASE_NEST+1];
static int word_top = -1;
/* If non-zero, it is the token that we want read_token to return
static int token_to_read;
static WORD_DESC *word_desc_to_read;
+static REDIRECTEE source;
static REDIRECTEE redir;
+#line 378 "y.tab.c" /* yacc.c:339 */
-/* Enabling traces. */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
+# ifndef YY_NULLPTR
+# if defined __cplusplus && 201103L <= __cplusplus
+# define YY_NULLPTR nullptr
+# else
+# define YY_NULLPTR 0
+# endif
+# endif
/* Enabling verbose error messages. */
#ifdef YYERROR_VERBOSE
# define YYERROR_VERBOSE 0
#endif
-/* Enabling the token table. */
-#ifndef YYTOKEN_TABLE
-# define YYTOKEN_TABLE 0
+/* In a future release of Bison, this section will be replaced
+ by #include "y.tab.h". */
+#ifndef YY_YY_Y_TAB_H_INCLUDED
+# define YY_YY_Y_TAB_H_INCLUDED
+/* Debug traces. */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+#if YYDEBUG
+extern int yydebug;
#endif
+/* Token type. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ 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,
+ TIMEIGN = 280,
+ WORD = 281,
+ ASSIGNMENT_WORD = 282,
+ REDIR_WORD = 283,
+ NUMBER = 284,
+ ARITH_CMD = 285,
+ ARITH_FOR_EXPRS = 286,
+ COND_CMD = 287,
+ AND_AND = 288,
+ OR_OR = 289,
+ GREATER_GREATER = 290,
+ LESS_LESS = 291,
+ LESS_AND = 292,
+ LESS_LESS_LESS = 293,
+ GREATER_AND = 294,
+ SEMI_SEMI = 295,
+ SEMI_AND = 296,
+ SEMI_SEMI_AND = 297,
+ LESS_LESS_MINUS = 298,
+ AND_GREATER = 299,
+ AND_GREATER_GREATER = 300,
+ LESS_GREATER = 301,
+ GREATER_BAR = 302,
+ BAR_AND = 303,
+ yacc_EOF = 304
+ };
+#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 TIMEIGN 280
+#define WORD 281
+#define ASSIGNMENT_WORD 282
+#define REDIR_WORD 283
+#define NUMBER 284
+#define ARITH_CMD 285
+#define ARITH_FOR_EXPRS 286
+#define COND_CMD 287
+#define AND_AND 288
+#define OR_OR 289
+#define GREATER_GREATER 290
+#define LESS_LESS 291
+#define LESS_AND 292
+#define LESS_LESS_LESS 293
+#define GREATER_AND 294
+#define SEMI_SEMI 295
+#define SEMI_AND 296
+#define SEMI_SEMI_AND 297
+#define LESS_LESS_MINUS 298
+#define AND_GREATER 299
+#define AND_GREATER_GREATER 300
+#define LESS_GREATER 301
+#define GREATER_BAR 302
+#define BAR_AND 303
+#define yacc_EOF 304
+
+/* Value type. */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-typedef union YYSTYPE
-#line 316 "/Users/chet/src/bash/src/parse.y"
+
+union YYSTYPE
{
+#line 333 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:355 */
+
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;
-}
-/* Line 187 of yacc.c. */
-#line 495 "y.tab.c"
- YYSTYPE;
-# define yystype YYSTYPE /* obsolescent; will be withdrawn */
-# define YYSTYPE_IS_DECLARED 1
+
+#line 526 "y.tab.c" /* yacc.c:355 */
+};
+
+typedef union YYSTYPE YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
#endif
+extern YYSTYPE yylval;
-/* Copy the second part of user declarations. */
+int yyparse (void);
+#endif /* !YY_YY_Y_TAB_H_INCLUDED */
-/* Line 216 of yacc.c. */
-#line 508 "y.tab.c"
+/* Copy the second part of user declarations. */
+
+#line 543 "y.tab.c" /* yacc.c:358 */
#ifdef short
# undef short
#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;
+typedef signed char yytype_int8;
#endif
#ifdef YYTYPE_UINT16
# 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)
+# elif ! defined YYSIZE_T
# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
# define YYSIZE_T size_t
# else
#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
#ifndef YY_
-# if YYENABLE_NLS
+# if defined YYENABLE_NLS && YYENABLE_NLS
# if ENABLE_NLS
# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
-# define YY_(msgid) dgettext ("bison-runtime", msgid)
+# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
# endif
# endif
# ifndef YY_
-# define YY_(msgid) msgid
+# define YY_(Msgid) Msgid
+# endif
+#endif
+
+#ifndef YY_ATTRIBUTE
+# if (defined __GNUC__ \
+ && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \
+ || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C
+# define YY_ATTRIBUTE(Spec) __attribute__(Spec)
+# else
+# define YY_ATTRIBUTE(Spec) /* empty */
+# endif
+#endif
+
+#ifndef YY_ATTRIBUTE_PURE
+# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__))
+#endif
+
+#ifndef YY_ATTRIBUTE_UNUSED
+# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__))
+#endif
+
+#if !defined _Noreturn \
+ && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112)
+# if defined _MSC_VER && 1200 <= _MSC_VER
+# define _Noreturn __declspec (noreturn)
+# else
+# define _Noreturn YY_ATTRIBUTE ((__noreturn__))
# endif
#endif
/* Suppress unused-variable warnings by "using" E. */
#if ! defined lint || defined __GNUC__
-# define YYUSE(e) ((void) (e))
+# define YYUSE(E) ((void) (E))
#else
-# define YYUSE(e) /* empty */
+# 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)
+#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
+/* Suppress an incorrect diagnostic about yylval being uninitialized. */
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
+ _Pragma ("GCC diagnostic push") \
+ _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\
+ _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
+ _Pragma ("GCC diagnostic pop")
#else
-static int
-YYID (i)
- int i;
+# define YY_INITIAL_VALUE(Value) Value
#endif
-{
- return i;
-}
+#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END
+#endif
+#ifndef YY_INITIAL_VALUE
+# define YY_INITIAL_VALUE(Value) /* Nothing. */
#endif
+
#if ! defined yyoverflow || YYERROR_VERBOSE
/* The parser invokes alloca or malloc; define the necessary symbols. */
# 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)
+# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef _STDLIB_H
-# define _STDLIB_H 1
+ /* Use EXIT_SUCCESS as a witness for stdlib.h. */
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
# endif
# endif
# endif
# endif
# ifdef YYSTACK_ALLOC
- /* Pacify GCC's `empty if-body' warning. */
-# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
+ /* Pacify GCC's 'empty if-body' warning. */
+# define YYSTACK_FREE(Ptr) do { /* empty */; } while (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
# ifndef YYSTACK_ALLOC_MAXIMUM
# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
# endif
-# if (defined __cplusplus && ! defined _STDLIB_H \
+# if (defined __cplusplus && ! defined EXIT_SUCCESS \
&& ! ((defined YYMALLOC || defined malloc) \
- && (defined YYFREE || defined free)))
+ && (defined YYFREE || defined free)))
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef _STDLIB_H
-# define _STDLIB_H 1
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
# endif
# endif
# ifndef YYMALLOC
# define YYMALLOC malloc
-# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
+# if ! defined malloc && ! defined EXIT_SUCCESS
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)
+# if ! defined free && ! defined EXIT_SUCCESS
void free (void *); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
#if (! defined yyoverflow \
&& (! defined __cplusplus \
- || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
+ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
/* A type that is properly aligned for any stack member. */
union yyalloc
{
- yytype_int16 yyss;
- YYSTYPE yyvs;
- };
+ yytype_int16 yyss_alloc;
+ YYSTYPE yyvs_alloc;
+};
/* The size of the maximum gap between one aligned stack and the next. */
# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
((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
+# define YYCOPY_NEEDED 1
/* 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))
+# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
+ do \
+ { \
+ YYSIZE_T yynewbytes; \
+ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
+ Stack = &yyptr->Stack_alloc; \
+ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
+ yyptr += yynewbytes / sizeof (*yyptr); \
+ } \
+ while (0)
#endif
+#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
+/* Copy COUNT objects from SRC to DST. The source and destination do
+ not overlap. */
+# ifndef YYCOPY
+# if defined __GNUC__ && 1 < __GNUC__
+# define YYCOPY(Dst, Src, Count) \
+ __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
+# else
+# define YYCOPY(Dst, Src, Count) \
+ do \
+ { \
+ YYSIZE_T yyi; \
+ for (yyi = 0; yyi < (Count); yyi++) \
+ (Dst)[yyi] = (Src)[yyi]; \
+ } \
+ while (0)
+# endif
+# endif
+#endif /* !YYCOPY_NEEDED */
+
/* YYFINAL -- State number of the termination state. */
-#define YYFINAL 102
+#define YYFINAL 116
/* YYLAST -- Last index in YYTABLE. */
-#define YYLAST 728
+#define YYLAST 638
/* YYNTOKENS -- Number of terminals. */
-#define YYNTOKENS 59
+#define YYNTOKENS 61
/* YYNNTS -- Number of nonterminals. */
#define YYNNTS 38
/* YYNRULES -- Number of rules. */
-#define YYNRULES 153
-/* YYNRULES -- Number of states. */
-#define YYNSTATES 319
+#define YYNRULES 167
+/* YYNSTATES -- Number of states. */
+#define YYNSTATES 334
-/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
+/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
+ by yylex, with out-of-bounds checking. */
#define YYUNDEFTOK 2
-#define YYMAXUTOK 302
+#define YYMAXUTOK 304
-#define YYTRANSLATE(YYX) \
+#define YYTRANSLATE(YYX) \
((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
-/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
+/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
+ as returned by yylex, without out-of-bounds checking. */
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,
+ 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, 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, 49, 2,
+ 59, 60, 2, 2, 2, 56, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 50,
+ 55, 2, 54, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 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, 57, 53, 58, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
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
+ 45, 46, 47, 48, 52
};
#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
-};
-
-/* 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
-};
-
-/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
+ /* 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
+ 0, 386, 386, 397, 406, 421, 431, 433, 437, 443,
+ 449, 455, 461, 467, 473, 479, 485, 491, 497, 503,
+ 509, 515, 521, 527, 534, 541, 548, 555, 562, 569,
+ 575, 581, 587, 593, 599, 605, 611, 617, 623, 629,
+ 635, 641, 647, 653, 659, 665, 671, 677, 683, 689,
+ 695, 701, 709, 711, 713, 717, 721, 732, 734, 738,
+ 740, 742, 758, 760, 764, 766, 768, 770, 772, 774,
+ 776, 778, 780, 782, 784, 788, 793, 798, 803, 808,
+ 813, 818, 823, 830, 835, 840, 845, 852, 857, 862,
+ 867, 872, 877, 884, 889, 894, 901, 904, 907, 911,
+ 913, 944, 951, 956, 973, 978, 995, 1002, 1004, 1006,
+ 1011, 1015, 1019, 1023, 1025, 1027, 1031, 1032, 1036, 1038,
+ 1040, 1042, 1046, 1048, 1050, 1052, 1054, 1056, 1060, 1062,
+ 1071, 1079, 1080, 1086, 1087, 1094, 1098, 1100, 1102, 1109,
+ 1111, 1113, 1117, 1118, 1121, 1123, 1125, 1129, 1130, 1139,
+ 1152, 1168, 1183, 1185, 1187, 1194, 1197, 1201, 1203, 1209,
+ 1215, 1234, 1256, 1258, 1281, 1285, 1287, 1289
};
#endif
-#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
+#if YYDEBUG || YYERROR_VERBOSE || 0
/* 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
+ "BANG", "TIME", "TIMEOPT", "TIMEIGN", "WORD", "ASSIGNMENT_WORD",
+ "REDIR_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", YY_NULLPTR
};
#endif
# ifdef YYPRINT
-/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
- token YYLEX-NUM. */
+/* YYTOKNUM[NUM] -- (External) token number corresponding to the
+ (internal) symbol number NUM (which must be that of a token). */
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
+ 295, 296, 297, 298, 299, 300, 301, 302, 303, 38,
+ 59, 10, 304, 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
-};
+#define YYPACT_NINF -205
-/* 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 yypact_value_is_default(Yystate) \
+ (!!((Yystate) == (-205)))
-/* 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[] =
+#define YYTABLE_NINF -1
+
+#define yytable_value_is_error(Yytable_value) \
+ 0
+
+ /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+ STATE-NUM. */
+static const yytype_int16 yypact[] =
{
- 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
+ 308, -28, -205, 6, -1, 37, -205, -205, 57, 558,
+ 18, 358, 54, 45, -205, 251, 583, -205, 102, 104,
+ 35, 107, 80, 112, 127, 140, 146, 147, -205, -205,
+ 153, 154, -205, -205, 188, -205, -205, 196, -205, 219,
+ -205, -205, -205, -205, -205, -205, -205, -205, -205, -205,
+ -205, 17, 23, -205, -19, 358, -205, -205, 185, 408,
+ -205, 144, 51, 166, 189, 207, 133, 28, 196, 219,
+ 211, -205, -205, -205, -205, -205, 201, 184, 220, 226,
+ 81, 227, 126, 233, 234, 241, 242, 245, 246, 249,
+ 142, 255, 148, 256, 257, 259, 266, 267, -205, -205,
+ -205, -205, -205, -205, -205, -205, -205, -205, -205, -205,
+ -205, -205, -205, -205, 243, 240, -205, -205, -205, -205,
+ 219, -205, -205, -205, -205, -205, 458, 458, -205, -205,
+ -205, -205, -205, -205, -205, 299, -205, 68, -205, 61,
+ -205, -205, -205, -205, 72, -205, -205, 244, 41, 219,
+ 219, -205, -205, -205, -205, -205, -205, -205, -205, -205,
+ -205, -205, -205, -205, -205, -205, -205, -205, -205, -205,
+ -205, -205, -205, -205, -205, -205, -205, -205, -205, -205,
+ -205, -205, -205, -205, -205, 408, 408, 63, 63, 508,
+ 508, 179, -205, -205, -205, -205, -205, -205, 60, -205,
+ 155, -205, 287, 252, 74, 108, -205, 286, -205, 300,
+ 302, -205, 219, -205, 219, 41, -205, -205, -19, -19,
+ -205, -205, -205, 307, 408, 408, 408, 408, 408, 313,
+ 159, -205, -4, -205, -205, 312, -205, 161, -205, 265,
+ -205, -205, -205, -205, -205, -205, 314, 408, 161, 270,
+ -205, -205, 41, 219, -205, 332, 336, -205, -205, -205,
+ 87, 87, 87, -205, -205, -205, -205, 178, 11, -205,
+ -205, 315, -43, 327, 298, -205, -205, -205, 110, -205,
+ 342, 306, 343, 319, -205, 299, -205, -205, -205, -205,
+ -205, -205, -205, -205, -205, -32, 346, -205, -205, -205,
+ 113, -205, -205, -205, -205, -205, -205, 118, 137, -205,
+ -205, -205, 408, -205, -205, 363, 321, -205, -205, -205,
+ -205, -205, 408, 367, 325, -205, -205, 374, 333, -205,
+ -205, -205, -205, -205
};
-/* YYDEFGOTO[NTERM-NUM]. */
-static const yytype_int16 yydefgoto[] =
+ /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
+ Performed when YYTABLE does not specify something else to do. Zero
+ means the default is an error. */
+static const yytype_uint8 yydefact[] =
{
- -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
+ 0, 0, 147, 0, 0, 0, 147, 147, 0, 0,
+ 0, 0, 165, 52, 53, 0, 0, 111, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 3, 5,
+ 0, 0, 147, 147, 0, 54, 57, 59, 164, 60,
+ 64, 74, 68, 65, 62, 70, 63, 69, 71, 72,
+ 73, 0, 149, 156, 157, 0, 4, 131, 0, 0,
+ 147, 147, 0, 147, 0, 0, 147, 52, 106, 102,
+ 0, 145, 144, 146, 161, 158, 166, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 14, 23,
+ 38, 32, 47, 29, 41, 35, 44, 26, 50, 51,
+ 20, 17, 8, 9, 0, 0, 1, 52, 58, 55,
+ 61, 142, 143, 2, 147, 147, 150, 151, 147, 147,
+ 160, 159, 147, 148, 130, 132, 141, 0, 147, 0,
+ 147, 147, 147, 147, 0, 147, 147, 0, 0, 104,
+ 103, 112, 167, 147, 16, 25, 40, 34, 49, 31,
+ 43, 37, 46, 28, 22, 19, 12, 13, 15, 24,
+ 39, 33, 48, 30, 42, 36, 45, 27, 21, 18,
+ 10, 11, 110, 101, 56, 0, 0, 154, 155, 0,
+ 0, 0, 147, 147, 147, 147, 147, 147, 0, 147,
+ 0, 147, 0, 0, 0, 0, 147, 0, 147, 0,
+ 0, 147, 99, 98, 105, 0, 152, 153, 163, 162,
+ 147, 147, 107, 0, 0, 0, 134, 135, 133, 0,
+ 116, 147, 0, 147, 147, 0, 6, 0, 147, 0,
+ 85, 86, 147, 147, 147, 147, 0, 0, 0, 0,
+ 66, 67, 0, 100, 96, 0, 0, 109, 136, 137,
+ 138, 139, 140, 95, 122, 124, 126, 117, 0, 93,
+ 128, 0, 0, 0, 0, 75, 7, 147, 0, 76,
+ 0, 0, 0, 0, 87, 0, 147, 88, 97, 108,
+ 147, 123, 125, 127, 94, 0, 0, 147, 77, 78,
+ 0, 147, 147, 83, 84, 89, 90, 0, 113, 147,
+ 129, 118, 119, 147, 147, 0, 0, 147, 147, 147,
+ 115, 120, 121, 0, 0, 81, 82, 0, 0, 114,
+ 79, 80, 91, 92
};
-/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
- STATE-NUM. */
-#define YYPACT_NINF -188
-static const yytype_int16 yypact[] =
+ /* YYPGOTO[NTERM-NUM]. */
+static const yytype_int16 yypgoto[] =
{
- 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
+ -205, -205, 183, -36, -23, -50, 364, -205, -7, -205,
+ -205, -205, -205, -205, -204, -205, -205, -205, -205, -205,
+ -205, 84, -205, 167, -205, 128, -202, -6, -205, 52,
+ -205, -46, -48, -205, -119, 24, -33, -205
};
-/* YYPGOTO[NTERM-NUM]. */
-static const yytype_int16 yypgoto[] =
+ /* YYDEFGOTO[NTERM-NUM]. */
+static const yytype_int16 yydefgoto[] =
{
- -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
+ -1, 34, 237, 35, 36, 120, 37, 38, 39, 40,
+ 41, 42, 43, 44, 213, 45, 46, 47, 48, 49,
+ 50, 223, 229, 230, 231, 272, 57, 58, 134, 135,
+ 123, 74, 59, 51, 52, 136, 54, 55
};
-/* 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
+ /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
+ positive, shift that token. If negative, reduce the rule whose
+ number is the opposite. If YYTABLE_NINF, syntax error. */
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
+ 64, 65, 69, 119, 246, 269, 249, 187, 188, 130,
+ 296, 254, 137, 139, 118, 144, 142, 297, 148, 150,
+ 294, 296, 270, 56, 53, 61, 114, 115, 309, 128,
+ 62, 2, 60, 119, 129, 75, 3, 270, 4, 5,
+ 6, 7, 282, 283, 2, 118, 10, 133, 288, 3,
+ 70, 4, 5, 6, 7, 271, 124, 125, 17, 10,
+ 149, 100, 133, 63, 101, 140, 216, 217, 121, 122,
+ 271, 17, 126, 127, 233, 199, 185, 186, 76, 131,
+ 189, 190, 200, 66, 184, 32, 206, 33, 242, 197,
+ 198, 102, 133, 207, 204, 205, 124, 125, 32, 214,
+ 33, 71, 72, 73, 77, 215, 104, 156, 141, 105,
+ 157, 133, 133, 119, 184, 327, 328, 234, 201, 133,
+ 192, 193, 244, 133, 301, 133, 191, 313, 98, 208,
+ 99, 243, 317, 103, 202, 203, 106, 158, 107, 209,
+ 210, 212, 319, 221, 224, 225, 226, 227, 228, 232,
+ 53, 53, 160, 108, 238, 161, 218, 219, 247, 133,
+ 247, 133, 253, 252, 133, 245, 109, 302, 170, 133,
+ 314, 171, 110, 111, 174, 318, 119, 175, 184, 112,
+ 113, 236, 162, 268, 220, 221, 222, 276, 116, 132,
+ 278, 277, 147, 235, 138, 239, 247, 247, 172, 264,
+ 265, 266, 286, 145, 176, 71, 72, 73, 212, 53,
+ 53, 71, 72, 73, 255, 256, 143, 184, 291, 292,
+ 293, 146, 117, 14, 15, 16, 152, 273, 274, 300,
+ 151, 18, 19, 20, 21, 22, 280, 281, 307, 23,
+ 24, 25, 26, 27, 153, 212, 154, 15, 16, 312,
+ 30, 31, 155, 159, 18, 19, 20, 21, 22, 163,
+ 164, 322, 23, 24, 25, 26, 27, 165, 166, 247,
+ 247, 167, 168, 30, 31, 169, 258, 259, 260, 261,
+ 262, 173, 177, 178, 308, 179, 78, 79, 80, 81,
+ 82, 311, 180, 181, 83, 315, 316, 84, 85, 285,
+ 183, 182, 240, 321, 211, 86, 87, 323, 324, 1,
+ 241, 2, 236, 329, 257, 250, 3, 251, 4, 5,
+ 6, 7, 263, 279, 8, 9, 10, 275, 287, 284,
+ 11, 12, 192, 193, 13, 14, 15, 16, 17, 289,
+ 290, 270, 298, 18, 19, 20, 21, 22, 194, 195,
+ 196, 23, 24, 25, 26, 27, 299, 303, 305, 28,
+ 29, 2, 30, 31, 304, 32, 3, 33, 4, 5,
+ 6, 7, 310, 68, 8, 9, 10, 306, 325, 326,
+ 11, 12, 330, 331, 13, 14, 15, 16, 17, 332,
+ 248, 333, 320, 18, 19, 20, 21, 22, 267, 295,
+ 0, 23, 24, 25, 26, 27, 0, 0, 71, 72,
+ 73, 2, 30, 31, 0, 32, 3, 33, 4, 5,
+ 6, 7, 0, 0, 8, 9, 10, 0, 0, 0,
+ 11, 12, 0, 0, 13, 14, 15, 16, 17, 0,
+ 0, 0, 0, 18, 19, 20, 21, 22, 0, 0,
+ 0, 23, 24, 25, 26, 27, 0, 0, 0, 133,
+ 0, 2, 30, 31, 0, 32, 3, 33, 4, 5,
+ 6, 7, 0, 0, 8, 9, 10, 0, 0, 0,
+ 11, 12, 0, 0, 13, 14, 15, 16, 17, 0,
+ 0, 0, 0, 18, 19, 20, 21, 22, 0, 0,
+ 0, 23, 24, 25, 26, 27, 0, 0, 0, 0,
+ 0, 2, 30, 31, 0, 32, 3, 33, 4, 5,
+ 6, 7, 0, 0, 8, 9, 10, 0, 0, 0,
+ 0, 0, 0, 0, 13, 14, 15, 16, 17, 0,
+ 0, 0, 0, 18, 19, 20, 21, 22, 0, 0,
+ 0, 23, 24, 25, 26, 27, 0, 0, 0, 133,
+ 0, 2, 30, 31, 0, 32, 3, 33, 4, 5,
+ 6, 7, 0, 0, 0, 0, 10, 0, 0, 0,
+ 0, 0, 0, 0, 67, 14, 15, 16, 17, 0,
+ 0, 0, 0, 18, 19, 20, 21, 22, 0, 0,
+ 0, 23, 24, 25, 26, 27, 0, 0, 0, 0,
+ 0, 0, 30, 31, 0, 32, 0, 33, 88, 89,
+ 90, 91, 92, 0, 0, 0, 93, 0, 0, 94,
+ 95, 0, 0, 0, 0, 0, 0, 96, 97
};
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
+ 6, 7, 9, 39, 206, 9, 208, 126, 127, 55,
+ 53, 215, 60, 61, 37, 63, 62, 60, 66, 69,
+ 9, 53, 26, 51, 0, 26, 32, 33, 60, 48,
+ 31, 3, 26, 69, 53, 11, 8, 26, 10, 11,
+ 12, 13, 244, 245, 3, 68, 18, 51, 252, 8,
+ 32, 10, 11, 12, 13, 59, 33, 34, 30, 18,
+ 67, 26, 51, 26, 29, 14, 185, 186, 51, 52,
+ 59, 30, 49, 50, 14, 14, 124, 125, 24, 55,
+ 128, 129, 21, 26, 120, 57, 14, 59, 14, 21,
+ 138, 56, 51, 21, 142, 143, 33, 34, 57, 149,
+ 59, 50, 51, 52, 59, 153, 26, 26, 57, 29,
+ 29, 51, 51, 149, 150, 317, 318, 57, 57, 51,
+ 33, 34, 14, 51, 14, 51, 132, 14, 26, 57,
+ 26, 57, 14, 26, 140, 141, 56, 56, 26, 145,
+ 146, 148, 5, 6, 192, 193, 194, 195, 196, 197,
+ 126, 127, 26, 26, 200, 29, 189, 190, 206, 51,
+ 208, 51, 212, 211, 51, 57, 26, 57, 26, 51,
+ 57, 29, 26, 26, 26, 57, 212, 29, 214, 26,
+ 26, 26, 56, 231, 5, 6, 7, 26, 0, 4,
+ 238, 237, 59, 199, 50, 201, 244, 245, 56, 40,
+ 41, 42, 248, 14, 56, 50, 51, 52, 215, 185,
+ 186, 50, 51, 52, 220, 221, 50, 253, 40, 41,
+ 42, 14, 26, 27, 28, 29, 25, 233, 234, 277,
+ 19, 35, 36, 37, 38, 39, 242, 243, 286, 43,
+ 44, 45, 46, 47, 60, 252, 26, 28, 29, 297,
+ 54, 55, 26, 26, 35, 36, 37, 38, 39, 26,
+ 26, 309, 43, 44, 45, 46, 47, 26, 26, 317,
+ 318, 26, 26, 54, 55, 26, 224, 225, 226, 227,
+ 228, 26, 26, 26, 290, 26, 35, 36, 37, 38,
+ 39, 297, 26, 26, 43, 301, 302, 46, 47, 247,
+ 60, 58, 15, 309, 60, 54, 55, 313, 314, 1,
+ 58, 3, 26, 319, 7, 15, 8, 15, 10, 11,
+ 12, 13, 9, 58, 16, 17, 18, 15, 58, 15,
+ 22, 23, 33, 34, 26, 27, 28, 29, 30, 7,
+ 4, 26, 15, 35, 36, 37, 38, 39, 49, 50,
+ 51, 43, 44, 45, 46, 47, 58, 15, 15, 51,
+ 52, 3, 54, 55, 58, 57, 8, 59, 10, 11,
+ 12, 13, 26, 9, 16, 17, 18, 58, 15, 58,
+ 22, 23, 15, 58, 26, 27, 28, 29, 30, 15,
+ 207, 58, 308, 35, 36, 37, 38, 39, 231, 271,
+ -1, 43, 44, 45, 46, 47, -1, -1, 50, 51,
+ 52, 3, 54, 55, -1, 57, 8, 59, 10, 11,
+ 12, 13, -1, -1, 16, 17, 18, -1, -1, -1,
+ 22, 23, -1, -1, 26, 27, 28, 29, 30, -1,
+ -1, -1, -1, 35, 36, 37, 38, 39, -1, -1,
+ -1, 43, 44, 45, 46, 47, -1, -1, -1, 51,
+ -1, 3, 54, 55, -1, 57, 8, 59, 10, 11,
+ 12, 13, -1, -1, 16, 17, 18, -1, -1, -1,
+ 22, 23, -1, -1, 26, 27, 28, 29, 30, -1,
+ -1, -1, -1, 35, 36, 37, 38, 39, -1, -1,
+ -1, 43, 44, 45, 46, 47, -1, -1, -1, -1,
+ -1, 3, 54, 55, -1, 57, 8, 59, 10, 11,
+ 12, 13, -1, -1, 16, 17, 18, -1, -1, -1,
+ -1, -1, -1, -1, 26, 27, 28, 29, 30, -1,
+ -1, -1, -1, 35, 36, 37, 38, 39, -1, -1,
+ -1, 43, 44, 45, 46, 47, -1, -1, -1, 51,
+ -1, 3, 54, 55, -1, 57, 8, 59, 10, 11,
+ 12, 13, -1, -1, -1, -1, 18, -1, -1, -1,
+ -1, -1, -1, -1, 26, 27, 28, 29, 30, -1,
+ -1, -1, -1, 35, 36, 37, 38, 39, -1, -1,
+ -1, 43, 44, 45, 46, 47, -1, -1, -1, -1,
+ -1, -1, 54, 55, -1, 57, -1, 59, 35, 36,
+ 37, 38, 39, -1, -1, -1, 43, -1, -1, 46,
+ 47, -1, -1, -1, -1, -1, -1, 54, 55
};
-/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
- symbol of state STATE-NUM. */
+ /* 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
+ 18, 22, 23, 26, 27, 28, 29, 30, 35, 36,
+ 37, 38, 39, 43, 44, 45, 46, 47, 51, 52,
+ 54, 55, 57, 59, 62, 64, 65, 67, 68, 69,
+ 70, 71, 72, 73, 74, 76, 77, 78, 79, 80,
+ 81, 94, 95, 96, 97, 98, 51, 87, 88, 93,
+ 26, 26, 31, 26, 88, 88, 26, 26, 67, 69,
+ 32, 50, 51, 52, 92, 96, 24, 59, 35, 36,
+ 37, 38, 39, 43, 46, 47, 54, 55, 35, 36,
+ 37, 38, 39, 43, 46, 47, 54, 55, 26, 26,
+ 26, 29, 56, 26, 26, 29, 56, 26, 26, 26,
+ 26, 26, 26, 26, 88, 88, 0, 26, 65, 64,
+ 66, 51, 52, 91, 33, 34, 49, 50, 48, 53,
+ 92, 96, 4, 51, 89, 90, 96, 93, 50, 93,
+ 14, 57, 92, 50, 93, 14, 14, 59, 93, 69,
+ 66, 19, 25, 60, 26, 26, 26, 29, 56, 26,
+ 26, 29, 56, 26, 26, 26, 26, 26, 26, 26,
+ 26, 29, 56, 26, 26, 29, 56, 26, 26, 26,
+ 26, 26, 58, 60, 64, 93, 93, 95, 95, 93,
+ 93, 88, 33, 34, 49, 50, 51, 21, 93, 14,
+ 21, 57, 88, 88, 93, 93, 14, 21, 57, 88,
+ 88, 60, 69, 75, 66, 93, 95, 95, 97, 97,
+ 5, 6, 7, 82, 93, 93, 93, 93, 93, 83,
+ 84, 85, 93, 14, 57, 88, 26, 63, 92, 88,
+ 15, 58, 14, 57, 14, 57, 87, 93, 63, 87,
+ 15, 15, 93, 66, 75, 88, 88, 7, 90, 90,
+ 90, 90, 90, 9, 40, 41, 42, 84, 93, 9,
+ 26, 59, 86, 88, 88, 15, 26, 92, 93, 58,
+ 88, 88, 87, 87, 15, 90, 92, 58, 75, 7,
+ 4, 40, 41, 42, 9, 86, 53, 60, 15, 58,
+ 93, 14, 57, 15, 58, 15, 58, 93, 88, 60,
+ 26, 88, 93, 14, 57, 88, 88, 14, 57, 5,
+ 82, 88, 93, 88, 88, 15, 58, 87, 87, 88,
+ 15, 58, 15, 58
};
-#define yyerrok (yyerrstatus = 0)
-#define yyclearin (yychar = YYEMPTY)
-#define YYEMPTY (-2)
-#define YYEOF 0
+ /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
+static const yytype_uint8 yyr1[] =
+{
+ 0, 61, 62, 62, 62, 62, 63, 63, 64, 64,
+ 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
+ 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
+ 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
+ 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
+ 64, 64, 65, 65, 65, 66, 66, 67, 67, 68,
+ 68, 68, 68, 68, 69, 69, 69, 69, 69, 69,
+ 69, 69, 69, 69, 69, 70, 70, 70, 70, 70,
+ 70, 70, 70, 71, 71, 71, 71, 72, 72, 72,
+ 72, 72, 72, 73, 73, 73, 74, 74, 74, 75,
+ 75, 76, 77, 77, 77, 77, 77, 78, 78, 78,
+ 79, 80, 81, 82, 82, 82, 83, 83, 84, 84,
+ 84, 84, 85, 85, 85, 85, 85, 85, 86, 86,
+ 87, 88, 88, 89, 89, 89, 90, 90, 90, 90,
+ 90, 90, 91, 91, 92, 92, 92, 93, 93, 94,
+ 94, 94, 95, 95, 95, 95, 95, 96, 96, 96,
+ 96, 96, 97, 97, 97, 98, 98, 98
+};
-#define YYACCEPT goto yyacceptlab
-#define YYABORT goto yyabortlab
-#define YYERROR goto yyerrorlab
+ /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
+static const yytype_uint8 yyr2[] =
+{
+ 0, 2, 2, 1, 2, 1, 1, 2, 2, 2,
+ 3, 3, 3, 3, 2, 3, 3, 2, 3, 3,
+ 2, 3, 3, 2, 3, 3, 2, 3, 3, 2,
+ 3, 3, 2, 3, 3, 2, 3, 3, 2, 3,
+ 3, 2, 3, 3, 2, 3, 3, 2, 3, 3,
+ 2, 2, 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,
+ 2, 2, 4, 4, 1, 1, 2, 3
+};
-/* 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 yyerrok (yyerrstatus = 0)
+#define yyclearin (yychar = YYEMPTY)
+#define YYEMPTY (-2)
+#define YYEOF 0
+
+#define YYACCEPT goto yyacceptlab
+#define YYABORT goto yyabortlab
+#define YYERROR goto yyerrorlab
-#define YYFAIL goto yyerrlab
#define YYRECOVERING() (!!yyerrstatus)
-#define YYBACKUP(Token, Value) \
-do \
- if (yychar == YYEMPTY && yylen == 1) \
- { \
- yychar = (Token); \
- yylval = (Value); \
- yytoken = YYTRANSLATE (yychar); \
- YYPOPSTACK (1); \
- goto yybackup; \
- } \
- else \
- { \
+#define YYBACKUP(Token, Value) \
+do \
+ if (yychar == YYEMPTY) \
+ { \
+ yychar = (Token); \
+ yylval = (Value); \
+ YYPOPSTACK (yylen); \
+ yystate = *yyssp; \
+ goto yybackup; \
+ } \
+ else \
+ { \
yyerror (YY_("syntax error: cannot back up")); \
- YYERROR; \
- } \
-while (YYID (0))
-
-
-#define YYTERROR 1
-#define YYERRCODE 256
-
-
-/* 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
-
-
-/* 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
+ YYERROR; \
+ } \
+while (0)
+/* Error token number */
+#define YYTERROR 1
+#define YYERRCODE 256
-/* YYLEX -- calling `yylex' with the right arguments. */
-#ifdef YYLEX_PARAM
-# define YYLEX yylex (YYLEX_PARAM)
-#else
-# define YYLEX yylex ()
-#endif
/* Enable debugging if requested. */
#if YYDEBUG
# define YYFPRINTF fprintf
# endif
-# define YYDPRINTF(Args) \
-do { \
- if (yydebug) \
- YYFPRINTF Args; \
-} while (YYID (0))
+# define YYDPRINTF(Args) \
+do { \
+ if (yydebug) \
+ YYFPRINTF Args; \
+} while (0)
+
+/* This macro is provided for backward compatibility. */
+#ifndef YY_LOCATION_PRINT
+# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
+#endif
-# 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))
+# 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 (0)
-/*--------------------------------.
-| Print this symbol on YYOUTPUT. |
-`--------------------------------*/
-/*ARGSUSED*/
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
+/*----------------------------------------.
+| Print this symbol's value on YYOUTPUT. |
+`----------------------------------------*/
+
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
{
+ FILE *yyo = yyoutput;
+ YYUSE (yyo);
if (!yyvaluep)
return;
# ifdef YYPRINT
if (yytype < YYNTOKENS)
YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
-# else
- YYUSE (yyoutput);
# endif
- switch (yytype)
- {
- default:
- break;
- }
+ YYUSE (yytype);
}
| Print this symbol on YYOUTPUT. |
`--------------------------------*/
-#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]);
+ YYFPRINTF (yyoutput, "%s %s (",
+ yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]);
yy_symbol_value_print (yyoutput, yytype, yyvaluep);
YYFPRINTF (yyoutput, ")");
| TOP (included). |
`------------------------------------------------------------------*/
-#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
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
{
YYFPRINTF (stderr, "Stack now");
- for (; bottom <= top; ++bottom)
- YYFPRINTF (stderr, " %d", *bottom);
+ for (; yybottom <= yytop; yybottom++)
+ {
+ int yybot = *yybottom;
+ YYFPRINTF (stderr, " %d", yybot);
+ }
YYFPRINTF (stderr, "\n");
}
-# define YY_STACK_PRINT(Bottom, Top) \
-do { \
- if (yydebug) \
- yy_stack_print ((Bottom), (Top)); \
-} while (YYID (0))
+# define YY_STACK_PRINT(Bottom, Top) \
+do { \
+ if (yydebug) \
+ yy_stack_print ((Bottom), (Top)); \
+} while (0)
/*------------------------------------------------.
| 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
+yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule)
{
+ unsigned long int yylno = yyrline[yyrule];
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);
+ 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");
+ YYFPRINTF (stderr, " $%d = ", yyi + 1);
+ yy_symbol_print (stderr,
+ yystos[yyssp[yyi + 1 - yynrhs]],
+ &(yyvsp[(yyi + 1) - (yynrhs)])
+ );
+ YYFPRINTF (stderr, "\n");
}
}
-# define YY_REDUCE_PRINT(Rule) \
-do { \
- if (yydebug) \
- yy_reduce_print (yyvsp, Rule); \
-} while (YYID (0))
+# define YY_REDUCE_PRINT(Rule) \
+do { \
+ if (yydebug) \
+ yy_reduce_print (yyssp, yyvsp, Rule); \
+} while (0)
/* Nonzero means print parse trace. It is left uninitialized so that
multiple parsers can coexist. */
/* YYINITDEPTH -- initial size of the parser's stacks. */
-#ifndef YYINITDEPTH
+#ifndef YYINITDEPTH
# define YYINITDEPTH 200
#endif
# define YYMAXDEPTH 10000
#endif
-\f
#if YYERROR_VERBOSE
# 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++)
# 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
{
char *yyd = yydest;
const char *yys = yysrc;
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;
- }
+ 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: ;
}
}
# 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];
+/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
+ about the unexpected token YYTOKEN for the state stack whose top is
+ YYSSP.
- 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;
- }
+ Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
+ not large enough to hold the message. In that case, also set
+ *YYMSG_ALLOC to the required number of bytes. Return 2 if the
+ required number of bytes is too large to store. */
+static int
+yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
+ yytype_int16 *yyssp, int yytoken)
+{
+ YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]);
+ YYSIZE_T yysize = yysize0;
+ enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
+ /* Internationalized format string. */
+ const char *yyformat = YY_NULLPTR;
+ /* Arguments of yyformat. */
+ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
+ /* Number of reported tokens (one for the "unexpected", one per
+ "expected"). */
+ int yycount = 0;
+
+ /* There are many possibilities here to consider:
+ - If this state is a consistent state with a default action, then
+ the only way this function was invoked is if the default action
+ is an error action. In that case, don't check for expected
+ tokens because there are none.
+ - The only way there can be no lookahead present (in yychar) is if
+ this state is a consistent state with a default action. Thus,
+ detecting the absence of a lookahead is sufficient to determine
+ that there is no unexpected or expected token to report. In that
+ case, just report a simple "syntax error".
+ - Don't assume there isn't a lookahead just because this state is a
+ consistent state with a default action. There might have been a
+ previous inconsistent state, consistent state with a non-default
+ action, or user semantic action that manipulated yychar.
+ - Of course, the expected token list depends on states to have
+ correct lookahead information, and it depends on the parser not
+ to perform extra reductions after fetching a lookahead from the
+ scanner and before detecting a syntax error. Thus, state merging
+ (from LALR or IELR) and default reductions corrupt the expected
+ token list. However, the list is correct for canonical LR with
+ one exception: it will still contain any token that will not be
+ accepted due to an error action in a later state.
+ */
+ if (yytoken != YYEMPTY)
+ {
+ int yyn = yypact[*yyssp];
+ yyarg[yycount++] = yytname[yytoken];
+ if (!yypact_value_is_default (yyn))
+ {
+ /* Start YYX at -YYN if negative to avoid negative indexes in
+ YYCHECK. In other words, skip the first -YYN actions for
+ this state because they are default actions. */
+ 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 yyx;
+
+ for (yyx = yyxbegin; yyx < yyxend; ++yyx)
+ if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
+ && !yytable_value_is_error (yytable[yyx + yyn]))
+ {
+ if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
+ {
+ yycount = 1;
+ yysize = yysize0;
+ break;
+ }
+ yyarg[yycount++] = yytname[yyx];
+ {
+ YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]);
+ if (! (yysize <= yysize1
+ && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+ return 2;
+ yysize = yysize1;
+ }
+ }
+ }
+ }
- yyf = YY_(yyformat);
- yysize1 = yysize + yystrlen (yyf);
- yysize_overflow |= (yysize1 < yysize);
- yysize = yysize1;
+ switch (yycount)
+ {
+# define YYCASE_(N, S) \
+ case N: \
+ yyformat = S; \
+ break
+ YYCASE_(0, YY_("syntax error"));
+ YYCASE_(1, YY_("syntax error, unexpected %s"));
+ YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
+ YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
+ YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
+ YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
+# undef YYCASE_
+ }
- if (yysize_overflow)
- return YYSIZE_MAXIMUM;
+ {
+ YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
+ if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+ return 2;
+ yysize = yysize1;
+ }
- 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;
+ if (*yymsg_alloc < yysize)
+ {
+ *yymsg_alloc = 2 * yysize;
+ if (! (yysize <= *yymsg_alloc
+ && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
+ *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
+ return 1;
}
+
+ /* 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 = *yymsg;
+ int yyi = 0;
+ while ((*yyp = *yyformat) != '\0')
+ if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
+ {
+ yyp += yytnamerr (yyp, yyarg[yyi++]);
+ yyformat += 2;
+ }
+ else
+ {
+ yyp++;
+ yyformat++;
+ }
+ }
+ return 0;
}
#endif /* YYERROR_VERBOSE */
-\f
/*-----------------------------------------------.
| Release the memory associated to this symbol. |
`-----------------------------------------------*/
-/*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
-yydestruct (yymsg, yytype, yyvaluep)
- const char *yymsg;
- int yytype;
- YYSTYPE *yyvaluep;
-#endif
{
YYUSE (yyvaluep);
-
if (!yymsg)
yymsg = "Deleting";
YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
- switch (yytype)
- {
-
- default:
- break;
- }
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+ YYUSE (yytype);
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
}
-\f
-/* Prevent warnings from -Wmissing-prototypes. */
-
-#ifdef YYPARSE_PARAM
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void *YYPARSE_PARAM);
-#else
-int yyparse ();
-#endif
-#else /* ! YYPARSE_PARAM */
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void);
-#else
-int yyparse ();
-#endif
-#endif /* ! YYPARSE_PARAM */
-/* The look-ahead symbol. */
+/* The lookahead symbol. */
int yychar;
-/* The semantic value of the look-ahead symbol. */
+/* The semantic value of the lookahead symbol. */
YYSTYPE yylval;
-
/* Number of syntax errors so far. */
int yynerrs;
-
/*----------.
| yyparse. |
`----------*/
-#ifdef YYPARSE_PARAM
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-int
-yyparse (void *YYPARSE_PARAM)
-#else
-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 ()
-
-#endif
-#endif
{
-
- int yystate;
+ int yystate;
+ /* Number of tokens to shift before error messages enabled. */
+ int yyerrstatus;
+
+ /* The stacks and their tools:
+ 'yyss': related to states.
+ 'yyvs': related to semantic values.
+
+ Refer to the stacks through separate pointers, to allow yyoverflow
+ to reallocate them elsewhere. */
+
+ /* The state stack. */
+ yytype_int16 yyssa[YYINITDEPTH];
+ yytype_int16 *yyss;
+ yytype_int16 *yyssp;
+
+ /* The semantic value stack. */
+ YYSTYPE yyvsa[YYINITDEPTH];
+ YYSTYPE *yyvs;
+ YYSTYPE *yyvsp;
+
+ YYSIZE_T yystacksize;
+
int yyn;
int yyresult;
- /* Number of tokens to shift before error messages enabled. */
- int yyerrstatus;
- /* Look-ahead token as an internal (translated) token number. */
+ /* Lookahead token as an internal (translated) token number. */
int yytoken = 0;
+ /* The variables used to return semantic value and location from the
+ action routines. */
+ YYSTYPE yyval;
+
#if YYERROR_VERBOSE
/* Buffer for error messages, and its allocated size. */
char yymsgbuf[128];
YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
#endif
- /* Three stacks and their tools:
- `yyss': related to states,
- `yyvs': related to semantic values,
- `yyls': related to locations.
-
- Refer to the stacks thru separate pointers, to allow yyoverflow
- to reallocate them elsewhere. */
-
- /* 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;
+ yyssp = yyss = yyssa;
+ yyvsp = yyvs = yyvsa;
+ yystacksize = YYINITDEPTH;
+
YYDPRINTF ((stderr, "Starting parse\n"));
yystate = 0;
yyerrstatus = 0;
yynerrs = 0;
- yychar = YYEMPTY; /* Cause a token to be read. */
-
- /* Initialize stack pointers.
- Waste one element of value and location stack
- so that they stay on the same level as the state stack.
- The wasted elements are never initialized. */
-
- yyssp = yyss;
- yyvsp = yyvs;
-
+ yychar = YYEMPTY; /* Cause a token to be read. */
goto yysetstate;
/*------------------------------------------------------------.
#ifdef yyoverflow
{
- /* 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;
-
-
- /* 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;
+ /* 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;
+
+ /* 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
# else
/* Extend the stack our own way. */
if (YYMAXDEPTH <= yystacksize)
- goto yyexhaustedlab;
+ goto yyexhaustedlab;
yystacksize *= 2;
if (YYMAXDEPTH < yystacksize)
- yystacksize = YYMAXDEPTH;
+ yystacksize = YYMAXDEPTH;
{
- yytype_int16 *yyss1 = yyss;
- union yyalloc *yyptr =
- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
- if (! yyptr)
- goto yyexhaustedlab;
- YYSTACK_RELOCATE (yyss);
- YYSTACK_RELOCATE (yyvs);
-
+ yytype_int16 *yyss1 = yyss;
+ union yyalloc *yyptr =
+ (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
+ if (! yyptr)
+ goto yyexhaustedlab;
+ YYSTACK_RELOCATE (yyss_alloc, yyss);
+ YYSTACK_RELOCATE (yyvs_alloc, yyvs);
# undef YYSTACK_RELOCATE
- if (yyss1 != yyssa)
- YYSTACK_FREE (yyss1);
+ if (yyss1 != yyssa)
+ YYSTACK_FREE (yyss1);
}
# endif
#endif /* no yyoverflow */
yyssp = yyss + yysize - 1;
yyvsp = yyvs + yysize - 1;
-
YYDPRINTF ((stderr, "Stack size increased to %lu\n",
- (unsigned long int) yystacksize));
+ (unsigned long int) yystacksize));
if (yyss + yystacksize - 1 <= yyssp)
- YYABORT;
+ YYABORT;
}
YYDPRINTF ((stderr, "Entering state %d\n", yystate));
+ if (yystate == YYFINAL)
+ YYACCEPT;
+
goto yybackup;
/*-----------.
yybackup:
/* Do appropriate processing given the current state. Read a
- look-ahead token if we need one and don't already have one. */
+ lookahead token if we need one and don't already have one. */
- /* First try to decide what to do without reference to look-ahead token. */
+ /* First try to decide what to do without reference to lookahead token. */
yyn = yypact[yystate];
- if (yyn == YYPACT_NINF)
+ if (yypact_value_is_default (yyn))
goto yydefault;
- /* Not known => get a look-ahead token if don't already have one. */
+ /* Not known => get a lookahead token if don't already have one. */
- /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */
+ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
if (yychar == YYEMPTY)
{
YYDPRINTF ((stderr, "Reading a token: "));
- yychar = YYLEX;
+ yychar = yylex ();
}
if (yychar <= YYEOF)
yyn = yytable[yyn];
if (yyn <= 0)
{
- if (yyn == 0 || yyn == YYTABLE_NINF)
- goto yyerrlab;
+ if (yytable_value_is_error (yyn))
+ goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
- if (yyn == YYFINAL)
- YYACCEPT;
-
/* Count tokens shifted since error; after three, turn off error
status. */
if (yyerrstatus)
yyerrstatus--;
- /* Shift the look-ahead token. */
+ /* Shift the lookahead token. */
YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
- /* Discard the shifted token unless it is eof. */
- if (yychar != YYEOF)
- yychar = YYEMPTY;
+ /* Discard the shifted token. */
+ yychar = YYEMPTY;
yystate = yyn;
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
goto yynewstate;
yylen = yyr2[yyn];
/* If YYLEN is nonzero, implement the default value of the action:
- `$$ = $1'.
+ '$$ = $1'.
Otherwise, the following line sets YYVAL to garbage.
This behavior is undocumented and Bison
switch (yyn)
{
case 2:
-#line 370 "/Users/chet/src/bash/src/parse.y"
+#line 387 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
/* Case of regular command. Discard the error
safety net,and return the command just parsed. */
- global_command = (yyvsp[(1) - (2)].command);
+ global_command = (yyvsp[-1].command);
eof_encountered = 0;
/* discard_parser_constructs (0); */
if (parser_state & PST_CMDSUBST)
parser_state |= PST_EOFTOKEN;
YYACCEPT;
}
+#line 1925 "y.tab.c" /* yacc.c:1646 */
break;
case 3:
-#line 381 "/Users/chet/src/bash/src/parse.y"
+#line 398 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
/* Case of regular command, but not a very
interesting one. Return a NULL command. */
parser_state |= PST_EOFTOKEN;
YYACCEPT;
}
+#line 1938 "y.tab.c" /* yacc.c:1646 */
break;
case 4:
-#line 390 "/Users/chet/src/bash/src/parse.y"
+#line 407 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
/* Error during parsing. Return NULL command. */
global_command = (COMMAND *)NULL;
YYABORT;
}
}
+#line 1957 "y.tab.c" /* yacc.c:1646 */
break;
case 5:
-#line 405 "/Users/chet/src/bash/src/parse.y"
+#line 422 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
/* Case of EOF seen by itself. Do ignoreeof or
not. */
handle_eof_input_unit ();
YYACCEPT;
}
+#line 1969 "y.tab.c" /* yacc.c:1646 */
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); }
+#line 432 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (WORD_LIST *)NULL); }
+#line 1975 "y.tab.c" /* yacc.c:1646 */
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)); }
+#line 434 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (yyvsp[-1].word_list)); }
+#line 1981 "y.tab.c" /* yacc.c:1646 */
break;
case 8:
-#line 421 "/Users/chet/src/bash/src/parse.y"
+#line 438 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (1, r_output_direction, redir);
+ source.dest = 1;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_output_direction, redir, 0);
}
+#line 1991 "y.tab.c" /* yacc.c:1646 */
break;
case 9:
-#line 426 "/Users/chet/src/bash/src/parse.y"
+#line 444 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (0, r_input_direction, redir);
+ source.dest = 0;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_input_direction, redir, 0);
}
+#line 2001 "y.tab.c" /* yacc.c:1646 */
break;
case 10:
-#line 431 "/Users/chet/src/bash/src/parse.y"
+#line 450 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_output_direction, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_output_direction, redir, 0);
}
+#line 2011 "y.tab.c" /* yacc.c:1646 */
break;
case 11:
-#line 436 "/Users/chet/src/bash/src/parse.y"
+#line 456 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_input_direction, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_input_direction, redir, 0);
}
+#line 2021 "y.tab.c" /* yacc.c:1646 */
break;
case 12:
-#line 441 "/Users/chet/src/bash/src/parse.y"
+#line 462 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (1, r_appending_to, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_output_direction, redir, REDIR_VARASSIGN);
}
+#line 2031 "y.tab.c" /* yacc.c:1646 */
break;
case 13:
-#line 446 "/Users/chet/src/bash/src/parse.y"
+#line 468 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_appending_to, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_input_direction, redir, REDIR_VARASSIGN);
}
+#line 2041 "y.tab.c" /* yacc.c:1646 */
break;
case 14:
-#line 451 "/Users/chet/src/bash/src/parse.y"
+#line 474 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (0, r_reading_until, redir);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ source.dest = 1;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_appending_to, redir, 0);
}
+#line 2051 "y.tab.c" /* yacc.c:1646 */
break;
case 15:
-#line 457 "/Users/chet/src/bash/src/parse.y"
+#line 480 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- 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);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_appending_to, redir, 0);
}
+#line 2061 "y.tab.c" /* yacc.c:1646 */
break;
case 16:
-#line 463 "/Users/chet/src/bash/src/parse.y"
+#line 486 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (0, r_reading_string, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_appending_to, redir, REDIR_VARASSIGN);
}
+#line 2071 "y.tab.c" /* yacc.c:1646 */
break;
case 17:
-#line 468 "/Users/chet/src/bash/src/parse.y"
+#line 492 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_reading_string, redir);
+ source.dest = 1;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_output_force, redir, 0);
}
+#line 2081 "y.tab.c" /* yacc.c:1646 */
break;
case 18:
-#line 473 "/Users/chet/src/bash/src/parse.y"
+#line 498 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = (yyvsp[(2) - (2)].number);
- (yyval.redirect) = make_redirection (0, r_duplicating_input, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_output_force, redir, 0);
}
+#line 2091 "y.tab.c" /* yacc.c:1646 */
break;
case 19:
-#line 478 "/Users/chet/src/bash/src/parse.y"
+#line 504 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = (yyvsp[(3) - (3)].number);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_input, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_output_force, redir, REDIR_VARASSIGN);
}
+#line 2101 "y.tab.c" /* yacc.c:1646 */
break;
case 20:
-#line 483 "/Users/chet/src/bash/src/parse.y"
+#line 510 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = (yyvsp[(2) - (2)].number);
- (yyval.redirect) = make_redirection (1, r_duplicating_output, redir);
+ source.dest = 0;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_input_output, redir, 0);
}
+#line 2111 "y.tab.c" /* yacc.c:1646 */
break;
case 21:
-#line 488 "/Users/chet/src/bash/src/parse.y"
+#line 516 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = (yyvsp[(3) - (3)].number);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_output, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_input_output, redir, 0);
}
+#line 2121 "y.tab.c" /* yacc.c:1646 */
break;
case 22:
-#line 493 "/Users/chet/src/bash/src/parse.y"
+#line 522 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (0, r_duplicating_input_word, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_input_output, redir, REDIR_VARASSIGN);
}
+#line 2131 "y.tab.c" /* yacc.c:1646 */
break;
case 23:
-#line 498 "/Users/chet/src/bash/src/parse.y"
+#line 528 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_input_word, redir);
+ source.dest = 0;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_reading_until, redir, 0);
+ push_heredoc ((yyval.redirect));
}
+#line 2142 "y.tab.c" /* yacc.c:1646 */
break;
case 24:
-#line 503 "/Users/chet/src/bash/src/parse.y"
+#line 535 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (1, r_duplicating_output_word, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_reading_until, redir, 0);
+ push_heredoc ((yyval.redirect));
}
+#line 2153 "y.tab.c" /* yacc.c:1646 */
break;
case 25:
-#line 508 "/Users/chet/src/bash/src/parse.y"
+#line 542 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_duplicating_output_word, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_reading_until, redir, REDIR_VARASSIGN);
+ push_heredoc ((yyval.redirect));
}
+#line 2164 "y.tab.c" /* yacc.c:1646 */
break;
case 26:
-#line 513 "/Users/chet/src/bash/src/parse.y"
+#line 549 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection
- (0, r_deblank_reading_until, redir);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ source.dest = 0;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_deblank_reading_until, redir, 0);
+ push_heredoc ((yyval.redirect));
}
+#line 2175 "y.tab.c" /* yacc.c:1646 */
break;
case 27:
-#line 520 "/Users/chet/src/bash/src/parse.y"
+#line 556 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- 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);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_deblank_reading_until, redir, 0);
+ push_heredoc ((yyval.redirect));
}
+#line 2186 "y.tab.c" /* yacc.c:1646 */
break;
case 28:
-#line 527 "/Users/chet/src/bash/src/parse.y"
+#line 563 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = 0;
- (yyval.redirect) = make_redirection (1, r_close_this, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_deblank_reading_until, redir, REDIR_VARASSIGN);
+ push_heredoc ((yyval.redirect));
}
+#line 2197 "y.tab.c" /* yacc.c:1646 */
break;
case 29:
-#line 532 "/Users/chet/src/bash/src/parse.y"
+#line 570 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = 0;
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_close_this, redir);
+ source.dest = 0;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_reading_string, redir, 0);
}
+#line 2207 "y.tab.c" /* yacc.c:1646 */
break;
case 30:
-#line 537 "/Users/chet/src/bash/src/parse.y"
+#line 576 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = 0;
- (yyval.redirect) = make_redirection (0, r_close_this, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_reading_string, redir, 0);
}
+#line 2217 "y.tab.c" /* yacc.c:1646 */
break;
case 31:
-#line 542 "/Users/chet/src/bash/src/parse.y"
+#line 582 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.dest = 0;
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_close_this, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_reading_string, redir, REDIR_VARASSIGN);
}
+#line 2227 "y.tab.c" /* yacc.c:1646 */
break;
case 32:
-#line 547 "/Users/chet/src/bash/src/parse.y"
+#line 588 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (1, r_err_and_out, redir);
+ source.dest = 0;
+ redir.dest = (yyvsp[0].number);
+ (yyval.redirect) = make_redirection (source, r_duplicating_input, redir, 0);
}
+#line 2237 "y.tab.c" /* yacc.c:1646 */
break;
case 33:
-#line 552 "/Users/chet/src/bash/src/parse.y"
+#line 594 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (1, r_append_err_and_out, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.dest = (yyvsp[0].number);
+ (yyval.redirect) = make_redirection (source, r_duplicating_input, redir, 0);
}
+#line 2247 "y.tab.c" /* yacc.c:1646 */
break;
case 34:
-#line 557 "/Users/chet/src/bash/src/parse.y"
+#line 600 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_input_output, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.dest = (yyvsp[0].number);
+ (yyval.redirect) = make_redirection (source, r_duplicating_input, redir, REDIR_VARASSIGN);
}
+#line 2257 "y.tab.c" /* yacc.c:1646 */
break;
case 35:
-#line 562 "/Users/chet/src/bash/src/parse.y"
+#line 606 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (0, r_input_output, redir);
+ source.dest = 1;
+ redir.dest = (yyvsp[0].number);
+ (yyval.redirect) = make_redirection (source, r_duplicating_output, redir, 0);
}
+#line 2267 "y.tab.c" /* yacc.c:1646 */
break;
case 36:
-#line 567 "/Users/chet/src/bash/src/parse.y"
+#line 612 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(2) - (2)].word);
- (yyval.redirect) = make_redirection (1, r_output_force, redir);
+ source.dest = (yyvsp[-2].number);
+ redir.dest = (yyvsp[0].number);
+ (yyval.redirect) = make_redirection (source, r_duplicating_output, redir, 0);
}
+#line 2277 "y.tab.c" /* yacc.c:1646 */
break;
case 37:
-#line 572 "/Users/chet/src/bash/src/parse.y"
+#line 618 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- redir.filename = (yyvsp[(3) - (3)].word);
- (yyval.redirect) = make_redirection ((yyvsp[(1) - (3)].number), r_output_force, redir);
+ source.filename = (yyvsp[-2].word);
+ redir.dest = (yyvsp[0].number);
+ (yyval.redirect) = make_redirection (source, r_duplicating_output, redir, REDIR_VARASSIGN);
}
+#line 2287 "y.tab.c" /* yacc.c:1646 */
break;
case 38:
-#line 579 "/Users/chet/src/bash/src/parse.y"
- { (yyval.element).word = (yyvsp[(1) - (1)].word); (yyval.element).redirect = 0; }
+#line 624 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.dest = 0;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_duplicating_input_word, redir, 0);
+ }
+#line 2297 "y.tab.c" /* yacc.c:1646 */
break;
case 39:
-#line 581 "/Users/chet/src/bash/src/parse.y"
- { (yyval.element).word = (yyvsp[(1) - (1)].word); (yyval.element).redirect = 0; }
+#line 630 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_duplicating_input_word, redir, 0);
+ }
+#line 2307 "y.tab.c" /* yacc.c:1646 */
break;
case 40:
-#line 583 "/Users/chet/src/bash/src/parse.y"
- { (yyval.element).redirect = (yyvsp[(1) - (1)].redirect); (yyval.element).word = 0; }
+#line 636 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_duplicating_input_word, redir, REDIR_VARASSIGN);
+ }
+#line 2317 "y.tab.c" /* yacc.c:1646 */
break;
case 41:
-#line 587 "/Users/chet/src/bash/src/parse.y"
+#line 642 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.redirect) = (yyvsp[(1) - (1)].redirect);
+ source.dest = 1;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_duplicating_output_word, redir, 0);
}
+#line 2327 "y.tab.c" /* yacc.c:1646 */
break;
case 42:
-#line 591 "/Users/chet/src/bash/src/parse.y"
+#line 648 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- register REDIRECT *t;
-
- for (t = (yyvsp[(1) - (2)].redirect); t->next; t = t->next)
- ;
- t->next = (yyvsp[(2) - (2)].redirect);
- (yyval.redirect) = (yyvsp[(1) - (2)].redirect);
+ source.dest = (yyvsp[-2].number);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_duplicating_output_word, redir, 0);
}
+#line 2337 "y.tab.c" /* yacc.c:1646 */
break;
case 43:
-#line 602 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_simple_command ((yyvsp[(1) - (1)].element), (COMMAND *)NULL); }
+#line 654 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.filename = (yyvsp[-2].word);
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_duplicating_output_word, redir, REDIR_VARASSIGN);
+ }
+#line 2347 "y.tab.c" /* yacc.c:1646 */
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)); }
+#line 660 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.dest = 1;
+ redir.dest = 0;
+ (yyval.redirect) = make_redirection (source, r_close_this, redir, 0);
+ }
+#line 2357 "y.tab.c" /* yacc.c:1646 */
break;
case 45:
-#line 608 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = clean_simple_command ((yyvsp[(1) - (1)].command)); }
+#line 666 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.dest = (yyvsp[-2].number);
+ redir.dest = 0;
+ (yyval.redirect) = make_redirection (source, r_close_this, redir, 0);
+ }
+#line 2367 "y.tab.c" /* yacc.c:1646 */
break;
case 46:
-#line 610 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 672 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.filename = (yyvsp[-2].word);
+ redir.dest = 0;
+ (yyval.redirect) = make_redirection (source, r_close_this, redir, REDIR_VARASSIGN);
+ }
+#line 2377 "y.tab.c" /* yacc.c:1646 */
break;
case 47:
-#line 612 "/Users/chet/src/bash/src/parse.y"
+#line 678 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- COMMAND *tc;
-
- tc = (yyvsp[(1) - (2)].command);
- if (tc->redirects)
- {
- register REDIRECT *t;
- for (t = tc->redirects; t->next; t = t->next)
- ;
- t->next = (yyvsp[(2) - (2)].redirect);
- }
- else
- tc->redirects = (yyvsp[(2) - (2)].redirect);
- (yyval.command) = (yyvsp[(1) - (2)].command);
+ source.dest = 0;
+ redir.dest = 0;
+ (yyval.redirect) = make_redirection (source, r_close_this, redir, 0);
}
+#line 2387 "y.tab.c" /* yacc.c:1646 */
break;
case 48:
-#line 628 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 684 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.dest = (yyvsp[-2].number);
+ redir.dest = 0;
+ (yyval.redirect) = make_redirection (source, r_close_this, redir, 0);
+ }
+#line 2397 "y.tab.c" /* yacc.c:1646 */
break;
case 49:
-#line 630 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 690 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.filename = (yyvsp[-2].word);
+ redir.dest = 0;
+ (yyval.redirect) = make_redirection (source, r_close_this, redir, REDIR_VARASSIGN);
+ }
+#line 2407 "y.tab.c" /* yacc.c:1646 */
break;
case 50:
-#line 634 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 696 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.dest = 1;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_err_and_out, redir, 0);
+ }
+#line 2417 "y.tab.c" /* yacc.c:1646 */
break;
case 51:
-#line 636 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 702 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ source.dest = 1;
+ redir.filename = (yyvsp[0].word);
+ (yyval.redirect) = make_redirection (source, r_append_err_and_out, redir, 0);
+ }
+#line 2427 "y.tab.c" /* yacc.c:1646 */
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)); }
+#line 710 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.element).word = (yyvsp[0].word); (yyval.element).redirect = 0; }
+#line 2433 "y.tab.c" /* yacc.c:1646 */
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)); }
+#line 712 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.element).word = (yyvsp[0].word); (yyval.element).redirect = 0; }
+#line 2439 "y.tab.c" /* yacc.c:1646 */
break;
case 54:
-#line 642 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 714 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.element).redirect = (yyvsp[0].redirect); (yyval.element).word = 0; }
+#line 2445 "y.tab.c" /* yacc.c:1646 */
break;
case 55:
-#line 644 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 718 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ (yyval.redirect) = (yyvsp[0].redirect);
+ }
+#line 2453 "y.tab.c" /* yacc.c:1646 */
break;
case 56:
-#line 646 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 722 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ register REDIRECT *t;
+
+ for (t = (yyvsp[-1].redirect); t->next; t = t->next)
+ ;
+ t->next = (yyvsp[0].redirect);
+ (yyval.redirect) = (yyvsp[-1].redirect);
+ }
+#line 2466 "y.tab.c" /* yacc.c:1646 */
break;
case 57:
-#line 648 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 733 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_simple_command ((yyvsp[0].element), (COMMAND *)NULL); }
+#line 2472 "y.tab.c" /* yacc.c:1646 */
break;
case 58:
-#line 650 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 735 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_simple_command ((yyvsp[0].element), (yyvsp[-1].command)); }
+#line 2478 "y.tab.c" /* yacc.c:1646 */
break;
case 59:
-#line 652 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 739 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = clean_simple_command ((yyvsp[0].command)); }
+#line 2484 "y.tab.c" /* yacc.c:1646 */
break;
case 60:
-#line 654 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+#line 741 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2490 "y.tab.c" /* yacc.c:1646 */
break;
case 61:
-#line 658 "/Users/chet/src/bash/src/parse.y"
+#line 743 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (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--;
+ COMMAND *tc;
+
+ tc = (yyvsp[-1].command);
+ if (tc->redirects)
+ {
+ register REDIRECT *t;
+ for (t = tc->redirects; t->next; t = t->next)
+ ;
+ t->next = (yyvsp[0].redirect);
+ }
+ else
+ tc->redirects = (yyvsp[0].redirect);
+ (yyval.command) = (yyvsp[-1].command);
}
+#line 2510 "y.tab.c" /* yacc.c:1646 */
break;
case 62:
-#line 663 "/Users/chet/src/bash/src/parse.y"
+#line 759 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2516 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 63:
+#line 761 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2522 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 64:
+#line 765 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2528 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 65:
+#line 767 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2534 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 66:
+#line 769 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_while_command ((yyvsp[-3].command), (yyvsp[-1].command)); }
+#line 2540 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 67:
+#line 771 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_until_command ((yyvsp[-3].command), (yyvsp[-1].command)); }
+#line 2546 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 68:
+#line 773 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2552 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 69:
+#line 775 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2558 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 70:
+#line 777 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2564 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 71:
+#line 779 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2570 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 72:
+#line 781 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2576 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 73:
+#line 783 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2582 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 74:
+#line 785 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2588 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 75:
+#line 789 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_for_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
+ (yyval.command) = make_for_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2597 "y.tab.c" /* yacc.c:1646 */
break;
- case 63:
-#line 668 "/Users/chet/src/bash/src/parse.y"
+ case 76:
+#line 794 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_for_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ (yyval.command) = make_for_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2606 "y.tab.c" /* yacc.c:1646 */
break;
- case 64:
-#line 673 "/Users/chet/src/bash/src/parse.y"
+ case 77:
+#line 799 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_for_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ (yyval.command) = make_for_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2615 "y.tab.c" /* yacc.c:1646 */
break;
- case 65:
-#line 678 "/Users/chet/src/bash/src/parse.y"
+ case 78:
+#line 804 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (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]);
+ (yyval.command) = make_for_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2624 "y.tab.c" /* yacc.c:1646 */
break;
- case 66:
-#line 683 "/Users/chet/src/bash/src/parse.y"
+ case 79:
+#line 809 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (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]);
+ (yyval.command) = make_for_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2633 "y.tab.c" /* yacc.c:1646 */
break;
- case 67:
-#line 688 "/Users/chet/src/bash/src/parse.y"
+ case 80:
+#line 814 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_for_command ((yyvsp[(2) - (9)].word), (WORD_LIST *)NULL, (yyvsp[(8) - (9)].command), word_lineno[word_top]);
+ (yyval.command) = make_for_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2642 "y.tab.c" /* yacc.c:1646 */
break;
- case 68:
-#line 693 "/Users/chet/src/bash/src/parse.y"
+ case 81:
+#line 819 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_for_command ((yyvsp[(2) - (9)].word), (WORD_LIST *)NULL, (yyvsp[(8) - (9)].command), word_lineno[word_top]);
+ (yyval.command) = make_for_command ((yyvsp[-7].word), (WORD_LIST *)NULL, (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2651 "y.tab.c" /* yacc.c:1646 */
break;
- case 69:
-#line 700 "/Users/chet/src/bash/src/parse.y"
+ case 82:
+#line 824 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (7)].word_list), (yyvsp[(6) - (7)].command), arith_for_lineno);
+ (yyval.command) = make_for_command ((yyvsp[-7].word), (WORD_LIST *)NULL, (yyvsp[-1].command), word_lineno[word_top]);
+ if (word_top > 0) word_top--;
+ }
+#line 2660 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 83:
+#line 831 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ {
+ (yyval.command) = make_arith_for_command ((yyvsp[-5].word_list), (yyvsp[-1].command), arith_for_lineno);
if (word_top > 0) word_top--;
}
+#line 2669 "y.tab.c" /* yacc.c:1646 */
break;
- case 70:
-#line 705 "/Users/chet/src/bash/src/parse.y"
+ case 84:
+#line 836 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (7)].word_list), (yyvsp[(6) - (7)].command), arith_for_lineno);
+ (yyval.command) = make_arith_for_command ((yyvsp[-5].word_list), (yyvsp[-1].command), arith_for_lineno);
if (word_top > 0) word_top--;
}
+#line 2678 "y.tab.c" /* yacc.c:1646 */
break;
- case 71:
-#line 710 "/Users/chet/src/bash/src/parse.y"
+ case 85:
+#line 841 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (5)].word_list), (yyvsp[(4) - (5)].command), arith_for_lineno);
+ (yyval.command) = make_arith_for_command ((yyvsp[-3].word_list), (yyvsp[-1].command), arith_for_lineno);
if (word_top > 0) word_top--;
}
+#line 2687 "y.tab.c" /* yacc.c:1646 */
break;
- case 72:
-#line 715 "/Users/chet/src/bash/src/parse.y"
+ case 86:
+#line 846 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (5)].word_list), (yyvsp[(4) - (5)].command), arith_for_lineno);
+ (yyval.command) = make_arith_for_command ((yyvsp[-3].word_list), (yyvsp[-1].command), arith_for_lineno);
if (word_top > 0) word_top--;
}
+#line 2696 "y.tab.c" /* yacc.c:1646 */
break;
- case 73:
-#line 722 "/Users/chet/src/bash/src/parse.y"
+ case 87:
+#line 853 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_select_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
+ (yyval.command) = make_select_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2705 "y.tab.c" /* yacc.c:1646 */
break;
- case 74:
-#line 727 "/Users/chet/src/bash/src/parse.y"
+ case 88:
+#line 858 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_select_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
+ (yyval.command) = make_select_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2714 "y.tab.c" /* yacc.c:1646 */
break;
- case 75:
-#line 732 "/Users/chet/src/bash/src/parse.y"
+ case 89:
+#line 863 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_select_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ (yyval.command) = make_select_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2723 "y.tab.c" /* yacc.c:1646 */
break;
- case 76:
-#line 737 "/Users/chet/src/bash/src/parse.y"
+ case 90:
+#line 868 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_select_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ (yyval.command) = make_select_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2732 "y.tab.c" /* yacc.c:1646 */
break;
- case 77:
-#line 742 "/Users/chet/src/bash/src/parse.y"
+ case 91:
+#line 873 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (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]);
+ (yyval.command) = make_select_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2741 "y.tab.c" /* yacc.c:1646 */
break;
- case 78:
-#line 747 "/Users/chet/src/bash/src/parse.y"
+ case 92:
+#line 878 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (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]);
+ (yyval.command) = make_select_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2750 "y.tab.c" /* yacc.c:1646 */
break;
- case 79:
-#line 754 "/Users/chet/src/bash/src/parse.y"
+ case 93:
+#line 885 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_case_command ((yyvsp[(2) - (6)].word), (PATTERN_LIST *)NULL, word_lineno[word_top]);
+ (yyval.command) = make_case_command ((yyvsp[-4].word), (PATTERN_LIST *)NULL, word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2759 "y.tab.c" /* yacc.c:1646 */
break;
- case 80:
-#line 759 "/Users/chet/src/bash/src/parse.y"
+ case 94:
+#line 890 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_case_command ((yyvsp[(2) - (7)].word), (yyvsp[(5) - (7)].pattern), word_lineno[word_top]);
+ (yyval.command) = make_case_command ((yyvsp[-5].word), (yyvsp[-2].pattern), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2768 "y.tab.c" /* yacc.c:1646 */
break;
- case 81:
-#line 764 "/Users/chet/src/bash/src/parse.y"
+ case 95:
+#line 895 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_case_command ((yyvsp[(2) - (6)].word), (yyvsp[(5) - (6)].pattern), word_lineno[word_top]);
+ (yyval.command) = make_case_command ((yyvsp[-4].word), (yyvsp[-1].pattern), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
+#line 2777 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 96:
+#line 902 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_function_def ((yyvsp[-4].word), (yyvsp[0].command), function_dstart, function_bstart); }
+#line 2783 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 97:
+#line 905 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_function_def ((yyvsp[-4].word), (yyvsp[0].command), function_dstart, function_bstart); }
+#line 2789 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 98:
+#line 908 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_function_def ((yyvsp[-2].word), (yyvsp[0].command), function_dstart, function_bstart); }
+#line 2795 "y.tab.c" /* yacc.c:1646 */
break;
- case 85:
-#line 781 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ case 99:
+#line 912 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2801 "y.tab.c" /* yacc.c:1646 */
break;
- case 86:
-#line 783 "/Users/chet/src/bash/src/parse.y"
+ case 100:
+#line 914 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
COMMAND *tc;
- tc = (yyvsp[(1) - (2)].command);
+ tc = (yyvsp[-1].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[(2) - (2)].redirect);
+ t->next = (yyvsp[0].redirect);
}
else
- tc->redirects = (yyvsp[(2) - (2)].redirect);
- (yyval.command) = (yyvsp[(1) - (2)].command);
+ tc->redirects = (yyvsp[0].redirect);
+ (yyval.command) = (yyvsp[-1].command);
}
+#line 2834 "y.tab.c" /* yacc.c:1646 */
break;
- case 87:
-#line 814 "/Users/chet/src/bash/src/parse.y"
+ case 101:
+#line 945 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_subshell_command ((yyvsp[(2) - (3)].command));
+ (yyval.command) = make_subshell_command ((yyvsp[-1].command));
(yyval.command)->flags |= CMD_WANT_SUBSHELL;
}
+#line 2843 "y.tab.c" /* yacc.c:1646 */
break;
- case 88:
-#line 821 "/Users/chet/src/bash/src/parse.y"
+ case 102:
+#line 952 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_coproc_command ("COPROC", (yyvsp[(2) - (2)].command));
+ (yyval.command) = make_coproc_command ("COPROC", (yyvsp[0].command));
(yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
}
+#line 2852 "y.tab.c" /* yacc.c:1646 */
break;
- case 89:
-#line 826 "/Users/chet/src/bash/src/parse.y"
+ case 103:
+#line 957 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
COMMAND *tc;
- tc = (yyvsp[(2) - (3)].command);
+ tc = (yyvsp[-1].command);
if (tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
- t->next = (yyvsp[(3) - (3)].redirect);
+ t->next = (yyvsp[0].redirect);
}
else
- tc->redirects = (yyvsp[(3) - (3)].redirect);
- (yyval.command) = make_coproc_command ("COPROC", (yyvsp[(2) - (3)].command));
+ tc->redirects = (yyvsp[0].redirect);
+ (yyval.command) = make_coproc_command ("COPROC", (yyvsp[-1].command));
(yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
}
+#line 2873 "y.tab.c" /* yacc.c:1646 */
break;
- case 90:
-#line 843 "/Users/chet/src/bash/src/parse.y"
+ case 104:
+#line 974 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_coproc_command ((yyvsp[(2) - (3)].word)->word, (yyvsp[(3) - (3)].command));
+ (yyval.command) = make_coproc_command ((yyvsp[-1].word)->word, (yyvsp[0].command));
(yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
}
+#line 2882 "y.tab.c" /* yacc.c:1646 */
break;
- case 91:
-#line 848 "/Users/chet/src/bash/src/parse.y"
+ case 105:
+#line 979 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
COMMAND *tc;
- tc = (yyvsp[(3) - (4)].command);
+ tc = (yyvsp[-1].command);
if (tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
- t->next = (yyvsp[(4) - (4)].redirect);
+ t->next = (yyvsp[0].redirect);
}
else
- tc->redirects = (yyvsp[(4) - (4)].redirect);
- (yyval.command) = make_coproc_command ((yyvsp[(2) - (4)].word)->word, (yyvsp[(3) - (4)].command));
+ tc->redirects = (yyvsp[0].redirect);
+ (yyval.command) = make_coproc_command ((yyvsp[-2].word)->word, (yyvsp[-1].command));
(yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
}
+#line 2903 "y.tab.c" /* yacc.c:1646 */
break;
- case 92:
-#line 865 "/Users/chet/src/bash/src/parse.y"
+ case 106:
+#line 996 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = make_coproc_command ("COPROC", clean_simple_command ((yyvsp[(2) - (2)].command)));
+ (yyval.command) = make_coproc_command ("COPROC", clean_simple_command ((yyvsp[0].command)));
(yyval.command)->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;
}
+#line 2912 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 107:
+#line 1003 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_if_command ((yyvsp[-3].command), (yyvsp[-1].command), (COMMAND *)NULL); }
+#line 2918 "y.tab.c" /* yacc.c:1646 */
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)); }
+ case 108:
+#line 1005 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_if_command ((yyvsp[-5].command), (yyvsp[-3].command), (yyvsp[-1].command)); }
+#line 2924 "y.tab.c" /* yacc.c:1646 */
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)); }
+ case 109:
+#line 1007 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_if_command ((yyvsp[-4].command), (yyvsp[-2].command), (yyvsp[-1].command)); }
+#line 2930 "y.tab.c" /* yacc.c:1646 */
break;
- case 96:
-#line 881 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_group_command ((yyvsp[(2) - (3)].command)); }
+ case 110:
+#line 1012 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_group_command ((yyvsp[-1].command)); }
+#line 2936 "y.tab.c" /* yacc.c:1646 */
break;
- case 97:
-#line 885 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_arith_command ((yyvsp[(1) - (1)].word_list)); }
+ case 111:
+#line 1016 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_arith_command ((yyvsp[0].word_list)); }
+#line 2942 "y.tab.c" /* yacc.c:1646 */
break;
- case 98:
-#line 889 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(2) - (3)].command); }
+ case 112:
+#line 1020 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[-1].command); }
+#line 2948 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 113:
+#line 1024 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_if_command ((yyvsp[-2].command), (yyvsp[0].command), (COMMAND *)NULL); }
+#line 2954 "y.tab.c" /* yacc.c:1646 */
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)); }
+ case 114:
+#line 1026 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_if_command ((yyvsp[-4].command), (yyvsp[-2].command), (yyvsp[0].command)); }
+#line 2960 "y.tab.c" /* yacc.c:1646 */
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)); }
+ case 115:
+#line 1028 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = make_if_command ((yyvsp[-3].command), (yyvsp[-1].command), (yyvsp[0].command)); }
+#line 2966 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 117:
+#line 1033 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyvsp[0].pattern)->next = (yyvsp[-1].pattern); (yyval.pattern) = (yyvsp[0].pattern); }
+#line 2972 "y.tab.c" /* yacc.c:1646 */
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)); }
+ case 118:
+#line 1037 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (yyvsp[0].command)); }
+#line 2978 "y.tab.c" /* yacc.c:1646 */
break;
- case 105:
-#line 908 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = make_pattern_list ((yyvsp[(2) - (4)].word_list), (COMMAND *)NULL); }
+ case 119:
+#line 1039 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (COMMAND *)NULL); }
+#line 2984 "y.tab.c" /* yacc.c:1646 */
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)); }
+ case 120:
+#line 1041 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (yyvsp[0].command)); }
+#line 2990 "y.tab.c" /* yacc.c:1646 */
break;
- case 107:
-#line 912 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = make_pattern_list ((yyvsp[(3) - (5)].word_list), (COMMAND *)NULL); }
+ case 121:
+#line 1043 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (COMMAND *)NULL); }
+#line 2996 "y.tab.c" /* yacc.c:1646 */
break;
- case 108:
-#line 916 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = (yyvsp[(1) - (2)].pattern); }
+ case 122:
+#line 1047 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3002 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 123:
+#line 1049 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyvsp[-1].pattern)->next = (yyvsp[-2].pattern); (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3008 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 124:
+#line 1051 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3014 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 125:
+#line 1053 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyvsp[-1].pattern)->next = (yyvsp[-2].pattern); (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3020 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 126:
+#line 1055 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_TESTNEXT; (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3026 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 127:
+#line 1057 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_TESTNEXT; (yyvsp[-1].pattern)->next = (yyvsp[-2].pattern); (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3032 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 128:
+#line 1061 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (WORD_LIST *)NULL); }
+#line 3038 "y.tab.c" /* yacc.c:1646 */
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)); }
+ case 129:
+#line 1063 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (yyvsp[-2].word_list)); }
+#line 3044 "y.tab.c" /* yacc.c:1646 */
break;
- case 116:
-#line 941 "/Users/chet/src/bash/src/parse.y"
+ case 130:
+#line 1072 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = (yyvsp[(2) - (2)].command);
+ (yyval.command) = (yyvsp[0].command);
if (need_here_doc)
gather_here_documents ();
}
+#line 3054 "y.tab.c" /* yacc.c:1646 */
break;
- case 118:
-#line 950 "/Users/chet/src/bash/src/parse.y"
+ case 132:
+#line 1081 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = (yyvsp[(2) - (2)].command);
+ (yyval.command) = (yyvsp[0].command);
}
+#line 3062 "y.tab.c" /* yacc.c:1646 */
break;
- case 120:
-#line 957 "/Users/chet/src/bash/src/parse.y"
+ case 134:
+#line 1088 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- if ((yyvsp[(1) - (3)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (3)].command), (COMMAND *)NULL, '&');
+ if ((yyvsp[-2].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[-2].command), (COMMAND *)NULL, '&');
else
- (yyval.command) = command_connect ((yyvsp[(1) - (3)].command), (COMMAND *)NULL, '&');
+ (yyval.command) = command_connect ((yyvsp[-2].command), (COMMAND *)NULL, '&');
}
+#line 3073 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 136:
+#line 1099 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), AND_AND); }
+#line 3079 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 137:
+#line 1101 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), OR_OR); }
+#line 3085 "y.tab.c" /* yacc.c:1646 */
break;
- case 124:
-#line 972 "/Users/chet/src/bash/src/parse.y"
+ case 138:
+#line 1103 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- if ((yyvsp[(1) - (4)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '&');
+ if ((yyvsp[-3].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[-3].command), (yyvsp[0].command), '&');
else
- (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '&');
+ (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '&');
}
+#line 3096 "y.tab.c" /* yacc.c:1646 */
break;
- case 125:
-#line 979 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), ';'); }
+ case 139:
+#line 1110 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), ';'); }
+#line 3102 "y.tab.c" /* yacc.c:1646 */
break;
- case 126:
-#line 981 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), ';'); }
+ case 140:
+#line 1112 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), ';'); }
+#line 3108 "y.tab.c" /* yacc.c:1646 */
break;
- case 127:
-#line 983 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ case 141:
+#line 1114 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3114 "y.tab.c" /* yacc.c:1646 */
break;
- case 130:
-#line 991 "/Users/chet/src/bash/src/parse.y"
+ case 144:
+#line 1122 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{ (yyval.number) = '\n'; }
+#line 3120 "y.tab.c" /* yacc.c:1646 */
break;
- case 131:
-#line 993 "/Users/chet/src/bash/src/parse.y"
+ case 145:
+#line 1124 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{ (yyval.number) = ';'; }
+#line 3126 "y.tab.c" /* yacc.c:1646 */
break;
- case 132:
-#line 995 "/Users/chet/src/bash/src/parse.y"
+ case 146:
+#line 1126 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{ (yyval.number) = yacc_EOF; }
+#line 3132 "y.tab.c" /* yacc.c:1646 */
break;
- case 135:
-#line 1009 "/Users/chet/src/bash/src/parse.y"
+ case 149:
+#line 1140 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = (yyvsp[(1) - (1)].command);
+ (yyval.command) = (yyvsp[0].command);
if (need_here_doc)
gather_here_documents ();
if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
{
- global_command = (yyvsp[(1) - (1)].command);
+ global_command = (yyvsp[0].command);
eof_encountered = 0;
rewind_input_string ();
YYACCEPT;
}
}
+#line 3149 "y.tab.c" /* yacc.c:1646 */
break;
- case 136:
-#line 1022 "/Users/chet/src/bash/src/parse.y"
+ case 150:
+#line 1153 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- if ((yyvsp[(1) - (2)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (2)].command), (COMMAND *)NULL, '&');
+ if ((yyvsp[-1].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[-1].command), (COMMAND *)NULL, '&');
else
- (yyval.command) = command_connect ((yyvsp[(1) - (2)].command), (COMMAND *)NULL, '&');
+ (yyval.command) = command_connect ((yyvsp[-1].command), (COMMAND *)NULL, '&');
if (need_here_doc)
gather_here_documents ();
if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
{
- global_command = (yyvsp[(1) - (2)].command);
+ global_command = (yyvsp[-1].command);
eof_encountered = 0;
rewind_input_string ();
YYACCEPT;
}
}
+#line 3169 "y.tab.c" /* yacc.c:1646 */
break;
- case 137:
-#line 1038 "/Users/chet/src/bash/src/parse.y"
+ case 151:
+#line 1169 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- (yyval.command) = (yyvsp[(1) - (2)].command);
+ (yyval.command) = (yyvsp[-1].command);
if (need_here_doc)
gather_here_documents ();
if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
{
- global_command = (yyvsp[(1) - (2)].command);
+ global_command = (yyvsp[-1].command);
eof_encountered = 0;
rewind_input_string ();
YYACCEPT;
}
}
+#line 3186 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 152:
+#line 1184 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), AND_AND); }
+#line 3192 "y.tab.c" /* yacc.c:1646 */
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); }
+ case 153:
+#line 1186 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), OR_OR); }
+#line 3198 "y.tab.c" /* yacc.c:1646 */
break;
- case 140:
-#line 1057 "/Users/chet/src/bash/src/parse.y"
+ case 154:
+#line 1188 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- if ((yyvsp[(1) - (3)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), '&');
+ if ((yyvsp[-2].command)->type == cm_connection)
+ (yyval.command) = connect_async_list ((yyvsp[-2].command), (yyvsp[0].command), '&');
else
- (yyval.command) = command_connect ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), '&');
+ (yyval.command) = command_connect ((yyvsp[-2].command), (yyvsp[0].command), '&');
}
+#line 3209 "y.tab.c" /* yacc.c:1646 */
break;
- case 141:
-#line 1064 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), ';'); }
+ case 155:
+#line 1195 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-2].command), (yyvsp[0].command), ';'); }
+#line 3215 "y.tab.c" /* yacc.c:1646 */
break;
- case 142:
-#line 1067 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ case 156:
+#line 1198 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3221 "y.tab.c" /* yacc.c:1646 */
break;
- case 143:
-#line 1071 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ case 157:
+#line 1202 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3227 "y.tab.c" /* yacc.c:1646 */
break;
- case 144:
-#line 1073 "/Users/chet/src/bash/src/parse.y"
+ case 158:
+#line 1204 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- if ((yyvsp[(2) - (2)].command))
- (yyvsp[(2) - (2)].command)->flags |= CMD_INVERT_RETURN;
- (yyval.command) = (yyvsp[(2) - (2)].command);
+ if ((yyvsp[0].command))
+ (yyvsp[0].command)->flags ^= CMD_INVERT_RETURN; /* toggle */
+ (yyval.command) = (yyvsp[0].command);
}
+#line 3237 "y.tab.c" /* yacc.c:1646 */
break;
- case 145:
-#line 1079 "/Users/chet/src/bash/src/parse.y"
+ case 159:
+#line 1210 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- if ((yyvsp[(2) - (2)].command))
- (yyvsp[(2) - (2)].command)->flags |= (yyvsp[(1) - (2)].number);
- (yyval.command) = (yyvsp[(2) - (2)].command);
+ if ((yyvsp[0].command))
+ (yyvsp[0].command)->flags |= (yyvsp[-1].number);
+ (yyval.command) = (yyvsp[0].command);
}
+#line 3247 "y.tab.c" /* yacc.c:1646 */
break;
- case 146:
-#line 1085 "/Users/chet/src/bash/src/parse.y"
+ case 160:
+#line 1216 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
- if ((yyvsp[(3) - (3)].command))
- (yyvsp[(3) - (3)].command)->flags |= (yyvsp[(1) - (3)].number)|CMD_INVERT_RETURN;
- (yyval.command) = (yyvsp[(3) - (3)].command);
- }
- break;
+ ELEMENT x;
- 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);
+ /* Boy, this is unclean. `time' by itself can
+ time a null command. We cheat and push a
+ newline back if the list_terminator was a newline
+ to avoid the double-newline problem (one to
+ 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);
+ /* XXX - let's cheat and push a newline back */
+ if ((yyvsp[0].number) == '\n')
+ token_to_read = '\n';
+ else if ((yyvsp[0].number) == ';')
+ token_to_read = ';';
}
+#line 3270 "y.tab.c" /* yacc.c:1646 */
break;
- case 148:
-#line 1097 "/Users/chet/src/bash/src/parse.y"
+ case 161:
+#line 1235 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
ELEMENT x;
- /* Boy, this is unclean. `time' by itself can
- time a null command. We cheat and push a
+ /* This is just as unclean. Posix says that `!'
+ by itself should be equivalent to `false'.
+ We cheat and push a
newline back if the list_terminator was a newline
to avoid the double-newline problem (one to
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) - (2)].number);
+ (yyval.command)->flags |= CMD_INVERT_RETURN;
/* XXX - let's cheat and push a newline back */
- if ((yyvsp[(2) - (2)].number) == '\n')
+ if ((yyvsp[0].number) == '\n')
token_to_read = '\n';
+ if ((yyvsp[0].number) == ';')
+ token_to_read = ';';
}
+#line 3294 "y.tab.c" /* yacc.c:1646 */
break;
- case 149:
-#line 1117 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '|'); }
+ case 162:
+#line 1257 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '|'); }
+#line 3300 "y.tab.c" /* yacc.c:1646 */
break;
- case 150:
-#line 1119 "/Users/chet/src/bash/src/parse.y"
+ case 163:
+#line 1259 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{
/* Make cmd1 |& cmd2 equivalent to cmd1 2>&1 | cmd2 */
COMMAND *tc;
- REDIRECTEE rd;
+ REDIRECTEE rd, sd;
REDIRECT *r;
- tc = (yyvsp[(1) - (4)].command);
+ tc = (yyvsp[-3].command)->type == cm_simple ? (COMMAND *)(yyvsp[-3].command)->value.Simple : (yyvsp[-3].command);
+ sd.dest = 2;
rd.dest = 1;
- r = make_redirection (2, r_duplicating_output, rd);
+ r = make_redirection (sd, r_duplicating_output, rd, 0);
if (tc->redirects)
{
register REDIRECT *t;
else
tc->redirects = r;
- (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '|');
+ (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '|');
}
+#line 3327 "y.tab.c" /* yacc.c:1646 */
break;
- case 151:
-#line 1141 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ case 164:
+#line 1282 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3333 "y.tab.c" /* yacc.c:1646 */
break;
- case 152:
-#line 1145 "/Users/chet/src/bash/src/parse.y"
+ case 165:
+#line 1286 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{ (yyval.number) = CMD_TIME_PIPELINE; }
+#line 3339 "y.tab.c" /* yacc.c:1646 */
break;
- case 153:
-#line 1147 "/Users/chet/src/bash/src/parse.y"
+ case 166:
+#line 1288 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
+ { (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+#line 3345 "y.tab.c" /* yacc.c:1646 */
+ break;
+
+ case 167:
+#line 1290 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
{ (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+#line 3351 "y.tab.c" /* yacc.c:1646 */
break;
-/* Line 1267 of yacc.c. */
-#line 3193 "y.tab.c"
+#line 3355 "y.tab.c" /* yacc.c:1646 */
default: break;
}
+ /* User semantic actions sometimes alter yychar, and that requires
+ that yytoken be updated with the new translation. We take the
+ approach of translating immediately before every use of yytoken.
+ One alternative is translating here after every semantic action,
+ but that translation would be missed if the semantic action invokes
+ YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
+ if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
+ incorrect destructor might then be invoked immediately. In the
+ case of YYERROR or YYBACKUP, subsequent parser actions might lead
+ to an incorrect destructor call or verbose syntax error message
+ before the lookahead is translated. */
YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
YYPOPSTACK (yylen);
*++yyvsp = yyval;
-
- /* Now `shift' the result of the reduction. Determine what state
+ /* 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. */
goto yynewstate;
-/*------------------------------------.
-| yyerrlab -- here on detecting error |
-`------------------------------------*/
+/*--------------------------------------.
+| yyerrlab -- here on detecting error. |
+`--------------------------------------*/
yyerrlab:
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
+
/* If not already recovering from an error, report this error. */
if (!yyerrstatus)
{
#if ! YYERROR_VERBOSE
yyerror (YY_("syntax error"));
#else
+# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
+ yyssp, yytoken)
{
- 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;
- }
- }
-
- if (0 < yysize && yysize <= yymsg_alloc)
- {
- (void) yysyntax_error (yymsg, yystate, yychar);
- yyerror (yymsg);
- }
- else
- {
- yyerror (YY_("syntax error"));
- if (yysize != 0)
- goto yyexhaustedlab;
- }
+ char const *yymsgp = YY_("syntax error");
+ int yysyntax_error_status;
+ yysyntax_error_status = YYSYNTAX_ERROR;
+ if (yysyntax_error_status == 0)
+ yymsgp = yymsg;
+ else if (yysyntax_error_status == 1)
+ {
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+ yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
+ if (!yymsg)
+ {
+ yymsg = yymsgbuf;
+ yymsg_alloc = sizeof yymsgbuf;
+ yysyntax_error_status = 2;
+ }
+ else
+ {
+ yysyntax_error_status = YYSYNTAX_ERROR;
+ yymsgp = yymsg;
+ }
+ }
+ yyerror (yymsgp);
+ if (yysyntax_error_status == 2)
+ goto yyexhaustedlab;
}
+# undef YYSYNTAX_ERROR
#endif
}
if (yyerrstatus == 3)
{
- /* If just tried and failed to reuse look-ahead token after an
- error, discard it. */
+ /* If just tried and failed to reuse lookahead token after an
+ error, discard it. */
if (yychar <= YYEOF)
- {
- /* Return failure if at end of input. */
- if (yychar == YYEOF)
- YYABORT;
- }
+ {
+ /* Return failure if at end of input. */
+ if (yychar == YYEOF)
+ YYABORT;
+ }
else
- {
- yydestruct ("Error: discarding",
- yytoken, &yylval);
- yychar = YYEMPTY;
- }
+ {
+ yydestruct ("Error: discarding",
+ yytoken, &yylval);
+ yychar = YYEMPTY;
+ }
}
- /* Else will try to reuse look-ahead token after shifting the error
+ /* Else will try to reuse lookahead token after shifting the error
token. */
goto yyerrlab1;
if (/*CONSTCOND*/ 0)
goto yyerrorlab;
- /* Do not reclaim the symbols of the rule which action triggered
+ /* Do not reclaim the symbols of the rule whose action triggered
this YYERROR. */
YYPOPSTACK (yylen);
yylen = 0;
| yyerrlab1 -- common code for both syntax error and YYERROR. |
`-------------------------------------------------------------*/
yyerrlab1:
- yyerrstatus = 3; /* Each real token shifted decrements this. */
+ yyerrstatus = 3; /* Each real token shifted decrements this. */
for (;;)
{
yyn = yypact[yystate];
- if (yyn != YYPACT_NINF)
- {
- yyn += YYTERROR;
- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
- {
- yyn = yytable[yyn];
- if (0 < yyn)
- break;
- }
- }
+ if (!yypact_value_is_default (yyn))
+ {
+ yyn += YYTERROR;
+ if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
+ {
+ yyn = yytable[yyn];
+ if (0 < yyn)
+ break;
+ }
+ }
/* Pop the current state because it cannot handle the error token. */
if (yyssp == yyss)
- YYABORT;
+ YYABORT;
yydestruct ("Error: popping",
- yystos[yystate], yyvsp);
+ yystos[yystate], yyvsp);
YYPOPSTACK (1);
yystate = *yyssp;
YY_STACK_PRINT (yyss, yyssp);
}
- if (yyn == YYFINAL)
- YYACCEPT;
-
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
/* Shift the error token. */
yyresult = 1;
goto yyreturn;
-#ifndef yyoverflow
+#if !defined yyoverflow || YYERROR_VERBOSE
/*-------------------------------------------------.
| yyexhaustedlab -- memory exhaustion comes here. |
`-------------------------------------------------*/
#endif
yyreturn:
- if (yychar != YYEOF && yychar != YYEMPTY)
- yydestruct ("Cleanup: discarding lookahead",
- yytoken, &yylval);
- /* Do not reclaim the symbols of the rule which action triggered
+ if (yychar != YYEMPTY)
+ {
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = YYTRANSLATE (yychar);
+ yydestruct ("Cleanup: discarding lookahead",
+ yytoken, &yylval);
+ }
+ /* Do not reclaim the symbols of the rule whose action triggered
this YYABORT or YYACCEPT. */
YYPOPSTACK (yylen);
YY_STACK_PRINT (yyss, yyssp);
while (yyssp != yyss)
{
yydestruct ("Cleanup: popping",
- yystos[*yyssp], yyvsp);
+ yystos[*yyssp], yyvsp);
YYPOPSTACK (1);
}
#ifndef yyoverflow
if (yymsg != yymsgbuf)
YYSTACK_FREE (yymsg);
#endif
- /* Make sure YYID is used. */
- return YYID (yyresult);
+ return yyresult;
}
-
-
-#line 1149 "/Users/chet/src/bash/src/parse.y"
+#line 1292 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1906 */
/* Initial size to allocate for tokens, and the
int line_len;
unsigned char c;
- if (!current_readline_line)
+ if (current_readline_line == 0)
{
- if (!bash_readline_initialized)
+ if (bash_readline_initialized == 0)
initialize_readline ();
#if defined (JOB_CONTROL)
give_terminal_to (shell_pgrp, 0);
#endif /* JOB_CONTROL */
- old_sigint = (SigHandler *)NULL;
+ old_sigint = IMPOSSIBLE_TRAP_HANDLER;
if (signal_is_ignored (SIGINT) == 0)
{
+ /* interrupt_immediately++; */
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)
+ CHECK_TERMSIG;
+ if (signal_is_ignored (SIGINT) == 0)
{
- interrupt_immediately--;
- set_signal_handler (SIGINT, old_sigint);
+ /* interrupt_immediately--; */
+ if (old_sigint != IMPOSSIBLE_TRAP_HANDLER)
+ set_signal_handler (SIGINT, old_sigint);
}
#if 0
result = EOF;
if (bash_input.location.file)
{
+#if 0
if (interactive)
- {
- interrupt_immediately++;
- terminate_immediately++;
- }
+ interrupt_immediately++;
+#endif
+
+ /* XXX - don't need terminate_immediately; getc_with_restart checks
+ for terminating signals itself if read returns < 0 */
result = getc_with_restart (bash_input.location.file);
+
+#if 0
if (interactive)
- {
- interrupt_immediately--;
- terminate_immediately--;
- }
+ interrupt_immediately--;
+#endif
}
return (result);
}
/* The globally known line number. */
int line_number = 0;
+/* The line number offset set by assigning to LINENO. Not currently used. */
+int line_number_base = 0;
+
#if defined (COND_COMMAND)
static int cond_lineno;
static int cond_token;
{
int *ret;
- ret = (int *)xmalloc (3 * sizeof (int));
+ ret = (int *)xmalloc (4 * sizeof (int));
ret[0] = last_read_token;
ret[1] = token_before_that;
ret[2] = two_tokens_ago;
+ ret[3] = current_token;
return ret;
}
last_read_token = ts[0];
token_before_that = ts[1];
two_tokens_ago = ts[2];
+ current_token = ts[3];
}
/*
* implement alias expansion on a per-token basis.
*/
+#define PSH_ALIAS 0x01
+#define PSH_DPAREN 0x02
+#define PSH_SOURCE 0x04
+
typedef struct string_saver {
struct string_saver *next;
int expand_alias; /* Value to set expand_alias to when string is popped. */
#if defined (ALIAS)
alias_t *expander; /* alias that caused this line to be pushed. */
#endif
- int saved_line_size, saved_line_index, saved_line_terminator;
+ size_t saved_line_size, saved_line_index;
+ int saved_line_terminator;
+ int flags;
} STRING_SAVER;
STRING_SAVER *pushed_string_list = (STRING_SAVER *)NULL;
temp->saved_line_size = shell_input_line_size;
temp->saved_line_index = shell_input_line_index;
temp->saved_line_terminator = shell_input_line_terminator;
+ temp->flags = 0;
#if defined (ALIAS)
temp->expander = ap;
+ if (ap)
+ temp->flags = PSH_ALIAS;
#endif
temp->next = pushed_string_list;
pushed_string_list = temp;
#endif
shell_input_line = s;
- shell_input_line_size = strlen (s);
+ shell_input_line_size = STRLEN (s);
shell_input_line_index = 0;
shell_input_line_terminator = '\0';
#if 0
#endif
}
+int
+parser_expanding_alias ()
+{
+ return (expanding_alias ());
+}
+
+void
+parser_save_alias ()
+{
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ push_string ((char *)NULL, 0, (alias_t *)NULL);
+ pushed_string_list->flags = PSH_SOURCE; /* XXX - for now */
+#else
+ ;
+#endif
+}
+
+void
+parser_restore_alias ()
+{
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ if (pushed_string_list)
+ pop_string ();
+#else
+ ;
+#endif
+}
+
+void
+clear_shell_input_line ()
+{
+ if (shell_input_line)
+ shell_input_line[shell_input_line_index = 0] = '\0';
+}
+
/* Return a line of text, taken from wherever yylex () reads input.
If there is no more input, then we return NULL. If REMOVE_QUOTED_NEWLINE
is non-zero, we remove unquoted \<newline> pairs. This is used by
{
static char *line_buffer = (char *)NULL;
static int buffer_size = 0;
- int indx = 0, c, peekc, pass_next;
+ int indx, c, peekc, pass_next;
#if defined (READLINE)
if (no_line_editing && SHOULD_PROMPT ())
#endif
print_prompt ();
- pass_next = 0;
+ pass_next = indx = 0;
while (1)
{
/* Allow immediate exit if interrupted during input. */
}
else if (c == '\\' && remove_quoted_newline)
{
+ QUIT;
peekc = yy_getc ();
if (peekc == '\n')
{
prompt_again ();
ret = read_a_line (remove_quoted_newline);
#if defined (HISTORY)
- if (remember_on_history && (parser_state & PST_HEREDOC))
+ if (ret && 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.
+ /* To make adding 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++;
/* other tokens that can be returned by read_token() */
STRING_INT_ALIST other_token_alist[] = {
/* Multiple-character tokens with special values */
+ { "--", TIMEIGN },
{ "-p", TIMEOPT },
{ "&&", AND_AND },
{ "||", OR_OR },
int remove_quoted_newline;
{
register int i;
- int c;
+ int c, truncating, last_was_backslash;
unsigned char uc;
QUIT;
+ last_was_backslash = 0;
if (sigwinch_received)
{
sigwinch_received = 0;
{
line_number++;
+ /* Let's not let one really really long line blow up memory allocation */
+ if (shell_input_line && shell_input_line_size >= 32768)
+ {
+ free (shell_input_line);
+ shell_input_line = 0;
+ shell_input_line_size = 0;
+ }
+
restart_read:
/* Allow immediate exit if interrupted during input. */
QUIT;
- i = 0;
+ i = truncating = 0;
shell_input_line_terminator = 0;
/* If the shell is interatctive, but not currently printing a prompt
continue;
}
- RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
+ /* Theoretical overflow */
+ /* If we can't put 256 bytes more into the buffer, allocate
+ everything we can and fill it as full as we can. */
+ /* XXX - we ignore rest of line using `truncating' flag */
+ if (shell_input_line_size > (SIZE_MAX - 256))
+ {
+ size_t n;
+
+ n = SIZE_MAX - i; /* how much more can we put into the buffer? */
+ if (n <= 2) /* we have to save 1 for the newline added below */
+ {
+ if (truncating == 0)
+ internal_warning(_("shell_getc: shell_input_line_size (%zu) exceeds SIZE_MAX (%lu): line truncated"), shell_input_line_size, (unsigned long)SIZE_MAX);
+ shell_input_line[i] = '\0';
+ truncating = 1;
+ }
+ if (shell_input_line_size < SIZE_MAX)
+ {
+ shell_input_line_size = SIZE_MAX;
+ shell_input_line = xrealloc (shell_input_line, shell_input_line_size);
+ }
+ }
+ else
+ RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
if (c == EOF)
{
break;
}
- shell_input_line[i++] = c;
+ if (truncating == 0 || c == '\n')
+ shell_input_line[i++] = c;
if (c == '\n')
{
current_command_line_count++;
break;
}
+
+ last_was_backslash = last_was_backslash == 0 && c == '\\';
}
shell_input_line_index = 0;
if (current_delimiter (dstack) == '\'')
history_expansion_inhibited = 1;
# endif
+ /* Calling with a third argument of 1 allows remember_on_history to
+ determine whether or not the line is saved to the history list */
expansions = pre_process_line (shell_input_line, 1, 1);
# if defined (BANG_HISTORY)
history_expansion_inhibited = old_hist;
shell_input_line = expansions;
shell_input_line_len = shell_input_line ?
strlen (shell_input_line) : 0;
- if (!shell_input_line_len)
+ if (shell_input_line_len == 0)
current_command_line_count--;
/* We have to force the xrealloc below because we don't know
else
{
char *hdcs;
- hdcs = history_delimiting_chars ();
+ hdcs = history_delimiting_chars (shell_input_line);
if (hdcs && hdcs[0] == ';')
maybe_add_history (shell_input_line);
}
if (shell_input_line)
{
/* Lines that signify the end of the shell's input should not be
- echoed. */
+ echoed. We should not echo lines while parsing command
+ substitutions with recursive calls into the parsing engine; those
+ should only be echoed once when we read the word. That is the
+ reason for the test against shell_eof_token, which is set to a
+ right paren when parsing the contents of command substitutions. */
if (echo_input_at_read && (shell_input_line[0] ||
- shell_input_line_terminator != EOF))
+ shell_input_line_terminator != EOF) &&
+ shell_eof_token == 0)
fprintf (stderr, "%s\n", shell_input_line);
}
else
not already end in an EOF character. */
if (shell_input_line_terminator != EOF)
{
- if (shell_input_line_len + 3 > shell_input_line_size)
+ if (shell_input_line_size < SIZE_MAX-3 && (shell_input_line_len+3 > shell_input_line_size))
shell_input_line = (char *)xrealloc (shell_input_line,
1 + (shell_input_line_size += 2));
- shell_input_line[shell_input_line_len] = '\n';
+ /* Don't add a newline to a string that ends with a backslash if we're
+ going to be removing quoted newlines, since that will eat the
+ backslash. Add another backslash instead (will be removed by
+ word expansion). */
+ if (bash_input.type == st_string && expanding_alias() == 0 && last_was_backslash && c == EOF && remove_quoted_newline)
+ shell_input_line[shell_input_line_len] = '\\';
+ else
+ shell_input_line[shell_input_line_len] = '\n';
shell_input_line[shell_input_line_len + 1] = '\0';
set_line_mbstate ();
}
}
+next_alias_char:
uc = shell_input_line[shell_input_line_index];
if (uc)
because we have fully consumed the result of the last alias expansion.
Do it transparently; just return the next character of the string popped
to. */
- if (!uc && (pushed_string_list != (STRING_SAVER *)NULL))
+ /* If pushed_string_list != 0 but pushed_string_list->expander == 0 (not
+ currently tested) and the flags value is not PSH_SOURCE, we are not
+ parsing an alias, we have just saved one (push_string, when called by
+ the parse_dparen code) In this case, just go on as well. The PSH_SOURCE
+ case is handled below. */
+pop_alias:
+ if (uc == 0 && pushed_string_list && pushed_string_list->flags != PSH_SOURCE)
{
pop_string ();
uc = shell_input_line[shell_input_line_index];
if (SHOULD_PROMPT ())
prompt_again ();
line_number++;
- goto restart_read;
+ /* What do we do here if we're expanding an alias whose definition
+ includes an escaped newline? If that's the last character in the
+ alias expansion, we just pop the pushed string list (recall that
+ we inhibit the appending of a space in mk_alexpansion() if newline
+ is the last character). If it's not the last character, we need
+ to consume the quoted newline and move to the next character in
+ the expansion. */
+#if defined (ALIAS)
+ if (expanding_alias () && shell_input_line[shell_input_line_index+1] == '\0')
+ {
+ uc = 0;
+ goto pop_alias;
+ }
+ else if (expanding_alias () && shell_input_line[shell_input_line_index+1] != '\0')
+ {
+ shell_input_line_index++; /* skip newline */
+ goto next_alias_char; /* and get next character */
+ }
+ else
+#endif
+ goto restart_read;
}
- if (!uc && shell_input_line_terminator == EOF)
+ if (uc == 0 && shell_input_line_terminator == EOF)
return ((shell_input_line_index != 0) ? '\n' : EOF);
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ /* We already know that we are not parsing an alias expansion because of the
+ check for expanding_alias() above. This knows how parse_and_execute
+ handles switching to st_string input while an alias is being expanded,
+ hence the check for pushed_string_list without pushed_string_list->expander
+ and the check for PSH_SOURCE as pushed_string_list->flags.
+ parse_and_execute and parse_string both change the input type to st_string
+ and place the string to be parsed and executed into location.string, so
+ we should not stop reading that until the pointer is '\0'.
+ The check for shell_input_line_terminator may be superfluous.
+
+ This solves the problem of `.' inside a multi-line alias with embedded
+ newlines executing things out of order. */
+ if (uc == 0 && bash_input.type == st_string && *bash_input.location.string &&
+ pushed_string_list && pushed_string_list->flags == PSH_SOURCE &&
+ shell_input_line_terminator == 0)
+ {
+ shell_input_line_index = 0;
+ goto restart_read;
+ }
+#endif
+
return (uc);
}
eol_ungetc_lookahead = c;
}
+char *
+parser_remaining_input ()
+{
+ if (shell_input_line == 0)
+ return 0;
+ if (shell_input_line_index < 0 || shell_input_line_index >= shell_input_line_len)
+ return ""; /* XXX */
+ return (shell_input_line + shell_input_line_index);
+}
+
#ifdef INCLUDE_UNUSED
/* Back the input pointer up by one, effectively `ungetting' a character. */
static void
token_to_read = 0;
}
+void
+push_token (x)
+ int x;
+{
+ two_tokens_ago = token_before_that;
+ token_before_that = last_read_token;
+ last_read_token = current_token;
+
+ current_token = x;
+}
+
/* Place to remember the token. We try to keep the buffer
at a reasonable size, but it can grow. */
static char *token = (char *)NULL;
We do this only if it is time to do so. Notice that only here
is the mail alarm reset; nothing takes place in check_mail ()
except the checking of mail. Please don't change this. */
- if (prompt_is_ps1 && time_to_check_mail ())
+ if (prompt_is_ps1 && parse_and_execute_level == 0 && time_to_check_mail ())
{
check_mail ();
reset_mail_timer ();
which allow ESAC to be the next one read. */
static int esacs_needed_count;
+static void
+push_heredoc (r)
+ REDIRECT *r;
+{
+ if (need_here_doc >= HEREDOC_MAX)
+ {
+ last_command_exit_value = EX_BADUSAGE;
+ need_here_doc = 0;
+ report_syntax_error (_("maximum here-document count exceeded"));
+ reset_parser ();
+ exit_shell (last_command_exit_value);
+ }
+ redir_stack[need_here_doc++] = r;
+}
+
void
gather_here_documents ()
{
int r;
r = 0;
- while (need_here_doc)
+ here_doc_first_line = 1;
+ while (need_here_doc > 0)
{
parser_state |= PST_HEREDOC;
make_here_document (redir_stack[r++], line_number);
parser_state &= ~PST_HEREDOC;
need_here_doc--;
+ redir_stack[r - 1] = 0; /* XXX */
}
+ here_doc_first_line = 0; /* just in case */
}
/* When non-zero, an open-brace used to create a group is awaiting a close
brace partner. */
static int open_brace_count;
+/* In the following three macros, `token' is always last_read_token */
+
+/* Are we in the middle of parsing a redirection where we are about to read
+ a word? This is used to make sure alias expansion doesn't happen in the
+ middle of a redirection, even though we're parsing a simple command. */
+#define parsing_redirection(token) \
+ (token == '<' || token == '>' || \
+ token == GREATER_GREATER || token == GREATER_BAR || \
+ token == LESS_GREATER || token == LESS_LESS_MINUS || \
+ token == LESS_LESS || token == LESS_LESS_LESS || \
+ token == LESS_AND || token == GREATER_AND || token == AND_GREATER)
+
+/* Is `token' one that will allow a WORD to be read in a command position?
+ We can read a simple command name on which we should attempt alias expansion
+ or we can read an assignment statement. */
#define command_token_position(token) \
(((token) == ASSIGNMENT_WORD) || \
+ ((parser_state&PST_REDIRLIST) && parsing_redirection(token) == 0) || \
((token) != SEMI_SEMI && (token) != SEMI_AND && (token) != SEMI_SEMI_AND && reserved_word_acceptable(token)))
+/* Are we in a position where we can read an assignment statement? */
#define assignment_acceptable(token) \
(command_token_position(token) && ((parser_state & PST_CASEPAT) == 0))
break; \
if (word_token_alist[i].token == TIME && time_command_acceptable () == 0) \
break; \
+ if ((parser_state & PST_CASEPAT) && last_read_token == '|' && word_token_alist[i].token == ESAC) \
+ break; /* Posix grammar rule 4 */ \
if (word_token_alist[i].token == ESAC) \
parser_state &= ~(PST_CASEPAT|PST_CASESTMT); \
else if (word_token_alist[i].token == CASE) \
l = strlen (s);
r = xmalloc (l + 2);
strcpy (r, s);
- if (r[l -1] != ' ')
+ /* If the last character in the alias is a newline, don't add a trailing
+ space to the expansion. Works with shell_getc above. */
+ if (r[l - 1] != ' ' && r[l - 1] != '\n' && shellmeta(r[l - 1]) == 0)
r[l++] = ' ';
r[l] = '\0';
return r;
time_command_acceptable ()
{
#if defined (COMMAND_TIMING)
+ int i;
+
+ if (posixly_correct && shell_compatibility_level > 41)
+ {
+ /* Quick check of the rest of the line to find the next token. If it
+ begins with a `-', Posix says to not return `time' as the token.
+ This was interp 267. */
+ i = shell_input_line_index;
+ while (i < shell_input_line_len && (shell_input_line[i] == ' ' || shell_input_line[i] == '\t'))
+ i++;
+ if (shell_input_line[i] == '-')
+ return 0;
+ }
+
switch (last_read_token)
{
case 0:
case ';':
case '\n':
+ if (token_before_that == '|')
+ return (0);
+ /* FALLTHROUGH */
case AND_AND:
case OR_OR:
case '&':
+ case WHILE:
case DO:
+ case UNTIL:
+ case IF:
case THEN:
+ case ELIF:
case ELSE:
case '{': /* } */
- case '(': /* ) */
+ case '(': /* )( */
+ case ')': /* only valid in case statement */
+ case BANG: /* ! time pipeline */
+ case TIME: /* time time pipeline */
+ case TIMEOPT: /* time -p time pipeline */
+ case TIMEIGN: /* time -p -- ... */
return 1;
default:
return 0;
`}' is recognized if there is an unclosed `{' present.
`-p' is returned as TIMEOPT if the last read token was TIME.
+ `--' is returned as TIMEIGN if the last read token was TIMEOPT.
']]' is returned as COND_END if the parser is currently parsing
a conditional expression ((parser_state & PST_CONDEXPR) != 0)
/* Handle -p after `time'. */
if (last_read_token == TIME && tokstr[0] == '-' && tokstr[1] == 'p' && !tokstr[2])
return (TIMEOPT);
-#endif
-
-#if 0
-#if defined (COMMAND_TIMING)
- if (STREQ (token, "time") && ((parser_state & PST_CASEPAT) == 0) && time_command_acceptable ())
- return (TIME);
-#endif /* COMMAND_TIMING */
+ /* Handle -- after `time -p'. */
+ if (last_read_token == TIMEOPT && tokstr[0] == '-' && tokstr[1] == '-' && !tokstr[2])
+ return (TIMEIGN);
#endif
#if defined (COND_COMMAND) /* [[ */
dstack.delimiter_depth = 0; /* No delimiters found so far. */
open_brace_count = 0;
+#if defined (EXTENDED_GLOB)
+ /* Reset to global value of extended glob */
+ if (parser_state & PST_EXTPAT)
+ extended_glob = global_extglob;
+#endif
+
parser_state = 0;
+ here_doc_first_line = 0;
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
if (pushed_string_list)
free_string_list ();
#endif /* ALIAS || DPAREN_ARITHMETIC */
+ /* This is where we resynchronize to the next newline on error/reset */
if (shell_input_line)
{
free (shell_input_line);
FREE (word_desc_to_read);
word_desc_to_read = (WORD_DESC *)NULL;
+ eol_ungetc_lookahead = 0;
+
+ current_token = '\n'; /* XXX */
last_read_token = '\n';
token_to_read = '\n';
}
parser_state &= ~PST_ASSIGNOK;
- peek_char = shell_getc (1);
+ /* If we are parsing a command substitution and we have read a character
+ that marks the end of it, don't bother to skip over quoted newlines
+ when we read the next token. We're just interested in a character
+ that will turn this into a two-character token, so we let the higher
+ layers deal with quoted newlines following the command substitution. */
+ if ((parser_state & PST_CMDSUBST) && character == shell_eof_token)
+ peek_char = shell_getc (0);
+ else
+ peek_char = shell_getc (1);
+
if (character == peek_char)
{
switch (character)
* 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 */
+#define P_FIRSTCLOSE 0x0001
+#define P_ALLOWESC 0x0002
+#define P_DQUOTE 0x0004
+#define P_COMMAND 0x0008 /* parsing a command, so look for comments */
+#define P_BACKQUOTE 0x0010 /* parsing a backquoted command substitution */
+#define P_ARRAYSUB 0x0020 /* parsing a [...] array subscript for assignment */
+#define P_DOLBRACE 0x0040 /* parsing a ${...} construct */
/* Lexical state while parsing a grouping construct or $(...). */
#define LEX_WASDOL 0x001
#define LEX_INHEREDOC 0x080
#define LEX_HEREDELIM 0x100 /* reading here-doc delimiter */
#define LEX_STRIPDOC 0x200 /* <<- strip tabs from here doc delim */
+#define LEX_QUOTEDDOC 0x400 /* here doc with quoted delim */
+#define LEX_INWORD 0x800
#define COMSUB_META(ch) ((ch) == ';' || (ch) == '&' || (ch) == '|')
int nestlen, ttranslen, start_lineno;
char *ret, *nestret, *ttrans;
int retind, retsize, rflags;
+ int dolbrace_state;
-/* itrace("parse_matched_pair: open = %c close = %c flags = %d", open, close, flags); */
+ dolbrace_state = (flags & P_DOLBRACE) ? DOLBRACE_PARAM : 0;
+
+/*itrace("parse_matched_pair[%d]: open = %c close = %c flags = %d", line_number, open, close, flags);*/
count = 1;
tflags = 0;
start_lineno = line_number;
while (count)
{
- ch = shell_getc (qc != '\'' && (tflags & LEX_PASSNEXT) == 0);
+ ch = shell_getc (qc != '\'' && (tflags & (LEX_PASSNEXT)) == 0);
if (ch == EOF)
{
}
RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
- if MBTEST(ch == CTLESC || ch == CTLNUL)
+ if MBTEST(ch == CTLESC)
ret[retind++] = CTLESC;
ret[retind++] = ch;
continue;
if MBTEST(ch == '\\') /* backslashes */
tflags |= LEX_PASSNEXT;
-#if 0
+ /* Based on which dolstate is currently in (param, op, or word),
+ decide what the op is. We're really only concerned if it's % or
+ #, so we can turn on a flag that says whether or not we should
+ treat single quotes as special when inside a double-quoted
+ ${...}. This logic must agree with subst.c:extract_dollar_brace_string
+ since they share the same defines. */
+ /* FLAG POSIX INTERP 221 */
+ if (flags & P_DOLBRACE)
+ {
+ /* ${param%[%]word} */
+ if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '%' && retind > 1)
+ dolbrace_state = DOLBRACE_QUOTE;
+ /* ${param#[#]word} */
+ else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '#' && retind > 1)
+ dolbrace_state = DOLBRACE_QUOTE;
+ /* ${param/[/]pat/rep} */
+ else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '/' && retind > 1)
+ dolbrace_state = DOLBRACE_QUOTE2; /* XXX */
+ /* ${param^[^]pat} */
+ else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '^' && retind > 1)
+ dolbrace_state = DOLBRACE_QUOTE;
+ /* ${param,[,]pat} */
+ else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == ',' && retind > 1)
+ dolbrace_state = DOLBRACE_QUOTE;
+ else if MBTEST(dolbrace_state == DOLBRACE_PARAM && strchr ("#%^,~:-=?+/", ch) != 0)
+ dolbrace_state = DOLBRACE_OP;
+ else if MBTEST(dolbrace_state == DOLBRACE_OP && strchr ("#%^,~:-=?+/", ch) == 0)
+ dolbrace_state = DOLBRACE_WORD;
+ }
+
/* The big hammer. Single quotes aren't special in double quotes. The
- problem is that Posix says the single quotes are semi-special:
+ problem is that Posix used to say 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 == '\'') /* } */
+ /* This was changed in Austin Group Interp 221 */
+ if MBTEST(posixly_correct && shell_compatibility_level > 41 && dolbrace_state != DOLBRACE_QUOTE && dolbrace_state != DOLBRACE_QUOTE2 && (flags & P_DQUOTE) && (flags & P_DOLBRACE) && ch == '\'')
continue;
-#endif
/* Could also check open == '`' if we want to parse grouping constructs
inside old-style command substitution. */
ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
xfree (nestret);
- if ((rflags & P_DQUOTE) == 0)
+ /* If we're parsing a double-quoted brace expansion and we are
+ not in a place where single quotes are treated specially,
+ make sure we single-quote the results of the ansi
+ expansion because quote removal should remove them later */
+ /* FLAG POSIX INTERP 221 */
+ if ((shell_compatibility_level > 42) && (rflags & P_DQUOTE) && (dolbrace_state == DOLBRACE_QUOTE2) && (flags & P_DOLBRACE))
+ {
+ nestret = sh_single_quote (ttrans);
+ free (ttrans);
+ nestlen = strlen (nestret);
+ }
+ else if ((rflags & P_DQUOTE) == 0)
{
nestret = sh_single_quote (ttrans);
free (ttrans);
APPEND_NESTRET ();
FREE (nestret);
}
+ else if ((flags & (P_ARRAYSUB|P_DOLBRACE)) && (tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
+ goto parse_dollar_word;
}
/* Parse an old-style command substitution within double quotes as a
single word. */
else if MBTEST(open != '`' && (tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
/* check for $(), $[], or ${} inside quoted string. */
{
+parse_dollar_word:
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);
+ nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|P_DOLBRACE|rflags);
else if (ch == '[') /* ] */
nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);
ret[retind] = '\0';
if (lenp)
*lenp = retind;
+/*itrace("parse_matched_pair[%d]: returning %s", line_number, ret);*/
return ret;
}
+#if defined (DEBUG)
+static void
+dump_tflags (flags)
+ int flags;
+{
+ int f;
+
+ f = flags;
+ fprintf (stderr, "%d -> ", f);
+ if (f & LEX_WASDOL)
+ {
+ f &= ~LEX_WASDOL;
+ fprintf (stderr, "LEX_WASDOL%s", f ? "|" : "");
+ }
+ if (f & LEX_CKCOMMENT)
+ {
+ f &= ~LEX_CKCOMMENT;
+ fprintf (stderr, "LEX_CKCOMMENT%s", f ? "|" : "");
+ }
+ if (f & LEX_INCOMMENT)
+ {
+ f &= ~LEX_INCOMMENT;
+ fprintf (stderr, "LEX_INCOMMENT%s", f ? "|" : "");
+ }
+ if (f & LEX_PASSNEXT)
+ {
+ f &= ~LEX_PASSNEXT;
+ fprintf (stderr, "LEX_PASSNEXT%s", f ? "|" : "");
+ }
+ if (f & LEX_RESWDOK)
+ {
+ f &= ~LEX_RESWDOK;
+ fprintf (stderr, "LEX_RESWDOK%s", f ? "|" : "");
+ }
+ if (f & LEX_CKCASE)
+ {
+ f &= ~LEX_CKCASE;
+ fprintf (stderr, "LEX_CKCASE%s", f ? "|" : "");
+ }
+ if (f & LEX_INCASE)
+ {
+ f &= ~LEX_INCASE;
+ fprintf (stderr, "LEX_INCASE%s", f ? "|" : "");
+ }
+ if (f & LEX_INHEREDOC)
+ {
+ f &= ~LEX_INHEREDOC;
+ fprintf (stderr, "LEX_INHEREDOC%s", f ? "|" : "");
+ }
+ if (f & LEX_HEREDELIM)
+ {
+ f &= ~LEX_HEREDELIM;
+ fprintf (stderr, "LEX_HEREDELIM%s", f ? "|" : "");
+ }
+ if (f & LEX_STRIPDOC)
+ {
+ f &= ~LEX_STRIPDOC;
+ fprintf (stderr, "LEX_WASDOL%s", f ? "|" : "");
+ }
+ if (f & LEX_QUOTEDDOC)
+ {
+ f &= ~LEX_QUOTEDDOC;
+ fprintf (stderr, "LEX_QUOTEDDOC%s", f ? "|" : "");
+ }
+ if (f & LEX_INWORD)
+ {
+ f &= ~LEX_INWORD;
+ fprintf (stderr, "LEX_INWORD%s", f ? "|" : "");
+ }
+
+ fprintf (stderr, "\n");
+ fflush (stderr);
+}
+#endif
+
/* 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 *
int open, close;
int *lenp, flags;
{
- int count, ch, peekc, tflags, lex_rwlen, lex_firstind;
+ int count, ch, peekc, tflags, lex_rwlen, lex_wlen, lex_firstind;
int nestlen, ttranslen, start_lineno;
char *ret, *nestret, *ttrans, *heredelim;
int retind, retsize, rflags, hdlen;
+ /* Posix interp 217 says arithmetic expressions have precedence, so
+ assume $(( introduces arithmetic expansion and parse accordingly. */
+ peekc = shell_getc (0);
+ shell_ungetc (peekc);
+ if (peekc == '(')
+ return (parse_matched_pair (qc, open, close, lenp, 0));
+
/*itrace("parse_comsub: qc = `%c' open = %c close = %c", qc, open, close);*/
count = 1;
tflags = LEX_RESWDOK;
retind = 0;
start_lineno = line_number;
- lex_rwlen = 0;
+ lex_rwlen = lex_wlen = 0;
heredelim = 0;
lex_firstind = -1;
while (count)
{
comsub_readchar:
- ch = shell_getc (qc != '\'' && (tflags & LEX_PASSNEXT) == 0);
+ ch = shell_getc (qc != '\'' && (tflags & (LEX_INCOMMENT|LEX_PASSNEXT)) == 0);
if (ch == EOF)
{
tind++;
if (STREQN (ret + tind, heredelim, hdlen))
{
- tflags &= ~(LEX_STRIPDOC|LEX_INHEREDOC);
+ tflags &= ~(LEX_STRIPDOC|LEX_INHEREDOC|LEX_QUOTEDDOC);
/*itrace("parse_comsub:%d: found here doc end `%s'", line_number, ret + tind);*/
+ free (heredelim);
+ heredelim = 0;
lex_firstind = -1;
}
else
if (ch == '\n' && SHOULD_PROMPT ())
prompt_again ();
- /* Don't bother counting parens or doing anything else if in a comment */
+ /* XXX -- possibly allow here doc to be delimited by ending right
+ paren. */
+ if ((tflags & LEX_INHEREDOC) && ch == close && count == 1)
+ {
+ int tind;
+/*itrace("parse_comsub:%d: in here doc, ch == close, retind - firstind = %d hdlen = %d retind = %d", line_number, retind-lex_firstind, hdlen, retind);*/
+ tind = lex_firstind;
+ while ((tflags & LEX_STRIPDOC) && ret[tind] == '\t')
+ tind++;
+ if (retind-tind == hdlen && STREQN (ret + tind, heredelim, hdlen))
+ {
+ tflags &= ~(LEX_STRIPDOC|LEX_INHEREDOC|LEX_QUOTEDDOC);
+/*itrace("parse_comsub:%d: found here doc end `%*s'", line_number, hdlen, ret + tind);*/
+ free (heredelim);
+ heredelim = 0;
+ lex_firstind = -1;
+ }
+ }
+
+ /* Don't bother counting parens or doing anything else if in a comment or
+ here document (not exactly right for here-docs -- if we want to allow
+ recursive calls to parse_comsub to have their own here documents,
+ change the LEX_INHEREDOC to LEX_QUOTEDDOC here and uncomment the next
+ clause below. Note that to make this work completely, we need to make
+ additional changes to allow xparse_dolparen to work right when the
+ command substitution is parsed, because read_secondary_line doesn't know
+ to recursively parse through command substitutions embedded in here-
+ documents */
if (tflags & (LEX_INCOMMENT|LEX_INHEREDOC))
{
/* Add this character. */
ret[retind++] = ch;
if ((tflags & LEX_INCOMMENT) && ch == '\n')
- tflags &= ~LEX_INCOMMENT;
+ {
+/*itrace("parse_comsub:%d: lex_incomment -> 0 ch = `%c'", line_number, ch);*/
+ tflags &= ~LEX_INCOMMENT;
+ }
+
+ continue;
+ }
+#if 0
+ /* If we're going to recursively parse a command substitution inside a
+ here-document, make sure we call parse_comsub recursively below. See
+ above for additional caveats. */
+ if ((tflags & LEX_INHEREDOC) && ((tflags & LEX_WASDOL) == 0 || ch != '(')) /*)*/
+ {
+ /* Add this character. */
+ RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+ ret[retind++] = ch;
+ if MBTEST(ch == '$')
+ tflags |= LEX_WASDOL;
+ else
+ tflags &= ~LEX_WASDOL;
+ }
+#endif
+
+ if (tflags & LEX_PASSNEXT) /* last char was backslash */
+ {
+/*itrace("parse_comsub:%d: lex_passnext -> 0 ch = `%c' (%d)", line_number, ch, __LINE__);*/
+ 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)
+ ret[retind++] = CTLESC;
+ ret[retind++] = ch;
continue;
}
+ /* If this is a shell break character, we are not in a word. If not,
+ we either start or continue a word. */
+ if MBTEST(shellbreak (ch))
+ {
+ tflags &= ~LEX_INWORD;
+/*itrace("parse_comsub:%d: lex_inword -> 0 ch = `%c' (%d)", line_number, ch, __LINE__);*/
+ }
+ else
+ {
+ if (tflags & LEX_INWORD)
+ {
+ lex_wlen++;
+/*itrace("parse_comsub:%d: lex_inword == 1 ch = `%c' lex_wlen = %d (%d)", line_number, ch, lex_wlen, __LINE__);*/
+ }
+ else
+ {
+/*itrace("parse_comsub:%d: lex_inword -> 1 ch = `%c' (%d)", line_number, ch, __LINE__);*/
+ tflags |= LEX_INWORD;
+ lex_wlen = 0;
+ if (tflags & LEX_RESWDOK)
+ lex_rwlen = 0;
+ }
+ }
+
/* Skip whitespace */
- if MBTEST(shellblank (ch) && lex_rwlen == 0)
+ if MBTEST(shellblank (ch) && (tflags & LEX_HEREDELIM) == 0 && lex_rwlen == 0)
{
/* Add this character. */
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
{
if (lex_firstind == -1 && shellbreak (ch) == 0)
lex_firstind = retind;
+#if 0
+ else if (heredelim && (tflags & LEX_PASSNEXT) == 0 && ch == '\n')
+ {
+ tflags |= LEX_INHEREDOC;
+ tflags &= ~LEX_HEREDELIM;
+ lex_firstind = retind + 1;
+ }
+#endif
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);
+ if (heredelim == 0)
+ {
+ nestret = substring (ret, lex_firstind, retind);
+ heredelim = string_quote_removal (nestret, 0);
+ hdlen = STRLEN(heredelim);
/*itrace("parse_comsub:%d: found here doc delimiter `%s' (%d)", line_number, heredelim, hdlen);*/
+ if (STREQ (heredelim, nestret) == 0)
+ tflags |= LEX_QUOTEDDOC;
+ free (nestret);
+ }
if (ch == '\n')
{
tflags |= LEX_INHEREDOC;
}
/* 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))
+ if MBTEST((tflags & LEX_RESWDOK) == 0 && (tflags & LEX_CKCASE) && (tflags & LEX_INCOMMENT) == 0 && (shellmeta(ch) || ch == '\n'))
{
/* Add this character. */
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
{
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
ret[retind++] = peekc;
-/*itrace("parse_comsub:%d: set lex_reswordok = 1, ch = `%c'", line_number, ch); */
+/*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);*/
+ tflags |= LEX_RESWDOK;
lex_rwlen = 0;
continue;
}
/* If we can read a reserved word, try to read one. */
if (tflags & LEX_RESWDOK)
{
- if MBTEST(islower (ch))
+ if MBTEST(islower ((unsigned char)ch))
{
/* Add this character. */
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
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);*/
-}
+ {
+ tflags |= LEX_INCASE;
+ tflags &= ~LEX_RESWDOK;
+/*itrace("parse_comsub:%d: found `case', lex_incase -> 1 lex_reswdok -> 0", 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_INCASE;
+/*itrace("parse_comsub:%d: found `esac', lex_incase -> 0 lex_reswdok -> 1", line_number);*/
+ tflags |= LEX_RESWDOK;
+ lex_rwlen = 0;
+ }
+ else if (STREQN (ret + retind - 4, "done", 4) ||
+ STREQN (ret + retind - 4, "then", 4) ||
+ STREQN (ret + retind - 4, "else", 4) ||
+ STREQN (ret + retind - 4, "elif", 4) ||
+ STREQN (ret + retind - 4, "time", 4))
+ {
+ /* these are four-character reserved words that can be
+ followed by a reserved word; anything else turns off
+ the reserved-word-ok flag */
+/*itrace("parse_comsub:%d: found `%.4s', lex_reswdok -> 1", line_number, ret+retind-4);*/
+ tflags |= LEX_RESWDOK;
+ lex_rwlen = 0;
+ }
+ else
+ {
+ tflags &= ~LEX_RESWDOK;
+/*itrace("parse_comsub:%d: found `%.4s', lex_reswdok -> 0", line_number, ret+retind-4);*/
+ }
+ }
+ else if MBTEST((tflags & LEX_CKCOMMENT) && ch == '#' && (lex_rwlen == 0 || ((tflags & LEX_INWORD) && lex_wlen == 0)))
+ ; /* don't modify LEX_RESWDOK if we're starting a comment */
+ /* Allow `do' followed by space, tab, or newline to preserve the
+ RESWDOK flag, but reset the reserved word length counter so we
+ can read another one. */
+ else if MBTEST(((tflags & LEX_INCASE) == 0) &&
+ (isblank((unsigned char)ch) || ch == '\n') &&
+ lex_rwlen == 2 &&
+ STREQN (ret + retind - 2, "do", 2))
+ {
+/*itrace("parse_comsub:%d: lex_incase == 0 found `%c', found \"do\"", line_number, ch);*/
+ lex_rwlen = 0;
+ }
+ else if MBTEST((tflags & LEX_INCASE) && ch != '\n')
+ /* If we can read a reserved word and we're in case, we're at the
+ point where we can read a new pattern list or an esac. We
+ handle the esac case above. If we read a newline, we want to
+ leave LEX_RESWDOK alone. If we read anything else, we want to
+ turn off LEX_RESWDOK, since we're going to read a pattern list. */
+ {
tflags &= ~LEX_RESWDOK;
+/*itrace("parse_comsub:%d: lex_incase == 1 found `%c', lex_reswordok -> 0", line_number, ch);*/
}
- else if (shellbreak (ch) == 0)
-{
+ else if MBTEST(shellbreak (ch) == 0)
+ {
tflags &= ~LEX_RESWDOK;
/*itrace("parse_comsub:%d: found `%c', lex_reswordok -> 0", line_number, ch);*/
-}
+ }
+#if 0
+ /* If we find a space or tab but have read something and it's not
+ `do', turn off the reserved-word-ok flag */
+ else if MBTEST(isblank ((unsigned char)ch) && lex_rwlen > 0)
+ {
+ tflags &= ~LEX_RESWDOK;
+/*itrace("parse_comsub:%d: found `%c', lex_reswordok -> 0", line_number, ch);*/
+ }
+#endif
}
+ /* Might be the start of a here-doc delimiter */
if MBTEST((tflags & LEX_INCOMMENT) == 0 && (tflags & LEX_CKCASE) && ch == '<')
{
/* Add this character. */
}
else
shell_ungetc (peekc);
- tflags |= LEX_HEREDELIM;
- lex_firstind = -1;
+ if (peekc != '<')
+ {
+ tflags |= LEX_HEREDELIM;
+ lex_firstind = -1;
+ }
continue;
}
else
- ch = peekc; /* fall through and continue XXX - this skips comments if peekc == '#' */
+ ch = peekc; /* fall through and continue XXX */
}
- /* 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 */
+ else if MBTEST((tflags & LEX_CKCOMMENT) && (tflags & LEX_INCOMMENT) == 0 && ch == '#' && (((tflags & LEX_RESWDOK) && lex_rwlen == 0) || ((tflags & LEX_INWORD) && lex_wlen == 0)))
{
- 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;
+/*itrace("parse_comsub:%d: lex_incomment -> 1 (%d)", line_number, __LINE__);*/
+ tflags |= LEX_INCOMMENT;
}
- else if MBTEST(ch == CTLESC || ch == CTLNUL) /* special shell escapes */
+
+ if MBTEST(ch == CTLESC || ch == CTLNUL) /* special shell escapes */
{
RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
ret[retind++] = CTLESC;
tflags &= ~LEX_INCASE; /* XXX */
#endif
else if MBTEST(ch == close && (tflags & LEX_INCASE) == 0) /* ending delimiter */
-{
- count--;
+ {
+ 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++;
+ {
+ count++;
+/*itrace("parse_comsub:%d: found open: count = %d", line_number, count);*/
+ }
/* Add this character. */
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
if (ch == '(') /* ) */
nestret = parse_comsub (0, '(', ')', &nestlen, (rflags|P_COMMAND) & ~P_DQUOTE);
else if (ch == '{') /* } */
- nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|rflags);
+ nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|P_DOLBRACE|rflags);
else if (ch == '[') /* ] */
nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);
return ret;
}
-/* XXX - this needs to handle functionality like subst.c:no_longjmp_on_fatal_error;
- maybe extract_command_subst should handle it. */
+/* Recursively call the parser to parse a $(...) command substitution. */
char *
xparse_dolparen (base, string, indp, flags)
char *base;
int flags;
{
sh_parser_state_t ps;
- int orig_ind, nc, sflags;
+ sh_input_line_state_t ls;
+ int orig_ind, nc, sflags, orig_eof_token;
char *ret, *s, *ep, *ostring;
/*yydebug = 1;*/
orig_ind = *indp;
ostring = string;
+/*itrace("xparse_dolparen: size = %d shell_input_line = `%s'", shell_input_line_size, shell_input_line);*/
sflags = SEVAL_NONINT|SEVAL_NOHIST|SEVAL_NOFREE;
if (flags & SX_NOLONGJMP)
sflags |= SEVAL_NOLONGJMP;
save_parser_state (&ps);
+ save_input_line_state (&ls);
+ orig_eof_token = shell_eof_token;
/*(*/
parser_state |= PST_CMDSUBST|PST_EOFTOKEN; /* allow instant ')' */ /*(*/
shell_eof_token = ')';
- parse_string (string, "command substitution", sflags, &ep);
+ nc = parse_string (string, "command substitution", sflags, &ep);
+
+ shell_eof_token = orig_eof_token;
restore_parser_state (&ps);
reset_parser ();
- if (interactive)
- token_to_read = 0;
+ /* reset_parser clears shell_input_line and associated variables */
+ restore_input_line_state (&ls);
+
+ token_to_read = 0;
+
+ /* If parse_string returns < 0, we need to jump to top level with the
+ negative of the return value */
+ if (nc < 0)
+ jump_to_top_level (-nc); /* XXX */
/* Need to find how many characters parse_and_execute consumed, update
*indp, if flags != 0, copy the portion of the string parsed into RET
else if (cmdtyp == 0) /* nested subshell */
{
push_string (wval, 0, (alias_t *)NULL);
+ pushed_string_list->flags = PSH_DPAREN;
if ((parser_state & PST_CASEPAT) == 0)
parser_state |= PST_SUBSHELL;
return (c);
/* binop */
tok = read_token (READ);
if (tok == WORD && test_binop (yylval.word->word))
- op = yylval.word;
+ {
+ op = yylval.word;
+ if (op->word[0] == '=' && (op->word[1] == '\0' || (op->word[1] == '=' && op->word[2] == '\0')))
+ parser_state |= PST_EXTPAT;
+ else if (op->word[0] == '!' && op->word[1] == '=' && op->word[2] == '\0')
+ parser_state |= PST_EXTPAT;
+ }
#if defined (COND_REGEXP)
else if (tok == WORD && STREQ (yylval.word->word, "=~"))
{
}
/* rhs */
+ if (parser_state & PST_EXTPAT)
+ extended_glob = 1;
tok = read_token (READ);
- parser_state &= ~PST_REGEXP;
+ if (parser_state & PST_EXTPAT)
+ extended_glob = global_extglob;
+ parser_state &= ~(PST_REGEXP|PST_EXTPAT);
+
if (tok == WORD)
{
tright = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
{
COND_COM *cexp;
+ global_extglob = extended_glob;
cexp = cond_expr ();
return (make_cond_command (cexp));
}
/* Non-zero means to ignore the value of the next character, and just
to add it no matter what. */
- int pass_next_character;
+ int pass_next_character;
/* The current delimiting character. */
int cd;
pop_delimiter (dstack);
if (ttok == &matched_pair_error)
return -1; /* Bail immediately. */
- RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+ RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 3,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
{
peek_char = shell_getc (1);
/* $(...), <(...), >(...), $((...)), ${...}, and $[...] constructs */
- if MBTEST(peek_char == '(' || \
+ if MBTEST(peek_char == '(' ||
((peek_char == '{' || peek_char == '[') && character == '$')) /* ) ] } */
{
if (peek_char == '{') /* } */
- ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE);
+ ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE|P_DOLBRACE);
else if (peek_char == '(') /* ) */
{
/* XXX - push and pop the `(' as a delimiter for use by
ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);
if (ttok == &matched_pair_error)
return -1; /* Bail immediately. */
- RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+ RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 3,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
ttrans = ttok;
}
- RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 2,
+ RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 1,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
strcpy (token + token_index, ttrans);
shell's single-character parameter expansions, and set flags.*/
else if MBTEST(character == '$' && peek_char == '$')
{
- ttok = (char *)xmalloc (3);
- ttok[0] = ttok[1] = '$';
- ttok[2] = '\0';
RESIZE_MALLOCED_BUFFER (token, token_index, 3,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
- strcpy (token + token_index, ttok);
- token_index += 2;
+ token[token_index++] = '$';
+ token[token_index++] = peek_char;
dollar_present = 1;
all_digit_token = 0;
- FREE (ttok);
goto next_character;
}
else
((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);
+ ttok = parse_matched_pair (cd, '[', ']', &ttoklen, P_ARRAYSUB);
if (ttok == &matched_pair_error)
return -1; /* Bail immediately. */
RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
goto got_token;
}
- got_character:
-
+got_character:
if (character == CTLESC || character == CTLNUL)
- token[token_index++] = CTLESC;
+ {
+ RESIZE_MALLOCED_BUFFER (token, token_index, 2, token_buffer_size,
+ TOKEN_DEFAULT_GROW_SIZE);
+ token[token_index++] = CTLESC;
+ }
+ else
+got_escaped_character:
+ RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,
+ TOKEN_DEFAULT_GROW_SIZE);
- got_escaped_character:
+ token[token_index++] = character;
all_digit_token &= DIGIT (character);
dollar_present |= character == '$';
- token[token_index++] = character;
-
- RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,
- TOKEN_DEFAULT_GROW_SIZE);
-
next_character:
if (character == '\n' && SHOULD_PROMPT ())
prompt_again ();
got_token:
+ /* Calls to RESIZE_MALLOCED_BUFFER ensure there is sufficient room. */
token[token_index] = '\0';
/* Check to see what thing we should return. If the last_read_token
is a `<', or a `&', or the character which ended this token is
a '>' or '<', then, and ONLY then, is this input token a NUMBER.
Otherwise, it is just a word, and should be returned as such. */
- if MBTEST(all_digit_token && (character == '<' || character == '>' || \
- last_read_token == LESS_AND || \
+ if MBTEST(all_digit_token && (character == '<' || character == '>' ||
+ last_read_token == LESS_AND ||
last_read_token == GREATER_AND))
{
if (legal_number (token, &lvalue) && (int)lvalue == lvalue)
- yylval.number = lvalue;
- else
- yylval.number = -1;
- return (NUMBER);
+ {
+ yylval.number = lvalue;
+ return (NUMBER);
+ }
}
/* Check for special case tokens. */
#endif
CHECK_FOR_RESERVED_WORD (token);
- the_word = (WORD_DESC *)xmalloc (sizeof (WORD_DESC));
+ the_word = alloc_word_desc ();
the_word->word = (char *)xmalloc (1 + token_index);
the_word->flags = 0;
strcpy (the_word->word, token);
the_word->flags |= W_ASSIGNMENT;
/* Don't perform word splitting on assignment statements. */
if (assignment_acceptable (last_read_token) || (parser_state & PST_COMPASSIGN) != 0)
- the_word->flags |= W_NOSPLIT;
+ {
+ the_word->flags |= W_NOSPLIT;
+ if (parser_state & PST_COMPASSIGN)
+ the_word->flags |= W_NOGLOB; /* XXX - W_NOBRACE? */
+ }
}
if (command_token_position (last_read_token))
yylval.word = the_word;
+ if (token[0] == '{' && token[token_index-1] == '}' &&
+ (character == '<' || character == '>'))
+ {
+ /* can use token; already copied to the_word */
+ token[token_index-1] = '\0';
+#if defined (ARRAY_VARS)
+ if (legal_identifier (token+1) || valid_array_reference (token+1, 0))
+#else
+ if (legal_identifier (token+1))
+#endif
+ {
+ strcpy (the_word->word, token+1);
+/*itrace("read_token_word: returning REDIR_WORD for %s", the_word->word);*/
+ return (REDIR_WORD);
+ }
+ }
+
result = ((the_word->flags & (W_ASSIGNMENT|W_NOSPLIT)) == (W_ASSIGNMENT|W_NOSPLIT))
? ASSIGNMENT_WORD : WORD;
case '}': /* XXX */
case AND_AND:
case BANG:
+ case BAR_AND:
case DO:
case DONE:
case ELIF:
case THEN:
case TIME:
case TIMEOPT:
+ case TIMEIGN:
case COPROC:
case UNTIL:
case WHILE:
if (last_read_token == WORD && token_before_that == COPROC)
return 1;
#endif
+ if (last_read_token == WORD && token_before_that == FUNCTION)
+ return 1;
return 0;
}
}
return -1;
}
+/* An interface to let the rest of the shell (primarily the completion
+ system) know what the parser is expecting. */
+int
+parser_in_command_position ()
+{
+ return (command_token_position (last_read_token));
+}
+
#if 0
#if defined (READLINE)
/* Called after each time readline is called. This insures that whatever
/* If we are not within a delimited expression, try to be smart
about which separators can be semi-colons and which must be
newlines. Returns the string that should be added into the
- history entry. */
+ history entry. LINE is the line we're about to add; it helps
+ make some more intelligent decisions in certain cases. */
char *
-history_delimiting_chars ()
+history_delimiting_chars (line)
+ const char *line;
{
+ static int last_was_heredoc = 0; /* was the last entry the start of a here document? */
register int i;
+ if ((parser_state & PST_HEREDOC) == 0)
+ last_was_heredoc = 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). */
+ of the command). We also keep LAST_WAS_HEREDOC as a private sentinel
+ variable to note when we think we added the first line of a here doc
+ (the one with a "<<" somewhere in it) */
if (parser_state & PST_HEREDOC)
- return (current_command_line_count == 2 ? "\n" : "");
+ {
+ if (last_was_heredoc)
+ {
+ last_was_heredoc = 0;
+ return "\n";
+ }
+ return (here_doc_first_line ? "\n" : "");
+ }
+
+ if (parser_state & PST_COMPASSIGN)
+ return (" ");
/* First, handle some special cases. */
/*(*/
command lists. It's a suboptimal solution. */
else if (parser_state & PST_CASESTMT) /* case statement pattern */
return " ";
- else
+ else
return "; "; /* (...) subshell */
}
else if (token_before_that == WORD && two_tokens_ago == FUNCTION)
return " "; /* function def using `function name' without `()' */
+ /* If we're not in a here document, but we think we're about to parse one,
+ and we would otherwise return a `;', return a newline to delimit the
+ line with the here-doc delimiter */
+ else if ((parser_state & PST_HEREDOC) == 0 && current_command_line_count > 1 && last_read_token == '\n' && strstr (line, "<<"))
+ {
+ last_was_heredoc = 1;
+ return "\n";
+ }
+ else if ((parser_state & PST_HEREDOC) == 0 && current_command_line_count > 1 && need_here_doc > 0)
+ return "\n";
else if (token_before_that == WORD && two_tokens_ago == FOR)
{
/* Tricky. `for i\nin ...' should not have a semicolon, but
{
char *temp_prompt;
- if (interactive == 0 || expanding_alias()) /* XXX */
+ if (interactive == 0 || expanding_alias ()) /* XXX */
return;
ps1_prompt = get_string_value ("PS1");
ps2_prompt = get_string_value ("PS2");
+ ps0_prompt = get_string_value ("PS0");
+
if (!prompt_string_pointer)
prompt_string_pointer = &ps1_prompt;
WORD_LIST *list;
char *result, *t;
struct dstack save_dstack;
- int last_exit_value;
+ int last_exit_value, last_comsub_pid;
#if defined (PROMPT_STRING_DECODE)
- int result_size, result_index;
+ size_t result_size;
+ int result_index;
int c, n, i;
- char *temp, octal_string[4];
+ char *temp, *t_host, octal_string[4];
struct tm *tm;
time_t the_time;
char timebuf[128];
case 'A':
/* Make the current time/date into a string. */
(void) time (&the_time);
+#if defined (HAVE_TZSET)
+ sv_tz ("TZ"); /* XXX -- just make sure */
+#endif
tm = localtime (&the_time);
if (c == 'd')
case 's':
temp = base_pathname (shell_name);
- temp = savestring (temp);
+ /* Try to quote anything the user can set in the file system */
+ if (promptvars || posixly_correct)
+ temp = sh_backslash_quote_for_double_quotes (temp);
+ else
+ temp = savestring (temp);
goto add_string;
case 'v':
}
t_string[tlen] = '\0';
+#if defined (MACOSX)
+ /* Convert from "fs" format to "input" format */
+ temp = fnx_fromfs (t_string, strlen (t_string));
+ if (temp != t_string)
+ strcpy (t_string, temp);
+#endif
+
#define ROOT_PATH(x) ((x)[0] == '/' && (x)[1] == 0)
#define DOUBLE_SLASH_ROOT(x) ((x)[0] == '/' && (x)[1] == '/' && (x)[2] == 0)
/* Abbreviate \W as ~ if $PWD == $HOME */
{
t = strrchr (t_string, '/');
if (t)
- strcpy (t_string, t + 1);
+ memmove (t_string, t + 1, strlen (t)); /* strlen(t) to copy NULL */
}
}
#undef ROOT_PATH
#undef DOUBLE_SLASH_ROOT
else
- /* polite_directory_format is guaranteed to return a string
- no longer than PATH_MAX - 1 characters. */
- strcpy (t_string, polite_directory_format (t_string));
+ {
+ /* polite_directory_format is guaranteed to return a string
+ no longer than PATH_MAX - 1 characters. */
+ temp = polite_directory_format (t_string);
+ if (temp != t_string)
+ strcpy (t_string, temp);
+ }
temp = trim_pathname (t_string, PATH_MAX - 1);
/* If we're going to be expanding the prompt string later,
case 'h':
case 'H':
- temp = savestring (current_host_name);
- if (c == 'h' && (t = (char *)strchr (temp, '.')))
+ t_host = savestring (current_host_name);
+ if (c == 'h' && (t = (char *)strchr (t_host, '.')))
*t = '\0';
+ if (promptvars || posixly_correct)
+ /* Make sure that expand_prompt_string is called with a
+ second argument of Q_DOUBLE_QUOTES if we use this
+ function here. */
+ temp = sh_backslash_quote_for_double_quotes (t_host);
+ else
+ temp = savestring (t_host);
+ free (t_host);
goto add_string;
case '#':
else
{
RESIZE_MALLOCED_BUFFER (result, result_index, 3, result_size, PROMPT_GROWTH);
+ /* dequote_string should take care of removing this if we are not
+ performing the rest of the word expansions. */
+ if (c == CTLESC || c == CTLNUL)
+ result[result_index++] = CTLESC;
result[result_index++] = c;
result[result_index] = '\0';
}
if (promptvars || posixly_correct)
{
last_exit_value = last_command_exit_value;
+ last_comsub_pid = last_command_subst_pid;
list = expand_prompt_string (result, Q_DOUBLE_QUOTES, 0);
free (result);
result = string_list (list);
dispose_words (list);
last_command_exit_value = last_exit_value;
+ last_command_subst_pid = last_comsub_pid;
}
else
{
report_syntax_error (message)
char *message;
{
- char *msg;
+ char *msg, *p;
if (message)
{
parser_error (line_number, "%s", message);
if (interactive && EOF_Reached)
EOF_Reached = 0;
- last_command_exit_value = EX_USAGE;
+ last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;
return;
}
parser's complaining about by looking at current_token. */
if (current_token != 0 && EOF_Reached == 0 && (msg = error_token_from_token (current_token)))
{
+ if (ansic_shouldquote (msg))
+ {
+ p = ansic_quote (msg, 0, NULL);
+ free (msg);
+ msg = p;
+ }
parser_error (line_number, _("syntax error near unexpected token `%s'"), msg);
free (msg);
if (interactive == 0)
print_offending_line ();
- last_command_exit_value = EX_USAGE;
+ last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;
return;
}
EOF_Reached = 0;
}
- last_command_exit_value = EX_USAGE;
+ last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;
}
/* ??? Needed function. ??? We have to be able to discard the constructs
save_parser_state (ps)
sh_parser_state_t *ps;
{
-#if defined (ARRAY_VARS)
- SHELL_VAR *v;
-#endif
+ int i;
if (ps == 0)
ps = (sh_parser_state_t *)xmalloc (sizeof (sh_parser_state_t));
ps->input_line_terminator = shell_input_line_terminator;
ps->eof_encountered = eof_encountered;
+ ps->prompt_string_pointer = prompt_string_pointer;
+
ps->current_command_line_count = current_command_line_count;
#if defined (HISTORY)
ps->last_command_exit_value = last_command_exit_value;
#if defined (ARRAY_VARS)
- v = find_variable ("PIPESTATUS");
- if (v && array_p (v) && array_cell (v))
- ps->pipestatus = array_copy (array_cell (v));
- else
- ps->pipestatus = (ARRAY *)NULL;
+ ps->pipestatus = save_pipestatus_array ();
#endif
ps->last_shell_builtin = last_shell_builtin;
ps->expand_aliases = expand_aliases;
ps->echo_input_at_read = echo_input_at_read;
+ ps->need_here_doc = need_here_doc;
+ ps->here_doc_first_line = here_doc_first_line;
+
+#if 0
+ for (i = 0; i < HEREDOC_MAX; i++)
+ ps->redir_stack[i] = redir_stack[i];
+#else
+ if (need_here_doc == 0)
+ ps->redir_stack[0] = 0;
+ else
+ memcpy (ps->redir_stack, redir_stack, sizeof (redir_stack[0]) * HEREDOC_MAX);
+#endif
+
+ ps->token = token;
+ ps->token_buffer_size = token_buffer_size;
+ /* Force reallocation on next call to read_token_word */
+ token = 0;
+ token_buffer_size = 0;
return (ps);
}
restore_parser_state (ps)
sh_parser_state_t *ps;
{
-#if defined (ARRAY_VARS)
- SHELL_VAR *v;
-#endif
+ int i;
if (ps == 0)
return;
shell_input_line_terminator = ps->input_line_terminator;
eof_encountered = ps->eof_encountered;
+ prompt_string_pointer = ps->prompt_string_pointer;
+
current_command_line_count = ps->current_command_line_count;
#if defined (HISTORY)
last_command_exit_value = ps->last_command_exit_value;
#if defined (ARRAY_VARS)
- v = find_variable ("PIPESTATUS");
- if (v && array_p (v) && array_cell (v))
- {
- array_dispose (array_cell (v));
- var_setarray (v, ps->pipestatus);
- }
+ restore_pipestatus_array (ps->pipestatus);
#endif
last_shell_builtin = ps->last_shell_builtin;
expand_aliases = ps->expand_aliases;
echo_input_at_read = ps->echo_input_at_read;
+ need_here_doc = ps->need_here_doc;
+ here_doc_first_line = ps->here_doc_first_line;
+
+#if 0
+ for (i = 0; i < HEREDOC_MAX; i++)
+ redir_stack[i] = ps->redir_stack[i];
+#else
+ if (need_here_doc == 0)
+ redir_stack[0] = 0;
+ else
+ memcpy (redir_stack, ps->redir_stack, sizeof (redir_stack[0]) * HEREDOC_MAX);
+#endif
+
+ FREE (token);
+ token = ps->token;
+ token_buffer_size = ps->token_buffer_size;
+}
+
+sh_input_line_state_t *
+save_input_line_state (ls)
+ sh_input_line_state_t *ls;
+{
+ if (ls == 0)
+ ls = (sh_input_line_state_t *)xmalloc (sizeof (sh_input_line_state_t));
+ if (ls == 0)
+ return ((sh_input_line_state_t *)NULL);
+
+ ls->input_line = shell_input_line;
+ ls->input_line_size = shell_input_line_size;
+ ls->input_line_len = shell_input_line_len;
+ ls->input_line_index = shell_input_line_index;
+
+ /* force reallocation */
+ shell_input_line = 0;
+ shell_input_line_size = shell_input_line_len = shell_input_line_index = 0;
+
+ return ls;
+}
+
+void
+restore_input_line_state (ls)
+ sh_input_line_state_t *ls;
+{
+ FREE (shell_input_line);
+ shell_input_line = ls->input_line;
+ shell_input_line_size = ls->input_line_size;
+ shell_input_line_len = ls->input_line_len;
+ shell_input_line_index = ls->input_line_index;
+
+ set_line_mbstate ();
}
/************************************************
static void
set_line_mbstate ()
{
- int i, previ, len, c;
+ int c;
+ size_t i, previ, len;
mbstate_t mbs, prevs;
size_t mbclen;
if (shell_input_line == NULL)
return;
len = strlen (shell_input_line); /* XXX - shell_input_line_len ? */
- FREE (shell_input_line_property);
- shell_input_line_property = (char *)xmalloc (len + 1);
+ shell_input_line_property = (char *)xrealloc (shell_input_line_property, len + 1);
memset (&prevs, '\0', sizeof (mbstate_t));
for (i = previ = 0; i < len; i++)
c = shell_input_line[i];
if (c == EOF)
{
- int j;
+ size_t j;
for (j = i; j < len; j++)
shell_input_line_property[j] = 1;
break;
else
{
/* XXX - what to do if mbrlen returns 0? (null wide character) */
- int j;
+ size_t j;
for (j = i; j < len; j++)
shell_input_line_property[j] = 1;
break;
}
}
#endif /* HANDLE_MULTIBYTE */
-
projects / thirdparty / bash.git / blobdiff