-/* A Bison parser, made by GNU Bison 2.3. */
+/* A Bison parser, made by GNU Bison 3.8.2. */
-/* Skeleton implementation for Bison's Yacc-like parsers in C
+/* Bison implementation for Yacc-like parsers in C
- Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
- Free Software Foundation, Inc.
+ Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
+ Inc.
- This program is free software; you can redistribute it and/or modify
+ This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor,
- Boston, MA 02110-1301, USA. */
+ along with this program. If not, see <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 "2.3"
+/* Bison version string. */
+#define YYBISON_VERSION "3.8.2"
/* Skeleton name. */
#define YYSKELETON_NAME "yacc.c"
/* Pure parsers. */
#define YYPURE 0
-/* Using locations. */
-#define YYLSP_NEEDED 0
-
+/* Push parsers. */
+#define YYPUSH 0
-
-/* Tokens. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- /* Put the tokens into the symbol table, so that GDB and other debuggers
- know about them. */
- enum yytokentype {
- IF = 258,
- THEN = 259,
- ELSE = 260,
- ELIF = 261,
- FI = 262,
- CASE = 263,
- ESAC = 264,
- FOR = 265,
- SELECT = 266,
- WHILE = 267,
- UNTIL = 268,
- DO = 269,
- DONE = 270,
- FUNCTION = 271,
- COPROC = 272,
- COND_START = 273,
- COND_END = 274,
- COND_ERROR = 275,
- IN = 276,
- BANG = 277,
- TIME = 278,
- TIMEOPT = 279,
- TIMEIGN = 280,
- WORD = 281,
- ASSIGNMENT_WORD = 282,
- REDIR_WORD = 283,
- NUMBER = 284,
- ARITH_CMD = 285,
- ARITH_FOR_EXPRS = 286,
- COND_CMD = 287,
- AND_AND = 288,
- OR_OR = 289,
- GREATER_GREATER = 290,
- LESS_LESS = 291,
- LESS_AND = 292,
- LESS_LESS_LESS = 293,
- GREATER_AND = 294,
- SEMI_SEMI = 295,
- SEMI_AND = 296,
- SEMI_SEMI_AND = 297,
- LESS_LESS_MINUS = 298,
- AND_GREATER = 299,
- AND_GREATER_GREATER = 300,
- LESS_GREATER = 301,
- GREATER_BAR = 302,
- BAR_AND = 303,
- yacc_EOF = 304
- };
-#endif
-/* Tokens. */
-#define IF 258
-#define THEN 259
-#define ELSE 260
-#define ELIF 261
-#define FI 262
-#define CASE 263
-#define ESAC 264
-#define FOR 265
-#define SELECT 266
-#define WHILE 267
-#define UNTIL 268
-#define DO 269
-#define DONE 270
-#define FUNCTION 271
-#define COPROC 272
-#define COND_START 273
-#define COND_END 274
-#define COND_ERROR 275
-#define IN 276
-#define BANG 277
-#define TIME 278
-#define TIMEOPT 279
-#define TIMEIGN 280
-#define WORD 281
-#define ASSIGNMENT_WORD 282
-#define REDIR_WORD 283
-#define NUMBER 284
-#define ARITH_CMD 285
-#define ARITH_FOR_EXPRS 286
-#define COND_CMD 287
-#define AND_AND 288
-#define OR_OR 289
-#define GREATER_GREATER 290
-#define LESS_LESS 291
-#define LESS_AND 292
-#define LESS_LESS_LESS 293
-#define GREATER_AND 294
-#define SEMI_SEMI 295
-#define SEMI_AND 296
-#define SEMI_SEMI_AND 297
-#define LESS_LESS_MINUS 298
-#define AND_GREATER 299
-#define AND_GREATER_GREATER 300
-#define LESS_GREATER 301
-#define GREATER_BAR 302
-#define BAR_AND 303
-#define yacc_EOF 304
+/* Pull parsers. */
+#define YYPULL 1
-/* Copy the first part of user declarations. */
-#line 21 "/Users/chet/src/bash/src/parse.y"
+/* 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"
#include "parser.h"
#if defined (JOB_CONTROL)
# include "jobs.h"
+#else
+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;
-#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 PARAMS((int));
-static char *read_a_line __P((int));
+static int reserved_word_acceptable PARAMS((int));
+static int yylex PARAMS((void));
-static int reserved_word_acceptable __P((int));
-static int yylex __P((void));
-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;
/* PROMPT_STRING_POINTER points to one of these, never to an actual string. */
char *ps1_prompt, *ps2_prompt;
+/* Displayed after reading a command but before executing it in an interactive shell */
+char *ps0_prompt;
+
/* Handle on the current prompt string. Indirectly points through
ps1_ or ps2_prompt. */
char **prompt_string_pointer = (char **)NULL;
/* Variables to manage the task of reading here documents, because we need to
defer the reading until after a complete command has been collected. */
-static REDIRECT *redir_stack[10];
+static REDIRECT *redir_stack[HEREDOC_MAX];
int need_here_doc;
/* Where shell input comes from. History expansion is performed on each
line when the shell is interactive. */
static char *shell_input_line = (char *)NULL;
-static int shell_input_line_index;
-static int shell_input_line_size; /* Amount allocated for shell_input_line. */
-static int shell_input_line_len; /* strlen (shell_input_line) */
+static size_t shell_input_line_index;
+static size_t shell_input_line_size; /* Amount allocated for shell_input_line. */
+static size_t shell_input_line_len; /* strlen (shell_input_line) */
/* Either zero or EOF. */
static int shell_input_line_terminator;
or `for WORD' begins. This is a nested command maximum, since the array
index is decremented after a case, select, or for command is parsed. */
#define MAX_CASE_NEST 128
-static int word_lineno[MAX_CASE_NEST];
+static int word_lineno[MAX_CASE_NEST+1];
static int word_top = -1;
/* If non-zero, it is the token that we want read_token to return
static REDIRECTEE source;
static REDIRECTEE redir;
+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
+# if 201103L <= __cplusplus
+# define YY_NULLPTR nullptr
+# else
+# define YY_NULLPTR 0
+# endif
+# else
+# define YY_NULLPTR ((void*)0)
+# endif
+# endif
-/* Enabling traces. */
+/* 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. */
#ifndef YYDEBUG
# define YYDEBUG 0
#endif
-
-/* Enabling verbose error messages. */
-#ifdef YYERROR_VERBOSE
-# undef YYERROR_VERBOSE
-# define YYERROR_VERBOSE 1
-#else
-# define YYERROR_VERBOSE 0
+#if YYDEBUG
+extern int yydebug;
#endif
-/* Enabling the token table. */
-#ifndef YYTOKEN_TABLE
-# define YYTOKEN_TABLE 0
+/* Token kinds. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ enum yytokentype
+ {
+ 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
+/* Token kinds. */
+#define YYEMPTY -2
+#define YYEOF 0
+#define YYerror 256
+#define YYUNDEF 257
+#define IF 258
+#define THEN 259
+#define ELSE 260
+#define ELIF 261
+#define FI 262
+#define CASE 263
+#define ESAC 264
+#define FOR 265
+#define SELECT 266
+#define WHILE 267
+#define UNTIL 268
+#define DO 269
+#define DONE 270
+#define FUNCTION 271
+#define COPROC 272
+#define COND_START 273
+#define COND_END 274
+#define COND_ERROR 275
+#define IN 276
+#define BANG 277
+#define TIME 278
+#define TIMEOPT 279
+#define TIMEIGN 280
+#define WORD 281
+#define ASSIGNMENT_WORD 282
+#define REDIR_WORD 283
+#define NUMBER 284
+#define ARITH_CMD 285
+#define ARITH_FOR_EXPRS 286
+#define COND_CMD 287
+#define AND_AND 288
+#define OR_OR 289
+#define GREATER_GREATER 290
+#define LESS_LESS 291
+#define LESS_AND 292
+#define LESS_LESS_LESS 293
+#define GREATER_AND 294
+#define SEMI_SEMI 295
+#define SEMI_AND 296
+#define SEMI_SEMI_AND 297
+#define LESS_LESS_MINUS 298
+#define AND_GREATER 299
+#define AND_GREATER_GREATER 300
+#define LESS_GREATER 301
+#define GREATER_BAR 302
+#define BAR_AND 303
+#define DOLPAREN 304
+#define yacc_EOF 305
+/* Value type. */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-typedef union YYSTYPE
-#line 323 "/Users/chet/src/bash/src/parse.y"
+union YYSTYPE
{
+#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. */
WORD_LIST *word_list;
REDIRECT *redirect;
ELEMENT element;
PATTERN_LIST *pattern;
-}
-/* Line 187 of yacc.c. */
-#line 506 "y.tab.c"
- YYSTYPE;
-# define yystype YYSTYPE /* obsolescent; will be withdrawn */
-# define YYSTYPE_IS_DECLARED 1
+
+#line 551 "y.tab.c"
+
+};
+typedef union YYSTYPE YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
#endif
+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 216 of yacc.c. */
-#line 519 "y.tab.c"
#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;
-#elif (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
+/* 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 __INT_LEAST16_MAX__
+typedef __INT_LEAST16_TYPE__ yytype_int16;
+#elif defined YY_STDINT_H
+typedef int_least16_t yytype_int16;
#else
-typedef short int yytype_int8;
+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
-#ifdef YYTYPE_UINT16
-typedef YYTYPE_UINT16 yytype_uint16;
+#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 && (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
+# 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 YYENABLE_NLS
+# if defined YYENABLE_NLS && YYENABLE_NLS
# if ENABLE_NLS
# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
-# define YY_(msgid) dgettext ("bison-runtime", msgid)
+# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
# endif
# endif
# ifndef YY_
-# define YY_(msgid) msgid
+# define YY_(Msgid) Msgid
+# endif
+#endif
+
+
+#ifndef YY_ATTRIBUTE_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
+# if defined __GNUC__ && 2 < __GNUC__ + (7 <= __GNUC_MINOR__)
+# define YY_ATTRIBUTE_UNUSED __attribute__ ((__unused__))
+# else
+# 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
-/* Identity function, used to suppress warnings about constant conditions. */
-#ifndef lint
-# define YYID(n) (n)
-#else
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-static int
-YYID (int i)
+/* Suppress an incorrect diagnostic about yylval being uninitialized. */
+#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\"")
+# endif
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
+ _Pragma ("GCC diagnostic pop")
#else
-static int
-YYID (i)
- int i;
+# define YY_INITIAL_VALUE(Value) Value
#endif
-{
- return i;
-}
+#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END
+#endif
+#ifndef YY_INITIAL_VALUE
+# define YY_INITIAL_VALUE(Value) /* Nothing. */
+#endif
+
+#if defined __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. */
# define alloca _alloca
# else
# define YYSTACK_ALLOC alloca
-# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
+# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef _STDLIB_H
-# define _STDLIB_H 1
+ /* Use EXIT_SUCCESS as a witness for stdlib.h. */
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
# endif
# endif
# endif
# endif
# ifdef YYSTACK_ALLOC
- /* Pacify GCC's `empty if-body' warning. */
-# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
+ /* Pacify GCC's 'empty if-body' warning. */
+# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
# ifndef YYSTACK_ALLOC_MAXIMUM
/* The OS might guarantee only one guard page at the bottom of the stack,
and a page size can be as small as 4096 bytes. So we cannot safely
# ifndef YYSTACK_ALLOC_MAXIMUM
# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
# endif
-# if (defined __cplusplus && ! defined _STDLIB_H \
+# if (defined __cplusplus && ! defined EXIT_SUCCESS \
&& ! ((defined YYMALLOC || defined malloc) \
- && (defined YYFREE || defined free)))
+ && (defined YYFREE || defined free)))
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef _STDLIB_H
-# define _STDLIB_H 1
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
# endif
# endif
# ifndef YYMALLOC
# define YYMALLOC malloc
-# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
+# if ! defined malloc && ! defined EXIT_SUCCESS
void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
# ifndef YYFREE
# define YYFREE free
-# if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
+# if ! defined free && ! defined EXIT_SUCCESS
void free (void *); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
# endif
-#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
-
+#endif /* !defined yyoverflow */
#if (! defined yyoverflow \
&& (! defined __cplusplus \
- || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
+ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
/* A type that is properly aligned for any stack member. */
union yyalloc
{
- yytype_int16 yyss;
- YYSTYPE yyvs;
- };
+ 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)
-/* Copy COUNT objects from FROM to TO. The source and destination do
- not overlap. */
-# ifndef YYCOPY
-# if defined __GNUC__ && 1 < __GNUC__
-# define YYCOPY(To, From, Count) \
- __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
-# else
-# define YYCOPY(To, From, Count) \
- do \
- { \
- YYSIZE_T yyi; \
- for (yyi = 0; yyi < (Count); yyi++) \
- (To)[yyi] = (From)[yyi]; \
- } \
- while (YYID (0))
-# endif
-# endif
+# define YYCOPY_NEEDED 1
/* Relocate STACK from its old location to the new one. The
local variables YYSIZE and YYSTACKSIZE give the old and new number of
elements in the stack, and YYPTR gives the new location of the
stack. Advance YYPTR to a properly aligned location for the next
stack. */
-# define YYSTACK_RELOCATE(Stack) \
- do \
- { \
- YYSIZE_T yynewbytes; \
- YYCOPY (&yyptr->Stack, Stack, yysize); \
- Stack = &yyptr->Stack; \
- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
- yyptr += yynewbytes / sizeof (*yyptr); \
- } \
- while (YYID (0))
+# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
+ do \
+ { \
+ YYPTRDIFF_T yynewbytes; \
+ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
+ Stack = &yyptr->Stack_alloc; \
+ yynewbytes = yystacksize * YYSIZEOF (*Stack) + YYSTACK_GAP_MAXIMUM; \
+ yyptr += yynewbytes / YYSIZEOF (*yyptr); \
+ } \
+ while (0)
#endif
+#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
+/* Copy COUNT objects from SRC to DST. The source and destination do
+ not overlap. */
+# ifndef YYCOPY
+# if defined __GNUC__ && 1 < __GNUC__
+# define YYCOPY(Dst, Src, Count) \
+ __builtin_memcpy (Dst, Src, YY_CAST (YYSIZE_T, (Count)) * sizeof (*(Src)))
+# else
+# define YYCOPY(Dst, Src, Count) \
+ do \
+ { \
+ YYPTRDIFF_T yyi; \
+ for (yyi = 0; yyi < (Count); yyi++) \
+ (Dst)[yyi] = (Src)[yyi]; \
+ } \
+ while (0)
+# endif
+# endif
+#endif /* !YYCOPY_NEEDED */
+
/* YYFINAL -- State number of the termination state. */
-#define YYFINAL 116
+#define YYFINAL 122
/* YYLAST -- Last index in YYTABLE. */
-#define YYLAST 659
+#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
-/* YYNRULES -- Number of states. */
-#define YYNSTATES 342
+#define YYNRULES 175
+/* YYNSTATES -- Number of states. */
+#define YYNSTATES 350
-/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
-#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[YYLEX] -- Bison symbol number corresponding to YYLEX. */
-static const yytype_uint8 yytranslate[] =
+/* 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. */
+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
-/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
- YYRHS. */
-static const yytype_uint16 yyprhs[] =
+/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
+static const yytype_int16 yyrline[] =
{
- 0, 0, 3, 6, 8, 11, 13, 15, 18, 21,
- 24, 28, 32, 36, 40, 43, 47, 51, 54, 58,
- 62, 65, 69, 73, 76, 80, 84, 87, 91, 95,
- 98, 102, 106, 109, 113, 117, 120, 124, 128, 131,
- 135, 139, 142, 146, 150, 153, 157, 161, 164, 168,
- 172, 175, 178, 180, 182, 184, 186, 189, 191, 194,
- 196, 198, 201, 203, 205, 207, 209, 215, 221, 223,
- 225, 227, 229, 231, 233, 235, 242, 249, 257, 265,
- 276, 287, 297, 307, 315, 323, 329, 335, 342, 349,
- 357, 365, 376, 387, 394, 402, 409, 415, 422, 427,
- 429, 432, 436, 439, 443, 447, 452, 455, 461, 469,
- 476, 480, 482, 486, 491, 498, 504, 506, 509, 514,
- 519, 525, 531, 534, 538, 541, 545, 548, 552, 554,
- 558, 561, 563, 566, 570, 574, 578, 583, 588, 593,
- 598, 603, 605, 607, 609, 611, 613, 615, 616, 619,
- 621, 624, 627, 632, 637, 641, 645, 647, 649, 652,
- 655, 658, 661, 666, 671, 673, 675, 678
+ 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
-/* YYRHS -- A `-1'-separated list of the rules' RHS. */
-static const yytype_int8 yyrhs[] =
-{
- 62, 0, -1, 94, 91, -1, 51, -1, 1, 51,
- -1, 52, -1, 26, -1, 63, 26, -1, 54, 26,
- -1, 55, 26, -1, 29, 54, 26, -1, 29, 55,
- 26, -1, 28, 54, 26, -1, 28, 55, 26, -1,
- 35, 26, -1, 29, 35, 26, -1, 28, 35, 26,
- -1, 47, 26, -1, 29, 47, 26, -1, 28, 47,
- 26, -1, 46, 26, -1, 29, 46, 26, -1, 28,
- 46, 26, -1, 36, 26, -1, 29, 36, 26, -1,
- 28, 36, 26, -1, 43, 26, -1, 29, 43, 26,
- -1, 28, 43, 26, -1, 38, 26, -1, 29, 38,
- 26, -1, 28, 38, 26, -1, 37, 29, -1, 29,
- 37, 29, -1, 28, 37, 29, -1, 39, 29, -1,
- 29, 39, 29, -1, 28, 39, 29, -1, 37, 26,
- -1, 29, 37, 26, -1, 28, 37, 26, -1, 39,
- 26, -1, 29, 39, 26, -1, 28, 39, 26, -1,
- 39, 56, -1, 29, 39, 56, -1, 28, 39, 56,
- -1, 37, 56, -1, 29, 37, 56, -1, 28, 37,
- 56, -1, 44, 26, -1, 45, 26, -1, 26, -1,
- 27, -1, 64, -1, 64, -1, 66, 64, -1, 65,
- -1, 67, 65, -1, 67, -1, 69, -1, 69, 66,
- -1, 74, -1, 77, -1, 70, -1, 73, -1, 12,
- 88, 14, 88, 15, -1, 13, 88, 14, 88, 15,
- -1, 72, -1, 78, -1, 76, -1, 79, -1, 80,
- -1, 81, -1, 71, -1, 10, 26, 93, 14, 88,
- 15, -1, 10, 26, 93, 57, 88, 58, -1, 10,
- 26, 50, 93, 14, 88, 15, -1, 10, 26, 50,
- 93, 57, 88, 58, -1, 10, 26, 93, 21, 63,
- 92, 93, 14, 88, 15, -1, 10, 26, 93, 21,
- 63, 92, 93, 57, 88, 58, -1, 10, 26, 93,
- 21, 92, 93, 14, 88, 15, -1, 10, 26, 93,
- 21, 92, 93, 57, 88, 58, -1, 10, 31, 92,
- 93, 14, 88, 15, -1, 10, 31, 92, 93, 57,
- 88, 58, -1, 10, 31, 14, 88, 15, -1, 10,
- 31, 57, 88, 58, -1, 11, 26, 93, 14, 87,
- 15, -1, 11, 26, 93, 57, 87, 58, -1, 11,
- 26, 50, 93, 14, 87, 15, -1, 11, 26, 50,
- 93, 57, 87, 58, -1, 11, 26, 93, 21, 63,
- 92, 93, 14, 87, 15, -1, 11, 26, 93, 21,
- 63, 92, 93, 57, 87, 58, -1, 8, 26, 93,
- 21, 93, 9, -1, 8, 26, 93, 21, 85, 93,
- 9, -1, 8, 26, 93, 21, 83, 9, -1, 26,
- 59, 60, 93, 75, -1, 16, 26, 59, 60, 93,
- 75, -1, 16, 26, 93, 75, -1, 69, -1, 69,
- 66, -1, 59, 88, 60, -1, 17, 69, -1, 17,
- 69, 66, -1, 17, 26, 69, -1, 17, 26, 69,
- 66, -1, 17, 67, -1, 3, 88, 4, 88, 7,
- -1, 3, 88, 4, 88, 5, 88, 7, -1, 3,
- 88, 4, 88, 82, 7, -1, 57, 88, 58, -1,
- 30, -1, 18, 32, 19, -1, 6, 88, 4, 88,
- -1, 6, 88, 4, 88, 5, 88, -1, 6, 88,
- 4, 88, 82, -1, 84, -1, 85, 84, -1, 93,
- 86, 60, 88, -1, 93, 86, 60, 93, -1, 93,
- 59, 86, 60, 88, -1, 93, 59, 86, 60, 93,
- -1, 84, 40, -1, 85, 84, 40, -1, 84, 41,
- -1, 85, 84, 41, -1, 84, 42, -1, 85, 84,
- 42, -1, 26, -1, 86, 53, 26, -1, 93, 89,
- -1, 87, -1, 93, 90, -1, 90, 51, 93, -1,
- 90, 49, 93, -1, 90, 50, 93, -1, 90, 33,
- 93, 90, -1, 90, 34, 93, 90, -1, 90, 49,
- 93, 90, -1, 90, 50, 93, 90, -1, 90, 51,
- 93, 90, -1, 96, -1, 51, -1, 52, -1, 51,
- -1, 50, -1, 52, -1, -1, 93, 51, -1, 95,
- -1, 95, 49, -1, 95, 50, -1, 95, 33, 93,
- 95, -1, 95, 34, 93, 95, -1, 95, 49, 95,
- -1, 95, 50, 95, -1, 96, -1, 97, -1, 22,
- 96, -1, 98, 96, -1, 98, 92, -1, 22, 92,
- -1, 97, 53, 93, 97, -1, 97, 48, 93, 97,
- -1, 68, -1, 23, -1, 23, 24, -1, 23, 24,
- 25, -1
-};
+/** Accessing symbol of state STATE. */
+#define YY_ACCESSING_SYMBOL(State) YY_CAST (yysymbol_kind_t, yystos[State])
-/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
-static const yytype_uint16 yyrline[] =
-{
- 0, 376, 376, 387, 396, 411, 421, 423, 427, 433,
- 439, 445, 451, 457, 463, 469, 475, 481, 487, 493,
- 499, 505, 511, 517, 524, 531, 538, 545, 552, 559,
- 565, 571, 577, 583, 589, 595, 601, 607, 613, 619,
- 625, 631, 637, 643, 649, 655, 661, 667, 673, 679,
- 685, 691, 699, 701, 703, 707, 711, 722, 724, 728,
- 730, 732, 748, 750, 754, 756, 758, 760, 762, 764,
- 766, 768, 770, 772, 774, 778, 783, 788, 793, 798,
- 803, 808, 813, 820, 825, 830, 835, 842, 847, 852,
- 857, 862, 867, 874, 879, 884, 891, 894, 897, 901,
- 903, 934, 941, 946, 963, 968, 985, 992, 994, 996,
- 1001, 1005, 1009, 1013, 1015, 1017, 1021, 1022, 1026, 1028,
- 1030, 1032, 1036, 1038, 1040, 1042, 1044, 1046, 1050, 1052,
- 1061, 1069, 1070, 1076, 1077, 1084, 1088, 1090, 1092, 1099,
- 1101, 1103, 1107, 1108, 1111, 1113, 1115, 1119, 1120, 1129,
- 1142, 1158, 1173, 1175, 1177, 1184, 1187, 1191, 1193, 1199,
- 1205, 1222, 1242, 1244, 1267, 1271, 1273, 1275
-};
-#endif
+#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;
-#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
First, the terminals, then, starting at YYNTOKENS, nonterminals. */
static const char *const yytname[] =
{
- "$end", "error", "$undefined", "IF", "THEN", "ELSE", "ELIF", "FI",
- "CASE", "ESAC", "FOR", "SELECT", "WHILE", "UNTIL", "DO", "DONE",
- "FUNCTION", "COPROC", "COND_START", "COND_END", "COND_ERROR", "IN",
- "BANG", "TIME", "TIMEOPT", "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", 0
+ "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[YYLEX-NUM] -- Internal token number corresponding to
- token YYLEX-NUM. */
-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
-/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
-static const yytype_uint8 yyr1[] =
-{
- 0, 61, 62, 62, 62, 62, 63, 63, 64, 64,
- 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
- 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
- 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
- 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
- 64, 64, 65, 65, 65, 66, 66, 67, 67, 68,
- 68, 68, 68, 68, 69, 69, 69, 69, 69, 69,
- 69, 69, 69, 69, 69, 70, 70, 70, 70, 70,
- 70, 70, 70, 71, 71, 71, 71, 72, 72, 72,
- 72, 72, 72, 73, 73, 73, 74, 74, 74, 75,
- 75, 76, 77, 77, 77, 77, 77, 78, 78, 78,
- 79, 80, 81, 82, 82, 82, 83, 83, 84, 84,
- 84, 84, 85, 85, 85, 85, 85, 85, 86, 86,
- 87, 88, 88, 89, 89, 89, 90, 90, 90, 90,
- 90, 90, 91, 91, 92, 92, 92, 93, 93, 94,
- 94, 94, 95, 95, 95, 95, 95, 96, 96, 96,
- 96, 96, 97, 97, 97, 98, 98, 98
-};
+#define YYPACT_NINF (-125)
+
+#define yypact_value_is_default(Yyn) \
+ ((Yyn) == YYPACT_NINF)
+
+#define YYTABLE_NINF (-1)
-/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
-static const yytype_uint8 yyr2[] =
+#define yytable_value_is_error(Yyn) \
+ 0
+
+/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+ STATE-NUM. */
+static const yytype_int16 yypact[] =
{
- 0, 2, 2, 1, 2, 1, 1, 2, 2, 2,
- 3, 3, 3, 3, 2, 3, 3, 2, 3, 3,
- 2, 3, 3, 2, 3, 3, 2, 3, 3, 2,
- 3, 3, 2, 3, 3, 2, 3, 3, 2, 3,
- 3, 2, 3, 3, 2, 3, 3, 2, 3, 3,
- 2, 2, 1, 1, 1, 1, 2, 1, 2, 1,
- 1, 2, 1, 1, 1, 1, 5, 5, 1, 1,
- 1, 1, 1, 1, 1, 6, 6, 7, 7, 10,
- 10, 9, 9, 7, 7, 5, 5, 6, 6, 7,
- 7, 10, 10, 6, 7, 6, 5, 6, 4, 1,
- 2, 3, 2, 3, 3, 4, 2, 5, 7, 6,
- 3, 1, 3, 4, 6, 5, 1, 2, 4, 4,
- 5, 5, 2, 3, 2, 3, 2, 3, 1, 3,
- 2, 1, 2, 3, 3, 3, 4, 4, 4, 4,
- 4, 1, 1, 1, 1, 1, 1, 0, 2, 1,
- 2, 2, 4, 4, 3, 3, 1, 1, 2, 2,
- 2, 2, 4, 4, 1, 1, 2, 3
+ 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-NAME] -- Default rule to reduce with in state
- STATE-NUM when YYTABLE doesn't specify something else to do. Zero
+/* 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, 0, 0,
- 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, 147, 147, 147, 123, 125, 127, 94,
- 0, 0, 147, 77, 78, 0, 147, 147, 83, 84,
- 89, 90, 0, 113, 0, 0, 0, 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
};
-/* YYDEFGOTO[NTERM-NUM]. */
-static const yytype_int16 yydefgoto[] =
-{
- -1, 34, 239, 35, 36, 120, 37, 38, 39, 40,
- 41, 42, 43, 44, 213, 45, 46, 47, 48, 49,
- 50, 225, 231, 232, 233, 274, 57, 58, 134, 135,
- 123, 74, 59, 51, 187, 136, 54, 55
-};
-
-/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
- STATE-NUM. */
-#define YYPACT_NINF -208
-static const yytype_int16 yypact[] =
+/* YYPGOTO[NTERM-NUM]. */
+static const yytype_int16 yypgoto[] =
{
- 296, -35, -208, -2, 38, 10, -208, -208, 24, 546,
- 31, 346, 51, 47, -208, 591, 604, -208, 56, 71,
- -18, 112, 130, 115, 128, 136, 143, 154, -208, -208,
- 157, 170, -208, -208, 111, -208, -208, 229, -208, 578,
- -208, -208, -208, -208, -208, -208, -208, -208, -208, -208,
- -208, -12, -3, -208, 48, 346, -208, -208, 208, 396,
- -208, 73, 15, 163, 190, 201, 160, 107, 229, 578,
- 204, -208, -208, -208, -208, -208, 195, 165, 202, 215,
- 152, 216, 153, 222, 227, 236, 237, 244, 245, 253,
- 158, 254, 171, 255, 256, 259, 261, 262, -208, -208,
- -208, -208, -208, -208, -208, -208, -208, -208, -208, -208,
- -208, -208, -208, -208, 231, 230, -208, -208, -208, -208,
- 578, -208, -208, -208, -208, -208, 446, 446, -208, -208,
- -208, -208, -208, -208, -208, 210, -208, 4, -208, 65,
- -208, -208, -208, -208, 70, -208, -208, 232, 41, 578,
- 578, -208, -208, -208, -208, -208, -208, -208, -208, -208,
- -208, -208, -208, -208, -208, -208, -208, -208, -208, -208,
- -208, -208, -208, -208, -208, -208, -208, -208, -208, -208,
- -208, -208, -208, -208, -208, 396, 396, 23, 23, 496,
- 496, 97, -208, -208, -208, -208, -208, -208, 85, -208,
- 185, -208, 276, 235, 100, 110, -208, 268, -208, 280,
- 283, -208, 578, -208, 578, 41, -208, -208, 446, 446,
- 48, 48, -208, -208, -208, 295, 396, 396, 396, 396,
- 396, 294, 161, -208, 19, -208, -208, 290, -208, 200,
- -208, 252, -208, -208, -208, -208, -208, -208, 302, 396,
- 200, 269, -208, -208, 41, 578, -208, 313, 324, -208,
- -208, -208, 55, 55, 55, -208, -208, -208, -208, 192,
- 34, -208, -208, 303, -19, 315, 278, -208, -208, -208,
- 114, -208, 322, 286, 323, 287, -208, 210, -208, -208,
- -208, -208, -208, -208, -208, -208, -208, -208, -208, -208,
- 8, 320, -208, -208, -208, 117, -208, -208, -208, -208,
- -208, -208, 119, 167, 396, 396, 396, -208, -208, -208,
- 396, -208, -208, 337, 307, -208, -208, -208, -208, -208,
- 396, 345, 308, -208, -208, 352, 312, -208, -208, -208,
- -208, -208
+ -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
};
-/* YYPGOTO[NTERM-NUM]. */
-static const yytype_int16 yypgoto[] =
+/* YYDEFGOTO[NTERM-NUM]. */
+static const yytype_int16 yydefgoto[] =
{
- -208, -208, 164, -37, -31, -62, 368, -208, -5, -208,
- -208, -208, -208, -208, -206, -208, -208, -208, -208, -208,
- -208, 66, -208, 145, -208, 88, -173, -6, -208, -207,
- -208, -45, -48, -208, 5, 3, 17, -208
+ 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 which
- number is the opposite. If zero, do what YYDEFACT says.
- If YYTABLE_NINF, syntax error. */
-#define YYTABLE_NINF -1
-static const yytype_uint16 yytable[] =
+/* 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, 119, 53, 69, 52, 118, 150, 100, 256,
- 130, 101, 137, 139, 75, 144, 56, 142, 148, 260,
- 261, 262, 263, 264, 60, 197, 114, 115, 271, 140,
- 124, 125, 119, 248, 301, 251, 63, 118, 102, 121,
- 122, 302, 287, 299, 2, 272, 126, 127, 290, 3,
- 66, 4, 5, 6, 7, 133, 124, 125, 131, 10,
- 272, 301, 149, 70, 61, 71, 72, 73, 317, 62,
- 133, 17, 141, 284, 285, 76, 185, 186, 273, 199,
- 189, 190, 98, 184, 206, 133, 200, 214, 192, 193,
- 198, 207, 133, 273, 204, 205, 128, 99, 32, 235,
- 33, 129, 222, 223, 224, 215, 77, 262, 263, 264,
- 2, 116, 119, 184, 244, 3, 133, 4, 5, 6,
- 7, 133, 201, 138, 246, 10, 191, 208, 306, 53,
- 53, 321, 188, 325, 202, 203, 133, 17, 103, 209,
- 210, 107, 236, 212, 226, 227, 228, 229, 230, 234,
- 255, 133, 335, 336, 108, 240, 104, 245, 249, 105,
- 249, 133, 109, 254, 32, 133, 33, 247, 133, 110,
- 133, 307, 327, 223, 322, 119, 326, 184, 156, 160,
- 111, 157, 161, 112, 170, 270, 106, 171, 53, 53,
- 216, 217, 280, 237, 279, 241, 113, 174, 249, 249,
- 175, 266, 267, 268, 145, 288, 220, 221, 158, 162,
- 212, 238, 132, 143, 172, 146, 257, 258, 184, 147,
- 152, 53, 53, 151, 188, 153, 278, 176, 154, 275,
- 276, 305, 296, 297, 298, 71, 72, 73, 282, 283,
- 312, 155, 159, 192, 193, 314, 315, 316, 163, 212,
- 71, 72, 73, 164, 320, 117, 14, 15, 16, 194,
- 195, 196, 165, 166, 18, 19, 20, 21, 22, 330,
- 167, 168, 23, 24, 25, 26, 27, 249, 249, 169,
- 173, 177, 178, 30, 31, 179, 313, 180, 181, 182,
- 183, 242, 211, 243, 238, 252, 319, 1, 253, 2,
- 323, 324, 259, 265, 3, 277, 4, 5, 6, 7,
- 281, 329, 8, 9, 10, 331, 332, 286, 11, 12,
- 291, 337, 13, 14, 15, 16, 17, 289, 292, 272,
- 303, 18, 19, 20, 21, 22, 304, 308, 310, 23,
- 24, 25, 26, 27, 309, 311, 318, 28, 29, 2,
- 30, 31, 333, 32, 3, 33, 4, 5, 6, 7,
- 338, 300, 8, 9, 10, 334, 339, 340, 11, 12,
- 341, 250, 13, 14, 15, 16, 17, 68, 269, 328,
- 0, 18, 19, 20, 21, 22, 0, 0, 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,
+ 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, 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, 15, 16, 0, 0,
- 0, 0, 0, 18, 19, 20, 21, 22, 0, 0,
- 0, 23, 24, 25, 26, 27, 78, 79, 80, 81,
- 82, 0, 30, 31, 83, 0, 0, 84, 85, 88,
- 89, 90, 91, 92, 0, 86, 87, 93, 0, 0,
- 94, 95, 0, 0, 0, 0, 0, 0, 96, 97
+ 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, 39, 0, 9, 0, 37, 69, 26, 215,
- 55, 29, 60, 61, 11, 63, 51, 62, 66, 226,
- 227, 228, 229, 230, 26, 21, 32, 33, 9, 14,
- 33, 34, 69, 206, 53, 208, 26, 68, 56, 51,
- 52, 60, 249, 9, 3, 26, 49, 50, 254, 8,
- 26, 10, 11, 12, 13, 51, 33, 34, 55, 18,
- 26, 53, 67, 32, 26, 50, 51, 52, 60, 31,
- 51, 30, 57, 246, 247, 24, 124, 125, 59, 14,
- 128, 129, 26, 120, 14, 51, 21, 149, 33, 34,
- 138, 21, 51, 59, 142, 143, 48, 26, 57, 14,
- 59, 53, 5, 6, 7, 153, 59, 314, 315, 316,
- 3, 0, 149, 150, 14, 8, 51, 10, 11, 12,
- 13, 51, 57, 50, 14, 18, 132, 57, 14, 126,
- 127, 14, 127, 14, 140, 141, 51, 30, 26, 145,
- 146, 26, 57, 148, 192, 193, 194, 195, 196, 197,
- 212, 51, 325, 326, 26, 200, 26, 57, 206, 29,
- 208, 51, 26, 211, 57, 51, 59, 57, 51, 26,
- 51, 57, 5, 6, 57, 212, 57, 214, 26, 26,
- 26, 29, 29, 26, 26, 233, 56, 29, 185, 186,
- 185, 186, 240, 199, 239, 201, 26, 26, 246, 247,
- 29, 40, 41, 42, 14, 250, 189, 190, 56, 56,
- 215, 26, 4, 50, 56, 14, 222, 223, 255, 59,
- 25, 218, 219, 19, 219, 60, 26, 56, 26, 235,
- 236, 279, 40, 41, 42, 50, 51, 52, 244, 245,
- 288, 26, 26, 33, 34, 293, 294, 295, 26, 254,
- 50, 51, 52, 26, 302, 26, 27, 28, 29, 49,
- 50, 51, 26, 26, 35, 36, 37, 38, 39, 317,
- 26, 26, 43, 44, 45, 46, 47, 325, 326, 26,
- 26, 26, 26, 54, 55, 26, 292, 26, 26, 58,
- 60, 15, 60, 58, 26, 15, 302, 1, 15, 3,
- 306, 307, 7, 9, 8, 15, 10, 11, 12, 13,
- 58, 317, 16, 17, 18, 321, 322, 15, 22, 23,
- 7, 327, 26, 27, 28, 29, 30, 58, 4, 26,
- 15, 35, 36, 37, 38, 39, 58, 15, 15, 43,
- 44, 45, 46, 47, 58, 58, 26, 51, 52, 3,
- 54, 55, 15, 57, 8, 59, 10, 11, 12, 13,
- 15, 273, 16, 17, 18, 58, 58, 15, 22, 23,
- 58, 207, 26, 27, 28, 29, 30, 9, 233, 313,
- -1, 35, 36, 37, 38, 39, -1, -1, -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,
+ 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, 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, 28, 29, -1, -1,
- -1, -1, -1, 35, 36, 37, 38, 39, -1, -1,
- -1, 43, 44, 45, 46, 47, 35, 36, 37, 38,
- 39, -1, 54, 55, 43, -1, -1, 46, 47, 35,
- 36, 37, 38, 39, -1, 54, 55, 43, -1, -1,
- 46, 47, -1, -1, -1, -1, -1, -1, 54, 55
+ 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, 49, 50,
- 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, 49, 50, 51, 40, 41, 42, 9,
- 86, 53, 60, 15, 58, 93, 14, 57, 15, 58,
- 15, 58, 93, 88, 93, 93, 93, 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
};
-#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
+/* YYR1[RULE-NUM] -- Symbol kind of the left-hand side of rule RULE-NUM. */
+static const yytype_int8 yyr1[] =
+{
+ 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[RULE-NUM] -- Number of symbols on the right-hand side of rule RULE-NUM. */
+static const yytype_int8 yyr2[] =
+{
+ 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, 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
+};
-/* Like YYERROR except do call yyerror. This remains here temporarily
- to ease the transition to the new meaning of YYERROR, for GCC.
- Once GCC version 2 has supplanted version 1, this can go. */
-
-#define YYFAIL goto yyerrlab
-#define YYRECOVERING() (!!yyerrstatus)
+enum { YYENOMEM = -2 };
-#define YYBACKUP(Token, Value) \
-do \
- if (yychar == YYEMPTY && yylen == 1) \
- { \
- yychar = (Token); \
- yylval = (Value); \
- yytoken = YYTRANSLATE (yychar); \
- YYPOPSTACK (1); \
- goto yybackup; \
- } \
- else \
- { \
- yyerror (YY_("syntax error: cannot back up")); \
- YYERROR; \
- } \
-while (YYID (0))
-
-
-#define YYTERROR 1
-#define YYERRCODE 256
-
-
-/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
- If N is 0, then set CURRENT to the empty location which ends
- the previous symbol: RHS[0] (always defined). */
-
-#define YYRHSLOC(Rhs, K) ((Rhs)[K])
-#ifndef YYLLOC_DEFAULT
-# define YYLLOC_DEFAULT(Current, Rhs, N) \
- do \
- if (YYID (N)) \
- { \
- (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
- (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
- (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
- (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
- } \
- else \
- { \
- (Current).first_line = (Current).last_line = \
- YYRHSLOC (Rhs, 0).last_line; \
- (Current).first_column = (Current).last_column = \
- YYRHSLOC (Rhs, 0).last_column; \
- } \
- while (YYID (0))
-#endif
+#define yyerrok (yyerrstatus = 0)
+#define yyclearin (yychar = YYEMPTY)
+#define YYACCEPT goto yyacceptlab
+#define YYABORT goto yyabortlab
+#define YYERROR goto yyerrorlab
+#define YYNOMEM goto yyexhaustedlab
-/* YY_LOCATION_PRINT -- Print the location on the stream.
- This macro was not mandated originally: define only if we know
- we won't break user code: when these are the locations we know. */
-#ifndef YY_LOCATION_PRINT
-# if YYLTYPE_IS_TRIVIAL
-# define YY_LOCATION_PRINT(File, Loc) \
- fprintf (File, "%d.%d-%d.%d", \
- (Loc).first_line, (Loc).first_column, \
- (Loc).last_line, (Loc).last_column)
-# else
-# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
-# endif
-#endif
+#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)
-/* YYLEX -- calling `yylex' with the right arguments. */
+/* Backward compatibility with an undocumented macro.
+ Use YYerror or YYUNDEF. */
+#define YYERRCODE YYUNDEF
-#ifdef YYLEX_PARAM
-# define YYLEX yylex (YYLEX_PARAM)
-#else
-# define YYLEX yylex ()
-#endif
/* Enable debugging if requested. */
#if YYDEBUG
# define YYFPRINTF fprintf
# endif
-# define YYDPRINTF(Args) \
-do { \
- if (yydebug) \
- YYFPRINTF Args; \
-} while (YYID (0))
-
-# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
-do { \
- if (yydebug) \
- { \
- YYFPRINTF (stderr, "%s ", Title); \
- yy_symbol_print (stderr, \
- Type, Value); \
- YYFPRINTF (stderr, "\n"); \
- } \
-} while (YYID (0))
-
-
-/*--------------------------------.
-| Print this symbol on YYOUTPUT. |
-`--------------------------------*/
-
-/*ARGSUSED*/
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-static void
-yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
-#else
+# define YYDPRINTF(Args) \
+do { \
+ if (yydebug) \
+ YYFPRINTF Args; \
+} while (0)
+
+
+
+
+# define YY_SYMBOL_PRINT(Title, Kind, Value, Location) \
+do { \
+ if (yydebug) \
+ { \
+ YYFPRINTF (stderr, "%s ", Title); \
+ yy_symbol_print (stderr, \
+ Kind, Value); \
+ YYFPRINTF (stderr, "\n"); \
+ } \
+} while (0)
+
+
+/*-----------------------------------.
+| Print this symbol's value on YYO. |
+`-----------------------------------*/
+
static void
-yy_symbol_value_print (yyoutput, yytype, yyvaluep)
- FILE *yyoutput;
- int yytype;
- YYSTYPE const * const yyvaluep;
-#endif
+yy_symbol_value_print (FILE *yyo,
+ yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep)
{
+ FILE *yyoutput = yyo;
+ YY_USE (yyoutput);
if (!yyvaluep)
return;
-# ifdef YYPRINT
- if (yytype < YYNTOKENS)
- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
-# else
- YYUSE (yyoutput);
-# endif
- switch (yytype)
- {
- default:
- break;
- }
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+ YY_USE (yykind);
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
}
-/*--------------------------------.
-| Print this symbol on YYOUTPUT. |
-`--------------------------------*/
+/*---------------------------.
+| Print this symbol on YYO. |
+`---------------------------*/
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
static void
-yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
-#else
-static void
-yy_symbol_print (yyoutput, yytype, yyvaluep)
- FILE *yyoutput;
- int yytype;
- YYSTYPE const * const yyvaluep;
-#endif
+yy_symbol_print (FILE *yyo,
+ yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep)
{
- if (yytype < YYNTOKENS)
- YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
- else
- YYFPRINTF (yyoutput, "nterm %s (", 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, ")");
}
/*------------------------------------------------------------------.
| TOP (included). |
`------------------------------------------------------------------*/
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
static void
-yy_stack_print (yytype_int16 *bottom, yytype_int16 *top)
-#else
-static void
-yy_stack_print (bottom, top)
- yytype_int16 *bottom;
- yytype_int16 *top;
-#endif
+yy_stack_print (yy_state_t *yybottom, yy_state_t *yytop)
{
YYFPRINTF (stderr, "Stack now");
- for (; bottom <= top; ++bottom)
- YYFPRINTF (stderr, " %d", *bottom);
+ for (; yybottom <= yytop; yybottom++)
+ {
+ int yybot = *yybottom;
+ YYFPRINTF (stderr, " %d", yybot);
+ }
YYFPRINTF (stderr, "\n");
}
-# define YY_STACK_PRINT(Bottom, Top) \
-do { \
- if (yydebug) \
- yy_stack_print ((Bottom), (Top)); \
-} while (YYID (0))
+# define YY_STACK_PRINT(Bottom, Top) \
+do { \
+ if (yydebug) \
+ yy_stack_print ((Bottom), (Top)); \
+} while (0)
/*------------------------------------------------.
| Report that the YYRULE is going to be reduced. |
`------------------------------------------------*/
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-static void
-yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
-#else
static void
-yy_reduce_print (yyvsp, yyrule)
- YYSTYPE *yyvsp;
- int yyrule;
-#endif
+yy_reduce_print (yy_state_t *yyssp, YYSTYPE *yyvsp,
+ int yyrule)
{
+ int yylno = yyrline[yyrule];
int yynrhs = yyr2[yyrule];
int yyi;
- unsigned long int yylno = yyrline[yyrule];
- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
- yyrule - 1, yylno);
+ YYFPRINTF (stderr, "Reducing stack by rule %d (line %d):\n",
+ yyrule - 1, yylno);
/* The symbols being reduced. */
for (yyi = 0; yyi < yynrhs; yyi++)
{
- fprintf (stderr, " $%d = ", yyi + 1);
- yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
- &(yyvsp[(yyi + 1) - (yynrhs)])
- );
- fprintf (stderr, "\n");
+ YYFPRINTF (stderr, " $%d = ", yyi + 1);
+ yy_symbol_print (stderr,
+ YY_ACCESSING_SYMBOL (+yyssp[yyi + 1 - yynrhs]),
+ &yyvsp[(yyi + 1) - (yynrhs)]);
+ YYFPRINTF (stderr, "\n");
}
}
-# define YY_REDUCE_PRINT(Rule) \
-do { \
- if (yydebug) \
- yy_reduce_print (yyvsp, Rule); \
-} while (YYID (0))
+# define YY_REDUCE_PRINT(Rule) \
+do { \
+ if (yydebug) \
+ yy_reduce_print (yyssp, yyvsp, Rule); \
+} while (0)
/* Nonzero means print parse trace. It is left uninitialized so that
multiple parsers can coexist. */
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 */
/* YYINITDEPTH -- initial size of the parser's stacks. */
-#ifndef YYINITDEPTH
+#ifndef YYINITDEPTH
# define YYINITDEPTH 200
#endif
# define YYMAXDEPTH 10000
#endif
-\f
-
-#if YYERROR_VERBOSE
-
-# ifndef yystrlen
-# if defined __GLIBC__ && defined _STRING_H
-# define yystrlen strlen
-# else
-/* Return the length of YYSTR. */
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-static YYSIZE_T
-yystrlen (const char *yystr)
-#else
-static YYSIZE_T
-yystrlen (yystr)
- const char *yystr;
-#endif
-{
- YYSIZE_T yylen;
- for (yylen = 0; yystr[yylen]; yylen++)
- continue;
- return yylen;
-}
-# endif
-# endif
-
-# ifndef yystpcpy
-# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
-# define yystpcpy stpcpy
-# else
-/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
- YYDEST. */
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-static char *
-yystpcpy (char *yydest, const char *yysrc)
-#else
-static char *
-yystpcpy (yydest, yysrc)
- char *yydest;
- const char *yysrc;
-#endif
-{
- 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 YYRESULT an error message about the unexpected token
- YYCHAR while in state YYSTATE. Return the number of bytes copied,
- including the terminating null byte. If YYRESULT is null, do not
- copy anything; just return the number of bytes that would be
- copied. As a special case, return 0 if an ordinary "syntax error"
- message will do. Return YYSIZE_MAXIMUM if overflow occurs during
- size calculation. */
-static YYSIZE_T
-yysyntax_error (char *yyresult, int yystate, int yychar)
-{
- int yyn = yypact[yystate];
- if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
- return 0;
- else
- {
- int yytype = YYTRANSLATE (yychar);
- YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
- YYSIZE_T yysize = yysize0;
- YYSIZE_T yysize1;
- int yysize_overflow = 0;
- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
- int yyx;
-
-# if 0
- /* This is so xgettext sees the translatable formats that are
- constructed on the fly. */
- YY_("syntax error, unexpected %s");
- YY_("syntax error, unexpected %s, expecting %s");
- YY_("syntax error, unexpected %s, expecting %s or %s");
- YY_("syntax error, unexpected %s, expecting %s or %s or %s");
- YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
-# endif
- char *yyfmt;
- char const *yyf;
- static char const yyunexpected[] = "syntax error, unexpected %s";
- static char const yyexpecting[] = ", expecting %s";
- static char const yyor[] = " or %s";
- char yyformat[sizeof yyunexpected
- + sizeof yyexpecting - 1
- + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
- * (sizeof yyor - 1))];
- char const *yyprefix = yyexpecting;
-
- /* Start YYX at -YYN if negative to avoid negative indexes in
- YYCHECK. */
- int yyxbegin = yyn < 0 ? -yyn : 0;
-
- /* Stay within bounds of both yycheck and yytname. */
- int yychecklim = YYLAST - yyn + 1;
- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
- int yycount = 1;
-
- yyarg[0] = yytname[yytype];
- yyfmt = yystpcpy (yyformat, yyunexpected);
-
- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
- {
- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
- {
- yycount = 1;
- yysize = yysize0;
- yyformat[sizeof yyunexpected - 1] = '\0';
- break;
- }
- yyarg[yycount++] = yytname[yyx];
- yysize1 = yysize + yytnamerr (0, yytname[yyx]);
- yysize_overflow |= (yysize1 < yysize);
- yysize = yysize1;
- yyfmt = yystpcpy (yyfmt, yyprefix);
- yyprefix = yyor;
- }
- yyf = YY_(yyformat);
- yysize1 = yysize + yystrlen (yyf);
- yysize_overflow |= (yysize1 < yysize);
- yysize = yysize1;
- if (yysize_overflow)
- return YYSIZE_MAXIMUM;
- if (yyresult)
- {
- /* Avoid sprintf, as that infringes on the user's name space.
- Don't have undefined behavior even if the translation
- produced a string with the wrong number of "%s"s. */
- char *yyp = yyresult;
- int yyi = 0;
- while ((*yyp = *yyf) != '\0')
- {
- if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
- {
- yyp += yytnamerr (yyp, yyarg[yyi++]);
- yyf += 2;
- }
- else
- {
- yyp++;
- yyf++;
- }
- }
- }
- return yysize;
- }
-}
-#endif /* YYERROR_VERBOSE */
-\f
/*-----------------------------------------------.
| Release the memory associated to this symbol. |
`-----------------------------------------------*/
-/*ARGSUSED*/
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-static void
-yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
-#else
static void
-yydestruct (yymsg, yytype, yyvaluep)
- const char *yymsg;
- int yytype;
- YYSTYPE *yyvaluep;
-#endif
+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);
-
- switch (yytype)
- {
+ YY_SYMBOL_PRINT (yymsg, yykind, yyvaluep, yylocationp);
- default:
- break;
- }
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+ YY_USE (yykind);
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
}
-\f
-
-/* Prevent warnings from -Wmissing-prototypes. */
-
-#ifdef YYPARSE_PARAM
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void *YYPARSE_PARAM);
-#else
-int yyparse ();
-#endif
-#else /* ! YYPARSE_PARAM */
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void);
-#else
-int yyparse ();
-#endif
-#endif /* ! YYPARSE_PARAM */
-
-/* The look-ahead symbol. */
+/* Lookahead token kind. */
int yychar;
-/* The semantic value of the look-ahead symbol. */
+/* The semantic value of the lookahead symbol. */
YYSTYPE yylval;
-
/* Number of syntax errors so far. */
int yynerrs;
+
/*----------.
| yyparse. |
`----------*/
-#ifdef YYPARSE_PARAM
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
-int
-yyparse (void *YYPARSE_PARAM)
-#else
-int
-yyparse (YYPARSE_PARAM)
- void *YYPARSE_PARAM;
-#endif
-#else /* ! YYPARSE_PARAM */
-#if (defined __STDC__ || defined __C99__FUNC__ \
- || defined __cplusplus || defined _MSC_VER)
int
yyparse (void)
-#else
-int
-yyparse ()
-
-#endif
-#endif
{
-
- int yystate;
- int yyn;
- int yyresult;
- /* Number of tokens to shift before error messages enabled. */
- int yyerrstatus;
- /* Look-ahead token as an internal (translated) token number. */
- int yytoken = 0;
-#if YYERROR_VERBOSE
- /* Buffer for error messages, and its allocated size. */
- char yymsgbuf[128];
- char *yymsg = yymsgbuf;
- YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
-#endif
+ yy_state_fast_t yystate = 0;
+ /* Number of tokens to shift before error messages enabled. */
+ int yyerrstatus = 0;
- /* Three stacks and their tools:
- `yyss': related to states,
- `yyvs': related to semantic values,
- `yyls': related to locations.
+ /* Refer to the stacks through separate pointers, to allow yyoverflow
+ to reallocate them elsewhere. */
- Refer to the stacks thru separate pointers, to allow yyoverflow
- to reallocate them elsewhere. */
+ /* Their size. */
+ YYPTRDIFF_T yystacksize = YYINITDEPTH;
- /* The state stack. */
- yytype_int16 yyssa[YYINITDEPTH];
- yytype_int16 *yyss = yyssa;
- yytype_int16 *yyssp;
+ /* The state stack: array, bottom, top. */
+ yy_state_t yyssa[YYINITDEPTH];
+ yy_state_t *yyss = yyssa;
+ yy_state_t *yyssp = yyss;
- /* The semantic value stack. */
- YYSTYPE yyvsa[YYINITDEPTH];
- YYSTYPE *yyvs = yyvsa;
- YYSTYPE *yyvsp;
-
-
-
-#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
-
- YYSIZE_T yystacksize = YYINITDEPTH;
+ /* 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 symbol kind. */
+ yysymbol_kind_t yytoken = YYSYMBOL_YYEMPTY;
/* The variables used to return semantic value and location from the
action routines. */
YYSTYPE yyval;
+
+#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
+
/* The number of symbols on the RHS of the reduced rule.
Keep to zero when no symbol should be popped. */
int yylen = 0;
YYDPRINTF ((stderr, "Starting parse\n"));
- yystate = 0;
- yyerrstatus = 0;
- yynerrs = 0;
- yychar = YYEMPTY; /* Cause a token to be read. */
-
- /* Initialize stack pointers.
- Waste one element of value and location stack
- so that they stay on the same level as the state stack.
- The wasted elements are never initialized. */
-
- yyssp = yyss;
- yyvsp = yyvs;
+ yychar = YYEMPTY; /* Cause a token to be read. */
goto yysetstate;
+
/*------------------------------------------------------------.
-| 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. */
- YYSTYPE *yyvs1 = yyvs;
- yytype_int16 *yyss1 = yyss;
-
-
- /* Each stack pointer address is followed by the size of the
- data in use in that stack, in bytes. This used to be a
- conditional around just the two extra args, but that might
- be undefined if yyoverflow is a macro. */
- yyoverflow (YY_("memory exhausted"),
- &yyss1, yysize * sizeof (*yyssp),
- &yyvs1, yysize * sizeof (*yyvsp),
-
- &yystacksize);
-
- yyss = yyss1;
- yyvs = yyvs1;
+ /* Give user a chance to reallocate the stack. Use copies of
+ these so that the &'s don't force the real ones into
+ memory. */
+ yy_state_t *yyss1 = yyss;
+ YYSTYPE *yyvs1 = yyvs;
+
+ /* 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 * 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;
+ yystacksize = YYMAXDEPTH;
{
- yytype_int16 *yyss1 = yyss;
- union yyalloc *yyptr =
- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
- if (! yyptr)
- goto yyexhaustedlab;
- YYSTACK_RELOCATE (yyss);
- YYSTACK_RELOCATE (yyvs);
-
+ yy_state_t *yyss1 = yyss;
+ union yyalloc *yyptr =
+ YY_CAST (union yyalloc *,
+ YYSTACK_ALLOC (YY_CAST (YYSIZE_T, YYSTACK_BYTES (yystacksize))));
+ if (! yyptr)
+ YYNOMEM;
+ YYSTACK_RELOCATE (yyss_alloc, yyss);
+ YYSTACK_RELOCATE (yyvs_alloc, yyvs);
# undef YYSTACK_RELOCATE
- if (yyss1 != yyssa)
- YYSTACK_FREE (yyss1);
+ if (yyss1 != yyssa)
+ YYSTACK_FREE (yyss1);
}
# endif
-#endif /* no yyoverflow */
yyssp = yyss + yysize - 1;
yyvsp = yyvs + yysize - 1;
-
- YYDPRINTF ((stderr, "Stack size increased to %lu\n",
- (unsigned long int) yystacksize));
+ 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;
+ 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
- look-ahead token if we need one and don't already have one. */
+ lookahead token if we need one and don't already have one. */
- /* First try to decide what to do without reference to look-ahead token. */
+ /* First try to decide what to do without reference to lookahead token. */
yyn = yypact[yystate];
- if (yyn == YYPACT_NINF)
+ if (yypact_value_is_default (yyn))
goto yydefault;
- /* Not known => get a look-ahead token if don't already have one. */
+ /* Not known => get a lookahead token if don't already have one. */
- /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */
+ /* YYCHAR is either empty, or end-of-input, or a valid lookahead. */
if (yychar == YYEMPTY)
{
- YYDPRINTF ((stderr, "Reading a token: "));
- yychar = YYLEX;
+ 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);
yyn = yytable[yyn];
if (yyn <= 0)
{
- if (yyn == 0 || yyn == YYTABLE_NINF)
- goto yyerrlab;
+ if (yytable_value_is_error (yyn))
+ goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
- if (yyn == YYFINAL)
- YYACCEPT;
-
/* Count tokens shifted since error; after three, turn off error
status. */
if (yyerrstatus)
yyerrstatus--;
- /* Shift the look-ahead token. */
+ /* Shift the lookahead token. */
YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
-
- /* Discard the shifted token unless it is eof. */
- if (yychar != YYEOF)
- yychar = YYEMPTY;
-
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. */
yylen = yyr2[yyn];
/* If YYLEN is nonzero, implement the default value of the action:
- `$$ = $1'.
+ '$$ = $1'.
Otherwise, the following line sets YYVAL to garbage.
This behavior is undocumented and Bison
YY_REDUCE_PRINT (yyn);
switch (yyn)
{
- case 2:
-#line 377 "/Users/chet/src/bash/src/parse.y"
- {
+ 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) - (2)].command);
+ global_command = (yyvsp[-1].command);
eof_encountered = 0;
/* discard_parser_constructs (0); */
if (parser_state & PST_CMDSUBST)
parser_state |= PST_EOFTOKEN;
YYACCEPT;
}
+#line 1954 "y.tab.c"
break;
- case 3:
-#line 388 "/Users/chet/src/bash/src/parse.y"
- {
+ 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 1979 "y.tab.c"
break;
- case 4:
-#line 397 "/Users/chet/src/bash/src/parse.y"
- {
+ 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 1998 "y.tab.c"
break;
- case 5:
-#line 412 "/Users/chet/src/bash/src/parse.y"
- {
+ 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 2050 "y.tab.c"
break;
- case 6:
-#line 422 "/Users/chet/src/bash/src/parse.y"
- { (yyval.word_list) = make_word_list ((yyvsp[(1) - (1)].word), (WORD_LIST *)NULL); }
+ 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 424 "/Users/chet/src/bash/src/parse.y"
- { (yyval.word_list) = make_word_list ((yyvsp[(2) - (2)].word), (yyvsp[(1) - (2)].word_list)); }
+ 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 428 "/Users/chet/src/bash/src/parse.y"
- {
+ case 11: /* redirection: '>' WORD */
+#line 487 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_output_direction, redir, 0);
}
+#line 2072 "y.tab.c"
break;
- case 9:
-#line 434 "/Users/chet/src/bash/src/parse.y"
- {
+ case 12: /* redirection: '<' WORD */
+#line 493 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_input_direction, redir, 0);
}
+#line 2082 "y.tab.c"
break;
- case 10:
-#line 440 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2092 "y.tab.c"
break;
- case 11:
-#line 446 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2102 "y.tab.c"
break;
- case 12:
-#line 452 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2112 "y.tab.c"
break;
- case 13:
-#line 458 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2122 "y.tab.c"
break;
- case 14:
-#line 464 "/Users/chet/src/bash/src/parse.y"
- {
+ case 17: /* redirection: GREATER_GREATER WORD */
+#line 523 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_appending_to, redir, 0);
}
+#line 2132 "y.tab.c"
break;
- case 15:
-#line 470 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2142 "y.tab.c"
break;
- case 16:
-#line 476 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2152 "y.tab.c"
break;
- case 17:
-#line 482 "/Users/chet/src/bash/src/parse.y"
- {
+ case 20: /* redirection: GREATER_BAR WORD */
+#line 541 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_output_force, redir, 0);
}
+#line 2162 "y.tab.c"
break;
- case 18:
-#line 488 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2172 "y.tab.c"
break;
- case 19:
-#line 494 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2182 "y.tab.c"
break;
- case 20:
-#line 500 "/Users/chet/src/bash/src/parse.y"
- {
+ case 23: /* redirection: LESS_GREATER WORD */
+#line 559 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_input_output, redir, 0);
}
+#line 2192 "y.tab.c"
break;
- case 21:
-#line 506 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2202 "y.tab.c"
break;
- case 22:
-#line 512 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2212 "y.tab.c"
break;
- case 23:
-#line 518 "/Users/chet/src/bash/src/parse.y"
- {
+ case 26: /* redirection: LESS_LESS WORD */
+#line 577 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_reading_until, redir, 0);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ push_heredoc ((yyval.redirect));
}
+#line 2223 "y.tab.c"
break;
- case 24:
-#line 525 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ push_heredoc ((yyval.redirect));
}
+#line 2234 "y.tab.c"
break;
- case 25:
-#line 532 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ push_heredoc ((yyval.redirect));
}
+#line 2245 "y.tab.c"
break;
- case 26:
-#line 539 "/Users/chet/src/bash/src/parse.y"
- {
+ case 29: /* redirection: LESS_LESS_MINUS WORD */
+#line 598 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_deblank_reading_until, redir, 0);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ push_heredoc ((yyval.redirect));
}
+#line 2256 "y.tab.c"
break;
- case 27:
-#line 546 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ push_heredoc ((yyval.redirect));
}
+#line 2267 "y.tab.c"
break;
- case 28:
-#line 553 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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);
- redir_stack[need_here_doc++] = (yyval.redirect);
+ push_heredoc ((yyval.redirect));
}
+#line 2278 "y.tab.c"
break;
- case 29:
-#line 560 "/Users/chet/src/bash/src/parse.y"
- {
+ case 32: /* redirection: LESS_LESS_LESS WORD */
+#line 619 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_reading_string, redir, 0);
}
+#line 2288 "y.tab.c"
break;
- case 30:
-#line 566 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2298 "y.tab.c"
break;
- case 31:
-#line 572 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2308 "y.tab.c"
break;
- case 32:
-#line 578 "/Users/chet/src/bash/src/parse.y"
- {
+ case 35: /* redirection: LESS_AND NUMBER */
+#line 637 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
- redir.dest = (yyvsp[(2) - (2)].number);
+ redir.dest = (yyvsp[0].number);
(yyval.redirect) = make_redirection (source, r_duplicating_input, redir, 0);
}
+#line 2318 "y.tab.c"
break;
- case 33:
-#line 584 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.dest = (yyvsp[(3) - (3)].number);
+ 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 2328 "y.tab.c"
break;
- case 34:
-#line 590 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.dest = (yyvsp[(3) - (3)].number);
+ 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 2338 "y.tab.c"
break;
- case 35:
-#line 596 "/Users/chet/src/bash/src/parse.y"
- {
+ case 38: /* redirection: GREATER_AND NUMBER */
+#line 655 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
- redir.dest = (yyvsp[(2) - (2)].number);
+ redir.dest = (yyvsp[0].number);
(yyval.redirect) = make_redirection (source, r_duplicating_output, redir, 0);
}
+#line 2348 "y.tab.c"
break;
- case 36:
-#line 602 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.dest = (yyvsp[(3) - (3)].number);
+ 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 2358 "y.tab.c"
break;
- case 37:
-#line 608 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.dest = (yyvsp[(3) - (3)].number);
+ 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 2368 "y.tab.c"
break;
- case 38:
-#line 614 "/Users/chet/src/bash/src/parse.y"
- {
+ case 41: /* redirection: LESS_AND WORD */
+#line 673 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 0;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_duplicating_input_word, redir, 0);
}
+#line 2378 "y.tab.c"
break;
- case 39:
-#line 620 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2388 "y.tab.c"
break;
- case 40:
-#line 626 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2398 "y.tab.c"
break;
- case 41:
-#line 632 "/Users/chet/src/bash/src/parse.y"
- {
+ case 44: /* redirection: GREATER_AND WORD */
+#line 691 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_duplicating_output_word, redir, 0);
}
+#line 2408 "y.tab.c"
break;
- case 42:
-#line 638 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2418 "y.tab.c"
break;
- case 43:
-#line 644 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
- redir.filename = (yyvsp[(3) - (3)].word);
+ 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 2428 "y.tab.c"
break;
- case 44:
-#line 650 "/Users/chet/src/bash/src/parse.y"
- {
+ 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 2438 "y.tab.c"
break;
- case 45:
-#line 656 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
+ 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 2448 "y.tab.c"
break;
- case 46:
-#line 662 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
+ 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 2458 "y.tab.c"
break;
- case 47:
-#line 668 "/Users/chet/src/bash/src/parse.y"
- {
+ 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 2468 "y.tab.c"
break;
- case 48:
-#line 674 "/Users/chet/src/bash/src/parse.y"
- {
- source.dest = (yyvsp[(1) - (3)].number);
+ 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 2478 "y.tab.c"
break;
- case 49:
-#line 680 "/Users/chet/src/bash/src/parse.y"
- {
- source.filename = (yyvsp[(1) - (3)].word);
+ 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 2488 "y.tab.c"
break;
- case 50:
-#line 686 "/Users/chet/src/bash/src/parse.y"
- {
+ case 53: /* redirection: AND_GREATER WORD */
+#line 745 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_err_and_out, redir, 0);
}
+#line 2498 "y.tab.c"
break;
- case 51:
-#line 692 "/Users/chet/src/bash/src/parse.y"
- {
+ case 54: /* redirection: AND_GREATER_GREATER WORD */
+#line 751 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
source.dest = 1;
- redir.filename = (yyvsp[(2) - (2)].word);
+ redir.filename = (yyvsp[0].word);
(yyval.redirect) = make_redirection (source, r_append_err_and_out, redir, 0);
}
+#line 2508 "y.tab.c"
break;
- case 52:
-#line 700 "/Users/chet/src/bash/src/parse.y"
- { (yyval.element).word = (yyvsp[(1) - (1)].word); (yyval.element).redirect = 0; }
+ 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 702 "/Users/chet/src/bash/src/parse.y"
- { (yyval.element).word = (yyvsp[(1) - (1)].word); (yyval.element).redirect = 0; }
+ 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 704 "/Users/chet/src/bash/src/parse.y"
- { (yyval.element).redirect = (yyvsp[(1) - (1)].redirect); (yyval.element).word = 0; }
+ 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 708 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.redirect) = (yyvsp[(1) - (1)].redirect);
+ case 58: /* redirection_list: redirection */
+#line 767 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ (yyval.redirect) = (yyvsp[0].redirect);
}
+#line 2534 "y.tab.c"
break;
- case 56:
-#line 712 "/Users/chet/src/bash/src/parse.y"
- {
+ 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) - (2)].redirect); t->next; t = t->next)
+ for (t = (yyvsp[-1].redirect); t->next; t = t->next)
;
- t->next = (yyvsp[(2) - (2)].redirect);
- (yyval.redirect) = (yyvsp[(1) - (2)].redirect);
+ t->next = (yyvsp[0].redirect);
+ (yyval.redirect) = (yyvsp[-1].redirect);
}
+#line 2547 "y.tab.c"
break;
- case 57:
-#line 723 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_simple_command ((yyvsp[(1) - (1)].element), (COMMAND *)NULL); }
+ 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 725 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_simple_command ((yyvsp[(2) - (2)].element), (yyvsp[(1) - (2)].command)); }
+ 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 729 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = clean_simple_command ((yyvsp[(1) - (1)].command)); }
+ 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 731 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 733 "/Users/chet/src/bash/src/parse.y"
- {
+ case 64: /* command: shell_command redirection_list */
+#line 792 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
- tc = (yyvsp[(1) - (2)].command);
- if (tc->redirects)
+ tc = (yyvsp[-1].command);
+ if (tc && tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
- t->next = (yyvsp[(2) - (2)].redirect);
+ t->next = (yyvsp[0].redirect);
}
- else
- tc->redirects = (yyvsp[(2) - (2)].redirect);
- (yyval.command) = (yyvsp[(1) - (2)].command);
+ else if (tc)
+ tc->redirects = (yyvsp[0].redirect);
+ (yyval.command) = (yyvsp[-1].command);
}
+#line 2591 "y.tab.c"
break;
- case 62:
-#line 749 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 751 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 755 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 757 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 759 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_while_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command)); }
+ 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 761 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_until_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command)); }
+ 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 763 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 765 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 767 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 769 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 771 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 773 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 775 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 779 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
+ 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 2678 "y.tab.c"
break;
- case 76:
-#line 784 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
+ 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 2687 "y.tab.c"
break;
- case 77:
-#line 789 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ 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 2696 "y.tab.c"
break;
- case 78:
-#line 794 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ 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 2705 "y.tab.c"
break;
- case 79:
-#line 799 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
+ 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 2714 "y.tab.c"
break;
- case 80:
-#line 804 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
+ 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 2723 "y.tab.c"
break;
- case 81:
-#line 809 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (9)].word), (WORD_LIST *)NULL, (yyvsp[(8) - (9)].command), word_lineno[word_top]);
+ 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 2732 "y.tab.c"
break;
- case 82:
-#line 814 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_for_command ((yyvsp[(2) - (9)].word), (WORD_LIST *)NULL, (yyvsp[(8) - (9)].command), word_lineno[word_top]);
+ 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 2741 "y.tab.c"
break;
- case 83:
-#line 821 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (7)].word_list), (yyvsp[(6) - (7)].command), arith_for_lineno);
+ 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 2751 "y.tab.c"
break;
- case 84:
-#line 826 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (7)].word_list), (yyvsp[(6) - (7)].command), arith_for_lineno);
+ 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 2761 "y.tab.c"
break;
- case 85:
-#line 831 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (5)].word_list), (yyvsp[(4) - (5)].command), arith_for_lineno);
+ 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 2771 "y.tab.c"
break;
- case 86:
-#line 836 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_arith_for_command ((yyvsp[(2) - (5)].word_list), (yyvsp[(4) - (5)].command), arith_for_lineno);
+ 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 2781 "y.tab.c"
break;
- case 87:
-#line 843 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_select_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
+ 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 2790 "y.tab.c"
break;
- case 88:
-#line 848 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_select_command ((yyvsp[(2) - (6)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(5) - (6)].command), word_lineno[word_top]);
+ 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 2799 "y.tab.c"
break;
- case 89:
-#line 853 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_select_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ 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 2808 "y.tab.c"
break;
- case 90:
-#line 858 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_select_command ((yyvsp[(2) - (7)].word), add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), (yyvsp[(6) - (7)].command), word_lineno[word_top]);
+ 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 2817 "y.tab.c"
break;
- case 91:
-#line 863 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_select_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
+ 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 2826 "y.tab.c"
break;
- case 92:
-#line 868 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_select_command ((yyvsp[(2) - (10)].word), REVERSE_LIST ((yyvsp[(5) - (10)].word_list), WORD_LIST *), (yyvsp[(9) - (10)].command), word_lineno[word_top]);
+ 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 2835 "y.tab.c"
break;
- case 93:
-#line 875 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_case_command ((yyvsp[(2) - (6)].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 2844 "y.tab.c"
break;
- case 94:
-#line 880 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_case_command ((yyvsp[(2) - (7)].word), (yyvsp[(5) - (7)].pattern), word_lineno[word_top]);
+ 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 95:
-#line 885 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_case_command ((yyvsp[(2) - (6)].word), (yyvsp[(5) - (6)].pattern), word_lineno[word_top]);
+ 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 2871 "y.tab.c"
break;
- case 96:
-#line 892 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_function_def ((yyvsp[(1) - (5)].word), (yyvsp[(5) - (5)].command), function_dstart, function_bstart); }
+ case 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 2880 "y.tab.c"
break;
- case 97:
-#line 895 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_function_def ((yyvsp[(2) - (6)].word), (yyvsp[(6) - (6)].command), function_dstart, function_bstart); }
+ case 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 98:
-#line 898 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_function_def ((yyvsp[(2) - (4)].word), (yyvsp[(4) - (4)].command), function_dstart, function_bstart); }
+ case 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 99:
-#line 902 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 100:
-#line 904 "/Users/chet/src/bash/src/parse.y"
- {
+ 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 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) - (2)].command);
+ tc = (yyvsp[-1].command);
/* According to Posix.2 3.9.5, redirections
specified after the body of a function should
be attached to the function and performed when
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[(2) - (2)].redirect);
+ t->next = (yyvsp[0].redirect);
}
- else
- tc->redirects = (yyvsp[(2) - (2)].redirect);
- (yyval.command) = (yyvsp[(1) - (2)].command);
+ else if (tc)
+ tc->redirects = (yyvsp[0].redirect);
+ (yyval.command) = (yyvsp[-1].command);
}
+#line 2943 "y.tab.c"
break;
- case 101:
-#line 935 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_subshell_command ((yyvsp[(2) - (3)].command));
+ 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 2952 "y.tab.c"
break;
- case 102:
-#line 942 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_coproc_command ("COPROC", (yyvsp[(2) - (2)].command));
+ 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 2977 "y.tab.c"
break;
- case 103:
-#line 947 "/Users/chet/src/bash/src/parse.y"
- {
+ case 111: /* coproc: COPROC shell_command redirection_list */
+#line 1030 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
- tc = (yyvsp[(2) - (3)].command);
- if (tc->redirects)
+ tc = (yyvsp[-1].command);
+ if (tc && tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
- t->next = (yyvsp[(3) - (3)].redirect);
+ t->next = (yyvsp[0].redirect);
}
- else
- tc->redirects = (yyvsp[(3) - (3)].redirect);
- (yyval.command) = make_coproc_command ("COPROC", (yyvsp[(2) - (3)].command));
+ 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 2998 "y.tab.c"
break;
- case 104:
-#line 964 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_coproc_command ((yyvsp[(2) - (3)].word)->word, (yyvsp[(3) - (3)].command));
+ 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 3007 "y.tab.c"
break;
- case 105:
-#line 969 "/Users/chet/src/bash/src/parse.y"
- {
+ case 113: /* coproc: COPROC WORD shell_command redirection_list */
+#line 1052 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
COMMAND *tc;
- tc = (yyvsp[(3) - (4)].command);
- if (tc->redirects)
+ tc = (yyvsp[-1].command);
+ if (tc && tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
- t->next = (yyvsp[(4) - (4)].redirect);
+ t->next = (yyvsp[0].redirect);
}
- else
- tc->redirects = (yyvsp[(4) - (4)].redirect);
- (yyval.command) = make_coproc_command ((yyvsp[(2) - (4)].word)->word, (yyvsp[(3) - (4)].command));
+ 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 3028 "y.tab.c"
break;
- case 106:
-#line 986 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = make_coproc_command ("COPROC", clean_simple_command ((yyvsp[(2) - (2)].command)));
+ 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 3037 "y.tab.c"
break;
- case 107:
-#line 993 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_if_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command), (COMMAND *)NULL); }
+ 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 995 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_if_command ((yyvsp[(2) - (7)].command), (yyvsp[(4) - (7)].command), (yyvsp[(6) - (7)].command)); }
+ case 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 997 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_if_command ((yyvsp[(2) - (6)].command), (yyvsp[(4) - (6)].command), (yyvsp[(5) - (6)].command)); }
+ case 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 1002 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_group_command ((yyvsp[(2) - (3)].command)); }
+ 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 1006 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_arith_command ((yyvsp[(1) - (1)].word_list)); }
+ 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 1010 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(2) - (3)].command); }
+ 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 1014 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_if_command ((yyvsp[(2) - (4)].command), (yyvsp[(4) - (4)].command), (COMMAND *)NULL); }
+ 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 1016 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_if_command ((yyvsp[(2) - (6)].command), (yyvsp[(4) - (6)].command), (yyvsp[(6) - (6)].command)); }
+ case 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 1018 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = make_if_command ((yyvsp[(2) - (5)].command), (yyvsp[(4) - (5)].command), (yyvsp[(5) - (5)].command)); }
+ case 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 1023 "/Users/chet/src/bash/src/parse.y"
- { (yyvsp[(2) - (2)].pattern)->next = (yyvsp[(1) - (2)].pattern); (yyval.pattern) = (yyvsp[(2) - (2)].pattern); }
+ 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 1027 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = make_pattern_list ((yyvsp[(2) - (4)].word_list), (yyvsp[(4) - (4)].command)); }
+ 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 1029 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = make_pattern_list ((yyvsp[(2) - (4)].word_list), (COMMAND *)NULL); }
+ 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 1031 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = make_pattern_list ((yyvsp[(3) - (5)].word_list), (yyvsp[(5) - (5)].command)); }
+ 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 1033 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = make_pattern_list ((yyvsp[(3) - (5)].word_list), (COMMAND *)NULL); }
+ 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 1037 "/Users/chet/src/bash/src/parse.y"
- { (yyval.pattern) = (yyvsp[(1) - (2)].pattern); }
+ 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 1039 "/Users/chet/src/bash/src/parse.y"
- { (yyvsp[(2) - (3)].pattern)->next = (yyvsp[(1) - (3)].pattern); (yyval.pattern) = (yyvsp[(2) - (3)].pattern); }
+ 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 1041 "/Users/chet/src/bash/src/parse.y"
- { (yyvsp[(1) - (2)].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyval.pattern) = (yyvsp[(1) - (2)].pattern); }
+ 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 1043 "/Users/chet/src/bash/src/parse.y"
- { (yyvsp[(2) - (3)].pattern)->flags |= CASEPAT_FALLTHROUGH; (yyvsp[(2) - (3)].pattern)->next = (yyvsp[(1) - (3)].pattern); (yyval.pattern) = (yyvsp[(2) - (3)].pattern); }
+ case 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 1045 "/Users/chet/src/bash/src/parse.y"
- { (yyvsp[(1) - (2)].pattern)->flags |= CASEPAT_TESTNEXT; (yyval.pattern) = (yyvsp[(1) - (2)].pattern); }
+ 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 1047 "/Users/chet/src/bash/src/parse.y"
- { (yyvsp[(2) - (3)].pattern)->flags |= CASEPAT_TESTNEXT; (yyvsp[(2) - (3)].pattern)->next = (yyvsp[(1) - (3)].pattern); (yyval.pattern) = (yyvsp[(2) - (3)].pattern); }
+ case 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 1051 "/Users/chet/src/bash/src/parse.y"
- { (yyval.word_list) = make_word_list ((yyvsp[(1) - (1)].word), (WORD_LIST *)NULL); }
+ 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 1053 "/Users/chet/src/bash/src/parse.y"
- { (yyval.word_list) = make_word_list ((yyvsp[(3) - (3)].word), (yyvsp[(1) - (3)].word_list)); }
+ 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 1062 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = (yyvsp[(2) - (2)].command);
- if (need_here_doc)
+ 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 && last_read_token == '\n')
gather_here_documents ();
}
+#line 3179 "y.tab.c"
break;
- case 132:
-#line 1071 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = (yyvsp[(2) - (2)].command);
+ case 139: /* compound_list: newline_list list1 */
+#line 1151 "/usr/local/src/chet/src/bash/src/parse.y"
+ {
+ (yyval.command) = (yyvsp[0].command);
}
+#line 3187 "y.tab.c"
break;
- case 134:
-#line 1078 "/Users/chet/src/bash/src/parse.y"
- {
- if ((yyvsp[(1) - (3)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (3)].command), (COMMAND *)NULL, '&');
+ 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[(1) - (3)].command), (COMMAND *)NULL, '&');
+ (yyval.command) = command_connect ((yyvsp[-2].command), (COMMAND *)NULL, '&');
}
+#line 3198 "y.tab.c"
break;
- case 136:
-#line 1089 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), AND_AND); }
+ 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 1091 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), OR_OR); }
+ 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 1093 "/Users/chet/src/bash/src/parse.y"
- {
- if ((yyvsp[(1) - (4)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '&');
+ 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[(1) - (4)].command), (yyvsp[(4) - (4)].command), '&');
+ (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '&');
}
+#line 3221 "y.tab.c"
break;
- case 139:
-#line 1100 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), ';'); }
+ 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 1102 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), ';'); }
+ 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 1104 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 1112 "/Users/chet/src/bash/src/parse.y"
- { (yyval.number) = '\n'; }
+ 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 1114 "/Users/chet/src/bash/src/parse.y"
- { (yyval.number) = ';'; }
+ 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 1116 "/Users/chet/src/bash/src/parse.y"
- { (yyval.number) = yacc_EOF; }
+ 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 1130 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = (yyvsp[(1) - (1)].command);
+ 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)
{
- global_command = (yyvsp[(1) - (1)].command);
+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 3281 "y.tab.c"
break;
- case 150:
-#line 1143 "/Users/chet/src/bash/src/parse.y"
- {
- if ((yyvsp[(1) - (2)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (2)].command), (COMMAND *)NULL, '&');
+ 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) - (2)].command), (COMMAND *)NULL, '&');
+ (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)
{
- global_command = (yyvsp[(1) - (2)].command);
+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 3303 "y.tab.c"
break;
- case 151:
-#line 1159 "/Users/chet/src/bash/src/parse.y"
- {
- (yyval.command) = (yyvsp[(1) - (2)].command);
+ 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)
{
- global_command = (yyvsp[(1) - (2)].command);
+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 3322 "y.tab.c"
break;
- case 152:
-#line 1174 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), AND_AND); }
+ 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 1176 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), OR_OR); }
+ 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 1178 "/Users/chet/src/bash/src/parse.y"
- {
- if ((yyvsp[(1) - (3)].command)->type == cm_connection)
- (yyval.command) = connect_async_list ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), '&');
+ 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[(1) - (3)].command), (yyvsp[(3) - (3)].command), '&');
+ (yyval.command) = command_connect ((yyvsp[-2].command), (yyvsp[0].command), '&');
}
+#line 3345 "y.tab.c"
break;
- case 155:
-#line 1185 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (3)].command), (yyvsp[(3) - (3)].command), ';'); }
+ 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 1188 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 1192 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 1194 "/Users/chet/src/bash/src/parse.y"
- {
- if ((yyvsp[(2) - (2)].command))
- (yyvsp[(2) - (2)].command)->flags ^= CMD_INVERT_RETURN; /* toggle */
- (yyval.command) = (yyvsp[(2) - (2)].command);
+ 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 3373 "y.tab.c"
break;
- case 159:
-#line 1200 "/Users/chet/src/bash/src/parse.y"
- {
- if ((yyvsp[(2) - (2)].command))
- (yyvsp[(2) - (2)].command)->flags |= (yyvsp[(1) - (2)].number);
- (yyval.command) = (yyvsp[(2) - (2)].command);
+ 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 3383 "y.tab.c"
break;
- case 160:
-#line 1206 "/Users/chet/src/bash/src/parse.y"
- {
+ 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
x.word = 0;
x.redirect = 0;
(yyval.command) = make_simple_command (x, (COMMAND *)NULL);
- (yyval.command)->flags |= (yyvsp[(1) - (2)].number);
+ (yyval.command)->flags |= (yyvsp[-1].number);
/* XXX - let's cheat and push a newline back */
- if ((yyvsp[(2) - (2)].number) == '\n')
+ if ((yyvsp[0].number) == '\n')
token_to_read = '\n';
+ else if ((yyvsp[0].number) == ';')
+ token_to_read = ';';
+ parser_state &= ~PST_REDIRLIST; /* make_simple_command sets this */
}
+#line 3407 "y.tab.c"
break;
- case 161:
-#line 1223 "/Users/chet/src/bash/src/parse.y"
- {
+ 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 `!'
(yyval.command) = make_simple_command (x, (COMMAND *)NULL);
(yyval.command)->flags |= CMD_INVERT_RETURN;
/* XXX - let's cheat and push a newline back */
- if ((yyvsp[(2) - (2)].number) == '\n')
+ if ((yyvsp[0].number) == '\n')
token_to_read = '\n';
+ if ((yyvsp[0].number) == ';')
+ token_to_read = ';';
+ parser_state &= ~PST_REDIRLIST; /* make_simple_command sets this */
}
+#line 3432 "y.tab.c"
break;
- case 162:
-#line 1243 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '|'); }
+ 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 1245 "/Users/chet/src/bash/src/parse.y"
- {
+ 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;
REDIRECT *r;
- tc = (yyvsp[(1) - (4)].command)->type == cm_simple ? (COMMAND *)(yyvsp[(1) - (4)].command)->value.Simple : (yyvsp[(1) - (4)].command);
+ tc = (yyvsp[-3].command)->type == cm_simple ? (COMMAND *)(yyvsp[-3].command)->value.Simple : (yyvsp[-3].command);
sd.dest = 2;
rd.dest = 1;
r = make_redirection (sd, r_duplicating_output, rd, 0);
else
tc->redirects = r;
- (yyval.command) = command_connect ((yyvsp[(1) - (4)].command), (yyvsp[(4) - (4)].command), '|');
+ (yyval.command) = command_connect ((yyvsp[-3].command), (yyvsp[0].command), '|');
}
+#line 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 1268 "/Users/chet/src/bash/src/parse.y"
- { (yyval.command) = (yyvsp[(1) - (1)].command); }
+ 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 1272 "/Users/chet/src/bash/src/parse.y"
- { (yyval.number) = CMD_TIME_PIPELINE; }
+ 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 1274 "/Users/chet/src/bash/src/parse.y"
- { (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+ 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 1276 "/Users/chet/src/bash/src/parse.y"
- { (yyval.number) = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+ 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 1267 of yacc.c. */
-#line 3376 "y.tab.c"
+#line 3499 "y.tab.c"
+
default: break;
}
- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
+ /* User semantic actions sometimes alter yychar, and that requires
+ that yytoken be updated with the new translation. We take the
+ approach of translating immediately before every use of yytoken.
+ One alternative is translating here after every semantic action,
+ but that translation would be missed if the semantic action invokes
+ YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
+ if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
+ incorrect destructor might then be invoked immediately. In the
+ case of YYERROR or YYBACKUP, subsequent parser actions might lead
+ to an incorrect destructor call or verbose syntax error message
+ before the lookahead is translated. */
+ YY_SYMBOL_PRINT ("-> $$ =", 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
+ /* 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 -- here on detecting error |
-`------------------------------------*/
+/*--------------------------------------.
+| yyerrlab -- here on detecting error. |
+`--------------------------------------*/
yyerrlab:
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = yychar == YYEMPTY ? 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
- {
- YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
- if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
- {
- YYSIZE_T yyalloc = 2 * yysize;
- if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
- yyalloc = YYSTACK_ALLOC_MAXIMUM;
- if (yymsg != yymsgbuf)
- YYSTACK_FREE (yymsg);
- yymsg = (char *) YYSTACK_ALLOC (yyalloc);
- if (yymsg)
- yymsg_alloc = yyalloc;
- else
- {
- yymsg = yymsgbuf;
- yymsg_alloc = sizeof yymsgbuf;
- }
- }
-
- if (0 < yysize && yysize <= yymsg_alloc)
- {
- (void) yysyntax_error (yymsg, yystate, yychar);
- yyerror (yymsg);
- }
- else
- {
- yyerror (YY_("syntax error"));
- if (yysize != 0)
- goto yyexhaustedlab;
- }
- }
-#endif
}
-
-
if (yyerrstatus == 3)
{
- /* If just tried and failed to reuse look-ahead token after an
- error, discard it. */
+ /* If just tried and failed to reuse lookahead token after an
+ error, discard it. */
if (yychar <= YYEOF)
- {
- /* Return failure if at end of input. */
- if (yychar == YYEOF)
- YYABORT;
- }
+ {
+ /* Return failure if at end of input. */
+ if (yychar == YYEOF)
+ YYABORT;
+ }
else
- {
- yydestruct ("Error: discarding",
- yytoken, &yylval);
- yychar = YYEMPTY;
- }
+ {
+ yydestruct ("Error: discarding",
+ yytoken, &yylval);
+ yychar = YYEMPTY;
+ }
}
- /* Else will try to reuse look-ahead token after shifting the error
+ /* Else will try to reuse lookahead token after shifting the error
token. */
goto yyerrlab1;
| yyerrorlab -- error raised explicitly by YYERROR. |
`---------------------------------------------------*/
yyerrorlab:
+ /* Pacify compilers when the user code never invokes YYERROR and the
+ label yyerrorlab therefore never appears in user code. */
+ if (0)
+ YYERROR;
+ ++yynerrs;
- /* 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;
-
- /* Do not reclaim the symbols of the rule which action triggered
+ /* Do not reclaim the symbols of the rule whose action triggered
this YYERROR. */
YYPOPSTACK (yylen);
yylen = 0;
| yyerrlab1 -- common code for both syntax error and YYERROR. |
`-------------------------------------------------------------*/
yyerrlab1:
- yyerrstatus = 3; /* Each real token shifted decrements this. */
+ yyerrstatus = 3; /* Each real token shifted decrements this. */
+ /* Pop stack until we find a state that shifts the error token. */
for (;;)
{
yyn = yypact[yystate];
- if (yyn != YYPACT_NINF)
- {
- yyn += YYTERROR;
- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
- {
- yyn = yytable[yyn];
- if (0 < yyn)
- break;
- }
- }
+ if (!yypact_value_is_default (yyn))
+ {
+ yyn += YYSYMBOL_YYerror;
+ if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYSYMBOL_YYerror)
+ {
+ yyn = yytable[yyn];
+ if (0 < yyn)
+ break;
+ }
+ }
/* Pop the current state because it cannot handle the error token. */
if (yyssp == yyss)
- YYABORT;
+ YYABORT;
yydestruct ("Error: popping",
- yystos[yystate], yyvsp);
+ YY_ACCESSING_SYMBOL (yystate), yyvsp);
YYPOPSTACK (1);
yystate = *yyssp;
YY_STACK_PRINT (yyss, yyssp);
}
- if (yyn == YYFINAL)
- YYACCEPT;
-
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
/* Shift the error token. */
- 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;
-#ifndef yyoverflow
-/*-------------------------------------------------.
-| yyexhaustedlab -- memory exhaustion comes here. |
-`-------------------------------------------------*/
+
+/*-----------------------------------------------------------.
+| yyexhaustedlab -- YYNOMEM (memory exhaustion) comes here. |
+`-----------------------------------------------------------*/
yyexhaustedlab:
yyerror (YY_("memory exhausted"));
yyresult = 2;
- /* Fall through. */
-#endif
+ goto yyreturnlab;
+
-yyreturn:
- if (yychar != YYEOF && yychar != YYEMPTY)
- yydestruct ("Cleanup: discarding lookahead",
- yytoken, &yylval);
- /* Do not reclaim the symbols of the rule which action triggered
+/*----------------------------------------------------------.
+| yyreturnlab -- parsing is finished, clean up and return. |
+`----------------------------------------------------------*/
+yyreturnlab:
+ if (yychar != YYEMPTY)
+ {
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = YYTRANSLATE (yychar);
+ yydestruct ("Cleanup: discarding lookahead",
+ yytoken, &yylval);
+ }
+ /* Do not reclaim the symbols of the rule whose action triggered
this YYABORT or YYACCEPT. */
YYPOPSTACK (yylen);
YY_STACK_PRINT (yyss, yyssp);
while (yyssp != yyss)
{
yydestruct ("Cleanup: popping",
- yystos[*yyssp], yyvsp);
+ 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
- /* Make sure YYID is used. */
- return YYID (yyresult);
-}
+ return yyresult;
+}
-#line 1278 "/Users/chet/src/bash/src/parse.y"
+#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
int line_len;
unsigned char c;
- if (!current_readline_line)
+ if (current_readline_line == 0)
{
- if (!bash_readline_initialized)
+ if (bash_readline_initialized == 0)
initialize_readline ();
#if defined (JOB_CONTROL)
give_terminal_to (shell_pgrp, 0);
#endif /* JOB_CONTROL */
- old_sigint = (SigHandler *)IMPOSSIBLE_TRAP_HANDLER;
+ old_sigint = IMPOSSIBLE_TRAP_HANDLER;
if (signal_is_ignored (SIGINT) == 0)
{
- interrupt_immediately++;
old_sigint = (SigHandler *)set_signal_handler (SIGINT, sigint_sighandler);
}
- terminate_immediately = 1;
+ sh_unset_nodelay_mode (fileno (rl_instream)); /* just in case */
current_readline_line = readline (current_readline_prompt ?
current_readline_prompt : "");
- terminate_immediately = 0;
+ 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 (interactive)
- {
- interrupt_immediately++;
- terminate_immediately++;
- }
+ /* 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 (interactive)
- {
- interrupt_immediately--;
- terminate_immediately--;
- }
}
return (result);
}
* everything between a `;;' and the next `)' or `esac'
*/
-#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
-
#define END_OF_ALIAS 0
/*
* implement alias expansion on a per-token basis.
*/
+#define PSH_ALIAS 0x01
+#define PSH_DPAREN 0x02
+#define PSH_SOURCE 0x04
+#define PSH_ARRAY 0x08
+
typedef struct string_saver {
struct string_saver *next;
int expand_alias; /* Value to set expand_alias to when string is popped. */
#if defined (ALIAS)
alias_t *expander; /* alias that caused this line to be pushed. */
#endif
- int saved_line_size, saved_line_index, saved_line_terminator;
+ size_t saved_line_size, saved_line_index, saved_line_len;
+ int saved_line_terminator;
+ int flags;
} STRING_SAVER;
STRING_SAVER *pushed_string_list = (STRING_SAVER *)NULL;
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;
#if defined (ALIAS)
temp->expander = ap;
+ if (ap)
+ temp->flags = PSH_ALIAS;
#endif
temp->next = pushed_string_list;
pushed_string_list = temp;
#endif
shell_input_line = s;
- shell_input_line_size = strlen (s);
+ shell_input_line_size = 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
}
+int
+parser_expanding_alias ()
+{
+ return (expanding_alias ());
+}
+
+void
+parser_save_alias ()
+{
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ push_string ((char *)NULL, 0, (alias_t *)NULL);
+ pushed_string_list->flags = PSH_SOURCE; /* XXX - for now */
+#else
+ ;
+#endif
+}
+
+void
+parser_restore_alias ()
+{
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ if (pushed_string_list)
+ pop_string ();
+#else
+ ;
+#endif
+}
+
+#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 ()
+{
+ if (shell_input_line)
+ shell_input_line[shell_input_line_index = 0] = '\0';
+}
+
/* Return a line of text, taken from wherever yylex () reads input.
If there is no more input, then we return NULL. If REMOVE_QUOTED_NEWLINE
is non-zero, we remove unquoted \<newline> pairs. This is used by
/* 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))
{
- /* To make adding the the here-document body right, we need to rely
- on history_delimiting_chars() returning \n for the first line of
- the here-document body and the null string for the second and
- subsequent lines, so we avoid double newlines.
+ /* To make adding the here-document body right, we need to rely on
+ history_delimiting_chars() returning \n for the first line of the
+ here-document body and the null string for the second and subsequent
+ lines, so we avoid double newlines.
current_command_line_count == 2 for the first line of the body. */
current_command_line_count++;
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;
{
register int i;
- int c;
+ int c, truncating, last_was_backslash;
unsigned char uc;
QUIT;
+ last_was_backslash = 0;
if (sigwinch_received)
{
sigwinch_received = 0;
{
line_number++;
+ /* Let's not let one really really long line blow up memory allocation */
+ if (shell_input_line && shell_input_line_size >= 32768)
+ {
+ free (shell_input_line);
+ shell_input_line = 0;
+ shell_input_line_size = 0;
+ }
+
restart_read:
/* Allow immediate exit if interrupted during input. */
QUIT;
- i = 0;
+ i = truncating = 0;
shell_input_line_terminator = 0;
- /* If the shell is interatctive, but not currently printing a prompt
+ /* 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;
}
- RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
+ /* Theoretical overflow */
+ /* If we can't put 256 bytes more into the buffer, allocate
+ everything we can and fill it as full as we can. */
+ /* XXX - we ignore rest of line using `truncating' flag */
+ if (shell_input_line_size > (SIZE_MAX - 256))
+ {
+ size_t n;
+
+ n = SIZE_MAX - i; /* how much more can we put into the buffer? */
+ if (n <= 2) /* we have to save 1 for the newline added below */
+ {
+ if (truncating == 0)
+ internal_warning(_("shell_getc: shell_input_line_size (%zu) exceeds SIZE_MAX (%lu): line truncated"), shell_input_line_size, (unsigned long)SIZE_MAX);
+ shell_input_line[i] = '\0';
+ truncating = 1;
+ }
+ if (shell_input_line_size < SIZE_MAX)
+ {
+ shell_input_line_size = SIZE_MAX;
+ shell_input_line = xrealloc (shell_input_line, shell_input_line_size);
+ }
+ }
+ else
+ RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
if (c == EOF)
{
break;
}
- shell_input_line[i++] = c;
+ if (truncating == 0 || c == '\n')
+ shell_input_line[i++] = c;
if (c == '\n')
{
current_command_line_count++;
break;
}
+
+ last_was_backslash = last_was_backslash == 0 && c == '\\';
}
shell_input_line_index = 0;
{
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)
{
if (shell_input_line)
{
/* Lines that signify the end of the shell's input should not be
- echoed. */
+ echoed. We should not echo lines while parsing command
+ substitutions with recursive calls into the parsing engine; those
+ should only be echoed once when we read the word. That is the
+ reason for the test against shell_eof_token, which is set to a
+ right paren when parsing the contents of command substitutions. */
if (echo_input_at_read && (shell_input_line[0] ||
- shell_input_line_terminator != EOF))
+ shell_input_line_terminator != EOF) &&
+ shell_eof_token == 0)
fprintf (stderr, "%s\n", shell_input_line);
}
else
shell_input_line_size = 0;
prompt_string_pointer = ¤t_prompt_string;
if (SHOULD_PROMPT ())
- prompt_again ();
+ prompt_again (0);
goto restart_read;
}
not already end in an EOF character. */
if (shell_input_line_terminator != EOF)
{
- if (shell_input_line_len + 3 > shell_input_line_size)
+ if (shell_input_line_size < SIZE_MAX-3 && (shell_input_line_len+3 > shell_input_line_size))
shell_input_line = (char *)xrealloc (shell_input_line,
1 + (shell_input_line_size += 2));
- shell_input_line[shell_input_line_len] = '\n';
+ /* Don't add a newline to a string that ends with a backslash if we're
+ going to be removing quoted newlines, since that will eat the
+ backslash. Add another backslash instead (will be removed by
+ word expansion). */
+ if (bash_input.type == st_string && expanding_alias() == 0 && last_was_backslash && c == EOF && remove_quoted_newline)
+ shell_input_line[shell_input_line_len] = '\\';
+ else
+ shell_input_line[shell_input_line_len] = '\n';
shell_input_line[shell_input_line_len + 1] = '\0';
- set_line_mbstate ();
+#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
because we have fully consumed the result of the last alias expansion.
Do it transparently; just return the next character of the string popped
to. */
+ /* If pushed_string_list != 0 but pushed_string_list->expander == 0 (not
+ currently tested) and the flags value is not PSH_SOURCE, we are not
+ parsing an alias, we have just saved one (push_string, when called by
+ the parse_dparen code) In this case, just go on as well. The PSH_SOURCE
+ case is handled below. */
+
+ /* 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:
- if (uc == 0 && (pushed_string_list != (STRING_SAVER *)NULL))
+#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')
{
uc = 0;
shell_input_line_index++; /* skip newline */
goto next_alias_char; /* and get next character */
}
- else
+ else
+#endif
goto restart_read;
}
if (uc == 0 && shell_input_line_terminator == EOF)
return ((shell_input_line_index != 0) ? '\n' : EOF);
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+ /* We already know that we are not parsing an alias expansion because of the
+ check for expanding_alias() above. This knows how parse_and_execute
+ handles switching to st_string input while an alias is being expanded,
+ hence the check for pushed_string_list without pushed_string_list->expander
+ and the check for PSH_SOURCE as pushed_string_list->flags.
+ parse_and_execute and parse_string both change the input type to st_string
+ and place the string to be parsed and executed into location.string, so
+ we should not stop reading that until the pointer is '\0'.
+ The check for shell_input_line_terminator may be superfluous.
+
+ This solves the problem of `.' inside a multi-line alias with embedded
+ newlines executing things out of order. */
+ if (uc == 0 && bash_input.type == st_string && *bash_input.location.string &&
+ pushed_string_list && pushed_string_list->flags == PSH_SOURCE &&
+ shell_input_line_terminator == 0)
+ {
+ shell_input_line_index = 0;
+ goto restart_read;
+ }
+#endif
+
return (uc);
}
eol_ungetc_lookahead = c;
}
+/* 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 ((int)shell_input_line_index < 0 || shell_input_line_index >= shell_input_line_len)
+ return ""; /* XXX */
+ return (shell_input_line + shell_input_line_index);
+}
+
#ifdef INCLUDE_UNUSED
/* Back the input pointer up by one, effectively `ungetting' a character. */
static void
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);
token_to_read = 0;
}
-/* Place to remember the token. We try to keep the buffer
- at a reasonable size, but it can grow. */
-static char *token = (char *)NULL;
-
-/* Current size of the token buffer. */
-static int token_buffer_size;
-
+void
+push_token (x)
+ int x;
+{
+ two_tokens_ago = token_before_that;
+ token_before_that = last_read_token;
+ last_read_token = current_token;
+
+ current_token = x;
+}
+
+/* Place to remember the token. We try to keep the buffer
+ at a reasonable size, but it can grow. */
+static char *token = (char *)NULL;
+
+/* Current size of the token buffer. */
+static size_t token_buffer_size;
+
/* Command to read_token () explaining what we want it to do. */
#define READ 0
#define RESET 1
We do this only if it is time to do so. Notice that only here
is the mail alarm reset; nothing takes place in check_mail ()
except the checking of mail. Please don't change this. */
- if (prompt_is_ps1 && time_to_check_mail ())
+ if (prompt_is_ps1 && parse_and_execute_level == 0 && time_to_check_mail ())
{
check_mail ();
reset_mail_timer ();
/* 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;
+{
+ if (need_here_doc >= HEREDOC_MAX)
+ {
+ last_command_exit_value = EX_BADUSAGE;
+ need_here_doc = 0;
+ report_syntax_error (_("maximum here-document count exceeded"));
+ reset_parser ();
+ exit_shell (last_command_exit_value);
+ }
+ redir_stack[need_here_doc++] = r;
+}
+
void
gather_here_documents ()
{
int r;
r = 0;
- while (need_here_doc)
+ here_doc_first_line = 1;
+ while (need_here_doc > 0)
{
parser_state |= PST_HEREDOC;
make_here_document (redir_stack[r++], line_number);
parser_state &= ~PST_HEREDOC;
need_here_doc--;
+ redir_stack[r - 1] = 0; /* XXX */
}
+ here_doc_first_line = 0; /* just in case */
}
/* When non-zero, an open-brace used to create a group is awaiting a close
brace partner. */
static int open_brace_count;
+/* In the following three macros, `token' is always last_read_token */
+
+/* Are we in the middle of parsing a redirection where we are about to read
+ a word? This is used to make sure alias expansion doesn't happen in the
+ middle of a redirection, even though we're parsing a simple command. */
+#define parsing_redirection(token) \
+ (token == '<' || token == '>' || \
+ token == GREATER_GREATER || token == GREATER_BAR || \
+ token == LESS_GREATER || token == LESS_LESS_MINUS || \
+ token == LESS_LESS || token == LESS_LESS_LESS || \
+ token == LESS_AND || token == GREATER_AND || token == AND_GREATER)
+
+/* Is `token' one that will allow a WORD to be read in a command position?
+ We can read a simple command name on which we should attempt alias expansion
+ or we can read an assignment statement. */
#define command_token_position(token) \
- (((token) == ASSIGNMENT_WORD) || (parser_state&PST_REDIRLIST) || \
+ (((token) == ASSIGNMENT_WORD) || \
+ ((parser_state&PST_REDIRLIST) && parsing_redirection(token) == 0) || \
((token) != SEMI_SEMI && (token) != SEMI_AND && (token) != SEMI_SEMI_AND && reserved_word_acceptable(token)))
+/* Are we in a position where we can read an assignment statement? */
#define assignment_acceptable(token) \
(command_token_position(token) && ((parser_state & PST_CASEPAT) == 0))
break; \
if (word_token_alist[i].token == TIME && time_command_acceptable () == 0) \
break; \
- if (word_token_alist[i].token == ESAC) \
+ if ((parser_state & PST_CASEPAT) && last_read_token == '|' && word_token_alist[i].token == ESAC) \
+ break; /* Posix grammar rule 4 */ \
+ 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')
+ /* 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 0:
case ';':
case '\n':
+ if (token_before_that == '|')
+ return (0);
+ /* FALLTHROUGH */
case AND_AND:
case OR_OR:
case '&':
+ case WHILE:
case DO:
+ case UNTIL:
+ case IF:
case THEN:
+ case ELIF:
case ELSE:
case '{': /* } */
- case '(': /* ) */
+ case '(': /* )( */
+ case ')': /* only valid in case statement */
case BANG: /* ! time pipeline */
case TIME: /* time time pipeline */
case TIMEOPT: /* time -p time pipeline */
case TIMEIGN: /* time -p -- ... */
+ 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;
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
if (pushed_string_list)
free_string_list ();
#endif /* ALIAS || DPAREN_ARITHMETIC */
+ /* This is where we resynchronize to the next newline on error/reset */
if (shell_input_line)
{
free (shell_input_line);
FREE (word_desc_to_read);
word_desc_to_read = (WORD_DESC *)NULL;
+ eol_ungetc_lookahead = 0;
+
+ /* 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
parser_state &= ~PST_ASSIGNOK;
- peek_char = shell_getc (1);
- if (character == peek_char)
+ /* If we are parsing a command substitution and we have read a character
+ that marks the end of it, don't bother to skip over quoted newlines
+ when we read the next token. We're just interested in a character
+ that will turn this into a two-character token, so we let the higher
+ layers deal with quoted newlines following the command substitution. */
+ if ((parser_state & PST_CMDSUBST) && character == shell_eof_token)
+ peek_char = shell_getc (0);
+ else
+ peek_char = shell_getc (1);
+
+ if 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_INWORD 0x400
+#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 */
}
RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
- if MBTEST(ch == CTLESC || ch == CTLNUL)
+ if MBTEST(ch == CTLESC)
ret[retind++] = CTLESC;
ret[retind++] = ch;
continue;
treat single quotes as special when inside a double-quoted
${...}. This logic must agree with subst.c:extract_dollar_brace_string
since they share the same defines. */
+ /* FLAG POSIX INTERP 221 */
if (flags & P_DOLBRACE)
{
/* ${param%[%]word} */
dolbrace_state = DOLBRACE_QUOTE;
/* ${param/[/]pat/rep} */
else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '/' && retind > 1)
- dolbrace_state = DOLBRACE_QUOTE;
+ dolbrace_state = DOLBRACE_QUOTE2; /* XXX */
/* ${param^[^]pat} */
else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '^' && retind > 1)
dolbrace_state = DOLBRACE_QUOTE;
within a double-quoted ${...} construct "an even number of
unescaped double-quotes or single-quotes, if any, shall occur." */
/* This was changed in Austin Group Interp 221 */
- if MBTEST(posixly_correct && shell_compatibility_level > 41 && dolbrace_state != DOLBRACE_QUOTE && (flags & P_DQUOTE) && (flags & P_DOLBRACE) && ch == '\'')
+ if MBTEST(posixly_correct && shell_compatibility_level > 41 && dolbrace_state != DOLBRACE_QUOTE && dolbrace_state != DOLBRACE_QUOTE2 && (flags & P_DQUOTE) && (flags & P_DOLBRACE) && ch == '\'')
continue;
/* Could also check open == '`' if we want to parse grouping constructs
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 ((rflags & P_DQUOTE) == 0)
+ /* If we're parsing a double-quoted brace expansion and we are
+ not in a place where single quotes are treated specially,
+ make sure we single-quote the results of the ansi
+ expansion because quote removal should remove them later */
+ /* FLAG POSIX INTERP 221 */
+ if ((shell_compatibility_level > 42) && (rflags & P_DQUOTE) && (dolbrace_state == DOLBRACE_QUOTE2 || 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);
free (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) && (tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
+ 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;
return ret;
}
-/* 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. */
+#if defined (DEBUG)
+static void
+dump_tflags (flags)
+ int flags;
+{
+ int f;
+
+ f = flags;
+ fprintf (stderr, "%d -> ", f);
+ if (f & LEX_WASDOL)
+ {
+ f &= ~LEX_WASDOL;
+ fprintf (stderr, "LEX_WASDOL%s", f ? "|" : "");
+ }
+ if (f & LEX_CKCOMMENT)
+ {
+ f &= ~LEX_CKCOMMENT;
+ fprintf (stderr, "LEX_CKCOMMENT%s", f ? "|" : "");
+ }
+ if (f & LEX_INCOMMENT)
+ {
+ f &= ~LEX_INCOMMENT;
+ fprintf (stderr, "LEX_INCOMMENT%s", f ? "|" : "");
+ }
+ if (f & LEX_PASSNEXT)
+ {
+ f &= ~LEX_PASSNEXT;
+ fprintf (stderr, "LEX_PASSNEXT%s", f ? "|" : "");
+ }
+ if (f & LEX_RESWDOK)
+ {
+ f &= ~LEX_RESWDOK;
+ fprintf (stderr, "LEX_RESWDOK%s", f ? "|" : "");
+ }
+ if (f & LEX_CKCASE)
+ {
+ f &= ~LEX_CKCASE;
+ fprintf (stderr, "LEX_CKCASE%s", f ? "|" : "");
+ }
+ if (f & LEX_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;
+ fprintf (stderr, "LEX_INHEREDOC%s", f ? "|" : "");
+ }
+ if (f & LEX_HEREDELIM)
+ {
+ f &= ~LEX_HEREDELIM;
+ fprintf (stderr, "LEX_HEREDELIM%s", f ? "|" : "");
+ }
+ if (f & LEX_STRIPDOC)
+ {
+ f &= ~LEX_STRIPDOC;
+ fprintf (stderr, "LEX_WASDOL%s", f ? "|" : "");
+ }
+ if (f & LEX_QUOTEDDOC)
+ {
+ f &= ~LEX_QUOTEDDOC;
+ fprintf (stderr, "LEX_QUOTEDDOC%s", f ? "|" : "");
+ }
+ if (f & LEX_INWORD)
+ {
+ f &= ~LEX_INWORD;
+ fprintf (stderr, "LEX_INWORD%s", f ? "|" : "");
+ }
+
+ fprintf (stderr, "\n");
+ fflush (stderr);
+}
+#endif
+
+/* Parse a $(...) command substitution. This 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));
+ if (open == '(') /*)*/
+ {
+ peekc = shell_getc (1);
+ shell_ungetc (peekc);
+ if (peekc == '(') /*)*/
+ return (parse_matched_pair (qc, open, close, lenp, P_ARITH));
+ }
/*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;
+ /*debug_parser(1);*/
start_lineno = line_number;
- lex_rwlen = lex_wlen = 0;
- heredelim = 0;
- lex_firstind = -1;
+ save_parser_state (&ps);
- while (count)
+ 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)
{
-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);
-/*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: in here doc, ch == close, retind - firstind = %d hdlen = %d retind = %d", 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);
-/*itrace("parse_comsub:%d: found here doc end `%s'", line_number, ret + tind);*/
- free (heredelim);
- heredelim = 0;
- lex_firstind = -1;
- }
- }
-
- /* Don't bother counting parens or doing anything else if in a comment */
- if (tflags & (LEX_INCOMMENT|LEX_INHEREDOC))
- {
- /* Add this character. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
-
- if ((tflags & LEX_INCOMMENT) && ch == '\n')
-{
-/*itrace("parse_comsub:%d: lex_incomment -> 0 ch = `%c'", line_number, ch);*/
- tflags &= ~LEX_INCOMMENT;
-}
-
- continue;
- }
-
- 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 || ch == CTLNUL)
- 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;
- }
- }
-
- /* 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;
- }
+ local_extglob = extended_glob;
+ extended_glob = 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);
- free (nestret);
- hdlen = STRLEN(heredelim);
-/*itrace("parse_comsub:%d: found here doc delimiter `%s' (%d)", line_number, heredelim, hdlen);*/
- }
- if (ch == '\n')
- {
- tflags |= LEX_INHEREDOC;
- tflags &= ~LEX_HEREDELIM;
- lex_firstind = retind + 1;
- }
- else
- lex_firstind = -1;
- }
- }
- /* Meta-characters that can introduce a reserved word. Not perfect yet. */
- if MBTEST((tflags & LEX_RESWDOK) == 0 && (tflags & LEX_CKCASE) && (tflags & LEX_INCOMMENT) == 0 && (shellmeta(ch) || 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);
- }
- }
+ current_token = '\n'; /* XXX */
+ token_to_read = DOLPAREN; /* let's trick the parser */
- /* If we can read a reserved word, try to read one. */
- if (tflags & LEX_RESWDOK)
- {
- if MBTEST(islower (ch))
- {
- /* Add this character. */
- RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
- ret[retind++] = ch;
- lex_rwlen++;
- continue;
- }
- else if MBTEST(lex_rwlen == 4 && shellbreak (ch))
- {
- if (STREQN (ret + retind - 4, "case", 4))
-{
- tflags |= LEX_INCASE;
-/*itrace("parse_comsub:%d: found `case', lex_incase -> 1 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 -> 0", line_number);*/
-}
- tflags &= ~LEX_RESWDOK;
- }
- 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 */
- 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);*/
-}
- }
+ r = yyparse ();
- /* 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;
-}
+ 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(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 */
+#if defined (EXTENDED_GLOB)
+ if (shell_compatibility_level <= 51 && was_extpat == 0)
+ extended_glob = local_extglob;
#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;
- /* If we just read the ending character, don't bother continuing. */
- if (count == 0)
- break;
+ parsed_command = global_command;
- if MBTEST(ch == '\\') /* backslashes */
- tflags |= LEX_PASSNEXT;
-
- if MBTEST(shellquote (ch))
- {
- /* '', ``, or "" inside $(...). */
- push_delimiter (dstack, ch);
- if MBTEST((tflags & LEX_WASDOL) && ch == '\'') /* $'...' inside group */
- nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);
- else
- nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);
- pop_delimiter (dstack);
- CHECK_NESTRET_ERROR ();
-
- if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))
- {
- /* Translate $'...' here. */
- ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
- xfree (nestret);
-
- if ((rflags & P_DQUOTE) == 0)
- {
- nestret = sh_single_quote (ttrans);
- free (ttrans);
- nestlen = strlen (nestret);
- }
- else
- {
- nestret = ttrans;
- nestlen = ttranslen;
- }
- retind -= 2; /* back up before the $' */
- }
- else if MBTEST((tflags & LEX_WASDOL) && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))
- {
- /* Locale expand $"..." here. */
- ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
- xfree (nestret);
-
- nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
- free (ttrans);
- nestlen = ttranslen + 2;
- retind -= 2; /* back up before the $" */
- }
-
- APPEND_NESTRET ();
- FREE (nestret);
- }
- else if MBTEST((tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */
- /* check for $(), $[], or ${} inside command substitution. */
- {
- 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);
+ if (EOF_Reached)
+ {
+ shell_eof_token = ps.eof_token;
+ expand_aliases = ps.expand_aliases;
- CHECK_NESTRET_ERROR ();
- APPEND_NESTRET ();
+ /* 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
+ {
+ 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;
int flags;
{
sh_parser_state_t ps;
- int orig_ind, nc, sflags;
- char *ret, *s, *ep, *ostring;
+ sh_input_line_state_t ls;
+ 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);*/
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
/*(*/
parser_state |= PST_CMDSUBST|PST_EOFTOKEN; /* allow instant ')' */ /*(*/
shell_eof_token = ')';
- parse_string (string, "command substitution", sflags, &ep);
+ 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
+
+ token_to_read = DOLPAREN; /* let's trick the parser */
+
+ 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);
- reset_parser ();
- if (interactive)
- token_to_read = 0;
- /* Need to find how many characters parse_and_execute consumed, update
+#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. We abandon the rest of this input line
+ first */
+ if (nc < 0)
+ {
+ 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_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);
}
else if (cmdtyp == 0) /* nested subshell */
{
push_string (wval, 0, (alias_t *)NULL);
+ pushed_string_list->flags = PSH_DPAREN;
if ((parser_state & PST_CASEPAT) == 0)
parser_state |= PST_SUBSHELL;
return (c);
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 `+=' */
/* Non-zero means to ignore the value of the next character, and just
to add it no matter what. */
- int pass_next_character;
+ int pass_next_character;
/* The current delimiting character. */
int cd;
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;
pop_delimiter (dstack);
if (ttok == &matched_pair_error)
return -1; /* Bail immediately. */
- RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+ RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 3,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
/* 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 */
- if MBTEST(peek_char == '(' || \
+ if MBTEST(peek_char == '(' ||
((peek_char == '{' || peek_char == '[') && character == '$')) /* ) ] } */
{
if (peek_char == '{') /* } */
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 + 2,
+ RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 3,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
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 + 2,
+ RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 1,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
strcpy (token + token_index, ttrans);
shell's single-character parameter expansions, and set flags.*/
else if MBTEST(character == '$' && peek_char == '$')
{
- ttok = (char *)xmalloc (3);
- ttok[0] = ttok[1] = '$';
- ttok[2] = '\0';
RESIZE_MALLOCED_BUFFER (token, token_index, 3,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
- strcpy (token + token_index, ttok);
- token_index += 2;
+ token[token_index++] = '$';
+ token[token_index++] = peek_char;
dollar_present = 1;
all_digit_token = 0;
- FREE (ttok);
goto next_character;
}
else
goto got_token;
}
- got_character:
-
- if (character == CTLESC || character == CTLNUL)
- token[token_index++] = CTLESC;
+got_character:
+ if MBTEST(character == CTLESC || character == CTLNUL)
+ {
+ RESIZE_MALLOCED_BUFFER (token, token_index, 2, token_buffer_size,
+ TOKEN_DEFAULT_GROW_SIZE);
+ token[token_index++] = CTLESC;
+ }
+ else
+got_escaped_character:
+ RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,
+ TOKEN_DEFAULT_GROW_SIZE);
- got_escaped_character:
+ token[token_index++] = character;
all_digit_token &= DIGIT (character);
dollar_present |= character == '$';
- token[token_index++] = character;
-
- RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,
- TOKEN_DEFAULT_GROW_SIZE);
-
next_character:
if (character == '\n' && SHOULD_PROMPT ())
- prompt_again ();
+ 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
got_token:
+ /* Calls to RESIZE_MALLOCED_BUFFER ensure there is sufficient room. */
token[token_index] = '\0';
/* Check to see what thing we should return. If the last_read_token
is a `<', or a `&', or the character which ended this token is
a '>' or '<', then, and ONLY then, is this input token a NUMBER.
Otherwise, it is just a word, and should be returned as such. */
- if MBTEST(all_digit_token && (character == '<' || character == '>' || \
- last_read_token == LESS_AND || \
+ if MBTEST(all_digit_token && (character == '<' || character == '>' ||
+ last_read_token == LESS_AND ||
last_read_token == GREATER_AND))
{
if (legal_number (token, &lvalue) && (int)lvalue == lvalue)
- yylval.number = lvalue;
- else
- yylval.number = -1;
- return (NUMBER);
+ {
+ yylval.number = lvalue;
+ return (NUMBER);
+ }
}
/* Check for special case tokens. */
#endif
CHECK_FOR_RESERVED_WORD (token);
- the_word = (WORD_DESC *)xmalloc (sizeof (WORD_DESC));
+ the_word = alloc_word_desc ();
the_word->word = (char *)xmalloc (1 + token_index);
the_word->flags = 0;
strcpy (the_word->word, token);
the_word->flags |= W_ASSIGNMENT;
/* Don't perform word splitting on assignment statements. */
if (assignment_acceptable (last_read_token) || (parser_state & PST_COMPASSIGN) != 0)
- the_word->flags |= W_NOSPLIT;
+ {
+ the_word->flags |= W_NOSPLIT;
+ if (parser_state & PST_COMPASSIGN)
+ the_word->flags |= W_NOGLOB; /* XXX - W_NOBRACE? */
+ }
}
if (command_token_position (last_read_token))
yylval.word = the_word;
- if (token[0] == '{' && token[token_index-1] == '}' &&
+ /* 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 */
token[token_index-1] = '\0';
+#if defined (ARRAY_VARS)
+ if (legal_identifier (token+1) || valid_array_reference (token+1, 0))
+#else
if (legal_identifier (token+1))
+#endif
{
strcpy (the_word->word, token+1);
-/*itrace("read_token_word: returning REDIR_WORD for %s", the_word->word);*/
+/* 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 -1;
}
+/* An interface to let the rest of the shell (primarily the completion
+ system) know what the parser is expecting. */
+int
+parser_in_command_position ()
+{
+ return (command_token_position (last_read_token));
+}
+
#if 0
#if defined (READLINE)
/* Called after each time readline is called. This insures that whatever
last_was_heredoc = 0;
return "\n";
}
- return (current_command_line_count == 2 ? "\n" : "");
+ return (here_doc_first_line ? "\n" : "");
}
+ if (parser_state & PST_COMPASSIGN)
+ return (" ");
+
/* First, handle some special cases. */
/*(*/
/* If we just read `()', assume it's a function definition, and don't
command lists. It's a suboptimal solution. */
else if (parser_state & PST_CASESTMT) /* case statement pattern */
return " ";
- else
+ else
return "; "; /* (...) subshell */
}
else if (token_before_that == WORD && two_tokens_ago == FUNCTION)
last_was_heredoc = 1;
return "\n";
}
-
+ else if ((parser_state & PST_HEREDOC) == 0 && current_command_line_count > 1 && need_here_doc > 0)
+ return "\n";
else if (token_before_that == WORD && two_tokens_ago == FOR)
{
/* Tricky. `for i\nin ...' should not have a semicolon, but
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;
ps1_prompt = get_string_value ("PS1");
ps2_prompt = get_string_value ("PS2");
+ ps0_prompt = get_string_value ("PS0");
+
if (!prompt_string_pointer)
prompt_string_pointer = &ps1_prompt;
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)
- int result_size, result_index;
+ size_t result_size;
+ size_t result_index;
int c, n, i;
- char *temp, octal_string[4];
+ char *temp, *t_host, octal_string[4];
struct tm *tm;
time_t the_time;
char timebuf[128];
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;
case 'A':
/* Make the current time/date into a string. */
(void) time (&the_time);
+#if defined (HAVE_TZSET)
+ sv_tz ("TZ"); /* XXX -- just make sure */
+#endif
tm = localtime (&the_time);
if (c == 'd')
/* 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;
case 's':
temp = base_pathname (shell_name);
- temp = savestring (temp);
+ /* Try to quote anything the user can set in the file system */
+ if (promptvars || posixly_correct)
+ {
+ char *t;
+ t = sh_strvis (temp);
+ temp = sh_backslash_quote_for_double_quotes (t, 0);
+ free (t);
+ }
+ else
+ temp = sh_strvis (temp);
goto add_string;
case 'v':
#undef ROOT_PATH
#undef DOUBLE_SLASH_ROOT
else
- /* polite_directory_format is guaranteed to return a string
- no longer than PATH_MAX - 1 characters. */
- strcpy (t_string, polite_directory_format (t_string));
+ {
+ /* polite_directory_format is guaranteed to return a string
+ no longer than PATH_MAX - 1 characters. */
+ temp = polite_directory_format (t_string);
+ if (temp != t_string)
+ strcpy (t_string, temp);
+ }
temp = trim_pathname (t_string, PATH_MAX - 1);
/* If we're going to be expanding the prompt string later,
/* 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;
}
case 'h':
case 'H':
- temp = savestring (current_host_name);
- if (c == 'h' && (t = (char *)strchr (temp, '.')))
+ t_host = savestring (current_host_name);
+ if (c == 'h' && (t = (char *)strchr (t_host, '.')))
*t = '\0';
+ if (promptvars || posixly_correct)
+ /* Make sure that expand_prompt_string is called with a
+ second argument of Q_DOUBLE_QUOTES if we use this
+ function here. */
+ temp = sh_backslash_quote_for_double_quotes (t_host, 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;
else
{
RESIZE_MALLOCED_BUFFER (result, result_index, 3, result_size, PROMPT_GROWTH);
+ /* dequote_string should take care of removing this if we are not
+ performing the rest of the word expansions. */
+ if (c == CTLESC || c == CTLNUL)
+ result[result_index++] = CTLESC;
result[result_index++] = c;
result[result_index] = '\0';
}
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 *);
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->expand_aliases = expand_aliases;
ps->echo_input_at_read = echo_input_at_read;
+ ps->need_here_doc = need_here_doc;
+ ps->here_doc_first_line = here_doc_first_line;
+
+ 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 */
+ token = 0;
+ token_buffer_size = 0;
return (ps);
}
restore_parser_state (ps)
sh_parser_state_t *ps;
{
+ int i;
+
if (ps == 0)
return;
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;
expand_aliases = ps->expand_aliases;
echo_input_at_read = ps->echo_input_at_read;
+ need_here_doc = ps->need_here_doc;
+ here_doc_first_line = ps->here_doc_first_line;
+
+ 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];
+#else
+ if (need_here_doc == 0)
+ redir_stack[0] = 0;
+ else
+ 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 *
+save_input_line_state (ls)
+ sh_input_line_state_t *ls;
+{
+ if (ls == 0)
+ ls = (sh_input_line_state_t *)xmalloc (sizeof (sh_input_line_state_t));
+ if (ls == 0)
+ return ((sh_input_line_state_t *)NULL);
+
+ ls->input_line = shell_input_line;
+ ls->input_line_size = shell_input_line_size;
+ ls->input_line_len = shell_input_line_len;
+ ls->input_line_index = shell_input_line_index;
+
+#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;
+}
+
+void
+restore_input_line_state (ls)
+ sh_input_line_state_t *ls;
+{
+ FREE (shell_input_line);
+ shell_input_line = ls->input_line;
+ shell_input_line_size = ls->input_line_size;
+ shell_input_line_len = ls->input_line_len;
+ shell_input_line_index = ls->input_line_index;
+
+#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 ()
{
- int i, previ, len, c;
+ int c;
+ 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 ? */
- FREE (shell_input_line_property);
- shell_input_line_property = (char *)xmalloc (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)
{
- int j;
+ size_t j;
for (j = i; j < len; j++)
shell_input_line_property[j] = 1;
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) */
- int j;
+ size_t j;
for (j = i; j < len; j++)
shell_input_line_property[j] = 1;
break;
}
}
#endif /* HANDLE_MULTIBYTE */
-
projects / thirdparty / bash.git / blobdiff