-/* A Bison parser, made by GNU Bison 3.0.4. */
+/* A Bison parser, made by GNU Bison 3.8.2. */
/* Bison implementation for Yacc-like parsers in C
- Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
+ Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
+ Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
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, see <http://www.gnu.org/licenses/>. */
+ along with this program. If not, see <https://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
/* C LALR(1) parser skeleton written by Richard Stallman, by
simplifying the original so-called "semantic" parser. */
+/* DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual,
+ especially those whose name start with YY_ or yy_. They are
+ private implementation details that can be changed or removed. */
+
/* All symbols defined below should begin with yy or YY, to avoid
infringing on user name space. This should be done even for local
variables, as they might otherwise be expanded by user macros.
define necessary library symbols; they are noted "INFRINGES ON
USER NAME SPACE" below. */
-/* Identify Bison output. */
-#define YYBISON 1
+/* Identify Bison output, and Bison version. */
+#define YYBISON 30802
-/* Bison version. */
-#define YYBISON_VERSION "3.0.4"
+/* Bison version string. */
+#define YYBISON_VERSION "3.8.2"
/* Skeleton name. */
#define YYSKELETON_NAME "yacc.c"
-/* Copy the first part of user declarations. */
-#line 21 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:339 */
+/* First part of user prologue. */
+#line 21 "/usr/local/src/chet/src/bash/src/parse.y"
#include "config.h"
#define NEED_STRFTIME_DECL /* used in externs.h */
#include "shell.h"
+#include "execute_cmd.h"
#include "typemax.h" /* SIZE_MAX if needed */
#include "trap.h"
#include "flags.h"
#if defined (JOB_CONTROL)
# include "jobs.h"
#else
-extern int cleanup_dead_jobs __P((void));
+extern int cleanup_dead_jobs PARAMS((void));
#endif /* JOB_CONTROL */
#if defined (ALIAS)
#define RE_READ_TOKEN -99
#define NO_EXPANSION -100
+#define END_ALIAS -2
+
#ifdef DEBUG
# define YYDEBUG 1
#else
# define MBTEST(x) ((x))
#endif
+#define EXTEND_SHELL_INPUT_LINE_PROPERTY() \
+do { \
+ if (shell_input_line_len + 2 > shell_input_line_propsize) \
+ { \
+ shell_input_line_propsize = shell_input_line_len + 2; \
+ shell_input_line_property = (char *)xrealloc (shell_input_line_property, \
+ shell_input_line_propsize); \
+ } \
+} while (0)
+
#if defined (EXTENDED_GLOB)
-extern int extended_glob;
+extern int extended_glob, extglob_flag;
#endif
-extern int eof_encountered;
-extern int no_line_editing, running_under_emacs;
-extern int current_command_number;
-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;
+#if defined (TRANSLATABLE_STRINGS)
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
+extern int singlequote_translations;
+#endif /* TRANSLATABLE_STRINGS */
+#if !defined (errno)
extern int errno;
+#endif
+
/* **************************************************************** */
/* */
/* "Forward" declarations */
/* **************************************************************** */
#ifdef DEBUG
-static void debug_parser __P((int));
+static void debug_parser PARAMS((int));
#endif
-static int yy_getc __P((void));
-static int yy_ungetc __P((int));
+static int yy_getc PARAMS((void));
+static int yy_ungetc PARAMS((int));
#if defined (READLINE)
-static int yy_readline_get __P((void));
-static int yy_readline_unget __P((int));
+static int yy_readline_get PARAMS((void));
+static int yy_readline_unget PARAMS((int));
#endif
-static int yy_string_get __P((void));
-static int yy_string_unget __P((int));
-static void rewind_input_string __P((void));
-static int yy_stream_get __P((void));
-static int yy_stream_unget __P((int));
+static int yy_string_get PARAMS((void));
+static int yy_string_unget PARAMS((int));
+static int yy_stream_get PARAMS((void));
+static int yy_stream_unget PARAMS((int));
-static int shell_getc __P((int));
-static void shell_ungetc __P((int));
-static void discard_until __P((int));
+static int shell_getc PARAMS((int));
+static void shell_ungetc PARAMS((int));
+static void discard_until PARAMS((int));
-#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
-static void push_string __P((char *, int, alias_t *));
-static void pop_string __P((void));
-static void free_string_list __P((void));
-#endif
+static void push_string PARAMS((char *, int, alias_t *));
+static void pop_string PARAMS((void));
+static void free_string_list PARAMS((void));
-static char *read_a_line __P((int));
+static char *read_a_line PARAMS((int));
-static int reserved_word_acceptable __P((int));
-static int yylex __P((void));
+static int reserved_word_acceptable PARAMS((int));
+static int yylex PARAMS((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 *));
-static int read_token __P((int));
-static char *parse_matched_pair __P((int, int, int, int *, int));
-static char *parse_comsub __P((int, int, int, int *, int));
+static void push_heredoc PARAMS((REDIRECT *));
+static char *mk_alexpansion PARAMS((char *));
+static int alias_expand_token PARAMS((char *));
+static int time_command_acceptable PARAMS((void));
+static int special_case_tokens PARAMS((char *));
+static int read_token PARAMS((int));
+static char *parse_matched_pair PARAMS((int, int, int, int *, int));
+static char *parse_comsub PARAMS((int, int, int, int *, int));
#if defined (ARRAY_VARS)
-static char *parse_compound_assignment __P((int *));
+static char *parse_compound_assignment PARAMS((int *));
#endif
#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
-static int parse_dparen __P((int));
-static int parse_arith_cmd __P((char **, int));
+static int parse_dparen PARAMS((int));
+static int parse_arith_cmd PARAMS((char **, int));
#endif
#if defined (COND_COMMAND)
-static void cond_error __P((void));
-static COND_COM *cond_expr __P((void));
-static COND_COM *cond_or __P((void));
-static COND_COM *cond_and __P((void));
-static COND_COM *cond_term __P((void));
-static int cond_skip_newlines __P((void));
-static COMMAND *parse_cond_command __P((void));
+static void cond_error PARAMS((void));
+static COND_COM *cond_expr PARAMS((void));
+static COND_COM *cond_or PARAMS((void));
+static COND_COM *cond_and PARAMS((void));
+static COND_COM *cond_term PARAMS((void));
+static int cond_skip_newlines PARAMS((void));
+static COMMAND *parse_cond_command PARAMS((void));
#endif
#if defined (ARRAY_VARS)
-static int token_is_assignment __P((char *, int));
-static int token_is_ident __P((char *, int));
+static int token_is_assignment PARAMS((char *, int));
+static int token_is_ident PARAMS((char *, int));
#endif
-static int read_token_word __P((int));
-static void discard_parser_constructs __P((int));
+static int read_token_word PARAMS((int));
+static void discard_parser_constructs PARAMS((int));
-static char *error_token_from_token __P((int));
-static char *error_token_from_text __P((void));
-static void print_offending_line __P((void));
-static void report_syntax_error __P((char *));
+static char *error_token_from_token PARAMS((int));
+static char *error_token_from_text PARAMS((void));
+static void print_offending_line PARAMS((void));
+static void report_syntax_error PARAMS((char *));
-static void handle_eof_input_unit __P((void));
-static void prompt_again __P((void));
+static void handle_eof_input_unit PARAMS((void));
+static void prompt_again PARAMS((int));
#if 0
-static void reset_readline_prompt __P((void));
+static void reset_readline_prompt PARAMS((void));
#endif
-static void print_prompt __P((void));
+static void print_prompt PARAMS((void));
#if defined (HANDLE_MULTIBYTE)
-static void set_line_mbstate __P((void));
+static void set_line_mbstate PARAMS((void));
static char *shell_input_line_property = NULL;
+static size_t shell_input_line_propsize = 0;
#else
# define set_line_mbstate()
#endif
-extern int yyerror __P((const char *));
+extern int yyerror PARAMS((const char *));
#ifdef DEBUG
extern int yydebug;
static REDIRECTEE source;
static REDIRECTEE redir;
-#line 378 "y.tab.c" /* yacc.c:339 */
+static FILE *yyoutstream;
+static FILE *yyerrstream;
+#line 388 "y.tab.c"
+
+# ifndef YY_CAST
+# ifdef __cplusplus
+# define YY_CAST(Type, Val) static_cast<Type> (Val)
+# define YY_REINTERPRET_CAST(Type, Val) reinterpret_cast<Type> (Val)
+# else
+# define YY_CAST(Type, Val) ((Type) (Val))
+# define YY_REINTERPRET_CAST(Type, Val) ((Type) (Val))
+# endif
+# endif
# ifndef YY_NULLPTR
-# if defined __cplusplus && 201103L <= __cplusplus
-# define YY_NULLPTR nullptr
+# if defined __cplusplus
+# if 201103L <= __cplusplus
+# define YY_NULLPTR nullptr
+# else
+# define YY_NULLPTR 0
+# endif
# else
-# define YY_NULLPTR 0
+# define YY_NULLPTR ((void*)0)
# endif
# endif
-/* Enabling verbose error messages. */
-#ifdef YYERROR_VERBOSE
-# undef YYERROR_VERBOSE
-# define YYERROR_VERBOSE 1
-#else
-# define YYERROR_VERBOSE 0
-#endif
-
-/* In a future release of Bison, this section will be replaced
- by #include "y.tab.h". */
+/* Use api.header.include to #include this header
+ instead of duplicating it here. */
#ifndef YY_YY_Y_TAB_H_INCLUDED
# define YY_YY_Y_TAB_H_INCLUDED
/* Debug traces. */
extern int yydebug;
#endif
-/* Token type. */
+/* Token kinds. */
#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
+ YYEMPTY = -2,
+ YYEOF = 0, /* "end of file" */
+ YYerror = 256, /* error */
+ YYUNDEF = 257, /* "invalid token" */
+ IF = 258, /* IF */
+ THEN = 259, /* THEN */
+ ELSE = 260, /* ELSE */
+ ELIF = 261, /* ELIF */
+ FI = 262, /* FI */
+ CASE = 263, /* CASE */
+ ESAC = 264, /* ESAC */
+ FOR = 265, /* FOR */
+ SELECT = 266, /* SELECT */
+ WHILE = 267, /* WHILE */
+ UNTIL = 268, /* UNTIL */
+ DO = 269, /* DO */
+ DONE = 270, /* DONE */
+ FUNCTION = 271, /* FUNCTION */
+ COPROC = 272, /* COPROC */
+ COND_START = 273, /* COND_START */
+ COND_END = 274, /* COND_END */
+ COND_ERROR = 275, /* COND_ERROR */
+ IN = 276, /* IN */
+ BANG = 277, /* BANG */
+ TIME = 278, /* TIME */
+ TIMEOPT = 279, /* TIMEOPT */
+ TIMEIGN = 280, /* TIMEIGN */
+ WORD = 281, /* WORD */
+ ASSIGNMENT_WORD = 282, /* ASSIGNMENT_WORD */
+ REDIR_WORD = 283, /* REDIR_WORD */
+ NUMBER = 284, /* NUMBER */
+ ARITH_CMD = 285, /* ARITH_CMD */
+ ARITH_FOR_EXPRS = 286, /* ARITH_FOR_EXPRS */
+ COND_CMD = 287, /* COND_CMD */
+ AND_AND = 288, /* AND_AND */
+ OR_OR = 289, /* OR_OR */
+ GREATER_GREATER = 290, /* GREATER_GREATER */
+ LESS_LESS = 291, /* LESS_LESS */
+ LESS_AND = 292, /* LESS_AND */
+ LESS_LESS_LESS = 293, /* LESS_LESS_LESS */
+ GREATER_AND = 294, /* GREATER_AND */
+ SEMI_SEMI = 295, /* SEMI_SEMI */
+ SEMI_AND = 296, /* SEMI_AND */
+ SEMI_SEMI_AND = 297, /* SEMI_SEMI_AND */
+ LESS_LESS_MINUS = 298, /* LESS_LESS_MINUS */
+ AND_GREATER = 299, /* AND_GREATER */
+ AND_GREATER_GREATER = 300, /* AND_GREATER_GREATER */
+ LESS_GREATER = 301, /* LESS_GREATER */
+ GREATER_BAR = 302, /* GREATER_BAR */
+ BAR_AND = 303, /* BAR_AND */
+ DOLPAREN = 304, /* DOLPAREN */
+ yacc_EOF = 305 /* yacc_EOF */
};
+ typedef enum yytokentype yytoken_kind_t;
#endif
-/* Tokens. */
+/* Token kinds. */
+#define YYEMPTY -2
+#define YYEOF 0
+#define YYerror 256
+#define YYUNDEF 257
#define IF 258
#define THEN 259
#define ELSE 260
#define LESS_GREATER 301
#define GREATER_BAR 302
#define BAR_AND 303
-#define yacc_EOF 304
+#define DOLPAREN 304
+#define yacc_EOF 305
/* Value type. */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-
union YYSTYPE
{
-#line 333 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:355 */
+#line 338 "/usr/local/src/chet/src/bash/src/parse.y"
WORD_DESC *word; /* the word that we read. */
int number; /* the number that we read. */
ELEMENT element;
PATTERN_LIST *pattern;
-#line 526 "y.tab.c" /* yacc.c:355 */
-};
+#line 551 "y.tab.c"
+};
typedef union YYSTYPE YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
# define YYSTYPE_IS_DECLARED 1
extern YYSTYPE yylval;
+
int yyparse (void);
+
#endif /* !YY_YY_Y_TAB_H_INCLUDED */
+/* Symbol kind. */
+enum yysymbol_kind_t
+{
+ YYSYMBOL_YYEMPTY = -2,
+ YYSYMBOL_YYEOF = 0, /* "end of file" */
+ YYSYMBOL_YYerror = 1, /* error */
+ YYSYMBOL_YYUNDEF = 2, /* "invalid token" */
+ YYSYMBOL_IF = 3, /* IF */
+ YYSYMBOL_THEN = 4, /* THEN */
+ YYSYMBOL_ELSE = 5, /* ELSE */
+ YYSYMBOL_ELIF = 6, /* ELIF */
+ YYSYMBOL_FI = 7, /* FI */
+ YYSYMBOL_CASE = 8, /* CASE */
+ YYSYMBOL_ESAC = 9, /* ESAC */
+ YYSYMBOL_FOR = 10, /* FOR */
+ YYSYMBOL_SELECT = 11, /* SELECT */
+ YYSYMBOL_WHILE = 12, /* WHILE */
+ YYSYMBOL_UNTIL = 13, /* UNTIL */
+ YYSYMBOL_DO = 14, /* DO */
+ YYSYMBOL_DONE = 15, /* DONE */
+ YYSYMBOL_FUNCTION = 16, /* FUNCTION */
+ YYSYMBOL_COPROC = 17, /* COPROC */
+ YYSYMBOL_COND_START = 18, /* COND_START */
+ YYSYMBOL_COND_END = 19, /* COND_END */
+ YYSYMBOL_COND_ERROR = 20, /* COND_ERROR */
+ YYSYMBOL_IN = 21, /* IN */
+ YYSYMBOL_BANG = 22, /* BANG */
+ YYSYMBOL_TIME = 23, /* TIME */
+ YYSYMBOL_TIMEOPT = 24, /* TIMEOPT */
+ YYSYMBOL_TIMEIGN = 25, /* TIMEIGN */
+ YYSYMBOL_WORD = 26, /* WORD */
+ YYSYMBOL_ASSIGNMENT_WORD = 27, /* ASSIGNMENT_WORD */
+ YYSYMBOL_REDIR_WORD = 28, /* REDIR_WORD */
+ YYSYMBOL_NUMBER = 29, /* NUMBER */
+ YYSYMBOL_ARITH_CMD = 30, /* ARITH_CMD */
+ YYSYMBOL_ARITH_FOR_EXPRS = 31, /* ARITH_FOR_EXPRS */
+ YYSYMBOL_COND_CMD = 32, /* COND_CMD */
+ YYSYMBOL_AND_AND = 33, /* AND_AND */
+ YYSYMBOL_OR_OR = 34, /* OR_OR */
+ YYSYMBOL_GREATER_GREATER = 35, /* GREATER_GREATER */
+ YYSYMBOL_LESS_LESS = 36, /* LESS_LESS */
+ YYSYMBOL_LESS_AND = 37, /* LESS_AND */
+ YYSYMBOL_LESS_LESS_LESS = 38, /* LESS_LESS_LESS */
+ YYSYMBOL_GREATER_AND = 39, /* GREATER_AND */
+ YYSYMBOL_SEMI_SEMI = 40, /* SEMI_SEMI */
+ YYSYMBOL_SEMI_AND = 41, /* SEMI_AND */
+ YYSYMBOL_SEMI_SEMI_AND = 42, /* SEMI_SEMI_AND */
+ YYSYMBOL_LESS_LESS_MINUS = 43, /* LESS_LESS_MINUS */
+ YYSYMBOL_AND_GREATER = 44, /* AND_GREATER */
+ YYSYMBOL_AND_GREATER_GREATER = 45, /* AND_GREATER_GREATER */
+ YYSYMBOL_LESS_GREATER = 46, /* LESS_GREATER */
+ YYSYMBOL_GREATER_BAR = 47, /* GREATER_BAR */
+ YYSYMBOL_BAR_AND = 48, /* BAR_AND */
+ YYSYMBOL_DOLPAREN = 49, /* DOLPAREN */
+ YYSYMBOL_50_ = 50, /* '&' */
+ YYSYMBOL_51_ = 51, /* ';' */
+ YYSYMBOL_52_n_ = 52, /* '\n' */
+ YYSYMBOL_yacc_EOF = 53, /* yacc_EOF */
+ YYSYMBOL_54_ = 54, /* '|' */
+ YYSYMBOL_55_ = 55, /* '>' */
+ YYSYMBOL_56_ = 56, /* '<' */
+ YYSYMBOL_57_ = 57, /* '-' */
+ YYSYMBOL_58_ = 58, /* '{' */
+ YYSYMBOL_59_ = 59, /* '}' */
+ YYSYMBOL_60_ = 60, /* '(' */
+ YYSYMBOL_61_ = 61, /* ')' */
+ YYSYMBOL_YYACCEPT = 62, /* $accept */
+ YYSYMBOL_inputunit = 63, /* inputunit */
+ YYSYMBOL_word_list = 64, /* word_list */
+ YYSYMBOL_redirection = 65, /* redirection */
+ YYSYMBOL_simple_command_element = 66, /* simple_command_element */
+ YYSYMBOL_redirection_list = 67, /* redirection_list */
+ YYSYMBOL_simple_command = 68, /* simple_command */
+ YYSYMBOL_command = 69, /* command */
+ YYSYMBOL_shell_command = 70, /* shell_command */
+ YYSYMBOL_for_command = 71, /* for_command */
+ YYSYMBOL_arith_for_command = 72, /* arith_for_command */
+ YYSYMBOL_select_command = 73, /* select_command */
+ YYSYMBOL_case_command = 74, /* case_command */
+ YYSYMBOL_function_def = 75, /* function_def */
+ YYSYMBOL_function_body = 76, /* function_body */
+ YYSYMBOL_subshell = 77, /* subshell */
+ YYSYMBOL_comsub = 78, /* comsub */
+ YYSYMBOL_coproc = 79, /* coproc */
+ YYSYMBOL_if_command = 80, /* if_command */
+ YYSYMBOL_group_command = 81, /* group_command */
+ YYSYMBOL_arith_command = 82, /* arith_command */
+ YYSYMBOL_cond_command = 83, /* cond_command */
+ YYSYMBOL_elif_clause = 84, /* elif_clause */
+ YYSYMBOL_case_clause = 85, /* case_clause */
+ YYSYMBOL_pattern_list = 86, /* pattern_list */
+ YYSYMBOL_case_clause_sequence = 87, /* case_clause_sequence */
+ YYSYMBOL_pattern = 88, /* pattern */
+ YYSYMBOL_compound_list = 89, /* compound_list */
+ YYSYMBOL_list0 = 90, /* list0 */
+ YYSYMBOL_list1 = 91, /* list1 */
+ YYSYMBOL_simple_list_terminator = 92, /* simple_list_terminator */
+ YYSYMBOL_list_terminator = 93, /* list_terminator */
+ YYSYMBOL_newline_list = 94, /* newline_list */
+ YYSYMBOL_simple_list = 95, /* simple_list */
+ YYSYMBOL_simple_list1 = 96, /* simple_list1 */
+ YYSYMBOL_pipeline_command = 97, /* pipeline_command */
+ YYSYMBOL_pipeline = 98, /* pipeline */
+ YYSYMBOL_timespec = 99 /* timespec */
+};
+typedef enum yysymbol_kind_t yysymbol_kind_t;
+
-/* Copy the second part of user declarations. */
-#line 543 "y.tab.c" /* yacc.c:358 */
#ifdef short
# undef short
#endif
-#ifdef YYTYPE_UINT8
-typedef YYTYPE_UINT8 yytype_uint8;
-#else
-typedef unsigned char yytype_uint8;
+/* On compilers that do not define __PTRDIFF_MAX__ etc., make sure
+ <limits.h> and (if available) <stdint.h> are included
+ so that the code can choose integer types of a good width. */
+
+#ifndef __PTRDIFF_MAX__
+# include <limits.h> /* INFRINGES ON USER NAME SPACE */
+# if defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
+# include <stdint.h> /* INFRINGES ON USER NAME SPACE */
+# define YY_STDINT_H
+# endif
#endif
-#ifdef YYTYPE_INT8
-typedef YYTYPE_INT8 yytype_int8;
+/* Narrow types that promote to a signed type and that can represent a
+ signed or unsigned integer of at least N bits. In tables they can
+ save space and decrease cache pressure. Promoting to a signed type
+ helps avoid bugs in integer arithmetic. */
+
+#ifdef __INT_LEAST8_MAX__
+typedef __INT_LEAST8_TYPE__ yytype_int8;
+#elif defined YY_STDINT_H
+typedef int_least8_t yytype_int8;
#else
typedef signed char yytype_int8;
#endif
-#ifdef YYTYPE_UINT16
-typedef YYTYPE_UINT16 yytype_uint16;
+#ifdef __INT_LEAST16_MAX__
+typedef __INT_LEAST16_TYPE__ yytype_int16;
+#elif defined YY_STDINT_H
+typedef int_least16_t yytype_int16;
+#else
+typedef short yytype_int16;
+#endif
+
+/* Work around bug in HP-UX 11.23, which defines these macros
+ incorrectly for preprocessor constants. This workaround can likely
+ be removed in 2023, as HPE has promised support for HP-UX 11.23
+ (aka HP-UX 11i v2) only through the end of 2022; see Table 2 of
+ <https://h20195.www2.hpe.com/V2/getpdf.aspx/4AA4-7673ENW.pdf>. */
+#ifdef __hpux
+# undef UINT_LEAST8_MAX
+# undef UINT_LEAST16_MAX
+# define UINT_LEAST8_MAX 255
+# define UINT_LEAST16_MAX 65535
+#endif
+
+#if defined __UINT_LEAST8_MAX__ && __UINT_LEAST8_MAX__ <= __INT_MAX__
+typedef __UINT_LEAST8_TYPE__ yytype_uint8;
+#elif (!defined __UINT_LEAST8_MAX__ && defined YY_STDINT_H \
+ && UINT_LEAST8_MAX <= INT_MAX)
+typedef uint_least8_t yytype_uint8;
+#elif !defined __UINT_LEAST8_MAX__ && UCHAR_MAX <= INT_MAX
+typedef unsigned char yytype_uint8;
#else
-typedef unsigned short int yytype_uint16;
+typedef short yytype_uint8;
#endif
-#ifdef YYTYPE_INT16
-typedef YYTYPE_INT16 yytype_int16;
+#if defined __UINT_LEAST16_MAX__ && __UINT_LEAST16_MAX__ <= __INT_MAX__
+typedef __UINT_LEAST16_TYPE__ yytype_uint16;
+#elif (!defined __UINT_LEAST16_MAX__ && defined YY_STDINT_H \
+ && UINT_LEAST16_MAX <= INT_MAX)
+typedef uint_least16_t yytype_uint16;
+#elif !defined __UINT_LEAST16_MAX__ && USHRT_MAX <= INT_MAX
+typedef unsigned short yytype_uint16;
#else
-typedef short int yytype_int16;
+typedef int yytype_uint16;
+#endif
+
+#ifndef YYPTRDIFF_T
+# if defined __PTRDIFF_TYPE__ && defined __PTRDIFF_MAX__
+# define YYPTRDIFF_T __PTRDIFF_TYPE__
+# define YYPTRDIFF_MAXIMUM __PTRDIFF_MAX__
+# elif defined PTRDIFF_MAX
+# ifndef ptrdiff_t
+# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
+# endif
+# define YYPTRDIFF_T ptrdiff_t
+# define YYPTRDIFF_MAXIMUM PTRDIFF_MAX
+# else
+# define YYPTRDIFF_T long
+# define YYPTRDIFF_MAXIMUM LONG_MAX
+# endif
#endif
#ifndef YYSIZE_T
# define YYSIZE_T __SIZE_TYPE__
# elif defined size_t
# define YYSIZE_T size_t
-# elif ! defined YYSIZE_T
+# elif defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
# define YYSIZE_T size_t
# else
-# define YYSIZE_T unsigned int
+# define YYSIZE_T unsigned
# endif
#endif
-#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
+#define YYSIZE_MAXIMUM \
+ YY_CAST (YYPTRDIFF_T, \
+ (YYPTRDIFF_MAXIMUM < YY_CAST (YYSIZE_T, -1) \
+ ? YYPTRDIFF_MAXIMUM \
+ : YY_CAST (YYSIZE_T, -1)))
+
+#define YYSIZEOF(X) YY_CAST (YYPTRDIFF_T, sizeof (X))
+
+
+/* Stored state numbers (used for stacks). */
+typedef yytype_int16 yy_state_t;
+
+/* State numbers in computations. */
+typedef int yy_state_fast_t;
#ifndef YY_
# if defined YYENABLE_NLS && YYENABLE_NLS
# 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__))
+# if defined __GNUC__ && 2 < __GNUC__ + (96 <= __GNUC_MINOR__)
+# define YY_ATTRIBUTE_PURE __attribute__ ((__pure__))
+# else
+# define YY_ATTRIBUTE_PURE
+# endif
#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)
+# if defined __GNUC__ && 2 < __GNUC__ + (7 <= __GNUC_MINOR__)
+# define YY_ATTRIBUTE_UNUSED __attribute__ ((__unused__))
# else
-# define _Noreturn YY_ATTRIBUTE ((__noreturn__))
+# define YY_ATTRIBUTE_UNUSED
# endif
#endif
/* Suppress unused-variable warnings by "using" E. */
#if ! defined lint || defined __GNUC__
-# define YYUSE(E) ((void) (E))
+# define YY_USE(E) ((void) (E))
#else
-# define YYUSE(E) /* empty */
+# define YY_USE(E) /* empty */
#endif
-#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\"")\
+#if defined __GNUC__ && ! defined __ICC && 406 <= __GNUC__ * 100 + __GNUC_MINOR__
+# if __GNUC__ * 100 + __GNUC_MINOR__ < 407
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
+ _Pragma ("GCC diagnostic push") \
+ _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")
+# else
+# 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 \
+# endif
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
_Pragma ("GCC diagnostic pop")
#else
# define YY_INITIAL_VALUE(Value) Value
# define YY_INITIAL_VALUE(Value) /* Nothing. */
#endif
+#if defined __cplusplus && defined __GNUC__ && ! defined __ICC && 6 <= __GNUC__
+# define YY_IGNORE_USELESS_CAST_BEGIN \
+ _Pragma ("GCC diagnostic push") \
+ _Pragma ("GCC diagnostic ignored \"-Wuseless-cast\"")
+# define YY_IGNORE_USELESS_CAST_END \
+ _Pragma ("GCC diagnostic pop")
+#endif
+#ifndef YY_IGNORE_USELESS_CAST_BEGIN
+# define YY_IGNORE_USELESS_CAST_BEGIN
+# define YY_IGNORE_USELESS_CAST_END
+#endif
+
-#if ! defined yyoverflow || YYERROR_VERBOSE
+#define YY_ASSERT(E) ((void) (0 && (E)))
+
+#if !defined yyoverflow
/* The parser invokes alloca or malloc; define the necessary symbols. */
# endif
# endif
# endif
-#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
-
+#endif /* !defined yyoverflow */
#if (! defined yyoverflow \
&& (! defined __cplusplus \
/* A type that is properly aligned for any stack member. */
union yyalloc
{
- yytype_int16 yyss_alloc;
+ yy_state_t 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)
+# define YYSTACK_GAP_MAXIMUM (YYSIZEOF (union yyalloc) - 1)
/* The size of an array large to enough to hold all stacks, each with
N elements. */
# define YYSTACK_BYTES(N) \
- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
+ ((N) * (YYSIZEOF (yy_state_t) + YYSIZEOF (YYSTYPE)) \
+ YYSTACK_GAP_MAXIMUM)
# define YYCOPY_NEEDED 1
# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
do \
{ \
- YYSIZE_T yynewbytes; \
+ YYPTRDIFF_T yynewbytes; \
YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
Stack = &yyptr->Stack_alloc; \
- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
- yyptr += yynewbytes / sizeof (*yyptr); \
+ yynewbytes = yystacksize * YYSIZEOF (*Stack) + YYSTACK_GAP_MAXIMUM; \
+ yyptr += yynewbytes / YYSIZEOF (*yyptr); \
} \
while (0)
# ifndef YYCOPY
# if defined __GNUC__ && 1 < __GNUC__
# define YYCOPY(Dst, Src, Count) \
- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
+ __builtin_memcpy (Dst, Src, YY_CAST (YYSIZE_T, (Count)) * sizeof (*(Src)))
# else
# define YYCOPY(Dst, Src, Count) \
do \
{ \
- YYSIZE_T yyi; \
+ YYPTRDIFF_T yyi; \
for (yyi = 0; yyi < (Count); yyi++) \
(Dst)[yyi] = (Src)[yyi]; \
} \
#endif /* !YYCOPY_NEEDED */
/* YYFINAL -- State number of the termination state. */
-#define YYFINAL 116
+#define YYFINAL 122
/* YYLAST -- Last index in YYTABLE. */
-#define YYLAST 638
+#define YYLAST 740
/* YYNTOKENS -- Number of terminals. */
-#define YYNTOKENS 61
+#define YYNTOKENS 62
/* YYNNTS -- Number of nonterminals. */
#define YYNNTS 38
/* YYNRULES -- Number of rules. */
-#define YYNRULES 167
+#define YYNRULES 175
/* YYNSTATES -- Number of states. */
-#define YYNSTATES 334
+#define YYNSTATES 350
-/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
- by yylex, with out-of-bounds checking. */
-#define YYUNDEFTOK 2
-#define YYMAXUTOK 304
+/* YYMAXUTOK -- Last valid token kind. */
+#define YYMAXUTOK 305
-#define YYTRANSLATE(YYX) \
- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
+
+/* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM
+ as returned by yylex, with out-of-bounds checking. */
+#define YYTRANSLATE(YYX) \
+ (0 <= (YYX) && (YYX) <= YYMAXUTOK \
+ ? YY_CAST (yysymbol_kind_t, yytranslate[YYX]) \
+ : YYSYMBOL_YYUNDEF)
/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
- as returned by yylex, without out-of-bounds checking. */
-static const yytype_uint8 yytranslate[] =
+ as returned by yylex. */
+static const yytype_int8 yytranslate[] =
{
0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 51, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 52, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 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, 50, 2,
+ 60, 61, 2, 2, 2, 57, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 51,
+ 56, 2, 55, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 57, 53, 58, 2, 2, 2, 2,
+ 2, 2, 2, 58, 54, 59, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 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, 47, 48, 52
+ 45, 46, 47, 48, 49, 53
};
#if YYDEBUG
- /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
-static const yytype_uint16 yyrline[] =
+/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
+static const yytype_int16 yyrline[] =
{
- 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
+ 0, 395, 395, 406, 414, 423, 438, 455, 470, 480,
+ 482, 486, 492, 498, 504, 510, 516, 522, 528, 534,
+ 540, 546, 552, 558, 564, 570, 576, 583, 590, 597,
+ 604, 611, 618, 624, 630, 636, 642, 648, 654, 660,
+ 666, 672, 678, 684, 690, 696, 702, 708, 714, 720,
+ 726, 732, 738, 744, 750, 758, 760, 762, 766, 770,
+ 781, 783, 787, 789, 791, 807, 809, 813, 815, 817,
+ 819, 821, 823, 825, 827, 829, 831, 833, 837, 842,
+ 847, 852, 857, 862, 867, 872, 879, 885, 891, 897,
+ 905, 910, 915, 920, 925, 930, 935, 940, 947, 952,
+ 957, 964, 966, 968, 970, 974, 976, 1007, 1014, 1018,
+ 1024, 1029, 1046, 1051, 1068, 1075, 1077, 1079, 1084, 1088,
+ 1092, 1096, 1098, 1100, 1104, 1105, 1109, 1111, 1113, 1115,
+ 1119, 1121, 1123, 1125, 1127, 1129, 1133, 1135, 1144, 1150,
+ 1156, 1157, 1164, 1168, 1170, 1172, 1179, 1181, 1188, 1192,
+ 1193, 1196, 1198, 1200, 1204, 1205, 1214, 1229, 1247, 1264,
+ 1266, 1268, 1275, 1278, 1282, 1284, 1290, 1296, 1316, 1339,
+ 1341, 1364, 1368, 1370, 1372, 1374
};
#endif
-#if YYDEBUG || YYERROR_VERBOSE || 0
+/** Accessing symbol of state STATE. */
+#define YY_ACCESSING_SYMBOL(State) YY_CAST (yysymbol_kind_t, yystos[State])
+
+#if YYDEBUG || 0
+/* The user-facing name of the symbol whose (internal) number is
+ YYSYMBOL. No bounds checking. */
+static const char *yysymbol_name (yysymbol_kind_t yysymbol) YY_ATTRIBUTE_UNUSED;
+
/* 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", "TIMEIGN", "WORD", "ASSIGNMENT_WORD",
+ "\"end of file\"", "error", "\"invalid token\"", "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", "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",
+ "LESS_GREATER", "GREATER_BAR", "BAR_AND", "DOLPAREN", "'&'", "';'",
+ "'\\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
+ "subshell", "comsub", "coproc", "if_command", "group_command",
+ "arith_command", "cond_command", "elif_clause", "case_clause",
+ "pattern_list", "case_clause_sequence", "pattern", "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[NUM] -- (External) token number corresponding to the
- (internal) symbol number NUM (which must be that of a token). */
-static const yytype_uint16 yytoknum[] =
+static const char *
+yysymbol_name (yysymbol_kind_t yysymbol)
{
- 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, 302, 303, 38,
- 59, 10, 304, 124, 62, 60, 45, 123, 125, 40,
- 41
-};
-# endif
+ return yytname[yysymbol];
+}
+#endif
-#define YYPACT_NINF -205
+#define YYPACT_NINF (-125)
-#define yypact_value_is_default(Yystate) \
- (!!((Yystate) == (-205)))
+#define yypact_value_is_default(Yyn) \
+ ((Yyn) == YYPACT_NINF)
-#define YYTABLE_NINF -1
+#define YYTABLE_NINF (-1)
-#define yytable_value_is_error(Yytable_value) \
+#define yytable_value_is_error(Yyn) \
0
- /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
- STATE-NUM. */
+/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+ STATE-NUM. */
static const yytype_int16 yypact[] =
{
- 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
+ 329, 27, -125, 8, 81, 10, -125, -125, 16, 38,
+ 0, 434, -5, -16, -125, 670, 684, -125, 33, 43,
+ 62, 63, 71, 69, 94, 105, 108, 116, -125, -125,
+ -125, 125, 139, -125, -125, 111, -125, -125, 626, -125,
+ 648, -125, -125, -125, -125, -125, -125, -125, -125, -125,
+ -125, -125, -125, 5, -21, -125, -15, 434, -125, -125,
+ -125, 196, 485, -125, 157, 2, 180, 207, 222, 227,
+ 638, 626, 648, 224, -125, -125, -125, -125, -125, 219,
+ -125, 185, 223, 228, 140, 230, 161, 232, 233, 234,
+ 236, 241, 248, 249, 162, 250, 163, 251, 254, 256,
+ 257, 258, -125, -125, -125, -125, -125, -125, -125, -125,
+ -125, -125, -125, -125, -125, -125, 225, 380, -125, -125,
+ 229, 231, -125, -125, -125, -125, 648, -125, -125, -125,
+ -125, -125, 536, 536, -125, -125, -125, -125, -125, -125,
+ -125, 214, -125, -7, -125, 85, -125, -125, -125, -125,
+ 89, -125, -125, -125, 235, 648, -125, 648, 648, -125,
+ -125, -125, -125, -125, -125, -125, -125, -125, -125, -125,
+ -125, -125, -125, -125, -125, -125, -125, -125, -125, -125,
+ -125, -125, -125, -125, -125, -125, -125, -125, -125, -125,
+ -125, -125, -125, -125, -125, 485, 485, 138, 138, 587,
+ 587, 17, -125, -125, -125, -125, -125, -125, 88, -125,
+ 122, -125, 274, 238, 100, 101, -125, 122, -125, 276,
+ 278, 260, -125, 648, 648, 260, -125, -125, -15, -15,
+ -125, -125, -125, 287, 485, 485, 485, 485, 485, 290,
+ 164, -125, 26, -125, -125, 285, -125, 131, -125, 242,
+ -125, -125, -125, -125, -125, -125, 288, 131, -125, 243,
+ -125, -125, -125, 260, -125, 297, 302, -125, -125, -125,
+ 152, 152, 152, -125, -125, -125, -125, 170, 61, -125,
+ -125, 281, -36, 293, 252, -125, -125, -125, 102, -125,
+ 298, 255, 300, 262, -125, -125, 103, -125, -125, -125,
+ -125, -125, -125, -125, -125, -33, 296, -125, -125, -125,
+ 110, -125, -125, -125, -125, -125, -125, 112, -125, -125,
+ 189, -125, -125, -125, 485, -125, -125, 310, 267, -125,
+ -125, 314, 275, -125, -125, -125, 485, 318, 277, -125,
+ -125, 320, 279, -125, -125, -125, -125, -125, -125, -125
};
- /* 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. */
+/* 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[] =
{
- 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, 154, 0, 0, 0, 154, 154, 0, 0,
+ 0, 0, 172, 55, 56, 0, 0, 119, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 154, 4,
+ 8, 0, 0, 154, 154, 0, 57, 60, 62, 171,
+ 63, 67, 77, 71, 68, 65, 73, 3, 66, 72,
+ 74, 75, 76, 0, 156, 163, 164, 0, 7, 5,
+ 6, 0, 0, 154, 154, 0, 154, 0, 0, 0,
+ 55, 114, 110, 0, 152, 151, 153, 168, 165, 173,
+ 174, 0, 0, 0, 0, 0, 0, 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
+ 0, 0, 17, 26, 41, 35, 50, 32, 44, 38,
+ 47, 29, 53, 54, 23, 20, 0, 0, 11, 12,
+ 0, 0, 1, 55, 61, 58, 64, 149, 150, 2,
+ 154, 154, 157, 158, 154, 154, 167, 166, 154, 155,
+ 138, 139, 148, 0, 154, 0, 154, 154, 154, 154,
+ 0, 154, 154, 154, 154, 105, 103, 112, 111, 120,
+ 175, 154, 19, 28, 43, 37, 52, 34, 46, 40,
+ 49, 31, 25, 22, 15, 16, 18, 27, 42, 36,
+ 51, 33, 45, 39, 48, 30, 24, 21, 13, 14,
+ 108, 109, 118, 107, 59, 0, 0, 161, 162, 0,
+ 0, 0, 154, 154, 154, 154, 154, 154, 0, 154,
+ 0, 154, 0, 0, 0, 0, 154, 0, 154, 0,
+ 0, 0, 154, 106, 113, 0, 159, 160, 170, 169,
+ 154, 154, 115, 0, 0, 0, 141, 142, 140, 0,
+ 124, 154, 0, 154, 154, 0, 9, 0, 154, 0,
+ 88, 89, 154, 154, 154, 154, 0, 0, 154, 0,
+ 69, 70, 104, 0, 101, 0, 0, 117, 143, 144,
+ 145, 146, 147, 100, 130, 132, 134, 125, 0, 98,
+ 136, 0, 0, 0, 0, 78, 10, 154, 0, 79,
+ 0, 0, 0, 0, 90, 154, 0, 91, 102, 116,
+ 154, 131, 133, 135, 99, 0, 0, 154, 80, 81,
+ 0, 154, 154, 86, 87, 92, 93, 0, 154, 154,
+ 121, 154, 137, 126, 127, 154, 154, 0, 0, 154,
+ 154, 0, 0, 154, 123, 128, 129, 0, 0, 84,
+ 85, 0, 0, 96, 97, 122, 82, 83, 94, 95
};
- /* YYPGOTO[NTERM-NUM]. */
+/* YYPGOTO[NTERM-NUM]. */
static const yytype_int16 yypgoto[] =
{
- -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
+ -125, -125, 126, -25, -28, -65, 335, -125, -8, -125,
+ -125, -125, -125, -125, -96, -125, -125, -125, -125, -125,
+ -125, -125, 28, -125, 109, -125, 68, -2, -125, -11,
+ -125, -54, -26, -125, -124, 6, 34, -125
};
- /* YYDEFGOTO[NTERM-NUM]. */
+/* YYDEFGOTO[NTERM-NUM]. */
static const yytype_int16 yydefgoto[] =
{
- -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
+ 0, 35, 247, 36, 37, 126, 38, 39, 40, 41,
+ 42, 43, 44, 45, 156, 46, 47, 48, 49, 50,
+ 51, 52, 233, 239, 240, 241, 282, 121, 140, 141,
+ 129, 77, 62, 53, 54, 142, 56, 57
};
- /* 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[] =
+/* 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_int16 yytable[] =
{
- 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
+ 61, 72, 117, 136, 67, 68, 55, 158, 197, 198,
+ 124, 148, 130, 131, 207, 125, 146, 78, 306, 79,
+ 80, 306, 230, 231, 232, 307, 116, 58, 321, 132,
+ 133, 120, 73, 134, 63, 279, 66, 143, 145, 135,
+ 150, 2, 69, 124, 81, 139, 3, 125, 4, 5,
+ 6, 7, 280, 74, 75, 76, 10, 127, 128, 102,
+ 147, 155, 157, 137, 70, 14, 15, 16, 17, 103,
+ 304, 226, 227, 18, 19, 20, 21, 22, 139, 59,
+ 60, 23, 24, 25, 26, 27, 281, 280, 104, 107,
+ 223, 105, 224, 31, 32, 111, 33, 108, 34, 209,
+ 109, 194, 243, 216, 195, 196, 210, 64, 199, 200,
+ 217, 122, 65, 139, 252, 254, 311, 318, 208, 106,
+ 112, 281, 214, 215, 325, 262, 329, 221, 110, 264,
+ 125, 113, 125, 194, 114, 225, 201, 139, 55, 55,
+ 139, 139, 115, 211, 212, 213, 244, 218, 246, 219,
+ 220, 118, 139, 139, 139, 139, 248, 286, 253, 255,
+ 312, 319, 139, 258, 139, 119, 164, 298, 326, 165,
+ 330, 130, 131, 74, 75, 76, 234, 235, 236, 237,
+ 238, 242, 74, 75, 76, 202, 203, 168, 178, 182,
+ 169, 179, 183, 287, 333, 231, 263, 166, 194, 194,
+ 138, 55, 55, 295, 274, 275, 276, 245, 144, 249,
+ 301, 302, 303, 155, 256, 278, 259, 155, 170, 180,
+ 184, 151, 288, 268, 269, 270, 271, 272, 265, 266,
+ 2, 149, 296, 228, 229, 3, 152, 4, 5, 6,
+ 7, 283, 284, 159, 160, 10, 161, 202, 203, 162,
+ 290, 291, 292, 293, 163, 155, 167, 17, 171, 172,
+ 173, 310, 174, 2, 204, 205, 206, 175, 3, 317,
+ 4, 5, 6, 7, 176, 177, 181, 185, 10, 153,
+ 186, 324, 187, 188, 189, 33, 190, 154, 192, 250,
+ 17, 260, 193, 261, 267, 336, 222, 251, 320, 273,
+ 285, 289, 297, 294, 299, 323, 300, 280, 308, 327,
+ 328, 309, 139, 313, 314, 315, 331, 332, 33, 335,
+ 34, 316, 322, 337, 338, 339, 340, 341, 342, 343,
+ 1, 345, 2, 346, 344, 348, 347, 3, 349, 4,
+ 5, 6, 7, 257, 71, 8, 9, 10, 334, 305,
+ 277, 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, 28, 0,
+ 0, 29, 30, 2, 31, 32, 0, 33, 3, 34,
+ 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, 139, 0, 0, 31, 32, 2, 33, 0,
+ 34, 191, 3, 0, 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, 74, 75, 76, 2, 31,
+ 32, 0, 33, 3, 34, 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, 139, 0, 2,
+ 31, 32, 0, 33, 3, 34, 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, 0,
+ 2, 31, 32, 0, 33, 3, 34, 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, 0, 139,
+ 0, 2, 31, 32, 0, 33, 3, 34, 4, 5,
+ 6, 7, 123, 14, 15, 16, 10, 0, 0, 0,
+ 0, 18, 19, 20, 21, 22, 0, 0, 17, 23,
+ 24, 25, 26, 27, 0, 0, 15, 16, 0, 0,
+ 0, 31, 32, 18, 19, 20, 21, 22, 0, 0,
+ 0, 23, 24, 25, 26, 27, 33, 0, 34, 0,
+ 0, 0, 0, 31, 32, 82, 83, 84, 85, 86,
+ 0, 0, 0, 87, 0, 0, 88, 89, 0, 92,
+ 93, 94, 95, 96, 0, 90, 91, 97, 0, 0,
+ 98, 99, 0, 0, 0, 0, 0, 0, 0, 100,
+ 101
};
static const yytype_int16 yycheck[] =
{
- 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
+ 2, 9, 28, 57, 6, 7, 0, 72, 132, 133,
+ 38, 65, 33, 34, 21, 40, 14, 11, 54, 24,
+ 25, 54, 5, 6, 7, 61, 28, 0, 61, 50,
+ 51, 33, 32, 48, 26, 9, 26, 63, 64, 54,
+ 66, 3, 26, 71, 60, 52, 8, 72, 10, 11,
+ 12, 13, 26, 51, 52, 53, 18, 52, 53, 26,
+ 58, 69, 70, 57, 26, 27, 28, 29, 30, 26,
+ 9, 195, 196, 35, 36, 37, 38, 39, 52, 52,
+ 53, 43, 44, 45, 46, 47, 60, 26, 26, 26,
+ 155, 29, 157, 55, 56, 26, 58, 26, 60, 14,
+ 29, 126, 14, 14, 130, 131, 21, 26, 134, 135,
+ 21, 0, 31, 52, 14, 14, 14, 14, 144, 57,
+ 26, 60, 148, 149, 14, 221, 14, 153, 57, 225,
+ 155, 26, 157, 158, 26, 161, 138, 52, 132, 133,
+ 52, 52, 26, 58, 146, 147, 58, 58, 26, 151,
+ 152, 26, 52, 52, 52, 52, 210, 26, 58, 58,
+ 58, 58, 52, 217, 52, 26, 26, 263, 58, 29,
+ 58, 33, 34, 51, 52, 53, 202, 203, 204, 205,
+ 206, 207, 51, 52, 53, 33, 34, 26, 26, 26,
+ 29, 29, 29, 247, 5, 6, 222, 57, 223, 224,
+ 4, 195, 196, 257, 40, 41, 42, 209, 51, 211,
+ 40, 41, 42, 221, 216, 241, 218, 225, 57, 57,
+ 57, 14, 248, 234, 235, 236, 237, 238, 230, 231,
+ 3, 51, 258, 199, 200, 8, 14, 10, 11, 12,
+ 13, 243, 244, 19, 25, 18, 61, 33, 34, 26,
+ 252, 253, 254, 255, 26, 263, 26, 30, 26, 26,
+ 26, 287, 26, 3, 50, 51, 52, 26, 8, 295,
+ 10, 11, 12, 13, 26, 26, 26, 26, 18, 52,
+ 26, 307, 26, 26, 26, 58, 61, 60, 59, 15,
+ 30, 15, 61, 15, 7, 321, 61, 59, 300, 9,
+ 15, 59, 59, 15, 7, 307, 4, 26, 15, 311,
+ 312, 59, 52, 15, 59, 15, 318, 319, 58, 321,
+ 60, 59, 26, 325, 326, 15, 59, 329, 330, 15,
+ 1, 333, 3, 15, 59, 15, 59, 8, 59, 10,
+ 11, 12, 13, 217, 9, 16, 17, 18, 320, 281,
+ 241, 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, 49, -1,
+ -1, 52, 53, 3, 55, 56, -1, 58, 8, 60,
+ 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, 52, -1, -1, 55, 56, 3, 58, -1,
+ 60, 61, 8, -1, 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, 52, 53, 3, 55,
+ 56, -1, 58, 8, 60, 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, 52, -1, 3,
+ 55, 56, -1, 58, 8, 60, 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, -1,
+ 3, 55, 56, -1, 58, 8, 60, 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, -1, 52,
+ -1, 3, 55, 56, -1, 58, 8, 60, 10, 11,
+ 12, 13, 26, 27, 28, 29, 18, -1, -1, -1,
+ -1, 35, 36, 37, 38, 39, -1, -1, 30, 43,
+ 44, 45, 46, 47, -1, -1, 28, 29, -1, -1,
+ -1, 55, 56, 35, 36, 37, 38, 39, -1, -1,
+ -1, 43, 44, 45, 46, 47, 58, -1, 60, -1,
+ -1, -1, -1, 55, 56, 35, 36, 37, 38, 39,
+ -1, -1, -1, 43, -1, -1, 46, 47, -1, 35,
+ 36, 37, 38, 39, -1, 55, 56, 43, -1, -1,
+ 46, 47, -1, -1, -1, -1, -1, -1, -1, 55,
+ 56
};
- /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
- symbol of state STATE-NUM. */
-static const yytype_uint8 yystos[] =
+/* YYSTOS[STATE-NUM] -- The symbol kind of the accessing symbol of
+ state STATE-NUM. */
+static const yytype_int8 yystos[] =
{
0, 1, 3, 8, 10, 11, 12, 13, 16, 17,
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
+ 37, 38, 39, 43, 44, 45, 46, 47, 49, 52,
+ 53, 55, 56, 58, 60, 63, 65, 66, 68, 69,
+ 70, 71, 72, 73, 74, 75, 77, 78, 79, 80,
+ 81, 82, 83, 95, 96, 97, 98, 99, 0, 52,
+ 53, 89, 94, 26, 26, 31, 26, 89, 89, 26,
+ 26, 68, 70, 32, 51, 52, 53, 93, 97, 24,
+ 25, 60, 35, 36, 37, 38, 39, 43, 46, 47,
+ 55, 56, 35, 36, 37, 38, 39, 43, 46, 47,
+ 55, 56, 26, 26, 26, 29, 57, 26, 26, 29,
+ 57, 26, 26, 26, 26, 26, 89, 94, 26, 26,
+ 89, 89, 0, 26, 66, 65, 67, 52, 53, 92,
+ 33, 34, 50, 51, 48, 54, 93, 97, 4, 52,
+ 90, 91, 97, 94, 51, 94, 14, 58, 93, 51,
+ 94, 14, 14, 52, 60, 70, 76, 70, 67, 19,
+ 25, 61, 26, 26, 26, 29, 57, 26, 26, 29,
+ 57, 26, 26, 26, 26, 26, 26, 26, 26, 29,
+ 57, 26, 26, 29, 57, 26, 26, 26, 26, 26,
+ 61, 61, 59, 61, 65, 94, 94, 96, 96, 94,
+ 94, 89, 33, 34, 50, 51, 52, 21, 94, 14,
+ 21, 58, 89, 89, 94, 94, 14, 21, 58, 89,
+ 89, 94, 61, 67, 67, 94, 96, 96, 98, 98,
+ 5, 6, 7, 84, 94, 94, 94, 94, 94, 85,
+ 86, 87, 94, 14, 58, 89, 26, 64, 93, 89,
+ 15, 59, 14, 58, 14, 58, 89, 64, 93, 89,
+ 15, 15, 76, 94, 76, 89, 89, 7, 91, 91,
+ 91, 91, 91, 9, 40, 41, 42, 86, 94, 9,
+ 26, 60, 88, 89, 89, 15, 26, 93, 94, 59,
+ 89, 89, 89, 89, 15, 93, 94, 59, 76, 7,
+ 4, 40, 41, 42, 9, 88, 54, 61, 15, 59,
+ 94, 14, 58, 15, 59, 15, 59, 94, 14, 58,
+ 89, 61, 26, 89, 94, 14, 58, 89, 89, 14,
+ 58, 89, 89, 5, 84, 89, 94, 89, 89, 15,
+ 59, 89, 89, 15, 59, 89, 15, 59, 15, 59
};
- /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
-static const yytype_uint8 yyr1[] =
+/* YYR1[RULE-NUM] -- Symbol kind of the left-hand side of rule RULE-NUM. */
+static const yytype_int8 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
+ 0, 62, 63, 63, 63, 63, 63, 63, 63, 64,
+ 64, 65, 65, 65, 65, 65, 65, 65, 65, 65,
+ 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
+ 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
+ 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
+ 65, 65, 65, 65, 65, 66, 66, 66, 67, 67,
+ 68, 68, 69, 69, 69, 69, 69, 70, 70, 70,
+ 70, 70, 70, 70, 70, 70, 70, 70, 71, 71,
+ 71, 71, 71, 71, 71, 71, 72, 72, 72, 72,
+ 73, 73, 73, 73, 73, 73, 73, 73, 74, 74,
+ 74, 75, 75, 75, 75, 76, 76, 77, 78, 78,
+ 79, 79, 79, 79, 79, 80, 80, 80, 81, 82,
+ 83, 84, 84, 84, 85, 85, 86, 86, 86, 86,
+ 87, 87, 87, 87, 87, 87, 88, 88, 89, 89,
+ 90, 90, 90, 91, 91, 91, 91, 91, 91, 92,
+ 92, 93, 93, 93, 94, 94, 95, 95, 95, 96,
+ 96, 96, 96, 96, 97, 97, 97, 97, 97, 98,
+ 98, 98, 99, 99, 99, 99
};
- /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
-static const yytype_uint8 yyr2[] =
+/* YYR2[RULE-NUM] -- Number of symbols on the right-hand side of rule RULE-NUM. */
+static const yytype_int8 yyr2[] =
{
- 0, 2, 2, 1, 2, 1, 1, 2, 2, 2,
- 3, 3, 3, 3, 2, 3, 3, 2, 3, 3,
+ 0, 2, 2, 1, 1, 2, 2, 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, 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
+ 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, 9, 9, 6, 7,
+ 6, 5, 6, 3, 5, 1, 2, 3, 3, 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, 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, 2, 3
};
+enum { YYENOMEM = -2 };
+
#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 YYNOMEM goto yyexhaustedlab
#define YYRECOVERING() (!!yyerrstatus)
-#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 (0)
-
-/* Error token number */
-#define YYTERROR 1
-#define YYERRCODE 256
+#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 (0)
+/* Backward compatibility with an undocumented macro.
+ Use YYerror or YYUNDEF. */
+#define YYERRCODE YYUNDEF
/* Enable debugging if requested. */
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) \
+
+# define YY_SYMBOL_PRINT(Title, Kind, Value, Location) \
do { \
if (yydebug) \
{ \
YYFPRINTF (stderr, "%s ", Title); \
yy_symbol_print (stderr, \
- Type, Value); \
+ Kind, Value); \
YYFPRINTF (stderr, "\n"); \
} \
} while (0)
-/*----------------------------------------.
-| Print this symbol's value on YYOUTPUT. |
-`----------------------------------------*/
+/*-----------------------------------.
+| Print this symbol's value on YYO. |
+`-----------------------------------*/
static void
-yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+yy_symbol_value_print (FILE *yyo,
+ yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep)
{
- FILE *yyo = yyoutput;
- YYUSE (yyo);
+ FILE *yyoutput = yyo;
+ YY_USE (yyoutput);
if (!yyvaluep)
return;
-# ifdef YYPRINT
- if (yytype < YYNTOKENS)
- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
-# endif
- YYUSE (yytype);
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+ YY_USE (yykind);
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
}
-/*--------------------------------.
-| Print this symbol on YYOUTPUT. |
-`--------------------------------*/
+/*---------------------------.
+| Print this symbol on YYO. |
+`---------------------------*/
static void
-yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+yy_symbol_print (FILE *yyo,
+ yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep)
{
- YYFPRINTF (yyoutput, "%s %s (",
- yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]);
+ YYFPRINTF (yyo, "%s %s (",
+ yykind < YYNTOKENS ? "token" : "nterm", yysymbol_name (yykind));
- yy_symbol_value_print (yyoutput, yytype, yyvaluep);
- YYFPRINTF (yyoutput, ")");
+ yy_symbol_value_print (yyo, yykind, yyvaluep);
+ YYFPRINTF (yyo, ")");
}
/*------------------------------------------------------------------.
`------------------------------------------------------------------*/
static void
-yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
+yy_stack_print (yy_state_t *yybottom, yy_state_t *yytop)
{
YYFPRINTF (stderr, "Stack now");
for (; yybottom <= yytop; yybottom++)
`------------------------------------------------*/
static void
-yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule)
+yy_reduce_print (yy_state_t *yyssp, YYSTYPE *yyvsp,
+ int yyrule)
{
- unsigned long int yylno = yyrline[yyrule];
+ int yylno = yyrline[yyrule];
int yynrhs = yyr2[yyrule];
int yyi;
- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
+ YYFPRINTF (stderr, "Reducing stack by rule %d (line %d):\n",
yyrule - 1, yylno);
/* The symbols being reduced. */
for (yyi = 0; yyi < yynrhs; yyi++)
{
YYFPRINTF (stderr, " $%d = ", yyi + 1);
yy_symbol_print (stderr,
- yystos[yyssp[yyi + 1 - yynrhs]],
- &(yyvsp[(yyi + 1) - (yynrhs)])
- );
+ YY_ACCESSING_SYMBOL (+yyssp[yyi + 1 - yynrhs]),
+ &yyvsp[(yyi + 1) - (yynrhs)]);
YYFPRINTF (stderr, "\n");
}
}
multiple parsers can coexist. */
int yydebug;
#else /* !YYDEBUG */
-# define YYDPRINTF(Args)
-# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
+# define YYDPRINTF(Args) ((void) 0)
+# define YY_SYMBOL_PRINT(Title, Kind, Value, Location)
# define YY_STACK_PRINT(Bottom, Top)
# define YY_REDUCE_PRINT(Rule)
#endif /* !YYDEBUG */
#endif
-#if YYERROR_VERBOSE
-
-# ifndef yystrlen
-# if defined __GLIBC__ && defined _STRING_H
-# define yystrlen strlen
-# else
-/* Return the length of YYSTR. */
-static YYSIZE_T
-yystrlen (const char *yystr)
-{
- YYSIZE_T yylen;
- for (yylen = 0; yystr[yylen]; yylen++)
- continue;
- return yylen;
-}
-# endif
-# endif
-
-# ifndef yystpcpy
-# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
-# define yystpcpy stpcpy
-# else
-/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
- YYDEST. */
-static char *
-yystpcpy (char *yydest, const char *yysrc)
-{
- char *yyd = yydest;
- const char *yys = yysrc;
-
- while ((*yyd++ = *yys++) != '\0')
- continue;
-
- return yyd - 1;
-}
-# endif
-# endif
-
-# ifndef yytnamerr
-/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
- quotes and backslashes, so that it's suitable for yyerror. The
- heuristic is that double-quoting is unnecessary unless the string
- contains an apostrophe, a comma, or backslash (other than
- backslash-backslash). YYSTR is taken from yytname. If YYRES is
- null, do not copy; instead, return the length of what the result
- would have been. */
-static YYSIZE_T
-yytnamerr (char *yyres, const char *yystr)
-{
- if (*yystr == '"')
- {
- YYSIZE_T yyn = 0;
- char const *yyp = yystr;
-
- for (;;)
- switch (*++yyp)
- {
- case '\'':
- case ',':
- goto do_not_strip_quotes;
-
- case '\\':
- if (*++yyp != '\\')
- goto do_not_strip_quotes;
- /* Fall through. */
- default:
- if (yyres)
- yyres[yyn] = *yyp;
- yyn++;
- break;
-
- case '"':
- if (yyres)
- yyres[yyn] = '\0';
- return yyn;
- }
- do_not_strip_quotes: ;
- }
-
- if (! yyres)
- return yystrlen (yystr);
-
- return yystpcpy (yyres, yystr) - yyres;
-}
-# endif
-
-/* 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.
-
- 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;
- }
- }
- }
- }
-
- 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_
- }
- {
- YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
- return 2;
- yysize = yysize1;
- }
- 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 */
/*-----------------------------------------------.
| Release the memory associated to this symbol. |
`-----------------------------------------------*/
static void
-yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
+yydestruct (const char *yymsg,
+ yysymbol_kind_t yykind, YYSTYPE *yyvaluep)
{
- YYUSE (yyvaluep);
+ YY_USE (yyvaluep);
if (!yymsg)
yymsg = "Deleting";
- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
+ YY_SYMBOL_PRINT (yymsg, yykind, yyvaluep, yylocationp);
YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
- YYUSE (yytype);
+ YY_USE (yykind);
YY_IGNORE_MAYBE_UNINITIALIZED_END
}
-
-
-/* The lookahead symbol. */
+/* Lookahead token kind. */
int yychar;
/* The semantic value of the lookahead symbol. */
int yynerrs;
+
+
/*----------.
| yyparse. |
`----------*/
int
yyparse (void)
{
- int yystate;
+ yy_state_fast_t yystate = 0;
/* 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.
+ int yyerrstatus = 0;
- Refer to the stacks through separate pointers, to allow yyoverflow
+ /* 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;
+ /* Their size. */
+ YYPTRDIFF_T yystacksize = YYINITDEPTH;
- /* The semantic value stack. */
- YYSTYPE yyvsa[YYINITDEPTH];
- YYSTYPE *yyvs;
- YYSTYPE *yyvsp;
+ /* The state stack: array, bottom, top. */
+ yy_state_t yyssa[YYINITDEPTH];
+ yy_state_t *yyss = yyssa;
+ yy_state_t *yyssp = yyss;
- YYSIZE_T yystacksize;
+ /* The semantic value stack: array, bottom, top. */
+ YYSTYPE yyvsa[YYINITDEPTH];
+ YYSTYPE *yyvs = yyvsa;
+ YYSTYPE *yyvsp = yyvs;
int yyn;
+ /* The return value of yyparse. */
int yyresult;
- /* Lookahead token as an internal (translated) token number. */
- int yytoken = 0;
+ /* Lookahead symbol kind. */
+ yysymbol_kind_t yytoken = YYSYMBOL_YYEMPTY;
/* 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];
- char *yymsg = yymsgbuf;
- YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
-#endif
+
#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
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. */
+
goto yysetstate;
+
/*------------------------------------------------------------.
-| yynewstate -- Push a new state, which is found in yystate. |
+| yynewstate -- push a new state, which is found in yystate. |
`------------------------------------------------------------*/
- yynewstate:
+yynewstate:
/* In all cases, when you get here, the value and location stacks
have just been pushed. So pushing a state here evens the stacks. */
yyssp++;
- yysetstate:
- *yyssp = yystate;
+
+/*--------------------------------------------------------------------.
+| yysetstate -- set current state (the top of the stack) to yystate. |
+`--------------------------------------------------------------------*/
+yysetstate:
+ YYDPRINTF ((stderr, "Entering state %d\n", yystate));
+ YY_ASSERT (0 <= yystate && yystate < YYNSTATES);
+ YY_IGNORE_USELESS_CAST_BEGIN
+ *yyssp = YY_CAST (yy_state_t, yystate);
+ YY_IGNORE_USELESS_CAST_END
+ YY_STACK_PRINT (yyss, yyssp);
if (yyss + yystacksize - 1 <= yyssp)
+#if !defined yyoverflow && !defined YYSTACK_RELOCATE
+ YYNOMEM;
+#else
{
/* Get the current used size of the three stacks, in elements. */
- YYSIZE_T yysize = yyssp - yyss + 1;
+ YYPTRDIFF_T yysize = yyssp - yyss + 1;
-#ifdef yyoverflow
+# if defined 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. */
+ yy_state_t *yyss1 = yyss;
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),
+ &yyss1, yysize * YYSIZEOF (*yyssp),
+ &yyvs1, yysize * YYSIZEOF (*yyvsp),
&yystacksize);
-
yyss = yyss1;
yyvs = yyvs1;
}
-#else /* no yyoverflow */
-# ifndef YYSTACK_RELOCATE
- goto yyexhaustedlab;
-# else
+# else /* defined YYSTACK_RELOCATE */
/* Extend the stack our own way. */
if (YYMAXDEPTH <= yystacksize)
- goto yyexhaustedlab;
+ YYNOMEM;
yystacksize *= 2;
if (YYMAXDEPTH < yystacksize)
yystacksize = YYMAXDEPTH;
{
- yytype_int16 *yyss1 = yyss;
+ yy_state_t *yyss1 = yyss;
union yyalloc *yyptr =
- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
+ YY_CAST (union yyalloc *,
+ YYSTACK_ALLOC (YY_CAST (YYSIZE_T, YYSTACK_BYTES (yystacksize))));
if (! yyptr)
- goto yyexhaustedlab;
+ YYNOMEM;
YYSTACK_RELOCATE (yyss_alloc, yyss);
YYSTACK_RELOCATE (yyvs_alloc, yyvs);
# undef YYSTACK_RELOCATE
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));
+ YY_IGNORE_USELESS_CAST_BEGIN
+ YYDPRINTF ((stderr, "Stack size increased to %ld\n",
+ YY_CAST (long, yystacksize)));
+ YY_IGNORE_USELESS_CAST_END
if (yyss + yystacksize - 1 <= yyssp)
YYABORT;
}
+#endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */
- YYDPRINTF ((stderr, "Entering state %d\n", yystate));
if (yystate == YYFINAL)
YYACCEPT;
goto yybackup;
+
/*-----------.
| yybackup. |
`-----------*/
yybackup:
-
/* Do appropriate processing given the current state. Read a
lookahead token if we need one and 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 lookahead symbol. */
+ /* YYCHAR is either empty, or end-of-input, or a valid lookahead. */
if (yychar == YYEMPTY)
{
- YYDPRINTF ((stderr, "Reading a token: "));
+ YYDPRINTF ((stderr, "Reading a token\n"));
yychar = yylex ();
}
if (yychar <= YYEOF)
{
- yychar = yytoken = YYEOF;
+ yychar = YYEOF;
+ yytoken = YYSYMBOL_YYEOF;
YYDPRINTF ((stderr, "Now at end of input.\n"));
}
+ else if (yychar == YYerror)
+ {
+ /* The scanner already issued an error message, process directly
+ to error recovery. But do not keep the error token as
+ lookahead, it is too special and may lead us to an endless
+ loop in error recovery. */
+ yychar = YYUNDEF;
+ yytoken = YYSYMBOL_YYerror;
+ goto yyerrlab1;
+ }
else
{
yytoken = YYTRANSLATE (yychar);
/* Shift the lookahead token. */
YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
-
- /* Discard the shifted token. */
- yychar = YYEMPTY;
-
yystate = yyn;
YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
YY_IGNORE_MAYBE_UNINITIALIZED_END
+ /* Discard the shifted token. */
+ yychar = YYEMPTY;
goto yynewstate;
/*-----------------------------.
-| yyreduce -- Do a reduction. |
+| yyreduce -- do a reduction. |
`-----------------------------*/
yyreduce:
/* yyn is the number of a rule to reduce with. */
YY_REDUCE_PRINT (yyn);
switch (yyn)
{
- case 2:
-#line 387 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 2: /* inputunit: simple_list simple_list_terminator */
+#line 396 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
/* Case of regular command. Discard the error
safety net,and return the command just parsed. */
global_command = (yyvsp[-1].command);
parser_state |= PST_EOFTOKEN;
YYACCEPT;
}
-#line 1925 "y.tab.c" /* yacc.c:1646 */
+#line 1954 "y.tab.c"
break;
- case 3:
-#line 398 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 3: /* inputunit: comsub */
+#line 407 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ /* This is special; look at the production and how
+ parse_comsub sets token_to_read */
+ global_command = (yyvsp[0].command);
+ eof_encountered = 0;
+ YYACCEPT;
+ }
+#line 1966 "y.tab.c"
+ break;
+
+ case 4: /* inputunit: '\n' */
+#line 415 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
/* Case of regular command, but not a very
interesting one. Return a NULL command. */
global_command = (COMMAND *)NULL;
parser_state |= PST_EOFTOKEN;
YYACCEPT;
}
-#line 1938 "y.tab.c" /* yacc.c:1646 */
+#line 1979 "y.tab.c"
break;
- case 4:
-#line 407 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 5: /* inputunit: error '\n' */
+#line 424 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
/* Error during parsing. Return NULL command. */
global_command = (COMMAND *)NULL;
eof_encountered = 0;
YYABORT;
}
}
-#line 1957 "y.tab.c" /* yacc.c:1646 */
+#line 1998 "y.tab.c"
break;
- case 5:
-#line 422 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 6: /* inputunit: error yacc_EOF */
+#line 439 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ /* EOF after an error. Do ignoreeof or not. Really
+ only interesting in non-interactive shells */
+ global_command = (COMMAND *)NULL;
+ if (last_command_exit_value == 0)
+ last_command_exit_value = EX_BADUSAGE; /* force error return */
+ if (interactive && parse_and_execute_level == 0)
+ {
+ handle_eof_input_unit ();
+ YYACCEPT;
+ }
+ else
+ {
+ YYABORT;
+ }
+ }
+#line 2019 "y.tab.c"
+ break;
+
+ case 7: /* inputunit: error $end */
+#line 456 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ global_command = (COMMAND *)NULL;
+ if (last_command_exit_value == 0)
+ last_command_exit_value = EX_BADUSAGE; /* force error return */
+ if (interactive && parse_and_execute_level == 0)
+ {
+ handle_eof_input_unit ();
+ YYACCEPT;
+ }
+ else
+ {
+ YYABORT;
+ }
+ }
+#line 2038 "y.tab.c"
+ break;
+
+ case 8: /* inputunit: yacc_EOF */
+#line 471 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
/* Case of EOF seen by itself. Do ignoreeof or
not. */
global_command = (COMMAND *)NULL;
handle_eof_input_unit ();
YYACCEPT;
}
-#line 1969 "y.tab.c" /* yacc.c:1646 */
+#line 2050 "y.tab.c"
break;
- case 6:
-#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 */
+ case 9: /* word_list: WORD */
+#line 481 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (WORD_LIST *)NULL); }
+#line 2056 "y.tab.c"
break;
- case 7:
-#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 */
+ case 10: /* word_list: word_list WORD */
+#line 483 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (yyvsp[-1].word_list)); }
+#line 2062 "y.tab.c"
break;
- case 8:
-#line 438 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 11: /* redirection: '>' WORD */
+#line 487 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2072 "y.tab.c"
break;
- case 9:
-#line 444 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 12: /* redirection: '<' WORD */
+#line 493 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2082 "y.tab.c"
break;
- case 10:
-#line 450 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 13: /* redirection: NUMBER '>' WORD */
+#line 499 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2092 "y.tab.c"
break;
- case 11:
-#line 456 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 14: /* redirection: NUMBER '<' WORD */
+#line 505 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2102 "y.tab.c"
break;
- case 12:
-#line 462 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 15: /* redirection: REDIR_WORD '>' WORD */
+#line 511 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2112 "y.tab.c"
break;
- case 13:
-#line 468 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 16: /* redirection: REDIR_WORD '<' WORD */
+#line 517 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2122 "y.tab.c"
break;
- case 14:
-#line 474 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 17: /* redirection: GREATER_GREATER WORD */
+#line 523 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2132 "y.tab.c"
break;
- case 15:
-#line 480 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 18: /* redirection: NUMBER GREATER_GREATER WORD */
+#line 529 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2142 "y.tab.c"
break;
- case 16:
-#line 486 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 19: /* redirection: REDIR_WORD GREATER_GREATER WORD */
+#line 535 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2152 "y.tab.c"
break;
- case 17:
-#line 492 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 20: /* redirection: GREATER_BAR WORD */
+#line 541 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2162 "y.tab.c"
break;
- case 18:
-#line 498 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 21: /* redirection: NUMBER GREATER_BAR WORD */
+#line 547 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2172 "y.tab.c"
break;
- case 19:
-#line 504 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 22: /* redirection: REDIR_WORD GREATER_BAR WORD */
+#line 553 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2182 "y.tab.c"
break;
- case 20:
-#line 510 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 23: /* redirection: LESS_GREATER WORD */
+#line 559 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2192 "y.tab.c"
break;
- case 21:
-#line 516 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 24: /* redirection: NUMBER LESS_GREATER WORD */
+#line 565 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2202 "y.tab.c"
break;
- case 22:
-#line 522 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 25: /* redirection: REDIR_WORD LESS_GREATER WORD */
+#line 571 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2212 "y.tab.c"
break;
- case 23:
-#line 528 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 26: /* redirection: LESS_LESS WORD */
+#line 577 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2223 "y.tab.c"
break;
- case 24:
-#line 535 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 27: /* redirection: NUMBER LESS_LESS WORD */
+#line 584 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2234 "y.tab.c"
break;
- case 25:
-#line 542 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 28: /* redirection: REDIR_WORD LESS_LESS WORD */
+#line 591 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2245 "y.tab.c"
break;
- case 26:
-#line 549 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 29: /* redirection: LESS_LESS_MINUS WORD */
+#line 598 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2256 "y.tab.c"
break;
- case 27:
-#line 556 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 30: /* redirection: NUMBER LESS_LESS_MINUS WORD */
+#line 605 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2267 "y.tab.c"
break;
- case 28:
-#line 563 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 31: /* redirection: REDIR_WORD LESS_LESS_MINUS WORD */
+#line 612 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2278 "y.tab.c"
break;
- case 29:
-#line 570 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 32: /* redirection: LESS_LESS_LESS WORD */
+#line 619 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2288 "y.tab.c"
break;
- case 30:
-#line 576 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 33: /* redirection: NUMBER LESS_LESS_LESS WORD */
+#line 625 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2298 "y.tab.c"
break;
- case 31:
-#line 582 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 34: /* redirection: REDIR_WORD LESS_LESS_LESS WORD */
+#line 631 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2308 "y.tab.c"
break;
- case 32:
-#line 588 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 35: /* redirection: LESS_AND NUMBER */
+#line 637 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2318 "y.tab.c"
break;
- case 33:
-#line 594 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 36: /* redirection: NUMBER LESS_AND NUMBER */
+#line 643 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2328 "y.tab.c"
break;
- case 34:
-#line 600 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 37: /* redirection: REDIR_WORD LESS_AND NUMBER */
+#line 649 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2338 "y.tab.c"
break;
- case 35:
-#line 606 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 38: /* redirection: GREATER_AND NUMBER */
+#line 655 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2348 "y.tab.c"
break;
- case 36:
-#line 612 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 39: /* redirection: NUMBER GREATER_AND NUMBER */
+#line 661 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2358 "y.tab.c"
break;
- case 37:
-#line 618 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 40: /* redirection: REDIR_WORD GREATER_AND NUMBER */
+#line 667 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2368 "y.tab.c"
break;
- case 38:
-#line 624 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 41: /* redirection: LESS_AND WORD */
+#line 673 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2378 "y.tab.c"
break;
- case 39:
-#line 630 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 42: /* redirection: NUMBER LESS_AND WORD */
+#line 679 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2388 "y.tab.c"
break;
- case 40:
-#line 636 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 43: /* redirection: REDIR_WORD LESS_AND WORD */
+#line 685 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2398 "y.tab.c"
break;
- case 41:
-#line 642 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 44: /* redirection: GREATER_AND WORD */
+#line 691 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2408 "y.tab.c"
break;
- case 42:
-#line 648 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 45: /* redirection: NUMBER GREATER_AND WORD */
+#line 697 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2418 "y.tab.c"
break;
- case 43:
-#line 654 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 46: /* redirection: REDIR_WORD GREATER_AND WORD */
+#line 703 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2428 "y.tab.c"
break;
- case 44:
-#line 660 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 47: /* redirection: GREATER_AND '-' */
+#line 709 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
redir.dest = 0;
(yyval.redirect) = make_redirection (source, r_close_this, redir, 0);
}
-#line 2357 "y.tab.c" /* yacc.c:1646 */
+#line 2438 "y.tab.c"
break;
- case 45:
-#line 666 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 48: /* redirection: NUMBER GREATER_AND '-' */
+#line 715 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2448 "y.tab.c"
break;
- case 46:
-#line 672 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 49: /* redirection: REDIR_WORD GREATER_AND '-' */
+#line 721 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2458 "y.tab.c"
break;
- case 47:
-#line 678 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 50: /* redirection: LESS_AND '-' */
+#line 727 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
redir.dest = 0;
(yyval.redirect) = make_redirection (source, r_close_this, redir, 0);
}
-#line 2387 "y.tab.c" /* yacc.c:1646 */
+#line 2468 "y.tab.c"
break;
- case 48:
-#line 684 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 51: /* redirection: NUMBER LESS_AND '-' */
+#line 733 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2478 "y.tab.c"
break;
- case 49:
-#line 690 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 52: /* redirection: REDIR_WORD LESS_AND '-' */
+#line 739 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2488 "y.tab.c"
break;
- case 50:
-#line 696 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 53: /* redirection: AND_GREATER WORD */
+#line 745 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2498 "y.tab.c"
break;
- case 51:
-#line 702 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 54: /* redirection: AND_GREATER_GREATER WORD */
+#line 751 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2508 "y.tab.c"
break;
- case 52:
-#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 */
+ case 55: /* simple_command_element: WORD */
+#line 759 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.element).word = (yyvsp[0].word); (yyval.element).redirect = 0; }
+#line 2514 "y.tab.c"
break;
- case 53:
-#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 */
+ case 56: /* simple_command_element: ASSIGNMENT_WORD */
+#line 761 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.element).word = (yyvsp[0].word); (yyval.element).redirect = 0; }
+#line 2520 "y.tab.c"
break;
- case 54:
-#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 */
+ case 57: /* simple_command_element: redirection */
+#line 763 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.element).redirect = (yyvsp[0].redirect); (yyval.element).word = 0; }
+#line 2526 "y.tab.c"
break;
- case 55:
-#line 718 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 58: /* redirection_list: redirection */
+#line 767 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.redirect) = (yyvsp[0].redirect);
}
-#line 2453 "y.tab.c" /* yacc.c:1646 */
+#line 2534 "y.tab.c"
break;
- case 56:
-#line 722 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 59: /* redirection_list: redirection_list redirection */
+#line 771 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 2547 "y.tab.c"
break;
- case 57:
-#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 */
+ case 60: /* simple_command: simple_command_element */
+#line 782 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_simple_command ((yyvsp[0].element), (COMMAND *)NULL); }
+#line 2553 "y.tab.c"
break;
- case 58:
-#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 */
+ case 61: /* simple_command: simple_command simple_command_element */
+#line 784 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_simple_command ((yyvsp[0].element), (yyvsp[-1].command)); }
+#line 2559 "y.tab.c"
break;
- case 59:
-#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 */
+ case 62: /* command: simple_command */
+#line 788 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = clean_simple_command ((yyvsp[0].command)); }
+#line 2565 "y.tab.c"
break;
- case 60:
-#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 */
+ case 63: /* command: shell_command */
+#line 790 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2571 "y.tab.c"
break;
- case 61:
-#line 743 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 64: /* command: shell_command redirection_list */
+#line 792 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
tc = (yyvsp[-1].command);
- if (tc->redirects)
+ if (tc && tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
t->next = (yyvsp[0].redirect);
}
- else
+ else if (tc)
tc->redirects = (yyvsp[0].redirect);
(yyval.command) = (yyvsp[-1].command);
}
-#line 2510 "y.tab.c" /* yacc.c:1646 */
+#line 2591 "y.tab.c"
break;
- case 62:
-#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 */
+ case 65: /* command: function_def */
+#line 808 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2597 "y.tab.c"
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 */
+ case 66: /* command: coproc */
+#line 810 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2603 "y.tab.c"
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 */
+ case 67: /* shell_command: for_command */
+#line 814 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2609 "y.tab.c"
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 */
+ case 68: /* shell_command: case_command */
+#line 816 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2615 "y.tab.c"
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 */
+ case 69: /* shell_command: WHILE compound_list DO compound_list DONE */
+#line 818 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_while_command ((yyvsp[-3].command), (yyvsp[-1].command)); }
+#line 2621 "y.tab.c"
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 */
+ case 70: /* shell_command: UNTIL compound_list DO compound_list DONE */
+#line 820 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_until_command ((yyvsp[-3].command), (yyvsp[-1].command)); }
+#line 2627 "y.tab.c"
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 */
+ case 71: /* shell_command: select_command */
+#line 822 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2633 "y.tab.c"
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 */
+ case 72: /* shell_command: if_command */
+#line 824 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2639 "y.tab.c"
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 */
+ case 73: /* shell_command: subshell */
+#line 826 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2645 "y.tab.c"
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 */
+ case 74: /* shell_command: group_command */
+#line 828 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2651 "y.tab.c"
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 */
+ case 75: /* shell_command: arith_command */
+#line 830 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2657 "y.tab.c"
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 */
+ case 76: /* shell_command: cond_command */
+#line 832 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2663 "y.tab.c"
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 */
+ case 77: /* shell_command: arith_for_command */
+#line 834 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2669 "y.tab.c"
break;
- case 75:
-#line 789 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 78: /* for_command: FOR WORD newline_list DO compound_list DONE */
+#line 838 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_for_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2597 "y.tab.c" /* yacc.c:1646 */
+#line 2678 "y.tab.c"
break;
- case 76:
-#line 794 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 79: /* for_command: FOR WORD newline_list '{' compound_list '}' */
+#line 843 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_for_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2606 "y.tab.c" /* yacc.c:1646 */
+#line 2687 "y.tab.c"
break;
- case 77:
-#line 799 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 80: /* for_command: FOR WORD ';' newline_list DO compound_list DONE */
+#line 848 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_for_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2615 "y.tab.c" /* yacc.c:1646 */
+#line 2696 "y.tab.c"
break;
- case 78:
-#line 804 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 81: /* for_command: FOR WORD ';' newline_list '{' compound_list '}' */
+#line 853 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_for_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2624 "y.tab.c" /* yacc.c:1646 */
+#line 2705 "y.tab.c"
break;
- case 79:
-#line 809 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 82: /* for_command: FOR WORD newline_list IN word_list list_terminator newline_list DO compound_list DONE */
+#line 858 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_for_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2633 "y.tab.c" /* yacc.c:1646 */
+#line 2714 "y.tab.c"
break;
- case 80:
-#line 814 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 83: /* for_command: FOR WORD newline_list IN word_list list_terminator newline_list '{' compound_list '}' */
+#line 863 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_for_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2642 "y.tab.c" /* yacc.c:1646 */
+#line 2723 "y.tab.c"
break;
- case 81:
-#line 819 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 84: /* for_command: FOR WORD newline_list IN list_terminator newline_list DO compound_list DONE */
+#line 868 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(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 */
+#line 2732 "y.tab.c"
break;
- case 82:
-#line 824 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 85: /* for_command: FOR WORD newline_list IN list_terminator newline_list '{' compound_list '}' */
+#line 873 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(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 */
+#line 2741 "y.tab.c"
break;
- case 83:
-#line 831 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 86: /* arith_for_command: FOR ARITH_FOR_EXPRS list_terminator newline_list DO compound_list DONE */
+#line 880 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_arith_for_command ((yyvsp[-5].word_list), (yyvsp[-1].command), arith_for_lineno);
+ if ((yyval.command) == 0) YYERROR;
if (word_top > 0) word_top--;
}
-#line 2669 "y.tab.c" /* yacc.c:1646 */
+#line 2751 "y.tab.c"
break;
- case 84:
-#line 836 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 87: /* arith_for_command: FOR ARITH_FOR_EXPRS list_terminator newline_list '{' compound_list '}' */
+#line 886 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_arith_for_command ((yyvsp[-5].word_list), (yyvsp[-1].command), arith_for_lineno);
+ if ((yyval.command) == 0) YYERROR;
if (word_top > 0) word_top--;
}
-#line 2678 "y.tab.c" /* yacc.c:1646 */
+#line 2761 "y.tab.c"
break;
- case 85:
-#line 841 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 88: /* arith_for_command: FOR ARITH_FOR_EXPRS DO compound_list DONE */
+#line 892 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_arith_for_command ((yyvsp[-3].word_list), (yyvsp[-1].command), arith_for_lineno);
+ if ((yyval.command) == 0) YYERROR;
if (word_top > 0) word_top--;
}
-#line 2687 "y.tab.c" /* yacc.c:1646 */
+#line 2771 "y.tab.c"
break;
- case 86:
-#line 846 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 89: /* arith_for_command: FOR ARITH_FOR_EXPRS '{' compound_list '}' */
+#line 898 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_arith_for_command ((yyvsp[-3].word_list), (yyvsp[-1].command), arith_for_lineno);
+ if ((yyval.command) == 0) YYERROR;
if (word_top > 0) word_top--;
}
-#line 2696 "y.tab.c" /* yacc.c:1646 */
+#line 2781 "y.tab.c"
break;
- case 87:
-#line 853 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 90: /* select_command: SELECT WORD newline_list DO compound_list DONE */
+#line 906 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_select_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2705 "y.tab.c" /* yacc.c:1646 */
+#line 2790 "y.tab.c"
break;
- case 88:
-#line 858 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 91: /* select_command: SELECT WORD newline_list '{' compound_list '}' */
+#line 911 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_select_command ((yyvsp[-4].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2714 "y.tab.c" /* yacc.c:1646 */
+#line 2799 "y.tab.c"
break;
- case 89:
-#line 863 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 92: /* select_command: SELECT WORD ';' newline_list DO compound_list DONE */
+#line 916 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_select_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2723 "y.tab.c" /* yacc.c:1646 */
+#line 2808 "y.tab.c"
break;
- case 90:
-#line 868 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 93: /* select_command: SELECT WORD ';' newline_list '{' compound_list '}' */
+#line 921 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_select_command ((yyvsp[-5].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2732 "y.tab.c" /* yacc.c:1646 */
+#line 2817 "y.tab.c"
break;
- case 91:
-#line 873 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 94: /* select_command: SELECT WORD newline_list IN word_list list_terminator newline_list DO compound_list DONE */
+#line 926 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_select_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2741 "y.tab.c" /* yacc.c:1646 */
+#line 2826 "y.tab.c"
break;
- case 92:
-#line 878 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 95: /* select_command: SELECT WORD newline_list IN word_list list_terminator newline_list '{' compound_list '}' */
+#line 931 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_select_command ((yyvsp[-8].word), REVERSE_LIST ((yyvsp[-5].word_list), WORD_LIST *), (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2750 "y.tab.c" /* yacc.c:1646 */
+#line 2835 "y.tab.c"
break;
- case 93:
-#line 885 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
- (yyval.command) = make_case_command ((yyvsp[-4].word), (PATTERN_LIST *)NULL, word_lineno[word_top]);
+ case 96: /* select_command: SELECT WORD newline_list IN list_terminator newline_list DO compound_list DONE */
+#line 936 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[-7].word), (WORD_LIST *)NULL, (yyvsp[-1].command), word_lineno[word_top]);
if (word_top > 0) word_top--;
}
-#line 2759 "y.tab.c" /* yacc.c:1646 */
+#line 2844 "y.tab.c"
break;
- case 94:
-#line 890 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 97: /* select_command: SELECT WORD newline_list IN list_terminator newline_list '{' compound_list '}' */
+#line 941 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_select_command ((yyvsp[-7].word), (WORD_LIST *)NULL, (yyvsp[-1].command), word_lineno[word_top]);
+ if (word_top > 0) word_top--;
+ }
+#line 2853 "y.tab.c"
+ break;
+
+ case 98: /* case_command: CASE WORD newline_list IN newline_list ESAC */
+#line 948 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = make_case_command ((yyvsp[-4].word), (PATTERN_LIST *)NULL, word_lineno[word_top]);
+ if (word_top > 0) word_top--;
+ }
+#line 2862 "y.tab.c"
+ break;
+
+ case 99: /* case_command: CASE WORD newline_list IN case_clause_sequence newline_list ESAC */
+#line 953 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(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 */
+#line 2871 "y.tab.c"
break;
- case 95:
-#line 895 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 100: /* case_command: CASE WORD newline_list IN case_clause ESAC */
+#line 958 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(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 */
+#line 2880 "y.tab.c"
break;
- 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 */
+ case 101: /* function_def: WORD '(' ')' newline_list function_body */
+#line 965 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_function_def ((yyvsp[-4].word), (yyvsp[0].command), function_dstart, function_bstart); }
+#line 2886 "y.tab.c"
break;
- 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 */
+ case 102: /* function_def: FUNCTION WORD '(' ')' newline_list function_body */
+#line 967 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_function_def ((yyvsp[-4].word), (yyvsp[0].command), function_dstart, function_bstart); }
+#line 2892 "y.tab.c"
break;
- 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 */
+ case 103: /* function_def: FUNCTION WORD function_body */
+#line 969 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_function_def ((yyvsp[-1].word), (yyvsp[0].command), function_dstart, function_bstart); }
+#line 2898 "y.tab.c"
break;
- 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 */
+ case 104: /* function_def: FUNCTION WORD '\n' newline_list function_body */
+#line 971 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_function_def ((yyvsp[-3].word), (yyvsp[0].command), function_dstart, function_bstart); }
+#line 2904 "y.tab.c"
break;
- case 100:
-#line 914 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 105: /* function_body: shell_command */
+#line 975 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 2910 "y.tab.c"
+ break;
+
+ case 106: /* function_body: shell_command redirection_list */
+#line 977 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
tc = (yyvsp[-1].command);
redirection. The two are semantically equivalent,
though -- the only difference is in how the
command printing code displays the redirections. */
- if (tc->redirects)
+ if (tc && tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
t->next = (yyvsp[0].redirect);
}
- else
+ else if (tc)
tc->redirects = (yyvsp[0].redirect);
(yyval.command) = (yyvsp[-1].command);
}
-#line 2834 "y.tab.c" /* yacc.c:1646 */
+#line 2943 "y.tab.c"
break;
- case 101:
-#line 945 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 107: /* subshell: '(' compound_list ')' */
+#line 1008 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = make_subshell_command ((yyvsp[-1].command));
(yyval.command)->flags |= CMD_WANT_SUBSHELL;
}
-#line 2843 "y.tab.c" /* yacc.c:1646 */
+#line 2952 "y.tab.c"
break;
- case 102:
-#line 952 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 108: /* comsub: DOLPAREN compound_list ')' */
+#line 1015 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = (yyvsp[-1].command);
+ }
+#line 2960 "y.tab.c"
+ break;
+
+ case 109: /* comsub: DOLPAREN newline_list ')' */
+#line 1019 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = (COMMAND *)NULL;
+ }
+#line 2968 "y.tab.c"
+ break;
+
+ case 110: /* coproc: COPROC shell_command */
+#line 1025 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(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 */
+#line 2977 "y.tab.c"
break;
- case 103:
-#line 957 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 111: /* coproc: COPROC shell_command redirection_list */
+#line 1030 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
tc = (yyvsp[-1].command);
- if (tc->redirects)
+ if (tc && tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
t->next = (yyvsp[0].redirect);
}
- else
+ else if (tc)
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 */
+#line 2998 "y.tab.c"
break;
- case 104:
-#line 974 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 112: /* coproc: COPROC WORD shell_command */
+#line 1047 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(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 */
+#line 3007 "y.tab.c"
break;
- case 105:
-#line 979 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 113: /* coproc: COPROC WORD shell_command redirection_list */
+#line 1052 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
tc = (yyvsp[-1].command);
- if (tc->redirects)
+ if (tc && tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
t->next = (yyvsp[0].redirect);
}
- else
+ else if (tc)
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 */
+#line 3028 "y.tab.c"
break;
- case 106:
-#line 996 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 114: /* coproc: COPROC simple_command */
+#line 1069 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(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 */
+#line 3037 "y.tab.c"
break;
- 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 */
+ case 115: /* if_command: IF compound_list THEN compound_list FI */
+#line 1076 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[-3].command), (yyvsp[-1].command), (COMMAND *)NULL); }
+#line 3043 "y.tab.c"
break;
- 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 */
+ case 116: /* if_command: IF compound_list THEN compound_list ELSE compound_list FI */
+#line 1078 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[-5].command), (yyvsp[-3].command), (yyvsp[-1].command)); }
+#line 3049 "y.tab.c"
break;
- 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 */
+ case 117: /* if_command: IF compound_list THEN compound_list elif_clause FI */
+#line 1080 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[-4].command), (yyvsp[-2].command), (yyvsp[-1].command)); }
+#line 3055 "y.tab.c"
break;
- 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 */
+ case 118: /* group_command: '{' compound_list '}' */
+#line 1085 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_group_command ((yyvsp[-1].command)); }
+#line 3061 "y.tab.c"
break;
- 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 */
+ case 119: /* arith_command: ARITH_CMD */
+#line 1089 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_arith_command ((yyvsp[0].word_list)); }
+#line 3067 "y.tab.c"
break;
- 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 */
+ case 120: /* cond_command: COND_START COND_CMD COND_END */
+#line 1093 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[-1].command); }
+#line 3073 "y.tab.c"
break;
- 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 */
+ case 121: /* elif_clause: ELIF compound_list THEN compound_list */
+#line 1097 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[-2].command), (yyvsp[0].command), (COMMAND *)NULL); }
+#line 3079 "y.tab.c"
break;
- 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 */
+ case 122: /* elif_clause: ELIF compound_list THEN compound_list ELSE compound_list */
+#line 1099 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[-4].command), (yyvsp[-2].command), (yyvsp[0].command)); }
+#line 3085 "y.tab.c"
break;
- 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 */
+ case 123: /* elif_clause: ELIF compound_list THEN compound_list elif_clause */
+#line 1101 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = make_if_command ((yyvsp[-3].command), (yyvsp[-1].command), (yyvsp[0].command)); }
+#line 3091 "y.tab.c"
break;
- 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 */
+ case 125: /* case_clause: case_clause_sequence pattern_list */
+#line 1106 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyvsp[0].pattern)->next = (yyvsp[-1].pattern); (yyval.pattern) = (yyvsp[0].pattern); }
+#line 3097 "y.tab.c"
break;
- 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 */
+ case 126: /* pattern_list: newline_list pattern ')' compound_list */
+#line 1110 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (yyvsp[0].command)); }
+#line 3103 "y.tab.c"
break;
- 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 */
+ case 127: /* pattern_list: newline_list pattern ')' newline_list */
+#line 1112 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (COMMAND *)NULL); }
+#line 3109 "y.tab.c"
break;
- 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 */
+ case 128: /* pattern_list: newline_list '(' pattern ')' compound_list */
+#line 1114 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (yyvsp[0].command)); }
+#line 3115 "y.tab.c"
break;
- 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 */
+ case 129: /* pattern_list: newline_list '(' pattern ')' newline_list */
+#line 1116 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = make_pattern_list ((yyvsp[-2].word_list), (COMMAND *)NULL); }
+#line 3121 "y.tab.c"
break;
- 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 */
+ case 130: /* case_clause_sequence: pattern_list SEMI_SEMI */
+#line 1120 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3127 "y.tab.c"
break;
- 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 */
+ case 131: /* case_clause_sequence: case_clause_sequence pattern_list SEMI_SEMI */
+#line 1122 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyvsp[-1].pattern)->next = (yyvsp[-2].pattern); (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3133 "y.tab.c"
break;
- 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 */
+ case 132: /* case_clause_sequence: pattern_list SEMI_AND */
+#line 1124 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3139 "y.tab.c"
break;
- 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 */
+ case 133: /* case_clause_sequence: case_clause_sequence pattern_list SEMI_AND */
+#line 1126 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyvsp[-1].pattern)->next = (yyvsp[-2].pattern); (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3145 "y.tab.c"
break;
- 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 */
+ case 134: /* case_clause_sequence: pattern_list SEMI_SEMI_AND */
+#line 1128 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_TESTNEXT; (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3151 "y.tab.c"
break;
- 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 */
+ case 135: /* case_clause_sequence: case_clause_sequence pattern_list SEMI_SEMI_AND */
+#line 1130 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyvsp[-1].pattern)->flags |= CASEPAT_TESTNEXT; (yyvsp[-1].pattern)->next = (yyvsp[-2].pattern); (yyval.pattern) = (yyvsp[-1].pattern); }
+#line 3157 "y.tab.c"
break;
- 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 */
+ case 136: /* pattern: WORD */
+#line 1134 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (WORD_LIST *)NULL); }
+#line 3163 "y.tab.c"
break;
- 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 */
+ case 137: /* pattern: pattern '|' WORD */
+#line 1136 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.word_list) = make_word_list ((yyvsp[0].word), (yyvsp[-2].word_list)); }
+#line 3169 "y.tab.c"
break;
- case 130:
-#line 1072 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 138: /* compound_list: newline_list list0 */
+#line 1145 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = (yyvsp[0].command);
- if (need_here_doc)
+ if (need_here_doc && last_read_token == '\n')
gather_here_documents ();
}
-#line 3054 "y.tab.c" /* yacc.c:1646 */
+#line 3179 "y.tab.c"
break;
- case 132:
-#line 1081 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 139: /* compound_list: newline_list list1 */
+#line 1151 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = (yyvsp[0].command);
}
-#line 3062 "y.tab.c" /* yacc.c:1646 */
+#line 3187 "y.tab.c"
break;
- case 134:
-#line 1088 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 141: /* list0: list1 '&' newline_list */
+#line 1158 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
if ((yyvsp[-2].command)->type == cm_connection)
(yyval.command) = connect_async_list ((yyvsp[-2].command), (COMMAND *)NULL, '&');
else
(yyval.command) = command_connect ((yyvsp[-2].command), (COMMAND *)NULL, '&');
}
-#line 3073 "y.tab.c" /* yacc.c:1646 */
+#line 3198 "y.tab.c"
break;
- 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 */
+ case 143: /* list1: list1 AND_AND newline_list list1 */
+#line 1169 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), AND_AND); }
+#line 3204 "y.tab.c"
break;
- 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 */
+ case 144: /* list1: list1 OR_OR newline_list list1 */
+#line 1171 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), OR_OR); }
+#line 3210 "y.tab.c"
break;
- case 138:
-#line 1103 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 145: /* list1: list1 '&' newline_list list1 */
+#line 1173 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
if ((yyvsp[-3].command)->type == cm_connection)
(yyval.command) = connect_async_list ((yyvsp[-3].command), (yyvsp[0].command), '&');
else
(yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '&');
}
-#line 3096 "y.tab.c" /* yacc.c:1646 */
+#line 3221 "y.tab.c"
break;
- 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 */
+ case 146: /* list1: list1 ';' newline_list list1 */
+#line 1180 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), ';'); }
+#line 3227 "y.tab.c"
break;
- 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 */
+ case 147: /* list1: list1 '\n' newline_list list1 */
+#line 1182 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ if (parser_state & PST_CMDSUBST)
+ (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '\n');
+ else
+ (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), ';');
+ }
+#line 3238 "y.tab.c"
break;
- 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 */
+ case 148: /* list1: pipeline_command */
+#line 1189 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3244 "y.tab.c"
break;
- 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 */
+ case 151: /* list_terminator: '\n' */
+#line 1197 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.number) = '\n'; }
+#line 3250 "y.tab.c"
break;
- 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 */
+ case 152: /* list_terminator: ';' */
+#line 1199 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.number) = ';'; }
+#line 3256 "y.tab.c"
break;
- 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 */
+ case 153: /* list_terminator: yacc_EOF */
+#line 1201 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.number) = yacc_EOF; }
+#line 3262 "y.tab.c"
break;
- case 149:
-#line 1140 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 156: /* simple_list: simple_list1 */
+#line 1215 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = (yyvsp[0].command);
if (need_here_doc)
- gather_here_documents ();
+ gather_here_documents (); /* XXX */
if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
{
+INTERNAL_DEBUG (("LEGACY: parser: command substitution simple_list1 -> simple_list"));
global_command = (yyvsp[0].command);
eof_encountered = 0;
- rewind_input_string ();
+ if (bash_input.type == st_string)
+ rewind_input_string ();
YYACCEPT;
}
}
-#line 3149 "y.tab.c" /* yacc.c:1646 */
+#line 3281 "y.tab.c"
break;
- case 150:
-#line 1153 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 157: /* simple_list: simple_list1 '&' */
+#line 1230 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
if ((yyvsp[-1].command)->type == cm_connection)
(yyval.command) = connect_async_list ((yyvsp[-1].command), (COMMAND *)NULL, '&');
else
(yyval.command) = command_connect ((yyvsp[-1].command), (COMMAND *)NULL, '&');
if (need_here_doc)
- gather_here_documents ();
+ gather_here_documents (); /* XXX */
if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
{
+INTERNAL_DEBUG (("LEGACY: parser: command substitution simple_list1 '&' -> simple_list"));
global_command = (yyvsp[-1].command);
eof_encountered = 0;
- rewind_input_string ();
+ if (bash_input.type == st_string)
+ rewind_input_string ();
YYACCEPT;
}
}
-#line 3169 "y.tab.c" /* yacc.c:1646 */
+#line 3303 "y.tab.c"
break;
- case 151:
-#line 1169 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 158: /* simple_list: simple_list1 ';' */
+#line 1248 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
(yyval.command) = (yyvsp[-1].command);
if (need_here_doc)
- gather_here_documents ();
+ gather_here_documents (); /* XXX */
if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)
{
+INTERNAL_DEBUG (("LEGACY: parser: command substitution simple_list1 ';' -> simple_list"));
global_command = (yyvsp[-1].command);
eof_encountered = 0;
- rewind_input_string ();
+ if (bash_input.type == st_string)
+ rewind_input_string ();
YYACCEPT;
}
}
-#line 3186 "y.tab.c" /* yacc.c:1646 */
+#line 3322 "y.tab.c"
break;
- 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 */
+ case 159: /* simple_list1: simple_list1 AND_AND newline_list simple_list1 */
+#line 1265 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), AND_AND); }
+#line 3328 "y.tab.c"
break;
- 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 */
+ case 160: /* simple_list1: simple_list1 OR_OR newline_list simple_list1 */
+#line 1267 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), OR_OR); }
+#line 3334 "y.tab.c"
break;
- case 154:
-#line 1188 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 161: /* simple_list1: simple_list1 '&' simple_list1 */
+#line 1269 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
if ((yyvsp[-2].command)->type == cm_connection)
(yyval.command) = connect_async_list ((yyvsp[-2].command), (yyvsp[0].command), '&');
else
(yyval.command) = command_connect ((yyvsp[-2].command), (yyvsp[0].command), '&');
}
-#line 3209 "y.tab.c" /* yacc.c:1646 */
+#line 3345 "y.tab.c"
break;
- 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 */
+ case 162: /* simple_list1: simple_list1 ';' simple_list1 */
+#line 1276 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[-2].command), (yyvsp[0].command), ';'); }
+#line 3351 "y.tab.c"
break;
- 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 */
+ case 163: /* simple_list1: pipeline_command */
+#line 1279 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3357 "y.tab.c"
break;
- 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 */
+ case 164: /* pipeline_command: pipeline */
+#line 1283 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3363 "y.tab.c"
break;
- case 158:
-#line 1204 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 165: /* pipeline_command: BANG pipeline_command */
+#line 1285 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
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 */
+#line 3373 "y.tab.c"
break;
- case 159:
-#line 1210 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 166: /* pipeline_command: timespec pipeline_command */
+#line 1291 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
if ((yyvsp[0].command))
(yyvsp[0].command)->flags |= (yyvsp[-1].number);
(yyval.command) = (yyvsp[0].command);
}
-#line 3247 "y.tab.c" /* yacc.c:1646 */
+#line 3383 "y.tab.c"
break;
- case 160:
-#line 1216 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 167: /* pipeline_command: timespec list_terminator */
+#line 1297 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
ELEMENT x;
/* Boy, this is unclean. `time' by itself can
token_to_read = '\n';
else if ((yyvsp[0].number) == ';')
token_to_read = ';';
+ parser_state &= ~PST_REDIRLIST; /* make_simple_command sets this */
}
-#line 3270 "y.tab.c" /* yacc.c:1646 */
+#line 3407 "y.tab.c"
break;
- case 161:
-#line 1235 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 168: /* pipeline_command: BANG list_terminator */
+#line 1317 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
ELEMENT x;
/* This is just as unclean. Posix says that `!'
token_to_read = '\n';
if ((yyvsp[0].number) == ';')
token_to_read = ';';
+ parser_state &= ~PST_REDIRLIST; /* make_simple_command sets this */
}
-#line 3294 "y.tab.c" /* yacc.c:1646 */
+#line 3432 "y.tab.c"
break;
- 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 */
+ case 169: /* pipeline: pipeline '|' newline_list pipeline */
+#line 1340 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '|'); }
+#line 3438 "y.tab.c"
break;
- case 163:
-#line 1259 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1646 */
- {
+ case 170: /* pipeline: pipeline BAR_AND newline_list pipeline */
+#line 1342 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
/* Make cmd1 |& cmd2 equivalent to cmd1 2>&1 | cmd2 */
COMMAND *tc;
REDIRECTEE rd, sd;
(yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '|');
}
-#line 3327 "y.tab.c" /* yacc.c:1646 */
+#line 3465 "y.tab.c"
+ break;
+
+ case 171: /* pipeline: command */
+#line 1365 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.command) = (yyvsp[0].command); }
+#line 3471 "y.tab.c"
break;
- 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 */
+ case 172: /* timespec: TIME */
+#line 1369 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.number) = CMD_TIME_PIPELINE; }
+#line 3477 "y.tab.c"
break;
- 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 */
+ case 173: /* timespec: TIME TIMEOPT */
+#line 1371 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+#line 3483 "y.tab.c"
break;
- 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 */
+ case 174: /* timespec: TIME TIMEIGN */
+#line 1373 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+#line 3489 "y.tab.c"
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 */
+ case 175: /* timespec: TIME TIMEOPT TIMEIGN */
+#line 1375 "/usr/local/src/chet/src/bash/src/parse.y"
+ { (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+#line 3495 "y.tab.c"
break;
-#line 3355 "y.tab.c" /* yacc.c:1646 */
+#line 3499 "y.tab.c"
+
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
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);
+ YY_SYMBOL_PRINT ("-> $$ =", YY_CAST (yysymbol_kind_t, yyr1[yyn]), &yyval, &yyloc);
YYPOPSTACK (yylen);
yylen = 0;
- YY_STACK_PRINT (yyss, yyssp);
*++yyvsp = yyval;
/* Now 'shift' the result of the reduction. Determine what state
that goes to, based on the state we popped back to and the rule
number reduced by. */
-
- yyn = yyr1[yyn];
-
- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
- yystate = yytable[yystate];
- else
- yystate = yydefgoto[yyn - YYNTOKENS];
+ {
+ const int yylhs = yyr1[yyn] - YYNTOKENS;
+ const int yyi = yypgoto[yylhs] + *yyssp;
+ yystate = (0 <= yyi && yyi <= YYLAST && yycheck[yyi] == *yyssp
+ ? yytable[yyi]
+ : yydefgoto[yylhs]);
+ }
goto yynewstate;
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);
-
+ yytoken = yychar == YYEMPTY ? YYSYMBOL_YYEMPTY : YYTRANSLATE (yychar);
/* If not already recovering from an error, report this error. */
if (!yyerrstatus)
{
++yynerrs;
-#if ! YYERROR_VERBOSE
yyerror (YY_("syntax error"));
-#else
-# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
- yyssp, yytoken)
- {
- 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 lookahead token after an
| yyerrorlab -- error raised explicitly by YYERROR. |
`---------------------------------------------------*/
yyerrorlab:
-
- /* Pacify compilers like GCC when the user code never invokes
- YYERROR and the label yyerrorlab therefore never appears in user
- code. */
- if (/*CONSTCOND*/ 0)
- goto yyerrorlab;
+ /* Pacify compilers when the user code never invokes YYERROR and the
+ label yyerrorlab therefore never appears in user code. */
+ if (0)
+ YYERROR;
+ ++yynerrs;
/* Do not reclaim the symbols of the rule whose action triggered
this YYERROR. */
yyerrlab1:
yyerrstatus = 3; /* Each real token shifted decrements this. */
+ /* Pop stack until we find a state that shifts the error token. */
for (;;)
{
yyn = yypact[yystate];
if (!yypact_value_is_default (yyn))
{
- yyn += YYTERROR;
- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
+ yyn += YYSYMBOL_YYerror;
+ if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYSYMBOL_YYerror)
{
yyn = yytable[yyn];
if (0 < yyn)
yydestruct ("Error: popping",
- yystos[yystate], yyvsp);
+ YY_ACCESSING_SYMBOL (yystate), yyvsp);
YYPOPSTACK (1);
yystate = *yyssp;
YY_STACK_PRINT (yyss, yyssp);
/* Shift the error token. */
- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
+ YY_SYMBOL_PRINT ("Shifting", YY_ACCESSING_SYMBOL (yyn), yyvsp, yylsp);
yystate = yyn;
goto yynewstate;
`-------------------------------------*/
yyacceptlab:
yyresult = 0;
- goto yyreturn;
+ goto yyreturnlab;
+
/*-----------------------------------.
| yyabortlab -- YYABORT comes here. |
`-----------------------------------*/
yyabortlab:
yyresult = 1;
- goto yyreturn;
+ goto yyreturnlab;
+
-#if !defined yyoverflow || YYERROR_VERBOSE
-/*-------------------------------------------------.
-| yyexhaustedlab -- memory exhaustion comes here. |
-`-------------------------------------------------*/
+/*-----------------------------------------------------------.
+| yyexhaustedlab -- YYNOMEM (memory exhaustion) comes here. |
+`-----------------------------------------------------------*/
yyexhaustedlab:
yyerror (YY_("memory exhausted"));
yyresult = 2;
- /* Fall through. */
-#endif
+ goto yyreturnlab;
+
-yyreturn:
+/*----------------------------------------------------------.
+| yyreturnlab -- parsing is finished, clean up and return. |
+`----------------------------------------------------------*/
+yyreturnlab:
if (yychar != YYEMPTY)
{
/* Make sure we have latest lookahead translation. See comments at
while (yyssp != yyss)
{
yydestruct ("Cleanup: popping",
- yystos[*yyssp], yyvsp);
+ YY_ACCESSING_SYMBOL (+*yyssp), yyvsp);
YYPOPSTACK (1);
}
#ifndef yyoverflow
if (yyss != yyssa)
YYSTACK_FREE (yyss);
#endif
-#if YYERROR_VERBOSE
- if (yymsg != yymsgbuf)
- YYSTACK_FREE (yymsg);
-#endif
+
return yyresult;
}
-#line 1292 "/usr/homes/chet/src/bash/src/parse.y" /* yacc.c:1906 */
+
+#line 1377 "/usr/local/src/chet/src/bash/src/parse.y"
/* Initial size to allocate for tokens, and the
{
#if YYDEBUG != 0
yydebug = i;
+ yyoutstream = stdout;
+ yyerrstream = stderr;
#endif
}
#endif
old_sigint = IMPOSSIBLE_TRAP_HANDLER;
if (signal_is_ignored (SIGINT) == 0)
{
- /* interrupt_immediately++; */
old_sigint = (SigHandler *)set_signal_handler (SIGINT, sigint_sighandler);
}
+ sh_unset_nodelay_mode (fileno (rl_instream)); /* just in case */
current_readline_line = readline (current_readline_prompt ?
current_readline_prompt : "");
CHECK_TERMSIG;
if (signal_is_ignored (SIGINT) == 0)
{
- /* interrupt_immediately--; */
if (old_sigint != IMPOSSIBLE_TRAP_HANDLER)
set_signal_handler (SIGINT, old_sigint);
}
}
}
+/* Will we be collecting another input line and printing a prompt? This uses
+ different conditions than SHOULD_PROMPT(), since readline allows a user to
+ embed a newline in the middle of the line it collects, which the parser
+ will interpret as a line break and command delimiter. */
+int
+parser_will_prompt ()
+{
+ return (current_readline_line == 0 || current_readline_line[current_readline_line_index] == 0);
+}
+
#else /* !READLINE */
void
That is the true input location. Rewind bash_input.location.string by
that number of characters, so it points to the last character actually
consumed by the parser. */
-static void
+void
rewind_input_string ()
{
int xchars;
xchars++;
/* XXX - how to reflect bash_input.location.string back to string passed to
- parse_and_execute or xparse_dolparen? xparse_dolparen needs to know how
+ parse_and_execute or xparse_dolparen? xparse_dolparen needs to know how
far into the string we parsed. parse_and_execute knows where bash_input.
location.string is, and how far from orig_string that is -- that's the
number of characters the command consumed. */
/* These two functions used to test the value of the HAVE_RESTARTABLE_SYSCALLS
define, and just use getc/ungetc if it was defined, but since bash
- installs its signal handlers without the SA_RESTART flag, some signals
- (like SIGCHLD, SIGWINCH, etc.) received during a read(2) will not cause
- the read to be restarted. We need to restart it ourselves. */
+ installs most of its signal handlers without the SA_RESTART flag, some
+ signals received during a read(2) will not cause the read to be restarted.
+ We will need to restart it ourselves. */
static int
yy_stream_get ()
result = EOF;
if (bash_input.location.file)
{
-#if 0
- if (interactive)
- 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--;
-#endif
}
return (result);
}
* everything between a `;;' and the next `)' or `esac'
*/
-#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
-
#define END_OF_ALIAS 0
/*
#define PSH_ALIAS 0x01
#define PSH_DPAREN 0x02
#define PSH_SOURCE 0x04
+#define PSH_ARRAY 0x08
typedef struct string_saver {
struct string_saver *next;
#if defined (ALIAS)
alias_t *expander; /* alias that caused this line to be pushed. */
#endif
- size_t saved_line_size, saved_line_index;
+ size_t saved_line_size, saved_line_index, saved_line_len;
int saved_line_terminator;
int flags;
} STRING_SAVER;
temp->expand_alias = expand;
temp->saved_line = shell_input_line;
temp->saved_line_size = shell_input_line_size;
+ temp->saved_line_len = shell_input_line_len;
temp->saved_line_index = shell_input_line_index;
temp->saved_line_terminator = shell_input_line_terminator;
temp->flags = 0;
#endif
shell_input_line = s;
- shell_input_line_size = STRLEN (s);
+ shell_input_line_size = shell_input_line_len = STRLEN (s);
shell_input_line_index = 0;
shell_input_line_terminator = '\0';
#if 0
shell_input_line = pushed_string_list->saved_line;
shell_input_line_index = pushed_string_list->saved_line_index;
shell_input_line_size = pushed_string_list->saved_line_size;
+ shell_input_line_len = pushed_string_list->saved_line_len;
shell_input_line_terminator = pushed_string_list->saved_line_terminator;
+#if defined (ALIAS)
if (pushed_string_list->expand_alias)
parser_state |= PST_ALEXPNEXT;
else
parser_state &= ~PST_ALEXPNEXT;
+#endif
t = pushed_string_list;
pushed_string_list = pushed_string_list->next;
pushed_string_list = (STRING_SAVER *)NULL;
}
-#endif /* ALIAS || DPAREN_ARITHMETIC */
-
void
free_pushed_string_input ()
{
#endif
}
+#if defined (ALIAS)
+/* Before freeing AP, make sure that there aren't any cases of pointer
+ aliasing that could cause us to reference freed memory later on. */
+void
+clear_string_list_expander (ap)
+ alias_t *ap;
+{
+ register STRING_SAVER *t;
+
+ for (t = pushed_string_list; t; t = t->next)
+ {
+ if (t->expander && t->expander == ap)
+ t->expander = 0;
+ }
+}
+#endif
+
void
clear_shell_input_line ()
{
/* Ignore null bytes in input. */
if (c == 0)
- {
-#if 0
- internal_warning ("read_a_line: ignored null byte in input");
-#endif
- continue;
- }
+ continue;
/* If there is no more input, then we return NULL. */
if (c == EOF)
c = '\n';
}
- /* `+2' in case the final character in the buffer is a newline. */
+ /* `+2' in case the final character in the buffer is a newline or we
+ have to handle CTLESC or CTLNUL. */
RESIZE_MALLOCED_BUFFER (line_buffer, indx, 2, buffer_size, 128);
/* IF REMOVE_QUOTED_NEWLINES is non-zero, we are reading a
}
}
else
- line_buffer[indx++] = c;
+ {
+ /* remove_quoted_newline is non-zero if the here-document delimiter
+ is unquoted. In this case, we will be expanding the lines and
+ need to make sure CTLESC and CTLNUL in the input are quoted. */
+ if (remove_quoted_newline && (c == CTLESC || c == CTLNUL))
+ line_buffer[indx++] = CTLESC;
+ line_buffer[indx++] = c;
+ }
if (c == '\n')
{
int n, c;
prompt_string_pointer = &ps2_prompt;
- if (SHOULD_PROMPT())
- prompt_again ();
+ if (SHOULD_PROMPT ())
+ prompt_again (0);
ret = read_a_line (remove_quoted_newline);
#if defined (HISTORY)
if (ret && remember_on_history && (parser_state & PST_HEREDOC))
shell_ungetc when we're at the start of a line. */
static int eol_ungetc_lookahead = 0;
+static int unquoted_backslash = 0;
+
static int
shell_getc (remove_quoted_newline)
int remove_quoted_newline;
i = truncating = 0;
shell_input_line_terminator = 0;
- /* If the shell is interatctive, but not currently printing a prompt
+ /* If the shell is interactive, but not currently printing a prompt
(interactive_shell && interactive == 0), we don't want to print
notifies or cleanup the jobs -- we want to defer it until we do
print the next prompt. */
if (c == '\0')
{
-#if 0
- internal_warning ("shell_getc: ignored null byte in input");
-#endif
+ /* If we get EOS while parsing a string, treat it as EOF so we
+ don't just keep looping. Happens very rarely */
+ if (bash_input.type == st_string)
+ {
+ if (i == 0)
+ shell_input_line_terminator = EOF;
+ shell_input_line[i] = '\0';
+ c = EOF;
+ break;
+ }
continue;
}
{
char *expansions;
# if defined (BANG_HISTORY)
- int old_hist;
-
/* If the current delimiter is a single quote, we should not be
performing history expansion, even if we're on a different
line from the original single quote. */
- old_hist = history_expansion_inhibited;
if (current_delimiter (dstack) == '\'')
- history_expansion_inhibited = 1;
+ history_quoting_state = '\'';
+ else if (current_delimiter (dstack) == '"')
+ history_quoting_state = '"';
+ else
+ history_quoting_state = 0;
# 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;
+ history_quoting_state = 0;
# endif
if (expansions != shell_input_line)
{
shell_input_line_size = 0;
prompt_string_pointer = ¤t_prompt_string;
if (SHOULD_PROMPT ())
- prompt_again ();
+ prompt_again (0);
goto restart_read;
}
shell_input_line[shell_input_line_len] = '\n';
shell_input_line[shell_input_line_len + 1] = '\0';
- set_line_mbstate ();
+#if defined (HANDLE_MULTIBYTE)
+ /* This is kind of an abstraction violation, but there's no need to
+ go through the entire shell_input_line again with a call to
+ set_line_mbstate(). */
+ EXTEND_SHELL_INPUT_LINE_PROPERTY();
+ shell_input_line_property[shell_input_line_len] = 1;
+#endif
}
}
next_alias_char:
+ if (shell_input_line_index == 0)
+ unquoted_backslash = 0;
+
uc = shell_input_line[shell_input_line_index];
if (uc)
- shell_input_line_index++;
+ {
+ unquoted_backslash = unquoted_backslash == 0 && uc == '\\';
+ shell_input_line_index++;
+ }
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
/* If UC is NULL, we have reached the end of the current input string. If
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. */
+
+ /* If we're at the end of an alias expansion add a space to make sure that
+ the alias remains marked as being in use while we expand its last word.
+ This makes sure that pop_string doesn't mark the alias as not in use
+ before the string resulting from the alias expansion is tokenized and
+ checked for alias expansion, preventing recursion. At this point, the
+ last character in shell_input_line is the last character of the alias
+ expansion. We test that last character to determine whether or not to
+ return the space that will delimit the token and postpone the pop_string.
+ This set of conditions duplicates what used to be in mk_alexpansion ()
+ below, with the addition that we don't add a space if we're currently
+ reading a quoted string or in a shell comment. */
+#ifndef OLD_ALIAS_HACK
+ if (uc == 0 && pushed_string_list && pushed_string_list->flags != PSH_SOURCE &&
+ pushed_string_list->flags != PSH_DPAREN &&
+ (parser_state & PST_COMMENT) == 0 &&
+ (parser_state & PST_ENDALIAS) == 0 && /* only once */
+ shell_input_line_index > 0 &&
+ shellblank (shell_input_line[shell_input_line_index-1]) == 0 &&
+ shell_input_line[shell_input_line_index-1] != '\n' &&
+ unquoted_backslash == 0 &&
+ shellmeta (shell_input_line[shell_input_line_index-1]) == 0 &&
+ (current_delimiter (dstack) != '\'' && current_delimiter (dstack) != '"'))
+ {
+ parser_state |= PST_ENDALIAS;
+ /* We need to do this to make sure last_shell_getc_is_singlebyte returns
+ true, since we are returning a single-byte space. */
+ if (shell_input_line_index == shell_input_line_len && last_shell_getc_is_singlebyte == 0)
+ {
+#if 0
+ EXTEND_SHELL_INPUT_LINE_PROPERTY();
+ shell_input_line_property[shell_input_line_len++] = 1;
+ /* extend shell_input_line to accommodate the shell_ungetc that
+ read_token_word() will perform, since we're extending the index */
+ RESIZE_MALLOCED_BUFFER (shell_input_line, shell_input_line_index, 2, shell_input_line_size, 16);
+ shell_input_line[++shell_input_line_index] = '\0'; /* XXX */
+#else
+ shell_input_line_property[shell_input_line_index - 1] = 1;
+#endif
+ }
+ return ' '; /* END_ALIAS */
+ }
+#endif
+
pop_alias:
+#endif /* ALIAS || DPAREN_ARITHMETIC */
+ /* This case works for PSH_DPAREN as well as the shell_ungets() case that uses
+ push_string */
if (uc == 0 && pushed_string_list && pushed_string_list->flags != PSH_SOURCE)
{
+ parser_state &= ~PST_ENDALIAS;
pop_string ();
uc = shell_input_line[shell_input_line_index];
if (uc)
shell_input_line_index++;
}
-#endif /* ALIAS || DPAREN_ARITHMETIC */
if MBTEST(uc == '\\' && remove_quoted_newline && shell_input_line[shell_input_line_index] == '\n')
{
if (SHOULD_PROMPT ())
- prompt_again ();
+ prompt_again (0);
line_number++;
+
/* 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. */
+ we inhibit the appending of a space 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')
{
eol_ungetc_lookahead = c;
}
+/* Push S back into shell_input_line; updating shell_input_line_index */
+void
+shell_ungets (s)
+ char *s;
+{
+ size_t slen, chars_left;
+
+ slen = strlen (s);
+
+ if (shell_input_line[shell_input_line_index] == '\0')
+ {
+ /* Easy, just overwrite shell_input_line. This is preferred because it
+ saves on set_line_mbstate () and other overhead like push_string */
+ if (shell_input_line_size <= slen)
+ RESIZE_MALLOCED_BUFFER (shell_input_line, shell_input_line_index, slen + 1, shell_input_line_size, 64);
+ strcpy (shell_input_line, s);
+ shell_input_line_index = 0;
+ shell_input_line_len = slen;
+ shell_input_line_terminator = 0;
+ }
+ else if (shell_input_line_index >= slen)
+ {
+ /* Just as easy, just back up shell_input_line_index, but it means we
+ will re-process some characters in set_line_mbstate(). Need to
+ watch pushing back newlines here. */
+ while (slen > 0)
+ shell_input_line[--shell_input_line_index] = s[--slen];
+ }
+ else if (s[slen - 1] == '\n')
+ {
+ push_string (savestring (s), 0, (alias_t *)NULL);
+ /* push_string does set_line_mbstate () */
+ return;
+ }
+ else
+ {
+ /* Harder case: pushing back input string that's longer than what we've
+ consumed from shell_input_line so far. */
+ INTERNAL_DEBUG (("shell_ungets: not at end of shell_input_line"));
+
+ chars_left = shell_input_line_len - shell_input_line_index;
+ if (shell_input_line_size <= (slen + chars_left))
+ RESIZE_MALLOCED_BUFFER (shell_input_line, shell_input_line_index, chars_left + slen + 1, shell_input_line_size, 64);
+ memmove (shell_input_line + slen, shell_input_line + shell_input_line_index, shell_input_line_len - shell_input_line_index);
+ strcpy (shell_input_line, s);
+ shell_input_line_index = 0;
+ shell_input_line_len = strlen (shell_input_line); /* chars_left + slen? */
+ }
+
+#if defined (HANDLE_MULTIBYTE)
+ set_line_mbstate (); /* XXX */
+#endif
+}
+
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)
+ if ((int)shell_input_line_index < 0 || shell_input_line_index >= shell_input_line_len)
return ""; /* XXX */
return (shell_input_line + shell_input_line_index);
}
if (last_lastarg)
last_lastarg = savestring (last_lastarg);
- parse_and_execute (savestring (command), vname, SEVAL_NONINT|SEVAL_NOHIST);
+ parse_and_execute (savestring (command), vname, SEVAL_NONINT|SEVAL_NOHIST|SEVAL_NOOPTIMIZE);
restore_parser_state (&ps);
bind_variable ("_", last_lastarg, 0);
static char *token = (char *)NULL;
/* Current size of the token buffer. */
-static int token_buffer_size;
+static size_t token_buffer_size;
/* Command to read_token () explaining what we want it to do. */
#define READ 0
/* Avoid printing a prompt if we're not going to read anything, e.g.
after resetting the parser with read_token (RESET). */
if (token_to_read == 0 && SHOULD_PROMPT ())
- prompt_again ();
+ prompt_again (0);
}
two_tokens_ago = token_before_that;
if ((parser_state & PST_EOFTOKEN) && current_token == shell_eof_token)
{
- current_token = yacc_EOF;
- if (bash_input.type == st_string)
- rewind_input_string ();
+ /* placeholder for any special handling. */
+ return (current_token);
}
- parser_state &= ~PST_EOFTOKEN;
+
+ if (current_token < 0)
+#if defined (YYERRCODE) && !defined (YYUNDEF)
+ current_token = EOF_Reached ? YYEOF : YYERRCODE;
+#else
+ current_token = EOF_Reached ? YYEOF : YYUNDEF;
+#endif
return (current_token);
}
which allow ESAC to be the next one read. */
static int esacs_needed_count;
+/* When non-zero, we can read IN as an acceptable token, regardless of how
+ many newlines we read. */
+static int expecting_in_token;
+
static void
push_heredoc (r)
REDIRECT *r;
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) \
+ if ((parser_state & PST_CASEPAT) && last_read_token == '(' && word_token_alist[i].token == ESAC) /*)*/ \
+ break; /* phantom 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) \
+ esacs_needed_count--; \
+ } else if (word_token_alist[i].token == CASE) \
parser_state |= PST_CASESTMT; \
else if (word_token_alist[i].token == COND_END) \
parser_state &= ~(PST_CONDCMD|PST_CONDEXPR); \
l = strlen (s);
r = xmalloc (l + 2);
strcpy (r, s);
+#ifdef OLD_ALIAS_HACK
/* 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)
+ /* Need to do something about the case where the alias expansion contains
+ an unmatched quoted string, since appending this space affects the
+ subsequent output. */
+ if (l > 0 && r[l - 1] != ' ' && r[l - 1] != '\n' && shellmeta(r[l - 1]) == 0)
r[l++] = ' ';
+#endif
r[l] = '\0';
return r;
}
char *expanded;
alias_t *ap;
+#if 0
if (((parser_state & PST_ALEXPNEXT) || command_token_position (last_read_token)) &&
(parser_state & PST_CASEPAT) == 0)
+#else
+ if ((parser_state & PST_ALEXPNEXT) || assignment_acceptable (last_read_token))
+#endif
{
ap = find_alias (tokstr);
if (ap && (ap->flags & AL_BEINGEXPANDED))
return (NO_EXPANSION);
+#ifdef OLD_ALIAS_HACK
/* mk_alexpansion puts an extra space on the end of the alias expansion,
- so the lookahead by the parser works right. If this gets changed,
- make sure the code in shell_getc that deals with reaching the end of
- an expanded alias is changed with it. */
+ so the lookahead by the parser works right (the alias needs to remain
+ `in use' while parsing its last word to avoid alias recursion for
+ something like "alias echo=echo"). If this gets changed, make sure
+ the code in shell_getc that deals with reaching the end of an
+ expanded alias is changed with it. */
+#endif
expanded = ap ? mk_alexpansion (ap->value) : (char *)NULL;
if (expanded)
case TIME: /* time time pipeline */
case TIMEOPT: /* time -p time pipeline */
case TIMEIGN: /* time -p -- ... */
+ case DOLPAREN:
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 TIMEIGN if the last read token was TIME or TIMEOPT.
']]' is returned as COND_END if the parser is currently parsing
a conditional expression ((parser_state & PST_CONDEXPR) != 0)
special_case_tokens (tokstr)
char *tokstr;
{
+ /* Posix grammar rule 6 */
if ((last_read_token == WORD) &&
#if defined (SELECT_COMMAND)
((token_before_that == FOR) || (token_before_that == CASE) || (token_before_that == SELECT)) &&
parser_state |= PST_CASEPAT;
esacs_needed_count++;
}
+ if (expecting_in_token)
+ expecting_in_token--;
+ return (IN);
+ }
+
+ /* XXX - leaving above code intact for now, but it should eventually be
+ removed in favor of this clause. */
+ /* Posix grammar rule 6 */
+ if (expecting_in_token && (last_read_token == WORD || last_read_token == '\n') &&
+ (tokstr[0] == 'i' && tokstr[1] == 'n' && tokstr[2] == 0))
+ {
+ if (parser_state & PST_CASESTMT)
+ {
+ parser_state |= PST_CASEPAT;
+ esacs_needed_count++;
+ }
+ expecting_in_token--;
return (IN);
}
+ /* Posix grammar rule 6, third word in FOR: for i; do command-list; done */
+ else if (expecting_in_token && (last_read_token == '\n' || last_read_token == ';') &&
+ (tokstr[0] == 'd' && tokstr[1] == 'o' && tokstr[2] == '\0'))
+ {
+ expecting_in_token--;
+ return (DO);
+ }
+ /* for i do; command-list; done */
if (last_read_token == WORD &&
#if defined (SELECT_COMMAND)
(token_before_that == FOR || token_before_that == SELECT) &&
(token_before_that == FOR) &&
#endif
(tokstr[0] == 'd' && tokstr[1] == 'o' && tokstr[2] == '\0'))
- return (DO);
+ {
+ if (expecting_in_token)
+ expecting_in_token--;
+ return (DO);
+ }
/* Ditto for ESAC in the CASE case.
Specifically, this handles "case word in esac", which is a legal
the designers disagree. */
if (esacs_needed_count)
{
- esacs_needed_count--;
- if (STREQ (tokstr, "esac"))
+ if (last_read_token == IN && STREQ (tokstr, "esac"))
{
+ esacs_needed_count--;
parser_state &= ~PST_CASEPAT;
return (ESAC);
}
/* Handle -p after `time'. */
if (last_read_token == TIME && tokstr[0] == '-' && tokstr[1] == 'p' && !tokstr[2])
return (TIMEOPT);
+ /* Handle -- after `time'. */
+ if (last_read_token == TIME && tokstr[0] == '-' && tokstr[1] == '-' && !tokstr[2])
+ return (TIMEIGN);
/* Handle -- after `time -p'. */
if (last_read_token == TIMEOPT && tokstr[0] == '-' && tokstr[1] == '-' && !tokstr[2])
return (TIMEIGN);
#if defined (EXTENDED_GLOB)
/* Reset to global value of extended glob */
- if (parser_state & PST_EXTPAT)
- extended_glob = global_extglob;
+ if (parser_state & (PST_EXTPAT|PST_CMDSUBST))
+ extended_glob = extglob_flag;
#endif
+ if (parser_state & (PST_CMDSUBST|PST_STRING))
+ expand_aliases = expaliases_flag;
parser_state = 0;
here_doc_first_line = 0;
eol_ungetc_lookahead = 0;
+ /* added post-bash-5.1 */
+ need_here_doc = 0;
+ redir_stack[0] = 0;
+ esacs_needed_count = expecting_in_token = 0;
+
current_token = '\n'; /* XXX */
last_read_token = '\n';
token_to_read = '\n';
}
+void
+reset_readahead_token ()
+{
+ if (token_to_read == '\n')
+ token_to_read = 0;
+}
+
/* Read the next token. Command can be READ (normal operation) or
RESET (to normalize state). */
static int
return (yacc_EOF);
}
+ /* If we hit the end of the string and we're not expanding an alias (e.g.,
+ we are eval'ing a string that is an incomplete command), return EOF */
+ if (character == '\0' && bash_input.type == st_string && expanding_alias() == 0)
+ {
+ INTERNAL_DEBUG (("shell_getc: bash_input.location.string = `%s'", bash_input.location.string));
+ EOF_Reached = 1;
+ return (yacc_EOF);
+ }
+
if MBTEST(character == '#' && (!interactive || interactive_comments))
{
/* A comment. Discard until EOL or EOF, and then return a newline. */
+ parser_state |= PST_COMMENT;
discard_until ('\n');
shell_getc (0);
+ parser_state &= ~PST_COMMENT;
character = '\n'; /* this will take the next if statement and return. */
}
- if (character == '\n')
+ if MBTEST(character == '\n')
{
/* If we're about to return an unquoted newline, we can go and collect
the text of any pending here document. */
goto tokword;
/* Shell meta-characters. */
- if MBTEST(shellmeta (character) && ((parser_state & PST_DBLPAREN) == 0))
+ if MBTEST(shellmeta (character))
{
#if defined (ALIAS)
/* Turn off alias tokenization iff this character sequence would
else
peek_char = shell_getc (1);
- if (character == peek_char)
+ if MBTEST(character == peek_char)
{
switch (character)
{
#if defined (PROCESS_SUBSTITUTION)
/* Check for the constructs which introduce process substitution.
Shells running in `posix mode' don't do process substitution. */
- if MBTEST(posixly_correct || ((character != '>' && character != '<') || peek_char != '(')) /*)*/
+ if MBTEST((character != '>' && character != '<') || peek_char != '(') /*)*/
#endif /* PROCESS_SUBSTITUTION */
return (character);
}
#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 */
+#define P_ARITH 0x0080 /* parsing a $(( )) arithmetic expansion */
/* Lexical state while parsing a grouping construct or $(...). */
-#define LEX_WASDOL 0x001
-#define LEX_CKCOMMENT 0x002
-#define LEX_INCOMMENT 0x004
-#define LEX_PASSNEXT 0x008
-#define LEX_RESWDOK 0x010
-#define LEX_CKCASE 0x020
-#define LEX_INCASE 0x040
-#define LEX_INHEREDOC 0x080
-#define LEX_HEREDELIM 0x100 /* reading here-doc delimiter */
-#define LEX_STRIPDOC 0x200 /* <<- strip tabs from here doc delim */
-#define LEX_QUOTEDDOC 0x400 /* here doc with quoted delim */
-#define LEX_INWORD 0x800
+#define LEX_WASDOL 0x0001
+#define LEX_CKCOMMENT 0x0002
+#define LEX_INCOMMENT 0x0004
+#define LEX_PASSNEXT 0x0008
+#define LEX_RESWDOK 0x0010
+#define LEX_CKCASE 0x0020
+#define LEX_INCASE 0x0040
+#define LEX_INHEREDOC 0x0080
+#define LEX_HEREDELIM 0x0100 /* reading here-doc delimiter */
+#define LEX_STRIPDOC 0x0200 /* <<- strip tabs from here doc delim */
+#define LEX_QUOTEDDOC 0x0400 /* here doc with quoted delim */
+#define LEX_INWORD 0x0800
+#define LEX_GTLT 0x1000
+#define LEX_CKESAC 0x2000 /* check esac after in -- for later */
+#define LEX_CASEWD 0x4000 /* word after case */
+#define LEX_PATLIST 0x8000 /* case statement pattern list */
#define COMSUB_META(ch) ((ch) == ';' || (ch) == '&' || (ch) == '|')
int open, close;
int *lenp, flags;
{
- int count, ch, tflags;
+ int count, ch, prevch, tflags;
int nestlen, ttranslen, start_lineno;
char *ret, *nestret, *ttrans;
int retind, retsize, rflags;
retind = 0;
start_lineno = line_number;
+ ch = EOF; /* just in case */
while (count)
{
+ prevch = ch;
ch = shell_getc (qc != '\'' && (tflags & (LEX_PASSNEXT)) == 0);
if (ch == EOF)
free (ret);
parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), close);
EOF_Reached = 1; /* XXX */
+ parser_state |= PST_NOERROR; /* avoid redundant error message */
return (&matched_pair_error);
}
/* Possible reprompting. */
- if (ch == '\n' && SHOULD_PROMPT ())
- prompt_again ();
+ if MBTEST(ch == '\n' && SHOULD_PROMPT ())
+ prompt_again (0);
/* Don't bother counting parens or doing anything else if in a comment
or part of a case statement */
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
ret[retind++] = ch;
- if (ch == '\n')
+ if MBTEST(ch == '\n')
tflags &= ~LEX_INCOMMENT;
continue;
if (tflags & LEX_PASSNEXT) /* last char was backslash */
{
tflags &= ~LEX_PASSNEXT;
- if (qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */
+ /* XXX - PST_NOEXPAND? */
+ if MBTEST(qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */
{
if (retind > 0)
retind--; /* swallow previously-added backslash */
pop_delimiter (dstack);
CHECK_NESTRET_ERROR ();
- if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))
+ if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0 || dolbrace_state == DOLBRACE_QUOTE || dolbrace_state == DOLBRACE_QUOTE2))
{
/* Translate $'...' here. */
+ /* PST_NOEXPAND */
ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
- xfree (nestret);
+ free (nestret);
/* 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))
+ if ((shell_compatibility_level > 42) && (rflags & P_DQUOTE) && (dolbrace_state == DOLBRACE_QUOTE2 || dolbrace_state == DOLBRACE_QUOTE) && (flags & P_DOLBRACE))
{
nestret = sh_single_quote (ttrans);
free (ttrans);
nestlen = strlen (nestret);
}
+#if 0 /* TAG:bash-5.3 */
+ /* This single-quotes PARAM in ${PARAM OP WORD} when PARAM
+ contains a $'...' even when extended_quote is set. */
+ else if ((rflags & P_DQUOTE) && (dolbrace_state == DOLBRACE_PARAM) && (flags & P_DOLBRACE))
+ {
+ nestret = sh_single_quote (ttrans);
+ free (ttrans);
+ nestlen = strlen (nestret);
+ }
+#endif
else if ((rflags & P_DQUOTE) == 0)
{
nestret = sh_single_quote (ttrans);
}
else
{
+ /* Should we quote CTLESC here? */
nestret = ttrans;
nestlen = ttranslen;
}
retind -= 2; /* back up before the $' */
}
+#if defined (TRANSLATABLE_STRINGS)
else if MBTEST((tflags & LEX_WASDOL) && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))
{
/* Locale expand $"..." here. */
- ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
- xfree (nestret);
+ /* PST_NOEXPAND */
+ ttrans = locale_expand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
+ free (nestret);
- nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
+ /* If we're supposed to single-quote translated strings,
+ check whether the translated result is different from
+ the original and single-quote the string if it is. */
+ if (singlequote_translations &&
+ ((nestlen - 1) != ttranslen || STREQN (nestret, ttrans, ttranslen) == 0))
+ {
+ if ((rflags & P_DQUOTE) == 0)
+ nestret = sh_single_quote (ttrans);
+ else if ((rflags & P_DQUOTE) && (dolbrace_state == DOLBRACE_QUOTE2) && (flags & P_DOLBRACE))
+ nestret = sh_single_quote (ttrans);
+ else
+ /* single quotes aren't special, use backslash instead */
+ nestret = sh_backslash_quote_for_double_quotes (ttrans, 0);
+ }
+ else
+ nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
free (ttrans);
- nestlen = ttranslen + 2;
+ nestlen = strlen (nestret);
retind -= 2; /* back up before the $" */
}
+#endif /* TRANSLATABLE_STRINGS */
APPEND_NESTRET ();
FREE (nestret);
}
else if ((flags & (P_ARRAYSUB|P_DOLBRACE)) && (tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
goto parse_dollar_word;
+ else if ((flags & P_ARITH) && (tflags & LEX_WASDOL) && ch == '(') /*)*/
+ /* $() inside $(( ))/$[ ] */
+ goto parse_dollar_word;
+#if defined (PROCESS_SUBSTITUTION)
+ /* XXX - technically this should only be recognized at the start of
+ a word */
+ else if ((flags & (P_ARRAYSUB|P_DOLBRACE)) && (tflags & LEX_GTLT) && (ch == '(')) /* ) */
+ goto parse_dollar_word;
+#endif
}
/* Parse an old-style command substitution within double quotes as a
single word. */
else if (ch == '{') /* } */
nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|P_DOLBRACE|rflags);
else if (ch == '[') /* ] */
- nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);
+ nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags|P_ARITH);
CHECK_NESTRET_ERROR ();
APPEND_NESTRET ();
FREE (nestret);
}
- if MBTEST(ch == '$')
+#if defined (PROCESS_SUBSTITUTION)
+ if MBTEST((ch == '<' || ch == '>') && (tflags & LEX_GTLT) == 0)
+ tflags |= LEX_GTLT;
+ else
+ tflags &= ~LEX_GTLT;
+#endif
+ if MBTEST(ch == '$' && (tflags & LEX_WASDOL) == 0)
tflags |= LEX_WASDOL;
else
tflags &= ~LEX_WASDOL;
f &= ~LEX_CKCASE;
fprintf (stderr, "LEX_CKCASE%s", f ? "|" : "");
}
+ if (f & LEX_CKESAC)
+ {
+ f &= ~LEX_CKESAC;
+ fprintf (stderr, "LEX_CKESAC%s", f ? "|" : "");
+ }
if (f & LEX_INCASE)
{
f &= ~LEX_INCASE;
fprintf (stderr, "LEX_INCASE%s", f ? "|" : "");
}
+ if (f & LEX_CASEWD)
+ {
+ f &= ~LEX_CASEWD;
+ fprintf (stderr, "LEX_CASEWD%s", f ? "|" : "");
+ }
+ if (f & LEX_PATLIST)
+ {
+ f &= ~LEX_PATLIST;
+ fprintf (stderr, "LEX_PATLIST%s", f ? "|" : "");
+ }
if (f & LEX_INHEREDOC)
{
f &= ~LEX_INHEREDOC;
}
#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. */
+/* Parse a $(...) command substitution. This reads input from the current
+ input stream. */
static char *
parse_comsub (qc, open, close, lenp, flags)
int qc; /* `"' if this construct is within double quotes */
int open, close;
int *lenp, flags;
{
- int count, ch, peekc, tflags, lex_rwlen, lex_wlen, lex_firstind;
- int nestlen, ttranslen, start_lineno;
- char *ret, *nestret, *ttrans, *heredelim;
- int retind, retsize, rflags, hdlen;
+ int peekc, r;
+ int start_lineno, local_extglob, was_extpat;
+ char *ret, *tcmd;
+ int retlen;
+ sh_parser_state_t ps;
+ STRING_SAVER *saved_strings;
+ COMMAND *saved_global, *parsed_command;
/* 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;
-
- if ((flags & P_COMMAND) && qc != '\'' && qc != '"' && (flags & P_DQUOTE) == 0)
- tflags |= LEX_CKCASE;
- if ((tflags & LEX_CKCASE) && (interactive == 0 || interactive_comments))
- tflags |= LEX_CKCOMMENT;
-
- /* RFLAGS is the set of flags we want to pass to recursive calls. */
- rflags = (flags & P_DQUOTE);
-
- ret = (char *)xmalloc (retsize = 64);
- retind = 0;
-
- start_lineno = line_number;
- lex_rwlen = lex_wlen = 0;
-
- heredelim = 0;
- lex_firstind = -1;
-
- while (count)
+ if (open == '(') /*)*/
{
-comsub_readchar:
- ch = shell_getc (qc != '\'' && (tflags & (LEX_INCOMMENT|LEX_PASSNEXT)) == 0);
-
- if (ch == EOF)
- {
-eof_error:
- free (ret);
- FREE (heredelim);
- parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), close);
- EOF_Reached = 1; /* XXX */
- return (&matched_pair_error);
- }
-
- /* If we hit the end of a line and are reading the contents of a here
- document, and it's not the same line that the document starts on,
- check for this line being the here doc delimiter. Otherwise, if
- we're in a here document, mark the next character as the beginning
- of a line. */
- if (ch == '\n')
- {
- if ((tflags & LEX_HEREDELIM) && heredelim)
- {
- tflags &= ~LEX_HEREDELIM;
- tflags |= LEX_INHEREDOC;
- lex_firstind = retind + 1;
- }
- else if (tflags & LEX_INHEREDOC)
- {
- int tind;
- tind = lex_firstind;
- while ((tflags & LEX_STRIPDOC) && ret[tind] == '\t')
- tind++;
- if (STREQN (ret + tind, heredelim, hdlen))
- {
- tflags &= ~(LEX_STRIPDOC|LEX_INHEREDOC|LEX_QUOTEDDOC);
-/*itrace("parse_comsub:%d: found here doc end `%s'", line_number, ret + tind);*/
- free (heredelim);
- heredelim = 0;
- lex_firstind = -1;
- }
- else
- lex_firstind = retind + 1;
- }
- }
-
- /* Possible reprompting. */
- if (ch == '\n' && SHOULD_PROMPT ())
- prompt_again ();
-
- /* 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. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
-
- if ((tflags & LEX_INCOMMENT) && ch == '\n')
- {
-/*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) && (tflags & LEX_HEREDELIM) == 0 && lex_rwlen == 0)
- {
- /* Add this character. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
- continue;
- }
-
- /* Either we are looking for the start of the here-doc delimiter
- (lex_firstind == -1) or we are reading one (lex_firstind >= 0).
- If this character is a shell break character and we are reading
- the delimiter, save it and note that we are now reading a here
- document. If we've found the start of the delimiter, note it by
- setting lex_firstind. Backslashes can quote shell metacharacters
- in here-doc delimiters. */
- if (tflags & LEX_HEREDELIM)
- {
- 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))
- {
- 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;
- tflags &= ~LEX_HEREDELIM;
- lex_firstind = retind + 1;
- }
- else
- lex_firstind = -1;
- }
- }
-
- /* Meta-characters that can introduce a reserved word. Not perfect yet. */
- if MBTEST((tflags & LEX_RESWDOK) == 0 && (tflags & LEX_CKCASE) && (tflags & LEX_INCOMMENT) == 0 && (shellmeta(ch) || ch == '\n'))
- {
- /* Add this character. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
- peekc = shell_getc (1);
- if (ch == peekc && (ch == '&' || ch == '|' || ch == ';')) /* two-character tokens */
- {
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = peekc;
-/*itrace("parse_comsub:%d: set lex_reswordok = 1, ch = `%c'", line_number, ch);*/
- tflags |= LEX_RESWDOK;
- lex_rwlen = 0;
- continue;
- }
- else if (ch == '\n' || COMSUB_META(ch))
- {
- shell_ungetc (peekc);
-/*itrace("parse_comsub:%d: set lex_reswordok = 1, ch = `%c'", line_number, ch);*/
- tflags |= LEX_RESWDOK;
- lex_rwlen = 0;
- continue;
- }
- else if (ch == EOF)
- goto eof_error;
- else
- {
- /* `unget' the character we just added and fall through */
- retind--;
- shell_ungetc (peekc);
- }
- }
-
- /* If we can read a reserved word, try to read one. */
- if (tflags & LEX_RESWDOK)
- {
- if MBTEST(islower ((unsigned char)ch))
- {
- /* Add this character. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
- lex_rwlen++;
- continue;
- }
- else if MBTEST(lex_rwlen == 4 && shellbreak (ch))
- {
- if (STREQN (ret + retind - 4, "case", 4))
- {
- tflags |= LEX_INCASE;
- 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 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 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
- }
+ peekc = shell_getc (1);
+ shell_ungetc (peekc);
+ if (peekc == '(') /*)*/
+ return (parse_matched_pair (qc, open, close, lenp, P_ARITH));
+ }
- /* Might be the start of a here-doc delimiter */
- if MBTEST((tflags & LEX_INCOMMENT) == 0 && (tflags & LEX_CKCASE) && ch == '<')
- {
- /* Add this character. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
- peekc = shell_getc (1);
- if (peekc == EOF)
- goto eof_error;
- if (peekc == ch)
- {
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = peekc;
- peekc = shell_getc (1);
- if (peekc == EOF)
- goto eof_error;
- if (peekc == '-')
- {
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = peekc;
- tflags |= LEX_STRIPDOC;
- }
- else
- shell_ungetc (peekc);
- if (peekc != '<')
- {
- tflags |= LEX_HEREDELIM;
- lex_firstind = -1;
- }
- continue;
- }
- else
- ch = peekc; /* fall through and continue XXX */
- }
- else if MBTEST((tflags & LEX_CKCOMMENT) && (tflags & LEX_INCOMMENT) == 0 && ch == '#' && (((tflags & LEX_RESWDOK) && lex_rwlen == 0) || ((tflags & LEX_INWORD) && lex_wlen == 0)))
- {
-/*itrace("parse_comsub:%d: lex_incomment -> 1 (%d)", line_number, __LINE__);*/
- tflags |= LEX_INCOMMENT;
- }
+/*itrace("parse_comsub: qc = `%c' open = %c close = %c", qc, open, close);*/
- if MBTEST(ch == CTLESC || ch == CTLNUL) /* special shell escapes */
- {
- RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
- ret[retind++] = CTLESC;
- ret[retind++] = ch;
- continue;
- }
-#if 0
- else if MBTEST((tflags & LEX_INCASE) && ch == close && close == ')')
- tflags &= ~LEX_INCASE; /* XXX */
+ /*debug_parser(1);*/
+ start_lineno = line_number;
+
+ save_parser_state (&ps);
+
+ was_extpat = (parser_state & PST_EXTPAT);
+
+ /* State flags we don't want to persist into command substitutions. */
+ parser_state &= ~(PST_REGEXP|PST_EXTPAT|PST_CONDCMD|PST_CONDEXPR|PST_COMPASSIGN);
+ /* Could do PST_CASESTMT too, but that also affects history. Setting
+ expecting_in_token below should take care of the parsing requirements.
+ Unsetting PST_REDIRLIST isn't strictly necessary because of how we set
+ token_to_read below, but we do it anyway. */
+ parser_state &= ~(PST_CASEPAT|PST_ALEXPNEXT|PST_SUBSHELL|PST_REDIRLIST);
+ /* State flags we want to set for this run through the parser. */
+ parser_state |= PST_CMDSUBST|PST_EOFTOKEN|PST_NOEXPAND;
+
+ /* leave pushed_string_list alone, since we might need to consume characters
+ from it to satisfy this command substitution (in some perverse case). */
+ shell_eof_token = close;
+
+ saved_global = global_command; /* might not be necessary */
+ global_command = (COMMAND *)NULL;
+
+ /* These are reset by reset_parser() */
+ need_here_doc = 0;
+ esacs_needed_count = expecting_in_token = 0;
+
+ /* We want to expand aliases on this pass if we're in posix mode, since the
+ standard says you have to take aliases into account when looking for the
+ terminating right paren. Otherwise, we defer until execution time for
+ backwards compatibility. */
+ if (expand_aliases)
+ expand_aliases = posixly_correct != 0;
+#if defined (EXTENDED_GLOB)
+ /* If (parser_state & PST_EXTPAT), we're parsing an extended pattern for a
+ conditional command and have already set extended_glob appropriately. */
+ if (shell_compatibility_level <= 51 && was_extpat == 0)
+ {
+ local_extglob = extended_glob;
+ extended_glob = 1;
+ }
#endif
- else if MBTEST(ch == close && (tflags & LEX_INCASE) == 0) /* ending delimiter */
- {
- count--;
-/*itrace("parse_comsub:%d: found close: count = %d", line_number, count);*/
- }
- else if MBTEST(((flags & P_FIRSTCLOSE) == 0) && (tflags & LEX_INCASE) == 0 && ch == open) /* nested begin */
- {
- count++;
-/*itrace("parse_comsub:%d: found open: count = %d", line_number, count);*/
- }
- /* Add this character. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
+ current_token = '\n'; /* XXX */
+ token_to_read = DOLPAREN; /* let's trick the parser */
- /* If we just read the ending character, don't bother continuing. */
- if (count == 0)
- break;
+ r = yyparse ();
- if MBTEST(ch == '\\') /* backslashes */
- tflags |= LEX_PASSNEXT;
+ if (need_here_doc > 0)
+ {
+ internal_warning ("command substitution: %d unterminated here-document%s", need_here_doc, (need_here_doc == 1) ? "" : "s");
+ gather_here_documents (); /* XXX check compatibility level? */
+ }
- if MBTEST(shellquote (ch))
- {
- /* '', ``, or "" inside $(...). */
- push_delimiter (dstack, ch);
- if MBTEST((tflags & LEX_WASDOL) && ch == '\'') /* $'...' inside group */
- nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);
- else
- nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);
- pop_delimiter (dstack);
- CHECK_NESTRET_ERROR ();
+#if defined (EXTENDED_GLOB)
+ if (shell_compatibility_level <= 51 && was_extpat == 0)
+ extended_glob = local_extglob;
+#endif
- if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))
- {
- /* Translate $'...' here. */
- ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
- xfree (nestret);
+ parsed_command = global_command;
- if ((rflags & P_DQUOTE) == 0)
- {
- nestret = sh_single_quote (ttrans);
- free (ttrans);
- nestlen = strlen (nestret);
- }
- else
- {
- nestret = ttrans;
- nestlen = ttranslen;
- }
- retind -= 2; /* back up before the $' */
- }
- else if MBTEST((tflags & LEX_WASDOL) && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))
- {
- /* Locale expand $"..." here. */
- ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
- xfree (nestret);
-
- nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
- free (ttrans);
- nestlen = ttranslen + 2;
- retind -= 2; /* back up before the $" */
- }
+ if (EOF_Reached)
+ {
+ shell_eof_token = ps.eof_token;
+ expand_aliases = ps.expand_aliases;
- APPEND_NESTRET ();
- FREE (nestret);
- }
- else if MBTEST((tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
- /* check for $(), $[], or ${} inside command substitution. */
+ /* yyparse() has already called yyerror() and reset_parser() */
+ parser_state |= PST_NOERROR;
+ return (&matched_pair_error);
+ }
+ else if (r != 0)
+ {
+ /* parser_error (start_lineno, _("could not parse command substitution")); */
+ /* Non-interactive shells exit on parse error in a command substitution. */
+ if (last_command_exit_value == 0)
+ last_command_exit_value = EXECUTION_FAILURE;
+ set_exit_status (last_command_exit_value);
+ if (interactive_shell == 0)
+ jump_to_top_level (FORCE_EOF); /* This is like reader_loop() */
+ else
{
- if ((tflags & LEX_INCASE) == 0 && 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|P_DOLBRACE|rflags);
- else if (ch == '[') /* ] */
- nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);
-
- CHECK_NESTRET_ERROR ();
- APPEND_NESTRET ();
+ shell_eof_token = ps.eof_token;
+ expand_aliases = ps.expand_aliases;
- FREE (nestret);
+ jump_to_top_level (DISCARD); /* XXX - return (&matched_pair_error)? */
}
- if MBTEST(ch == '$')
- tflags |= LEX_WASDOL;
- else
- tflags &= ~LEX_WASDOL;
}
- FREE (heredelim);
- ret[retind] = '\0';
+ if (current_token != shell_eof_token)
+ {
+INTERNAL_DEBUG(("current_token (%d) != shell_eof_token (%c)", current_token, shell_eof_token));
+ token_to_read = current_token;
+
+ /* If we get here we can check eof_encountered and if it's 1 but the
+ previous EOF_Reached test didn't succeed, we can assume that the shell
+ is interactive and ignoreeof is set. We might want to restore the
+ parser state in this case. */
+ shell_eof_token = ps.eof_token;
+ expand_aliases = ps.expand_aliases;
+
+ return (&matched_pair_error);
+ }
+
+ /* We don't want to restore the old pushed string list, since we might have
+ used it to consume additional input from an alias while parsing this
+ command substitution. */
+ saved_strings = pushed_string_list;
+ restore_parser_state (&ps);
+ pushed_string_list = saved_strings;
+
+ tcmd = print_comsub (parsed_command); /* returns static memory */
+ retlen = strlen (tcmd);
+ if (tcmd[0] == '(') /* ) need a space to prevent arithmetic expansion */
+ retlen++;
+ ret = xmalloc (retlen + 2);
+ if (tcmd[0] == '(') /* ) */
+ {
+ ret[0] = ' ';
+ strcpy (ret + 1, tcmd);
+ }
+ else
+ strcpy (ret, tcmd);
+ ret[retlen++] = ')';
+ ret[retlen] = '\0';
+
+ dispose_command (parsed_command);
+ global_command = saved_global;
+
if (lenp)
- *lenp = retind;
+ *lenp = retlen;
+
/*itrace("parse_comsub:%d: returning `%s'", line_number, ret);*/
return ret;
}
-/* Recursively call the parser to parse a $(...) command substitution. */
+/* Recursively call the parser to parse a $(...) command substitution. This is
+ called by the word expansion code and so does not have to reset as much
+ parser state before calling yyparse(). */
char *
xparse_dolparen (base, string, indp, flags)
char *base;
{
sh_parser_state_t ps;
sh_input_line_state_t ls;
- int orig_ind, nc, sflags, orig_eof_token;
- char *ret, *s, *ep, *ostring;
+ int orig_ind, nc, sflags, start_lineno, local_extglob;
+ char *ret, *ep, *ostring;
- /*yydebug = 1;*/
+/*debug_parser(1);*/
orig_ind = *indp;
ostring = string;
+ start_lineno = line_number;
+
+ if (*string == 0)
+ {
+ if (flags & SX_NOALLOC)
+ return (char *)NULL;
+
+ ret = xmalloc (1);
+ ret[0] = '\0';
+ return ret;
+ }
+
+/*itrace("xparse_dolparen: size = %d shell_input_line = `%s' string=`%s'", shell_input_line_size, shell_input_line, 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;
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ pushed_string_list = (STRING_SAVER *)NULL;
+#endif
/*(*/
parser_state |= PST_CMDSUBST|PST_EOFTOKEN; /* allow instant ')' */ /*(*/
shell_eof_token = ')';
+ if (flags & SX_COMPLETE)
+ parser_state |= PST_NOERROR;
+
+ /* Don't expand aliases on this pass at all. Either parse_comsub() does it
+ at parse time, in which case this string already has aliases expanded,
+ or command_substitute() does it in the child process executing the
+ command substitution and we want to defer it completely until then. The
+ old value will be restored by restore_parser_state(). */
+ expand_aliases = 0;
+#if defined (EXTENDED_GLOB)
+ local_extglob = extended_glob;
+#endif
- nc = parse_string (string, "command substitution", sflags, &ep);
+ token_to_read = DOLPAREN; /* let's trick the parser */
- shell_eof_token = orig_eof_token;
- restore_parser_state (&ps);
- reset_parser ();
- /* reset_parser clears shell_input_line and associated variables */
+ nc = parse_string (string, "command substitution", sflags, (COMMAND **)NULL, &ep);
+
+ /* Should we save and restore the bison/yacc lookahead token (yychar) here?
+ Or only if it's not YYEMPTY? */
+ if (current_token == shell_eof_token)
+ yyclearin; /* might want to clear lookahead token unconditionally */
+
+ reset_parser (); /* resets extended_glob too */
+ /* reset_parser() clears shell_input_line and associated variables, including
+ parser_state, so we want to reset things, then restore what we need. */
restore_input_line_state (&ls);
+ restore_parser_state (&ps);
+#if defined (EXTENDED_GLOB)
+ extended_glob = local_extglob;
+#endif
token_to_read = 0;
/* If parse_string returns < 0, we need to jump to top level with the
- negative of the return value */
+ negative of the return value. We abandon the rest of this input line
+ first */
if (nc < 0)
- jump_to_top_level (-nc); /* XXX */
+ {
+ clear_shell_input_line (); /* XXX */
+ if (bash_input.type != st_string) /* paranoia */
+ parser_state &= ~(PST_CMDSUBST|PST_EOFTOKEN);
+ if ((flags & SX_NOLONGJMP) == 0)
+ jump_to_top_level (-nc); /* XXX */
+ }
- /* Need to find how many characters parse_and_execute consumed, update
+ /* Need to find how many characters parse_string() consumed, update
*indp, if flags != 0, copy the portion of the string parsed into RET
- and return it. If flags & 1 (EX_NOALLOC) we can return NULL. */
+ and return it. If flags & 1 (SX_NOALLOC) we can return NULL. */
/*(*/
if (ep[-1] != ')')
{
-#if DEBUG
+#if 0
if (ep[-1] != '\n')
itrace("xparse_dolparen:%d: ep[-1] != RPAREN (%d), ep = `%s'", line_number, ep[-1], ep);
#endif
+
while (ep > ostring && ep[-1] == '\n') ep--;
}
nc = ep - ostring;
*indp = ep - base - 1;
- /*(*/
-#if DEBUG
+ /*((*/
+#if 0
if (base[*indp] != ')')
itrace("xparse_dolparen:%d: base[%d] != RPAREN (%d), base = `%s'", line_number, *indp, base[*indp], base);
+ if (*indp < orig_ind)
+ itrace("xparse_dolparen:%d: *indp (%d) < orig_ind (%d), orig_string = `%s'", line_number, *indp, orig_ind, ostring);
#endif
+ if (base[*indp] != ')' && (flags & SX_NOLONGJMP) == 0)
+ {
+ /*(*/
+ if ((flags & SX_NOERROR) == 0)
+ parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), ')');
+ jump_to_top_level (DISCARD);
+ }
+
if (flags & SX_NOALLOC)
return (char *)NULL;
return ret;
}
+/* Recursively call the parser to parse the string from a $(...) command
+ substitution to a COMMAND *. This is called from command_substitute() and
+ has the same parser state constraints as xparse_dolparen(). */
+COMMAND *
+parse_string_to_command (string, flags)
+ char *string;
+ int flags;
+{
+ sh_parser_state_t ps;
+ sh_input_line_state_t ls;
+ int nc, sflags;
+ size_t slen;
+ char *ret, *ep;
+ COMMAND *cmd;
+
+ if (*string == 0)
+ return (COMMAND *)NULL;
+
+ ep = string;
+ slen = STRLEN (string);
+
+/*itrace("parse_string_to_command: size = %d shell_input_line = `%s' string=`%s'", shell_input_line_size, shell_input_line, string);*/
+
+ sflags = SEVAL_NONINT|SEVAL_NOHIST|SEVAL_NOFREE;
+ if (flags & SX_NOLONGJMP)
+ sflags |= SEVAL_NOLONGJMP;
+
+ save_parser_state (&ps);
+ save_input_line_state (&ls);
+
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ pushed_string_list = (STRING_SAVER *)NULL;
+#endif
+ if (flags & SX_COMPLETE)
+ parser_state |= PST_NOERROR;
+
+ parser_state |= PST_STRING;
+ expand_aliases = 0;
+
+ cmd = 0;
+ nc = parse_string (string, "command substitution", sflags, &cmd, &ep);
+
+ reset_parser ();
+ /* reset_parser() clears shell_input_line and associated variables, including
+ parser_state, so we want to reset things, then restore what we need. */
+ restore_input_line_state (&ls);
+ restore_parser_state (&ps);
+
+ /* If parse_string returns < 0, we need to jump to top level with the
+ negative of the return value. We abandon the rest of this input line
+ first */
+ if (nc < 0)
+ {
+ clear_shell_input_line (); /* XXX */
+ if ((flags & SX_NOLONGJMP) == 0)
+ jump_to_top_level (-nc); /* XXX */
+ }
+
+ /* Need to check how many characters parse_string() consumed, make sure it's
+ the entire string. */
+ if (nc < slen)
+ {
+ dispose_command (cmd);
+ return (COMMAND *)NULL;
+ }
+
+ return cmd;
+}
+
#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
/* Parse a double-paren construct. It can be either an arithmetic
command, an arithmetic `for' command, or a nested subshell. Returns
#if defined (ARITH_FOR_COMMAND)
if (last_read_token == FOR)
{
- arith_for_lineno = line_number;
+ if (word_top < MAX_CASE_NEST)
+ word_top++;
+ arith_for_lineno = word_lineno[word_top] = line_number;
cmdtyp = parse_arith_cmd (&wval, 0);
if (cmdtyp == 1)
{
{
wd = alloc_word_desc ();
wd->word = wval;
- wd->flags = W_QUOTED|W_NOSPLIT|W_NOGLOB|W_DQUOTE;
+ wd->flags = W_QUOTED|W_NOSPLIT|W_NOGLOB|W_NOTILDE|W_NOPROCSUB;
yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
return (ARITH_CMD);
}
int ttoklen;
exp_lineno = line_number;
- ttok = parse_matched_pair (0, '(', ')', &ttoklen, 0);
+ ttok = parse_matched_pair (0, '(', ')', &ttoklen, P_ARITH);
rval = 1;
if (ttok == &matched_pair_error)
return -1;
while ((cond_token = read_token (READ)) == '\n')
{
if (SHOULD_PROMPT ())
- prompt_again ();
+ prompt_again (0);
}
return (cond_token);
}
{
WORD_DESC *op;
COND_COM *term, *tleft, *tright;
- int tok, lineno;
+ int tok, lineno, local_extglob;
char *etext;
/* Read a token. It can be a left paren, a `!', a unary operator, or a
dispose_word (yylval.word); /* not needed */
term = cond_term ();
if (term)
- term->flags |= CMD_INVERT_RETURN;
+ term->flags ^= CMD_INVERT_RETURN;
}
- else if (tok == WORD && yylval.word->word[0] == '-' && yylval.word->word[2] == 0 && test_unop (yylval.word->word))
+ else if (tok == WORD && yylval.word->word[0] == '-' && yylval.word->word[1] && yylval.word->word[2] == 0 && test_unop (yylval.word->word))
{
op = yylval.word;
tok = read_token (READ);
tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
/* binop */
+ /* tok = cond_skip_newlines (); ? */
tok = read_token (READ);
if (tok == WORD && test_binop (yylval.word->word))
{
}
/* rhs */
+#if defined (EXTENDED_GLOB)
+ local_extglob = extended_glob;
if (parser_state & PST_EXTPAT)
extended_glob = 1;
+#endif
tok = read_token (READ);
+#if defined (EXTENDED_GLOB)
if (parser_state & PST_EXTPAT)
- extended_glob = global_extglob;
+ extended_glob = local_extglob;
+#endif
parser_state &= ~(PST_REGEXP|PST_EXTPAT);
if (tok == WORD)
{
COND_COM *cexp;
- global_extglob = extended_glob;
cexp = cond_expr ();
return (make_cond_command (cexp));
}
#if defined (ARRAY_VARS)
/* When this is called, it's guaranteed that we don't care about anything
- in t beyond i. We do save and restore the chars, though. */
+ in t beyond i. We use a buffer with room for the characters we add just
+ in case assignment() ends up doing something like parsing a command
+ substitution that will reallocate atoken. We don't want to write beyond
+ the end of an allocated buffer. */
static int
token_is_assignment (t, i)
char *t;
int i;
{
- unsigned char c, c1;
int r;
+ char *atoken;
- c = t[i]; c1 = t[i+1];
- t[i] = '='; t[i+1] = '\0';
- r = assignment (t, (parser_state & PST_COMPASSIGN) != 0);
- t[i] = c; t[i+1] = c1;
- return r;
+ atoken = xmalloc (i + 3);
+ memcpy (atoken, t, i);
+ atoken[i] = '=';
+ atoken[i+1] = '\0';
+
+ r = assignment (atoken, (parser_state & PST_COMPASSIGN) != 0);
+
+ free (atoken);
+
+ /* XXX - check that r == i to avoid returning false positive for
+ t containing `=' before t[i]. */
+ return (r > 0 && r == i);
}
/* XXX - possible changes here for `+=' */
double-quotes, quote some things inside of double-quotes. */
if MBTEST(character == '\\')
{
+ if (parser_state & PST_NOEXPAND)
+ {
+ pass_next_character++;
+ quoted = 1;
+ goto got_character;
+ }
+
peek_char = shell_getc (0);
/* Backslash-newline is ignored in all cases except
when quoted with single quotes. */
- if (peek_char == '\n')
+ if MBTEST(peek_char == '\n')
{
character = '\n';
goto next_character;
shell_ungetc (peek_char);
/* If the next character is to be quoted, note it now. */
- if (cd == 0 || cd == '`' ||
+ if MBTEST(cd == 0 || cd == '`' ||
(cd == '"' && peek_char >= 0 && (sh_syntaxtab[peek_char] & CBSDQUOTE)))
pass_next_character++;
strcpy (token + token_index, ttok);
token_index += ttoklen;
all_digit_token = 0;
- quoted = 1;
+ if (character != '`')
+ quoted = 1;
dollar_present |= (character == '"' && strchr (ttok, '$') != 0);
FREE (ttok);
goto next_character;
/* If the delimiter character is not single quote, parse some of
the shell expansions that must be read as a single word. */
- if (shellexp (character))
+ if MBTEST(shellexp (character))
{
peek_char = shell_getc (1);
/* $(...), <(...), >(...), $((...)), ${...}, and $[...] constructs */
pop_delimiter (dstack);
}
else
- ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);
+ ttok = parse_matched_pair (cd, '[', ']', &ttoklen, P_ARITH);
if (ttok == &matched_pair_error)
return -1; /* Bail immediately. */
RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 3,
goto next_character;
}
/* This handles $'...' and $"..." new-style quoted strings. */
+#if defined (TRANSLATABLE_STRINGS)
else if MBTEST(character == '$' && (peek_char == '\'' || peek_char == '"'))
+#else
+ else if MBTEST(character == '$' && peek_char == '\'')
+#endif
{
int first_line;
return -1;
if (peek_char == '\'')
{
+ /* PST_NOEXPAND */
ttrans = ansiexpand (ttok, 0, ttoklen - 1, &ttranslen);
free (ttok);
ttranslen = strlen (ttok);
ttrans = ttok;
}
+#if defined (TRANSLATABLE_STRINGS)
else
{
+ /* PST_NOEXPAND */
/* Try to locale-expand the converted string. */
- ttrans = localeexpand (ttok, 0, ttoklen - 1, first_line, &ttranslen);
+ ttrans = locale_expand (ttok, 0, ttoklen - 1, first_line, &ttranslen);
free (ttok);
- /* Add the double quotes back */
- ttok = sh_mkdoublequoted (ttrans, ttranslen, 0);
+ /* Add the double quotes back (or single quotes if the user
+ has set that option). */
+ if (singlequote_translations &&
+ ((ttoklen - 1) != ttranslen || STREQN (ttok, ttrans, ttranslen) == 0))
+ ttok = sh_single_quote (ttrans);
+ else
+ ttok = sh_mkdoublequoted (ttrans, ttranslen, 0);
+
free (ttrans);
- ttranslen += 2;
ttrans = ttok;
+ ttranslen = strlen (ttrans);
}
+#endif /* TRANSLATABLE_STRINGS */
RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 1,
token_buffer_size,
}
got_character:
- if (character == CTLESC || character == CTLNUL)
+ if MBTEST(character == CTLESC || character == CTLNUL)
{
RESIZE_MALLOCED_BUFFER (token, token_index, 2, token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
next_character:
if (character == '\n' && SHOULD_PROMPT ())
- prompt_again ();
+ prompt_again (0);
/* We want to remove quoted newlines (that is, a \<newline> pair)
unless we are within single quotes or pass_next_character is
yylval.word = the_word;
- if (token[0] == '{' && token[token_index-1] == '}' &&
+ /* should we check that quoted == 0 as well? */
+ if MBTEST(token[0] == '{' && token[token_index-1] == '}' &&
(character == '<' || character == '>'))
{
/* can use token; already copied to the_word */
#endif
{
strcpy (the_word->word, token+1);
-/*itrace("read_token_word: returning REDIR_WORD for %s", the_word->word);*/
+/* itrace("read_token_word: returning REDIR_WORD for %s", the_word->word); */
+ yylval.word = the_word; /* accommodate recursive call */
return (REDIR_WORD);
}
+ else
+ /* valid_array_reference can call the parser recursively; need to
+ make sure that yylval.word doesn't change if we are going to
+ return WORD or ASSIGNMENT_WORD */
+ yylval.word = the_word;
}
result = ((the_word->flags & (W_ASSIGNMENT|W_NOSPLIT)) == (W_ASSIGNMENT|W_NOSPLIT))
if (word_top < MAX_CASE_NEST)
word_top++;
word_lineno[word_top] = line_number;
+ expecting_in_token++;
break;
}
case '{':
case '}': /* XXX */
case AND_AND:
+ case ARITH_CMD:
case BANG:
case BAR_AND:
+ case COND_END:
case DO:
case DONE:
case ELIF:
case UNTIL:
case WHILE:
case 0:
+ case DOLPAREN:
return 1;
default:
#if defined (COPROCESS_SUPPORT)
return (" ");
}
+ /* Assume that by this point we are reading lines in a multi-line command.
+ If we have multiple consecutive blank lines we want to return only one
+ semicolon. */
+ if (line_isblank (line))
+ return (current_command_line_count > 1 && last_read_token == '\n' && token_before_that != '\n') ? "; " : "";
+
return ("; ");
}
#endif /* HISTORY */
/* Issue a prompt, or prepare to issue a prompt when the next character
is read. */
static void
-prompt_again ()
+prompt_again (force)
+ int force;
{
char *temp_prompt;
fflush (stderr);
}
+#if defined (HISTORY)
+ /* The history library increments the history offset as soon as it stores
+ the first line of a potentially multi-line command, so we compensate
+ here by returning one fewer when appropriate. */
+static int
+prompt_history_number (pmt)
+ char *pmt;
+{
+ int ret;
+
+ ret = history_number ();
+ if (ret == 1)
+ return ret;
+
+ if (pmt == ps1_prompt) /* are we expanding $PS1? */
+ return ret;
+ else if (pmt == ps2_prompt && command_oriented_history == 0)
+ return ret; /* not command oriented history */
+ else if (pmt == ps2_prompt && command_oriented_history && current_command_first_line_saved)
+ return ret - 1;
+ else
+ return ret - 1; /* PS0, PS4, ${var@P}, PS2 other cases */
+}
+#endif
+
/* Return a string which will be printed as a prompt. The string
may contain special characters which are decoded as follows:
char *string;
{
WORD_LIST *list;
- char *result, *t;
+ char *result, *t, *orig_string;
struct dstack save_dstack;
int last_exit_value, last_comsub_pid;
#if defined (PROMPT_STRING_DECODE)
size_t result_size;
- int result_index;
+ size_t result_index;
int c, n, i;
char *temp, *t_host, octal_string[4];
struct tm *tm;
result = (char *)xmalloc (result_size = PROMPT_GROWTH);
result[result_index = 0] = 0;
temp = (char *)NULL;
+ orig_string = string;
while (c = *string++)
{
#if !defined (HISTORY)
temp = savestring ("1");
#else /* HISTORY */
- temp = itos (history_number ());
+ temp = itos (prompt_history_number (orig_string));
#endif /* HISTORY */
string--; /* add_string increments string again. */
goto add_string;
/* 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 (timebuf);
+ temp = sh_backslash_quote_for_double_quotes (timebuf, 0);
else
temp = savestring (timebuf);
goto add_string;
temp = base_pathname (shell_name);
/* Try to quote anything the user can set in the file system */
if (promptvars || posixly_correct)
- temp = sh_backslash_quote_for_double_quotes (temp);
+ {
+ char *t;
+ t = sh_strvis (temp);
+ temp = sh_backslash_quote_for_double_quotes (t, 0);
+ free (t);
+ }
else
- temp = savestring (temp);
+ temp = sh_strvis (temp);
goto add_string;
case 'v':
/* 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_string);
+ {
+ char *t;
+ t = sh_strvis (t_string);
+ temp = sh_backslash_quote_for_double_quotes (t, 0);
+ free (t);
+ }
else
- temp = savestring (t_string);
+ temp = sh_strvis (t_string);
goto add_string;
}
/* 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);
+ temp = sh_backslash_quote_for_double_quotes (t_host, 0);
else
temp = savestring (t_host);
free (t_host);
goto add_string;
case '#':
- temp = itos (current_command_number);
+ n = current_command_number;
+ /* If we have already incremented current_command_number (PS4,
+ ${var@P}), compensate */
+ if (orig_string != ps0_prompt && orig_string != ps1_prompt && orig_string != ps2_prompt)
+ n--;
+ temp = itos (n);
goto add_string;
case '!':
#if !defined (HISTORY)
temp = savestring ("1");
#else /* HISTORY */
- temp = itos (history_number ());
+ temp = itos (prompt_history_number (orig_string));
#endif /* HISTORY */
goto add_string;
yyerror (msg)
const char *msg;
{
- report_syntax_error ((char *)NULL);
+ if ((parser_state & PST_NOERROR) == 0)
+ report_syntax_error ((char *)NULL);
reset_parser ();
return (0);
}
parser_error (line_number, "%s", message);
if (interactive && EOF_Reached)
EOF_Reached = 0;
- last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;
+ last_command_exit_value = (executing_builtin && parse_and_execute_level) ? EX_BADSYNTAX : EX_BADUSAGE;
+ set_pipestatus_from_exit (last_command_exit_value);
return;
}
if (interactive == 0)
print_offending_line ();
- last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;
+ last_command_exit_value = (executing_builtin && parse_and_execute_level) ? EX_BADSYNTAX : EX_BADUSAGE;
+ set_pipestatus_from_exit (last_command_exit_value);
return;
}
}
else
{
- msg = EOF_Reached ? _("syntax error: unexpected end of file") : _("syntax error");
- parser_error (line_number, "%s", msg);
+ if (EOF_Reached && shell_eof_token && current_token != shell_eof_token)
+ parser_error (line_number, _("unexpected EOF while looking for matching `%c'"), shell_eof_token);
+ else
+ {
+ msg = EOF_Reached ? _("syntax error: unexpected end of file") : _("syntax error");
+ parser_error (line_number, "%s", msg);
+ }
+
/* When the shell is interactive, this file uses EOF_Reached
only for error reporting. Other mechanisms are used to
decide whether or not to exit. */
EOF_Reached = 0;
}
- last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;
+ last_command_exit_value = (executing_builtin && parse_and_execute_level) ? EX_BADSYNTAX : EX_BADUSAGE;
+ set_pipestatus_from_exit (last_command_exit_value);
}
/* ??? Needed function. ??? We have to be able to discard the constructs
last_read_token = current_token = '\n';
/* Reset the prompt string to be $PS1. */
prompt_string_pointer = (char **)NULL;
- prompt_again ();
+ prompt_again (0);
return;
}
}
/* In this case EOF should exit the shell. Do it now. */
reset_parser ();
+
+ last_shell_builtin = this_shell_builtin;
+ this_shell_builtin = exit_builtin;
exit_builtin ((WORD_LIST *)NULL);
}
else
const char *whom;
{
WORD_LIST *wl;
- int tok, orig_current_token, orig_line_number, orig_input_terminator;
- int orig_line_count;
- int old_echo_input, old_expand_aliases;
-#if defined (HISTORY)
- int old_remember_on_history, old_history_expansion_inhibited;
-#endif
+ int tok, orig_current_token, orig_line_number;
+ int orig_parser_state;
+ sh_parser_state_t ps;
+ int ea;
+
+ orig_line_number = line_number;
+ save_parser_state (&ps);
#if defined (HISTORY)
- old_remember_on_history = remember_on_history;
-# if defined (BANG_HISTORY)
- old_history_expansion_inhibited = history_expansion_inhibited;
-# endif
bash_history_disable ();
#endif
- orig_line_number = line_number;
- orig_line_count = current_command_line_count;
- orig_input_terminator = shell_input_line_terminator;
- old_echo_input = echo_input_at_read;
- old_expand_aliases = expand_aliases;
-
push_stream (1);
- last_read_token = WORD; /* WORD to allow reserved words here */
+ if (ea = expanding_alias ())
+ parser_save_alias ();
+
+ /* WORD to avoid parsing reserved words as themselves and just parse them as
+ WORDs. */
+ last_read_token = WORD;
+
current_command_line_count = 0;
echo_input_at_read = expand_aliases = 0;
wl = (WORD_LIST *)NULL;
if (flags & 1)
- parser_state |= PST_COMPASSIGN|PST_REPARSE;
+ {
+ orig_parser_state = parser_state; /* XXX - not needed? */
+ /* State flags we don't want to persist into compound assignments. */
+ parser_state &= ~PST_NOEXPAND; /* parse_comsub sentinel */
+ /* State flags we want to set for this run through the tokenizer. */
+ parser_state |= PST_COMPASSIGN|PST_REPARSE|PST_STRING;
+ }
while ((tok = read_token (READ)) != yacc_EOF)
{
last_read_token = '\n';
pop_stream ();
-#if defined (HISTORY)
- remember_on_history = old_remember_on_history;
-# if defined (BANG_HISTORY)
- history_expansion_inhibited = old_history_expansion_inhibited;
-# endif /* BANG_HISTORY */
-#endif /* HISTORY */
-
- echo_input_at_read = old_echo_input;
- expand_aliases = old_expand_aliases;
+ if (ea)
+ parser_restore_alias ();
- current_command_line_count = orig_line_count;
- shell_input_line_terminator = orig_input_terminator;
+ restore_parser_state (&ps);
if (flags & 1)
- parser_state &= ~(PST_COMPASSIGN|PST_REPARSE);
+ parser_state = orig_parser_state; /* XXX - not needed? */
if (wl == &parse_string_error)
{
- last_command_exit_value = EXECUTION_FAILURE;
+ set_exit_status (EXECUTION_FAILURE);
if (interactive_shell == 0 && posixly_correct)
jump_to_top_level (FORCE_EOF);
else
int *retlenp;
{
WORD_LIST *wl, *rl;
- int tok, orig_line_number, orig_token_size, orig_last_token, assignok;
- char *saved_token, *ret;
+ int tok, orig_line_number, assignok;
+ sh_parser_state_t ps;
+ char *ret;
- saved_token = token;
- orig_token_size = token_buffer_size;
orig_line_number = line_number;
- orig_last_token = last_read_token;
+ save_parser_state (&ps);
- last_read_token = WORD; /* WORD to allow reserved words here */
+ /* WORD to avoid parsing reserved words as themselves and just parse them as
+ WORDs. Plus it means we won't be in a command position and so alias
+ expansion won't happen. */
+ last_read_token = WORD;
token = (char *)NULL;
token_buffer_size = 0;
+ wl = (WORD_LIST *)NULL; /* ( */
assignok = parser_state&PST_ASSIGNOK; /* XXX */
- wl = (WORD_LIST *)NULL; /* ( */
+ /* State flags we don't want to persist into compound assignments. */
+ parser_state &= ~(PST_NOEXPAND|PST_CONDCMD|PST_CONDEXPR|PST_REGEXP|PST_EXTPAT);
+ /* State flags we want to set for this run through the tokenizer. */
parser_state |= PST_COMPASSIGN;
+ esacs_needed_count = expecting_in_token = 0;
+
while ((tok = read_token (READ)) != ')')
{
if (tok == '\n') /* Allow newlines in compound assignments */
{
if (SHOULD_PROMPT ())
- prompt_again ();
+ prompt_again (0);
continue;
}
if (tok != WORD && tok != ASSIGNMENT_WORD)
wl = make_word_list (yylval.word, wl);
}
- FREE (token);
- token = saved_token;
- token_buffer_size = orig_token_size;
-
- parser_state &= ~PST_COMPASSIGN;
+ restore_parser_state (&ps);
if (wl == &parse_string_error)
{
- last_command_exit_value = EXECUTION_FAILURE;
+ set_exit_status (EXECUTION_FAILURE);
last_read_token = '\n'; /* XXX */
if (interactive_shell == 0 && posixly_correct)
jump_to_top_level (FORCE_EOF);
jump_to_top_level (DISCARD);
}
- last_read_token = orig_last_token; /* XXX - was WORD? */
-
if (wl)
{
rl = REVERSE_LIST (wl, WORD_LIST *);
save_parser_state (ps)
sh_parser_state_t *ps;
{
- int i;
-
if (ps == 0)
ps = (sh_parser_state_t *)xmalloc (sizeof (sh_parser_state_t));
if (ps == 0)
ps->input_line_terminator = shell_input_line_terminator;
ps->eof_encountered = eof_encountered;
+ ps->eol_lookahead = eol_ungetc_lookahead;
ps->prompt_string_pointer = prompt_string_pointer;
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
+ ps->esacs_needed = esacs_needed_count;
+ ps->expecting_in = expecting_in_token;
+
if (need_here_doc == 0)
ps->redir_stack[0] = 0;
else
memcpy (ps->redir_stack, redir_stack, sizeof (redir_stack[0]) * HEREDOC_MAX);
+
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ ps->pushed_strings = pushed_string_list;
#endif
+ ps->eof_token = shell_eof_token;
ps->token = token;
ps->token_buffer_size = token_buffer_size;
/* Force reallocation on next call to read_token_word */
shell_input_line_terminator = ps->input_line_terminator;
eof_encountered = ps->eof_encountered;
+ eol_ungetc_lookahead = ps->eol_lookahead;
prompt_string_pointer = ps->prompt_string_pointer;
need_here_doc = ps->need_here_doc;
here_doc_first_line = ps->here_doc_first_line;
+ esacs_needed_count = ps->esacs_needed;
+ expecting_in_token = ps->expecting_in;
+
#if 0
for (i = 0; i < HEREDOC_MAX; i++)
redir_stack[i] = ps->redir_stack[i];
memcpy (redir_stack, ps->redir_stack, sizeof (redir_stack[0]) * HEREDOC_MAX);
#endif
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ pushed_string_list = (STRING_SAVER *)ps->pushed_strings;
+#endif
+
FREE (token);
token = ps->token;
token_buffer_size = ps->token_buffer_size;
+ shell_eof_token = ps->eof_token;
}
sh_input_line_state_t *
ls->input_line_len = shell_input_line_len;
ls->input_line_index = shell_input_line_index;
+#if defined (HANDLE_MULTIBYTE)
+ ls->input_property = shell_input_line_property;
+ ls->input_propsize = shell_input_line_propsize;
+#endif
+
/* force reallocation */
shell_input_line = 0;
shell_input_line_size = shell_input_line_len = shell_input_line_index = 0;
+#if defined (HANDLE_MULTIBYTE)
+ shell_input_line_property = 0;
+ shell_input_line_propsize = 0;
+#endif
+
return ls;
}
shell_input_line_len = ls->input_line_len;
shell_input_line_index = ls->input_line_index;
+#if defined (HANDLE_MULTIBYTE)
+ FREE (shell_input_line_property);
+ shell_input_line_property = ls->input_property;
+ shell_input_line_propsize = ls->input_propsize;
+#endif
+
+#if 0
set_line_mbstate ();
+#endif
}
/************************************************
************************************************/
#if defined (HANDLE_MULTIBYTE)
+
+/* We don't let the property buffer get larger than this unless the line is */
+#define MAX_PROPSIZE 32768
+
static void
set_line_mbstate ()
{
size_t i, previ, len;
mbstate_t mbs, prevs;
size_t mbclen;
+ int ilen;
if (shell_input_line == NULL)
return;
- len = strlen (shell_input_line); /* XXX - shell_input_line_len ? */
- shell_input_line_property = (char *)xrealloc (shell_input_line_property, len + 1);
+ len = STRLEN (shell_input_line); /* XXX - shell_input_line_len ? */
+ if (len == 0)
+ return;
+ if (shell_input_line_propsize >= MAX_PROPSIZE && len < MAX_PROPSIZE>>1)
+ {
+ free (shell_input_line_property);
+ shell_input_line_property = 0;
+ shell_input_line_propsize = 0;
+ }
+ if (len+1 > shell_input_line_propsize)
+ {
+ shell_input_line_propsize = len + 1;
+ shell_input_line_property = (char *)xrealloc (shell_input_line_property, shell_input_line_propsize);
+ }
+
+ if (locale_mb_cur_max == 1)
+ {
+ memset (shell_input_line_property, 1, len);
+ return;
+ }
+
+ /* XXX - use whether or not we are in a UTF-8 locale to avoid calls to
+ mbrlen */
+ if (locale_utf8locale == 0)
+ memset (&prevs, '\0', sizeof (mbstate_t));
- memset (&prevs, '\0', sizeof (mbstate_t));
for (i = previ = 0; i < len; i++)
{
- mbs = prevs;
+ if (locale_utf8locale == 0)
+ mbs = prevs;
c = shell_input_line[i];
if (c == EOF)
break;
}
- mbclen = mbrlen (shell_input_line + previ, i - previ + 1, &mbs);
+ if (locale_utf8locale)
+ {
+ if ((unsigned char)shell_input_line[previ] < 128) /* i != previ */
+ mbclen = 1;
+ else
+ {
+ ilen = utf8_mblen (shell_input_line + previ, i - previ + 1);
+ mbclen = (ilen == -1) ? (size_t)-1
+ : ((ilen == -2) ? (size_t)-2 : (size_t)ilen);
+ }
+ }
+ else
+ mbclen = mbrlen (shell_input_line + previ, i - previ + 1, &mbs);
+
if (mbclen == 1 || mbclen == (size_t)-1)
{
mbclen = 1;
{
mbclen = 0;
previ = i + 1;
- prevs = mbs;
+ if (locale_utf8locale == 0)
+ prevs = mbs;
}
else
{
- /* XXX - what to do if mbrlen returns 0? (null wide character) */
size_t j;
for (j = i; j < len; j++)
shell_input_line_property[j] = 1;
projects / thirdparty / bash.git / blobdiff