#define YYBISON 1
#define IF 257
#define THEN 258
#define ELSE 259
#define ELIF 260
#define FI 261
#define CASE 262
#define ESAC 263
#define FOR 264
#define SELECT 265
#define WHILE 266
#define UNTIL 267
#define DO 268
#define DONE 269
#define FUNCTION 270
#define COND_START 271
#define COND_END 272
#define COND_ERROR 273
#define IN 274
#define BANG 275
#define TIME 276
#define TIMEOPT 277
#define WORD 278
#define ASSIGNMENT_WORD 279
#define NUMBER 280
#define ARITH_CMD 281
#define ARITH_FOR_EXPRS 282
#define COND_CMD 283
#define AND_AND 284
#define OR_OR 285
#define GREATER_GREATER 286
#define LESS_LESS 287
#define LESS_AND 288
#define LESS_LESS_LESS 289
#define GREATER_AND 290
#define SEMI_SEMI 291
#define LESS_LESS_MINUS 292
#define AND_GREATER 293
#define LESS_GREATER 294
#define GREATER_BAR 295
#define yacc_EOF 296
#line 21 "/Users/chet/src/bash/src/parse.y"
#include "config.h"
#include "bashtypes.h"
#include "bashansi.h"
#include "filecntl.h"
#if defined (HAVE_UNISTD_H)
# include <unistd.h>
#endif
#if defined (HAVE_LOCALE_H)
# include <locale.h>
#endif
#include <stdio.h>
#include "chartypes.h"
#include <signal.h>
#include "memalloc.h"
#include "bashintl.h"
#define NEED_STRFTIME_DECL
#include "shell.h"
#include "trap.h"
#include "flags.h"
#include "parser.h"
#include "mailcheck.h"
#include "test.h"
#include "builtins.h"
#include "builtins/common.h"
#include "builtins/builtext.h"
#include "shmbutil.h"
#if defined (READLINE)
# include "bashline.h"
# include <readline/readline.h>
#endif
#if defined (HISTORY)
# include "bashhist.h"
# include <readline/history.h>
#endif
#if defined (JOB_CONTROL)
# include "jobs.h"
#endif
#if defined (ALIAS)
# include "alias.h"
#else
typedef void *alias_t;
#endif
#if defined (PROMPT_STRING_DECODE)
# ifndef _MINIX
# include <sys/param.h>
# endif
# include <time.h>
# if defined (TM_IN_SYS_TIME)
# include <sys/types.h>
# include <sys/time.h>
# endif
# include "maxpath.h"
#endif
#define RE_READ_TOKEN -99
#define NO_EXPANSION -100
#ifdef DEBUG
# define YYDEBUG 1
#else
# define YYDEBUG 0
#endif
#if defined (HANDLE_MULTIBYTE)
# define last_shell_getc_is_singlebyte \
((shell_input_line_index > 1) \
? shell_input_line_property[shell_input_line_index - 1] \
: 1)
# define MBTEST(x) ((x) && last_shell_getc_is_singlebyte)
#else
# define last_shell_getc_is_singlebyte 1
# define MBTEST(x) ((x))
#endif
#if defined (EXTENDED_GLOB)
extern int extended_glob;
#endif
extern int eof_encountered;
extern int no_line_editing, running_under_emacs;
extern int current_command_number;
extern int sourcelevel;
extern int posixly_correct;
extern int last_command_exit_value;
extern char *shell_name, *current_host_name;
extern char *dist_version;
extern int patch_level;
extern int dump_translatable_strings, dump_po_strings;
extern sh_builtin_func_t *last_shell_builtin, *this_shell_builtin;
#if defined (BUFFERED_INPUT)
extern int bash_input_fd_changed;
#endif
extern int errno;
#ifdef DEBUG
static void debug_parser __P((int));
#endif
static int yy_getc __P((void));
static int yy_ungetc __P((int));
#if defined (READLINE)
static int yy_readline_get __P((void));
static int yy_readline_unget __P((int));
#endif
static int yy_string_get __P((void));
static int yy_string_unget __P((int));
static int yy_stream_get __P((void));
static int yy_stream_unget __P((int));
static int shell_getc __P((int));
static void shell_ungetc __P((int));
static void discard_until __P((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 char *read_a_line __P((int));
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));
#if defined (ARRAY_VARS)
static char *parse_compound_assignment __P((int *));
#endif
#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
static int parse_dparen __P((int));
static int parse_arith_cmd __P((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));
#endif
#if defined (ARRAY_VARS)
static int token_is_assignment __P((char *, int));
static int token_is_ident __P((char *, int));
#endif
static int read_token_word __P((int));
static void discard_parser_constructs __P((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 void handle_eof_input_unit __P((void));
static void prompt_again __P((void));
#if 0
static void reset_readline_prompt __P((void));
#endif
static void print_prompt __P((void));
#if defined (HANDLE_MULTIBYTE)
static void set_line_mbstate __P((void));
static char *shell_input_line_property = NULL;
#else
# define set_line_mbstate()
#endif
extern int yyerror __P((const char *));
#ifdef DEBUG
extern int yydebug;
#endif
char *primary_prompt = PPROMPT;
char *secondary_prompt = SPROMPT;
char *ps1_prompt, *ps2_prompt;
char **prompt_string_pointer = (char **)NULL;
char *current_prompt_string;
int expand_aliases = 0;
int promptvars = 1;
int extended_quote = 1;
static char *current_decoded_prompt;
int current_command_line_count;
static REDIRECT *redir_stack[10];
int need_here_doc;
static char *shell_input_line = (char *)NULL;
static int shell_input_line_index;
static int shell_input_line_size;
static int shell_input_line_len;
static int shell_input_line_terminator;
static int function_dstart;
static int function_bstart;
static int arith_for_lineno;
#define MAX_CASE_NEST 128
static int word_lineno[MAX_CASE_NEST];
static int word_top = -1;
static int token_to_read;
static WORD_DESC *word_desc_to_read;
static REDIRECTEE redir;
#line 295 "/Users/chet/src/bash/src/parse.y"
typedef union {
WORD_DESC *word;
int number;
WORD_LIST *word_list;
COMMAND *command;
REDIRECT *redirect;
ELEMENT element;
PATTERN_LIST *pattern;
} YYSTYPE;
#include <stdio.h>
#ifndef __cplusplus
#ifndef __STDC__
#define const
#endif
#endif
#define YYFINAL 302
#define YYFLAG -32768
#define YYNTBASE 54
#define YYTRANSLATE(x) ((unsigned)(x) <= 296 ? yytranslate[x] : 90)
static const char yytranslate[] = { 0,
2, 2, 2, 2, 2, 2, 2, 2, 2, 44,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 42, 2, 52,
53, 2, 2, 2, 49, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 43, 48,
2, 47, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 50, 46, 51, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 1, 3, 4, 5, 6,
7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
37, 38, 39, 40, 41, 45
};
#if YYDEBUG != 0
static const short yyprhs[] = { 0,
0, 3, 5, 8, 10, 12, 15, 18, 21, 25,
29, 32, 36, 39, 43, 46, 50, 53, 57, 60,
64, 67, 71, 74, 78, 81, 85, 88, 92, 95,
99, 102, 106, 109, 112, 116, 118, 120, 122, 124,
127, 129, 132, 134, 136, 139, 141, 143, 145, 151,
157, 159, 161, 163, 165, 167, 169, 171, 178, 185,
193, 201, 212, 223, 233, 243, 251, 259, 265, 271,
278, 285, 293, 301, 312, 323, 330, 338, 345, 351,
358, 363, 365, 368, 372, 378, 386, 393, 397, 399,
403, 408, 415, 421, 423, 426, 431, 436, 442, 448,
451, 455, 457, 461, 464, 466, 469, 473, 477, 481,
486, 491, 496, 501, 506, 508, 510, 512, 514, 516,
518, 519, 522, 524, 527, 530, 535, 540, 544, 548,
550, 552, 555, 558, 562, 566, 569, 574, 576, 578
};
static const short yyrhs[] = { 85,
82, 0, 44, 0, 1, 44, 0, 45, 0, 24,
0, 55, 24, 0, 47, 24, 0, 48, 24, 0,
26, 47, 24, 0, 26, 48, 24, 0, 32, 24,
0, 26, 32, 24, 0, 33, 24, 0, 26, 33,
24, 0, 35, 24, 0, 26, 35, 24, 0, 34,
26, 0, 26, 34, 26, 0, 36, 26, 0, 26,
36, 26, 0, 34, 24, 0, 26, 34, 24, 0,
36, 24, 0, 26, 36, 24, 0, 38, 24, 0,
26, 38, 24, 0, 36, 49, 0, 26, 36, 49,
0, 34, 49, 0, 26, 34, 49, 0, 39, 24,
0, 26, 40, 24, 0, 40, 24, 0, 41, 24,
0, 26, 41, 24, 0, 24, 0, 25, 0, 56,
0, 56, 0, 58, 56, 0, 57, 0, 59, 57,
0, 59, 0, 61, 0, 61, 58, 0, 66, 0,
62, 0, 65, 0, 12, 79, 14, 79, 15, 0,
13, 79, 14, 79, 15, 0, 64, 0, 69, 0,
68, 0, 70, 0, 71, 0, 72, 0, 63, 0,
10, 24, 84, 14, 79, 15, 0, 10, 24, 84,
50, 79, 51, 0, 10, 24, 43, 84, 14, 79,
15, 0, 10, 24, 43, 84, 50, 79, 51, 0,
10, 24, 84, 20, 55, 83, 84, 14, 79, 15,
0, 10, 24, 84, 20, 55, 83, 84, 50, 79,
51, 0, 10, 24, 84, 20, 83, 84, 14, 79,
15, 0, 10, 24, 84, 20, 83, 84, 50, 79,
51, 0, 10, 28, 83, 84, 14, 79, 15, 0,
10, 28, 83, 84, 50, 79, 51, 0, 10, 28,
14, 79, 15, 0, 10, 28, 50, 79, 51, 0,
11, 24, 84, 14, 78, 15, 0, 11, 24, 84,
50, 78, 51, 0, 11, 24, 43, 84, 14, 78,
15, 0, 11, 24, 43, 84, 50, 78, 51, 0,
11, 24, 84, 20, 55, 83, 84, 14, 78, 15,
0, 11, 24, 84, 20, 55, 83, 84, 50, 78,
51, 0, 8, 24, 84, 20, 84, 9, 0, 8,
24, 84, 20, 76, 84, 9, 0, 8, 24, 84,
20, 74, 9, 0, 24, 52, 53, 84, 67, 0,
16, 24, 52, 53, 84, 67, 0, 16, 24, 84,
67, 0, 61, 0, 61, 58, 0, 52, 79, 53,
0, 3, 79, 4, 79, 7, 0, 3, 79, 4,
79, 5, 79, 7, 0, 3, 79, 4, 79, 73,
7, 0, 50, 79, 51, 0, 27, 0, 17, 29,
18, 0, 6, 79, 4, 79, 0, 6, 79, 4,
79, 5, 79, 0, 6, 79, 4, 79, 73, 0,
75, 0, 76, 75, 0, 84, 77, 53, 79, 0,
84, 77, 53, 84, 0, 84, 52, 77, 53, 79,
0, 84, 52, 77, 53, 84, 0, 75, 37, 0,
76, 75, 37, 0, 24, 0, 77, 46, 24, 0,
84, 80, 0, 78, 0, 84, 81, 0, 81, 44,
84, 0, 81, 42, 84, 0, 81, 43, 84, 0,
81, 30, 84, 81, 0, 81, 31, 84, 81, 0,
81, 42, 84, 81, 0, 81, 43, 84, 81, 0,
81, 44, 84, 81, 0, 87, 0, 44, 0, 45,
0, 44, 0, 43, 0, 45, 0, 0, 84, 44,
0, 86, 0, 86, 42, 0, 86, 43, 0, 86,
30, 84, 86, 0, 86, 31, 84, 86, 0, 86,
42, 86, 0, 86, 43, 86, 0, 87, 0, 88,
0, 21, 88, 0, 89, 88, 0, 89, 21, 88,
0, 21, 89, 88, 0, 89, 83, 0, 88, 46,
84, 88, 0, 60, 0, 22, 0, 22, 23, 0
};
#endif
#if YYDEBUG != 0
static const short yyrline[] = { 0,
346, 355, 362, 377, 387, 389, 393, 398, 403, 408,
413, 418, 423, 429, 435, 440, 445, 450, 455, 460,
465, 470, 475, 480, 485, 492, 499, 504, 509, 514,
519, 524, 529, 534, 539, 546, 548, 550, 554, 558,
569, 571, 575, 577, 579, 595, 599, 601, 603, 605,
607, 609, 611, 613, 615, 617, 619, 623, 628, 633,
638, 643, 648, 653, 658, 665, 670, 675, 680, 687,
692, 697, 702, 707, 712, 719, 724, 729, 736, 739,
742, 747, 749, 780, 787, 789, 791, 796, 800, 804,
808, 810, 812, 816, 817, 821, 823, 825, 827, 831,
832, 836, 838, 847, 855, 856, 862, 863, 870, 874,
876, 878, 885, 887, 889, 893, 894, 897, 899, 901,
905, 906, 915, 921, 930, 938, 940, 942, 949, 952,
956, 958, 964, 970, 976, 982, 1002, 1005, 1009, 1011
};
#endif
#if YYDEBUG != 0 || defined (YYERROR_VERBOSE)
static const char * const yytname[] = { "$","error","$undefined.","IF","THEN",
"ELSE","ELIF","FI","CASE","ESAC","FOR","SELECT","WHILE","UNTIL","DO","DONE",
"FUNCTION","COND_START","COND_END","COND_ERROR","IN","BANG","TIME","TIMEOPT",
"WORD","ASSIGNMENT_WORD","NUMBER","ARITH_CMD","ARITH_FOR_EXPRS","COND_CMD","AND_AND",
"OR_OR","GREATER_GREATER","LESS_LESS","LESS_AND","LESS_LESS_LESS","GREATER_AND",
"SEMI_SEMI","LESS_LESS_MINUS","AND_GREATER","LESS_GREATER","GREATER_BAR","'&'",
"';'","'\\n'","yacc_EOF","'|'","'>'","'<'","'-'","'{'","'}'","'('","')'","inputunit",
"word_list","redirection","simple_command_element","redirection_list","simple_command",
"command","shell_command","for_command","arith_for_command","select_command",
"case_command","function_def","function_body","subshell","if_command","group_command",
"arith_command","cond_command","elif_clause","case_clause","pattern_list","case_clause_sequence",
"pattern","list","compound_list","list0","list1","simple_list_terminator","list_terminator",
"newline_list","simple_list","simple_list1","pipeline_command","pipeline","timespec", NULL
};
#endif
static const short yyr1[] = { 0,
54, 54, 54, 54, 55, 55, 56, 56, 56, 56,
56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
56, 56, 56, 56, 56, 57, 57, 57, 58, 58,
59, 59, 60, 60, 60, 60, 61, 61, 61, 61,
61, 61, 61, 61, 61, 61, 61, 62, 62, 62,
62, 62, 62, 62, 62, 63, 63, 63, 63, 64,
64, 64, 64, 64, 64, 65, 65, 65, 66, 66,
66, 67, 67, 68, 69, 69, 69, 70, 71, 72,
73, 73, 73, 74, 74, 75, 75, 75, 75, 76,
76, 77, 77, 78, 79, 79, 80, 80, 80, 81,
81, 81, 81, 81, 81, 82, 82, 83, 83, 83,
84, 84, 85, 85, 85, 86, 86, 86, 86, 86,
87, 87, 87, 87, 87, 87, 88, 88, 89, 89
};
static const short yyr2[] = { 0,
2, 1, 2, 1, 1, 2, 2, 2, 3, 3,
2, 3, 2, 3, 2, 3, 2, 3, 2, 3,
2, 3, 2, 3, 2, 3, 2, 3, 2, 3,
2, 3, 2, 2, 3, 1, 1, 1, 1, 2,
1, 2, 1, 1, 2, 1, 1, 1, 5, 5,
1, 1, 1, 1, 1, 1, 1, 6, 6, 7,
7, 10, 10, 9, 9, 7, 7, 5, 5, 6,
6, 7, 7, 10, 10, 6, 7, 6, 5, 6,
4, 1, 2, 3, 5, 7, 6, 3, 1, 3,
4, 6, 5, 1, 2, 4, 4, 5, 5, 2,
3, 1, 3, 2, 1, 2, 3, 3, 3, 4,
4, 4, 4, 4, 1, 1, 1, 1, 1, 1,
0, 2, 1, 2, 2, 4, 4, 3, 3, 1,
1, 2, 2, 3, 3, 2, 4, 1, 1, 2
};
static const short yydefact[] = { 0,
0, 121, 0, 0, 0, 121, 121, 0, 0, 0,
139, 36, 37, 0, 89, 0, 0, 0, 0, 0,
0, 0, 0, 0, 2, 4, 0, 0, 121, 121,
38, 41, 43, 138, 44, 47, 57, 51, 48, 46,
53, 52, 54, 55, 56, 0, 123, 130, 131, 0,
3, 105, 0, 0, 121, 121, 0, 121, 0, 0,
121, 0, 132, 0, 140, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 11, 13, 21, 17,
29, 15, 23, 19, 27, 25, 31, 33, 34, 7,
8, 0, 0, 36, 42, 39, 45, 116, 117, 1,
121, 121, 124, 125, 121, 0, 119, 118, 120, 136,
133, 121, 122, 104, 106, 115, 0, 121, 0, 121,
121, 121, 121, 0, 121, 121, 0, 0, 90, 135,
121, 12, 14, 22, 18, 30, 16, 24, 20, 28,
26, 32, 35, 9, 10, 88, 84, 40, 0, 0,
128, 129, 0, 134, 0, 121, 121, 121, 121, 121,
121, 0, 121, 0, 121, 0, 0, 0, 0, 121,
0, 121, 0, 0, 121, 82, 81, 0, 126, 127,
0, 0, 137, 121, 121, 85, 0, 0, 0, 108,
109, 107, 0, 94, 121, 0, 121, 121, 0, 5,
0, 121, 0, 68, 69, 121, 121, 121, 121, 0,
0, 0, 0, 49, 50, 0, 83, 79, 0, 0,
87, 110, 111, 112, 113, 114, 78, 100, 95, 0,
76, 102, 0, 0, 0, 0, 58, 6, 121, 0,
59, 0, 0, 0, 0, 70, 0, 121, 71, 80,
86, 121, 121, 121, 121, 101, 77, 0, 0, 121,
60, 61, 0, 121, 121, 66, 67, 72, 73, 0,
91, 0, 0, 0, 121, 103, 96, 97, 121, 121,
0, 0, 121, 121, 121, 93, 98, 99, 0, 0,
64, 65, 0, 0, 92, 62, 63, 74, 75, 0,
0, 0
};
static const short yydefgoto[] = { 300,
201, 31, 32, 97, 33, 34, 35, 36, 37, 38,
39, 40, 177, 41, 42, 43, 44, 45, 187, 193,
194, 195, 234, 52, 53, 114, 115, 100, 110, 54,
46, 151, 116, 49, 50
};
static const short yypact[] = { 274,
-23,-32768, 5, 55, 10,-32768,-32768, 21, 31, 446,
32, 19,-32768, 553,-32768, 56, 72, -12, 89, -11,
92, 102, 111, 113,-32768,-32768, 117, 124,-32768,-32768,
-32768,-32768, 183,-32768, 202,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768, -13, 134,-32768, 52, 317,
-32768,-32768, 148, 360,-32768, 115, 22, 120, 154, 173,
114, 155, 52, 532,-32768, 140, 180, 181, 101, 182,
112, 186, 188, 189, 190, 205,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-32768, 193, 195,-32768,-32768,-32768, 202,-32768,-32768,-32768,
-32768,-32768, 403, 403,-32768, 532,-32768,-32768,-32768,-32768,
52,-32768,-32768,-32768, 221,-32768, -9,-32768, 42,-32768,
-32768,-32768,-32768, 61,-32768,-32768, 200, 41,-32768, 52,
-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 360, 360,
152, 152, 489, 52, 192,-32768,-32768,-32768,-32768,-32768,
-32768, 26,-32768, 127,-32768, 218, 194, 34, 73,-32768,
215,-32768, 242, 245,-32768, 202,-32768, 41,-32768,-32768,
403, 403, 52,-32768,-32768,-32768, 254, 360, 360, 360,
360, 360, 253, 229,-32768, -2,-32768,-32768, 252,-32768,
151,-32768, 217,-32768,-32768,-32768,-32768,-32768,-32768, 255,
360, 151, 220,-32768,-32768, 41, 202,-32768, 265, 272,
-32768,-32768,-32768, 159, 159, 159,-32768,-32768, 241, 17,
-32768,-32768, 256, 36, 266, 232,-32768,-32768,-32768, 74,
-32768, 273, 238, 277, 243,-32768, 221,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768,-32768, 116, 269,-32768,
-32768,-32768, 90,-32768,-32768,-32768,-32768,-32768,-32768, 95,
197, 360, 360, 360,-32768,-32768,-32768, 360,-32768,-32768,
282, 251,-32768,-32768,-32768,-32768,-32768, 360, 288, 260,
-32768,-32768, 289, 280,-32768,-32768,-32768,-32768,-32768, 305,
316,-32768
};
static const short yypgoto[] = {-32768,
146, -33, 290, 156,-32768,-32768, -119,-32768,-32768,-32768,
-32768,-32768, -153,-32768,-32768,-32768,-32768,-32768, 64,-32768,
141,-32768, 104, -162, -6,-32768, -172,-32768, -52, -28,
-32768, 6, 4, -7, 329
};
#define YYLAST 601
static const short yytable[] = { 59,
60, 96, 63, 48, 122, 47, 231, 210, 176, 213,
161, 79, 83, 80, 84, 222, 223, 224, 225, 226,
51, 232, 92, 93, 218, 257, 117, 119, 55, 124,
98, 99, 128, 58, 113, 120, 81, 85, 247, 197,
232, 113, 111, 2, 61, 244, 245, 206, 3, 233,
4, 5, 6, 7, 65, 163, 130, 9, 176, 62,
113, 164, 250, 148, 107, 108, 109, 15, 233, 113,
66, 121, 149, 150, 170, 198, 153, 113, 56, 77,
171, 259, 57, 207, 113, 113, 208, 264, 260, 162,
29, 165, 30, 168, 169, 78, 176, 105, 154, 224,
225, 226, 178, 279, 113, 155, 48, 48, 283, 152,
172, 202, 82, 166, 167, 86, 113, 113, 173, 174,
293, 294, 209, 265, 134, 87, 135, 188, 189, 190,
191, 192, 196, 113, 88, 138, 89, 139, 113, 280,
90, 211, 96, 211, 284, 183, 216, 91, 239, 136,
200, 112, 48, 48, 179, 180, 199, 118, 203, 248,
140, 259, 123, 101, 102, 127, 230, 125, 275, 107,
108, 109, 129, 240, 238, 103, 104, 219, 220, 211,
211, 101, 102, 148, 48, 48, 126, 152, 156, 157,
235, 236, 131, 107, 108, 109, 184, 185, 186, 242,
243, 285, 185, 132, 133, 137, 94, 13, 14, 141,
263, 142, 143, 144, 16, 17, 18, 19, 20, 270,
21, 22, 23, 24, 272, 273, 274, 14, 145, 27,
28, 278, 204, 16, 17, 18, 19, 20, 200, 21,
22, 23, 24, 146, 205, 271, 288, 147, 27, 28,
156, 157, 175, 277, 211, 211, 214, 281, 282, 215,
221, 227, 158, 159, 160, 228, 237, 241, 287, 246,
249, 251, 289, 290, 1, 252, 2, 256, 295, 232,
261, 3, 262, 4, 5, 6, 7, 266, 267, 8,
9, 268, 276, 269, 10, 11, 291, 12, 13, 14,
15, 292, 296, 298, 301, 16, 17, 18, 19, 20,
297, 21, 22, 23, 24, 302, 212, 25, 26, 2,
27, 28, 95, 29, 3, 30, 4, 5, 6, 7,
299, 217, 8, 9, 286, 229, 258, 106, 64, 0,
12, 13, 14, 15, 0, 0, 0, 0, 16, 17,
18, 19, 20, 0, 21, 22, 23, 24, 0, 107,
108, 109, 2, 27, 28, 0, 29, 3, 30, 4,
5, 6, 7, 0, 0, 8, 9, 0, 0, 0,
10, 11, 0, 12, 13, 14, 15, 0, 0, 0,
0, 16, 17, 18, 19, 20, 0, 21, 22, 23,
24, 0, 0, 113, 0, 2, 27, 28, 0, 29,
3, 30, 4, 5, 6, 7, 0, 0, 8, 9,
0, 0, 0, 10, 11, 0, 12, 13, 14, 15,
0, 0, 0, 0, 16, 17, 18, 19, 20, 0,
21, 22, 23, 24, 0, 0, 0, 0, 2, 27,
28, 0, 29, 3, 30, 4, 5, 6, 7, 0,
0, 8, 9, 0, 0, 0, 0, 11, 0, 12,
13, 14, 15, 0, 0, 0, 0, 16, 17, 18,
19, 20, 0, 21, 22, 23, 24, 0, 0, 0,
0, 2, 27, 28, 0, 29, 3, 30, 4, 5,
6, 7, 0, 0, 8, 9, 0, 0, 0, 0,
0, 0, 12, 13, 14, 15, 0, 0, 0, 0,
16, 17, 18, 19, 20, 0, 21, 22, 23, 24,
0, 0, 113, 0, 2, 27, 28, 0, 29, 3,
30, 4, 5, 6, 7, 0, 0, 8, 9, 0,
0, 0, 0, 0, 0, 12, 13, 14, 15, 0,
0, 0, 0, 16, 17, 18, 19, 20, 0, 21,
22, 23, 24, 0, 0, 0, 0, 0, 27, 28,
0, 29, 0, 30, 67, 68, 69, 70, 71, 0,
72, 0, 73, 74, 0, 0, 0, 0, 0, 75,
76
};
static const short yycheck[] = { 6,
7, 35, 10, 0, 57, 0, 9, 170, 128, 172,
20, 24, 24, 26, 26, 188, 189, 190, 191, 192,
44, 24, 29, 30, 178, 9, 55, 56, 24, 58,
44, 45, 61, 24, 44, 14, 49, 49, 211, 14,
24, 44, 50, 3, 24, 208, 209, 14, 8, 52,
10, 11, 12, 13, 23, 14, 64, 17, 178, 29,
44, 20, 216, 97, 43, 44, 45, 27, 52, 44,
52, 50, 101, 102, 14, 50, 105, 44, 24, 24,
20, 46, 28, 50, 44, 44, 14, 14, 53, 118,
50, 50, 52, 122, 123, 24, 216, 46, 106, 272,
273, 274, 131, 14, 44, 112, 103, 104, 14, 104,
50, 164, 24, 120, 121, 24, 44, 44, 125, 126,
283, 284, 50, 50, 24, 24, 26, 156, 157, 158,
159, 160, 161, 44, 24, 24, 24, 26, 44, 50,
24, 170, 176, 172, 50, 153, 175, 24, 201, 49,
24, 4, 149, 150, 149, 150, 163, 43, 165, 212,
49, 46, 43, 30, 31, 52, 195, 14, 53, 43,
44, 45, 18, 202, 24, 42, 43, 184, 185, 208,
209, 30, 31, 217, 181, 182, 14, 182, 30, 31,
197, 198, 53, 43, 44, 45, 5, 6, 7, 206,
207, 5, 6, 24, 24, 24, 24, 25, 26, 24,
239, 24, 24, 24, 32, 33, 34, 35, 36, 248,
38, 39, 40, 41, 253, 254, 255, 26, 24, 47,
48, 260, 15, 32, 33, 34, 35, 36, 24, 38,
39, 40, 41, 51, 51, 252, 275, 53, 47, 48,
30, 31, 53, 260, 283, 284, 15, 264, 265, 15,
7, 9, 42, 43, 44, 37, 15, 51, 275, 15,
51, 7, 279, 280, 1, 4, 3, 37, 285, 24,
15, 8, 51, 10, 11, 12, 13, 15, 51, 16,
17, 15, 24, 51, 21, 22, 15, 24, 25, 26,
27, 51, 15, 15, 0, 32, 33, 34, 35, 36,
51, 38, 39, 40, 41, 0, 171, 44, 45, 3,
47, 48, 33, 50, 8, 52, 10, 11, 12, 13,
51, 176, 16, 17, 271, 195, 233, 21, 10, -1,
24, 25, 26, 27, -1, -1, -1, -1, 32, 33,
34, 35, 36, -1, 38, 39, 40, 41, -1, 43,
44, 45, 3, 47, 48, -1, 50, 8, 52, 10,
11, 12, 13, -1, -1, 16, 17, -1, -1, -1,
21, 22, -1, 24, 25, 26, 27, -1, -1, -1,
-1, 32, 33, 34, 35, 36, -1, 38, 39, 40,
41, -1, -1, 44, -1, 3, 47, 48, -1, 50,
8, 52, 10, 11, 12, 13, -1, -1, 16, 17,
-1, -1, -1, 21, 22, -1, 24, 25, 26, 27,
-1, -1, -1, -1, 32, 33, 34, 35, 36, -1,
38, 39, 40, 41, -1, -1, -1, -1, 3, 47,
48, -1, 50, 8, 52, 10, 11, 12, 13, -1,
-1, 16, 17, -1, -1, -1, -1, 22, -1, 24,
25, 26, 27, -1, -1, -1, -1, 32, 33, 34,
35, 36, -1, 38, 39, 40, 41, -1, -1, -1,
-1, 3, 47, 48, -1, 50, 8, 52, 10, 11,
12, 13, -1, -1, 16, 17, -1, -1, -1, -1,
-1, -1, 24, 25, 26, 27, -1, -1, -1, -1,
32, 33, 34, 35, 36, -1, 38, 39, 40, 41,
-1, -1, 44, -1, 3, 47, 48, -1, 50, 8,
52, 10, 11, 12, 13, -1, -1, 16, 17, -1,
-1, -1, -1, -1, -1, 24, 25, 26, 27, -1,
-1, -1, -1, 32, 33, 34, 35, 36, -1, 38,
39, 40, 41, -1, -1, -1, -1, -1, 47, 48,
-1, 50, -1, 52, 32, 33, 34, 35, 36, -1,
38, -1, 40, 41, -1, -1, -1, -1, -1, 47,
48
};
#line 3 "/usr/share/bison.simple"
#ifndef YYSTACK_USE_ALLOCA
#ifdef alloca
#define YYSTACK_USE_ALLOCA
#else
#ifdef __GNUC__
#define YYSTACK_USE_ALLOCA
#define alloca __builtin_alloca
#else
#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) || (defined (__sun) && defined (__i386))
#define YYSTACK_USE_ALLOCA
#include <alloca.h>
#else
#if (defined (_MSDOS) || defined (_MSDOS_)) && !defined (__TURBOC__)
#if 0
#include <malloc.h>
#endif
#else
#if defined(_AIX)
#pragma alloca
#define YYSTACK_USE_ALLOCA
#else
#if 0
#ifdef __hpux
#define YYSTACK_USE_ALLOCA
#define alloca __builtin_alloca
#endif
#endif
#endif
#endif
#endif
#endif
#endif
#endif
#ifdef YYSTACK_USE_ALLOCA
#define YYSTACK_ALLOC alloca
#else
#define YYSTACK_ALLOC malloc
#endif
#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 yyerrlab1
#define YYFAIL goto yyerrlab
#define YYRECOVERING() (!!yyerrstatus)
#define YYBACKUP(token, value) \
do \
if (yychar == YYEMPTY && yylen == 1) \
{ yychar = (token), yylval = (value); \
yychar1 = YYTRANSLATE (yychar); \
YYPOPSTACK; \
goto yybackup; \
} \
else \
{ yyerror ("syntax error: cannot back up"); YYERROR; } \
while (0)
#define YYTERROR 1
#define YYERRCODE 256
#ifndef YYPURE
#define YYLEX yylex()
#endif
#ifdef YYPURE
#ifdef YYLSP_NEEDED
#ifdef YYLEX_PARAM
#define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
#else
#define YYLEX yylex(&yylval, &yylloc)
#endif
#else
#ifdef YYLEX_PARAM
#define YYLEX yylex(&yylval, YYLEX_PARAM)
#else
#define YYLEX yylex(&yylval)
#endif
#endif
#endif
#ifndef YYPURE
int yychar;
YYSTYPE yylval;
#ifdef YYLSP_NEEDED
YYLTYPE yylloc;
#endif
int yynerrs;
#endif
#if YYDEBUG != 0
int yydebug;
#endif
#ifndef YYINITDEPTH
#define YYINITDEPTH 200
#endif
#if YYMAXDEPTH == 0
#undef YYMAXDEPTH
#endif
#ifndef YYMAXDEPTH
#define YYMAXDEPTH 10000
#endif
#if __GNUC__ > 1
#define __yy_memcpy(TO,FROM,COUNT) __builtin_memcpy(TO,FROM,COUNT)
#else
#ifndef __cplusplus
static void
__yy_memcpy (to, from, count)
char *to;
char *from;
unsigned int count;
{
register char *f = from;
register char *t = to;
register int i = count;
while (i-- > 0)
*t++ = *f++;
}
#else
static void
__yy_memcpy (char *to, char *from, unsigned int count)
{
register char *t = to;
register char *f = from;
register int i = count;
while (i-- > 0)
*t++ = *f++;
}
#endif
#endif
#line 217 "/usr/share/bison.simple"
#ifdef YYPARSE_PARAM
#ifdef __cplusplus
#define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
#define YYPARSE_PARAM_DECL
#else
#define YYPARSE_PARAM_ARG YYPARSE_PARAM
#define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
#endif
#else
#define YYPARSE_PARAM_ARG
#define YYPARSE_PARAM_DECL
#endif
#ifdef __GNUC__
#ifdef YYPARSE_PARAM
int yyparse (void *);
#else
int yyparse (void);
#endif
#endif
int
yyparse(YYPARSE_PARAM_ARG)
YYPARSE_PARAM_DECL
{
register int yystate;
register int yyn;
register short *yyssp;
register YYSTYPE *yyvsp;
int yyerrstatus;
int yychar1 = 0;
short yyssa[YYINITDEPTH];
YYSTYPE yyvsa[YYINITDEPTH];
short *yyss = yyssa;
YYSTYPE *yyvs = yyvsa;
#ifdef YYLSP_NEEDED
YYLTYPE yylsa[YYINITDEPTH];
YYLTYPE *yyls = yylsa;
YYLTYPE *yylsp;
#define YYPOPSTACK (yyvsp--, yyssp--, yylsp--)
#else
#define YYPOPSTACK (yyvsp--, yyssp--)
#endif
int yystacksize = YYINITDEPTH;
int yyfree_stacks = 0;
#ifdef YYPURE
int yychar;
YYSTYPE yylval;
int yynerrs;
#ifdef YYLSP_NEEDED
YYLTYPE yylloc;
#endif
#endif
YYSTYPE yyval;
int yylen;
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Starting parse\n");
#endif
yystate = 0;
yyerrstatus = 0;
yynerrs = 0;
yychar = YYEMPTY;
yyssp = yyss - 1;
yyvsp = yyvs;
#ifdef YYLSP_NEEDED
yylsp = yyls;
#endif
yynewstate:
*++yyssp = yystate;
if (yyssp >= yyss + yystacksize - 1)
{
YYSTYPE *yyvs1 = yyvs;
short *yyss1 = yyss;
#ifdef YYLSP_NEEDED
YYLTYPE *yyls1 = yyls;
#endif
int size = yyssp - yyss + 1;
#ifdef yyoverflow
#ifdef YYLSP_NEEDED
yyoverflow("parser stack overflow",
&yyss1, size * sizeof (*yyssp),
&yyvs1, size * sizeof (*yyvsp),
&yyls1, size * sizeof (*yylsp),
&yystacksize);
#else
yyoverflow("parser stack overflow",
&yyss1, size * sizeof (*yyssp),
&yyvs1, size * sizeof (*yyvsp),
&yystacksize);
#endif
yyss = yyss1; yyvs = yyvs1;
#ifdef YYLSP_NEEDED
yyls = yyls1;
#endif
#else
if (yystacksize >= YYMAXDEPTH)
{
yyerror("parser stack overflow");
if (yyfree_stacks)
{
free (yyss);
free (yyvs);
#ifdef YYLSP_NEEDED
free (yyls);
#endif
}
return 2;
}
yystacksize *= 2;
if (yystacksize > YYMAXDEPTH)
yystacksize = YYMAXDEPTH;
#ifndef YYSTACK_USE_ALLOCA
yyfree_stacks = 1;
#endif
yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
__yy_memcpy ((char *)yyss, (char *)yyss1,
size * (unsigned int) sizeof (*yyssp));
yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
__yy_memcpy ((char *)yyvs, (char *)yyvs1,
size * (unsigned int) sizeof (*yyvsp));
#ifdef YYLSP_NEEDED
yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
__yy_memcpy ((char *)yyls, (char *)yyls1,
size * (unsigned int) sizeof (*yylsp));
#endif
#endif
yyssp = yyss + size - 1;
yyvsp = yyvs + size - 1;
#ifdef YYLSP_NEEDED
yylsp = yyls + size - 1;
#endif
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Stack size increased to %d\n", yystacksize);
#endif
if (yyssp >= yyss + yystacksize - 1)
YYABORT;
}
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Entering state %d\n", yystate);
#endif
goto yybackup;
yybackup:
yyn = yypact[yystate];
if (yyn == YYFLAG)
goto yydefault;
if (yychar == YYEMPTY)
{
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Reading a token: ");
#endif
yychar = YYLEX;
}
if (yychar <= 0)
{
yychar1 = 0;
yychar = YYEOF;
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Now at end of input.\n");
#endif
}
else
{
yychar1 = YYTRANSLATE(yychar);
#if YYDEBUG != 0
if (yydebug)
{
fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
#ifdef YYPRINT
YYPRINT (stderr, yychar, yylval);
#endif
fprintf (stderr, ")\n");
}
#endif
}
yyn += yychar1;
if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
goto yydefault;
yyn = yytable[yyn];
if (yyn < 0)
{
if (yyn == YYFLAG)
goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
else if (yyn == 0)
goto yyerrlab;
if (yyn == YYFINAL)
YYACCEPT;
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
#endif
if (yychar != YYEOF)
yychar = YYEMPTY;
*++yyvsp = yylval;
#ifdef YYLSP_NEEDED
*++yylsp = yylloc;
#endif
if (yyerrstatus) yyerrstatus--;
yystate = yyn;
goto yynewstate;
yydefault:
yyn = yydefact[yystate];
if (yyn == 0)
goto yyerrlab;
yyreduce:
yylen = yyr2[yyn];
if (yylen > 0)
yyval = yyvsp[1-yylen];
#if YYDEBUG != 0
if (yydebug)
{
int i;
fprintf (stderr, "Reducing via rule %d (line %d), ",
yyn, yyrline[yyn]);
for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
fprintf (stderr, "%s ", yytname[yyrhs[i]]);
fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
}
#endif
switch (yyn) {
case 1:
#line 347 "/Users/chet/src/bash/src/parse.y"
{
global_command = yyvsp[-1].command;
eof_encountered = 0;
YYACCEPT;
;
break;}
case 2:
#line 356 "/Users/chet/src/bash/src/parse.y"
{
global_command = (COMMAND *)NULL;
YYACCEPT;
;
break;}
case 3:
#line 363 "/Users/chet/src/bash/src/parse.y"
{
global_command = (COMMAND *)NULL;
eof_encountered = 0;
if (interactive)
{
YYACCEPT;
}
else
{
YYABORT;
}
;
break;}
case 4:
#line 378 "/Users/chet/src/bash/src/parse.y"
{
global_command = (COMMAND *)NULL;
handle_eof_input_unit ();
YYACCEPT;
;
break;}
case 5:
#line 388 "/Users/chet/src/bash/src/parse.y"
{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); ;
break;}
case 6:
#line 390 "/Users/chet/src/bash/src/parse.y"
{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-1].word_list); ;
break;}
case 7:
#line 394 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (1, r_output_direction, redir);
;
break;}
case 8:
#line 399 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (0, r_input_direction, redir);
;
break;}
case 9:
#line 404 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_output_direction, redir);
;
break;}
case 10:
#line 409 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_input_direction, redir);
;
break;}
case 11:
#line 414 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (1, r_appending_to, redir);
;
break;}
case 12:
#line 419 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_appending_to, redir);
;
break;}
case 13:
#line 424 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (0, r_reading_until, redir);
redir_stack[need_here_doc++] = yyval.redirect;
;
break;}
case 14:
#line 430 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_reading_until, redir);
redir_stack[need_here_doc++] = yyval.redirect;
;
break;}
case 15:
#line 436 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (0, r_reading_string, redir);
;
break;}
case 16:
#line 441 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_reading_string, redir);
;
break;}
case 17:
#line 446 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = yyvsp[0].number;
yyval.redirect = make_redirection (0, r_duplicating_input, redir);
;
break;}
case 18:
#line 451 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = yyvsp[0].number;
yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input, redir);
;
break;}
case 19:
#line 456 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = yyvsp[0].number;
yyval.redirect = make_redirection (1, r_duplicating_output, redir);
;
break;}
case 20:
#line 461 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = yyvsp[0].number;
yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output, redir);
;
break;}
case 21:
#line 466 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (0, r_duplicating_input_word, redir);
;
break;}
case 22:
#line 471 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input_word, redir);
;
break;}
case 23:
#line 476 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (1, r_duplicating_output_word, redir);
;
break;}
case 24:
#line 481 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output_word, redir);
;
break;}
case 25:
#line 486 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection
(0, r_deblank_reading_until, redir);
redir_stack[need_here_doc++] = yyval.redirect;
;
break;}
case 26:
#line 493 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection
(yyvsp[-2].number, r_deblank_reading_until, redir);
redir_stack[need_here_doc++] = yyval.redirect;
;
break;}
case 27:
#line 500 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = 0;
yyval.redirect = make_redirection (1, r_close_this, redir);
;
break;}
case 28:
#line 505 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = 0;
yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
;
break;}
case 29:
#line 510 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = 0;
yyval.redirect = make_redirection (0, r_close_this, redir);
;
break;}
case 30:
#line 515 "/Users/chet/src/bash/src/parse.y"
{
redir.dest = 0;
yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
;
break;}
case 31:
#line 520 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (1, r_err_and_out, redir);
;
break;}
case 32:
#line 525 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_input_output, redir);
;
break;}
case 33:
#line 530 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (0, r_input_output, redir);
;
break;}
case 34:
#line 535 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (1, r_output_force, redir);
;
break;}
case 35:
#line 540 "/Users/chet/src/bash/src/parse.y"
{
redir.filename = yyvsp[0].word;
yyval.redirect = make_redirection (yyvsp[-2].number, r_output_force, redir);
;
break;}
case 36:
#line 547 "/Users/chet/src/bash/src/parse.y"
{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; ;
break;}
case 37:
#line 549 "/Users/chet/src/bash/src/parse.y"
{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; ;
break;}
case 38:
#line 551 "/Users/chet/src/bash/src/parse.y"
{ yyval.element.redirect = yyvsp[0].redirect; yyval.element.word = 0; ;
break;}
case 39:
#line 555 "/Users/chet/src/bash/src/parse.y"
{
yyval.redirect = yyvsp[0].redirect;
;
break;}
case 40:
#line 559 "/Users/chet/src/bash/src/parse.y"
{
register REDIRECT *t;
for (t = yyvsp[-1].redirect; t->next; t = t->next)
;
t->next = yyvsp[0].redirect;
yyval.redirect = yyvsp[-1].redirect;
;
break;}
case 41:
#line 570 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_simple_command (yyvsp[0].element, (COMMAND *)NULL); ;
break;}
case 42:
#line 572 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_simple_command (yyvsp[0].element, yyvsp[-1].command); ;
break;}
case 43:
#line 576 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = clean_simple_command (yyvsp[0].command); ;
break;}
case 44:
#line 578 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 45:
#line 580 "/Users/chet/src/bash/src/parse.y"
{
COMMAND *tc;
tc = yyvsp[-1].command;
if (tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
t->next = yyvsp[0].redirect;
}
else
tc->redirects = yyvsp[0].redirect;
yyval.command = yyvsp[-1].command;
;
break;}
case 46:
#line 596 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 47:
#line 600 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 48:
#line 602 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 49:
#line 604 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_while_command (yyvsp[-3].command, yyvsp[-1].command); ;
break;}
case 50:
#line 606 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_until_command (yyvsp[-3].command, yyvsp[-1].command); ;
break;}
case 51:
#line 608 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 52:
#line 610 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 53:
#line 612 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 54:
#line 614 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 55:
#line 616 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 56:
#line 618 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 57:
#line 620 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 58:
#line 624 "/Users/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--;
;
break;}
case 59:
#line 629 "/Users/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--;
;
break;}
case 60:
#line 634 "/Users/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--;
;
break;}
case 61:
#line 639 "/Users/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--;
;
break;}
case 62:
#line 644 "/Users/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--;
;
break;}
case 63:
#line 649 "/Users/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--;
;
break;}
case 64:
#line 654 "/Users/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--;
;
break;}
case 65:
#line 659 "/Users/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--;
;
break;}
case 66:
#line 666 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno);
if (word_top > 0) word_top--;
;
break;}
case 67:
#line 671 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno);
if (word_top > 0) word_top--;
;
break;}
case 68:
#line 676 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = make_arith_for_command (yyvsp[-3].word_list, yyvsp[-1].command, arith_for_lineno);
if (word_top > 0) word_top--;
;
break;}
case 69:
#line 681 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = make_arith_for_command (yyvsp[-3].word_list, yyvsp[-1].command, arith_for_lineno);
if (word_top > 0) word_top--;
;
break;}
case 70:
#line 688 "/Users/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--;
;
break;}
case 71:
#line 693 "/Users/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--;
;
break;}
case 72:
#line 698 "/Users/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--;
;
break;}
case 73:
#line 703 "/Users/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--;
;
break;}
case 74:
#line 708 "/Users/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--;
;
break;}
case 75:
#line 713 "/Users/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--;
;
break;}
case 76:
#line 720 "/Users/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--;
;
break;}
case 77:
#line 725 "/Users/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--;
;
break;}
case 78:
#line 730 "/Users/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--;
;
break;}
case 79:
#line 737 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); ;
break;}
case 80:
#line 740 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); ;
break;}
case 81:
#line 743 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_function_def (yyvsp[-2].word, yyvsp[0].command, function_dstart, function_bstart); ;
break;}
case 82:
#line 748 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 83:
#line 750 "/Users/chet/src/bash/src/parse.y"
{
COMMAND *tc;
tc = yyvsp[-1].command;
if (tc->redirects)
{
register REDIRECT *t;
for (t = tc->redirects; t->next; t = t->next)
;
t->next = yyvsp[0].redirect;
}
else
tc->redirects = yyvsp[0].redirect;
yyval.command = yyvsp[-1].command;
;
break;}
case 84:
#line 781 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = make_subshell_command (yyvsp[-1].command);
yyval.command->flags |= CMD_WANT_SUBSHELL;
;
break;}
case 85:
#line 788 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, (COMMAND *)NULL); ;
break;}
case 86:
#line 790 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_if_command (yyvsp[-5].command, yyvsp[-3].command, yyvsp[-1].command); ;
break;}
case 87:
#line 792 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[-1].command); ;
break;}
case 88:
#line 797 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_group_command (yyvsp[-1].command); ;
break;}
case 89:
#line 801 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_arith_command (yyvsp[0].word_list); ;
break;}
case 90:
#line 805 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[-1].command; ;
break;}
case 91:
#line 809 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_if_command (yyvsp[-2].command, yyvsp[0].command, (COMMAND *)NULL); ;
break;}
case 92:
#line 811 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[0].command); ;
break;}
case 93:
#line 813 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, yyvsp[0].command); ;
break;}
case 95:
#line 818 "/Users/chet/src/bash/src/parse.y"
{ yyvsp[0].pattern->next = yyvsp[-1].pattern; yyval.pattern = yyvsp[0].pattern; ;
break;}
case 96:
#line 822 "/Users/chet/src/bash/src/parse.y"
{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); ;
break;}
case 97:
#line 824 "/Users/chet/src/bash/src/parse.y"
{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); ;
break;}
case 98:
#line 826 "/Users/chet/src/bash/src/parse.y"
{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); ;
break;}
case 99:
#line 828 "/Users/chet/src/bash/src/parse.y"
{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); ;
break;}
case 101:
#line 833 "/Users/chet/src/bash/src/parse.y"
{ yyvsp[-1].pattern->next = yyvsp[-2].pattern; yyval.pattern = yyvsp[-1].pattern; ;
break;}
case 102:
#line 837 "/Users/chet/src/bash/src/parse.y"
{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); ;
break;}
case 103:
#line 839 "/Users/chet/src/bash/src/parse.y"
{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-2].word_list); ;
break;}
case 104:
#line 848 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = yyvsp[0].command;
if (need_here_doc)
gather_here_documents ();
;
break;}
case 106:
#line 857 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = yyvsp[0].command;
;
break;}
case 108:
#line 864 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[-2].command->type == cm_connection)
yyval.command = connect_async_list (yyvsp[-2].command, (COMMAND *)NULL, '&');
else
yyval.command = command_connect (yyvsp[-2].command, (COMMAND *)NULL, '&');
;
break;}
case 110:
#line 875 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); ;
break;}
case 111:
#line 877 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); ;
break;}
case 112:
#line 879 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[-3].command->type == cm_connection)
yyval.command = connect_async_list (yyvsp[-3].command, yyvsp[0].command, '&');
else
yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '&');
;
break;}
case 113:
#line 886 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); ;
break;}
case 114:
#line 888 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); ;
break;}
case 115:
#line 890 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 118:
#line 898 "/Users/chet/src/bash/src/parse.y"
{ yyval.number = '\n'; ;
break;}
case 119:
#line 900 "/Users/chet/src/bash/src/parse.y"
{ yyval.number = ';'; ;
break;}
case 120:
#line 902 "/Users/chet/src/bash/src/parse.y"
{ yyval.number = yacc_EOF; ;
break;}
case 123:
#line 916 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = yyvsp[0].command;
if (need_here_doc)
gather_here_documents ();
;
break;}
case 124:
#line 922 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[-1].command->type == cm_connection)
yyval.command = connect_async_list (yyvsp[-1].command, (COMMAND *)NULL, '&');
else
yyval.command = command_connect (yyvsp[-1].command, (COMMAND *)NULL, '&');
if (need_here_doc)
gather_here_documents ();
;
break;}
case 125:
#line 931 "/Users/chet/src/bash/src/parse.y"
{
yyval.command = yyvsp[-1].command;
if (need_here_doc)
gather_here_documents ();
;
break;}
case 126:
#line 939 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); ;
break;}
case 127:
#line 941 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); ;
break;}
case 128:
#line 943 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[-2].command->type == cm_connection)
yyval.command = connect_async_list (yyvsp[-2].command, yyvsp[0].command, '&');
else
yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, '&');
;
break;}
case 129:
#line 950 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, ';'); ;
break;}
case 130:
#line 953 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 131:
#line 957 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 132:
#line 959 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[0].command)
yyvsp[0].command->flags |= CMD_INVERT_RETURN;
yyval.command = yyvsp[0].command;
;
break;}
case 133:
#line 965 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[0].command)
yyvsp[0].command->flags |= yyvsp[-1].number;
yyval.command = yyvsp[0].command;
;
break;}
case 134:
#line 971 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[0].command)
yyvsp[0].command->flags |= yyvsp[-2].number|CMD_INVERT_RETURN;
yyval.command = yyvsp[0].command;
;
break;}
case 135:
#line 977 "/Users/chet/src/bash/src/parse.y"
{
if (yyvsp[0].command)
yyvsp[0].command->flags |= yyvsp[-1].number|CMD_INVERT_RETURN;
yyval.command = yyvsp[0].command;
;
break;}
case 136:
#line 983 "/Users/chet/src/bash/src/parse.y"
{
ELEMENT x;
x.word = 0;
x.redirect = 0;
yyval.command = make_simple_command (x, (COMMAND *)NULL);
yyval.command->flags |= yyvsp[-1].number;
if (yyvsp[0].number == '\n')
token_to_read = '\n';
;
break;}
case 137:
#line 1004 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '|'); ;
break;}
case 138:
#line 1006 "/Users/chet/src/bash/src/parse.y"
{ yyval.command = yyvsp[0].command; ;
break;}
case 139:
#line 1010 "/Users/chet/src/bash/src/parse.y"
{ yyval.number = CMD_TIME_PIPELINE; ;
break;}
case 140:
#line 1012 "/Users/chet/src/bash/src/parse.y"
{ yyval.number = CMD_TIME_PIPELINE|CMD_TIME_POSIX; ;
break;}
}
#line 543 "/usr/share/bison.simple"
yyvsp -= yylen;
yyssp -= yylen;
#ifdef YYLSP_NEEDED
yylsp -= yylen;
#endif
#if YYDEBUG != 0
if (yydebug)
{
short *ssp1 = yyss - 1;
fprintf (stderr, "state stack now");
while (ssp1 != yyssp)
fprintf (stderr, " %d", *++ssp1);
fprintf (stderr, "\n");
}
#endif
*++yyvsp = yyval;
#ifdef YYLSP_NEEDED
yylsp++;
if (yylen == 0)
{
yylsp->first_line = yylloc.first_line;
yylsp->first_column = yylloc.first_column;
yylsp->last_line = (yylsp-1)->last_line;
yylsp->last_column = (yylsp-1)->last_column;
yylsp->text = 0;
}
else
{
yylsp->last_line = (yylsp+yylen-1)->last_line;
yylsp->last_column = (yylsp+yylen-1)->last_column;
}
#endif
yyn = yyr1[yyn];
yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
yystate = yytable[yystate];
else
yystate = yydefgoto[yyn - YYNTBASE];
goto yynewstate;
yyerrlab:
if (! yyerrstatus)
{
++yynerrs;
#ifdef YYERROR_VERBOSE
yyn = yypact[yystate];
if (yyn > YYFLAG && yyn < YYLAST)
{
int size = 0;
char *msg;
int x, count;
count = 0;
for (x = (yyn < 0 ? -yyn : 0);
x < (sizeof(yytname) / sizeof(char *)); x++)
if (yycheck[x + yyn] == x)
size += strlen(yytname[x]) + 15, count++;
msg = (char *) malloc(size + 15);
if (msg != 0)
{
strcpy(msg, "parse error");
if (count < 5)
{
count = 0;
for (x = (yyn < 0 ? -yyn : 0);
x < (sizeof(yytname) / sizeof(char *)); x++)
if (yycheck[x + yyn] == x)
{
strcat(msg, count == 0 ? ", expecting `" : " or `");
strcat(msg, yytname[x]);
strcat(msg, "'");
count++;
}
}
yyerror(msg);
free(msg);
}
else
yyerror ("parse error; also virtual memory exceeded");
}
else
#endif
yyerror("parse error");
}
goto yyerrlab1;
yyerrlab1:
if (yyerrstatus == 3)
{
if (yychar == YYEOF)
YYABORT;
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
#endif
yychar = YYEMPTY;
}
yyerrstatus = 3;
goto yyerrhandle;
yyerrdefault:
#if 0
yyn = yydefact[yystate];
if (yyn) goto yydefault;
#endif
yyerrpop:
if (yyssp == yyss) YYABORT;
yyvsp--;
yystate = *--yyssp;
#ifdef YYLSP_NEEDED
yylsp--;
#endif
#if YYDEBUG != 0
if (yydebug)
{
short *ssp1 = yyss - 1;
fprintf (stderr, "Error: state stack now");
while (ssp1 != yyssp)
fprintf (stderr, " %d", *++ssp1);
fprintf (stderr, "\n");
}
#endif
yyerrhandle:
yyn = yypact[yystate];
if (yyn == YYFLAG)
goto yyerrdefault;
yyn += YYTERROR;
if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
goto yyerrdefault;
yyn = yytable[yyn];
if (yyn < 0)
{
if (yyn == YYFLAG)
goto yyerrpop;
yyn = -yyn;
goto yyreduce;
}
else if (yyn == 0)
goto yyerrpop;
if (yyn == YYFINAL)
YYACCEPT;
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Shifting error token, ");
#endif
*++yyvsp = yylval;
#ifdef YYLSP_NEEDED
*++yylsp = yylloc;
#endif
yystate = yyn;
goto yynewstate;
yyacceptlab:
if (yyfree_stacks)
{
free (yyss);
free (yyvs);
#ifdef YYLSP_NEEDED
free (yyls);
#endif
}
return 0;
yyabortlab:
if (yyfree_stacks)
{
free (yyss);
free (yyvs);
#ifdef YYLSP_NEEDED
free (yyls);
#endif
}
return 1;
}
#line 1014 "/Users/chet/src/bash/src/parse.y"
#define PST_CASEPAT 0x0001
#define PST_ALEXPNEXT 0x0002
#define PST_ALLOWOPNBRC 0x0004
#define PST_NEEDCLOSBRC 0x0008
#define PST_DBLPAREN 0x0010
#define PST_SUBSHELL 0x0020
#define PST_CMDSUBST 0x0040
#define PST_CASESTMT 0x0080
#define PST_CONDCMD 0x0100
#define PST_CONDEXPR 0x0200
#define PST_ARITHFOR 0x0400
#define PST_ALEXPAND 0x0800
#define PST_CMDTOKEN 0x1000
#define PST_COMPASSIGN 0x2000
#define PST_ASSIGNOK 0x4000
#define TOKEN_DEFAULT_INITIAL_SIZE 496
#define TOKEN_DEFAULT_GROW_SIZE 512
#define SHOULD_PROMPT() \
(interactive && (bash_input.type == st_stdin || bash_input.type == st_stream))
#if defined (ALIAS)
# define expanding_alias() (pushed_string_list && pushed_string_list->expander)
#else
# define expanding_alias() 0
#endif
static int current_token;
static int last_read_token;
static int token_before_that;
static int two_tokens_ago;
static int parser_state;
int EOF_Reached = 0;
#ifdef DEBUG
static void
debug_parser (i)
int i;
{
#if YYDEBUG != 0
yydebug = i;
#endif
}
#endif
int
return_EOF ()
{
return (EOF);
}
BASH_INPUT bash_input;
void
initialize_bash_input ()
{
bash_input.type = st_none;
FREE (bash_input.name);
bash_input.name = (char *)NULL;
bash_input.location.file = (FILE *)NULL;
bash_input.location.string = (char *)NULL;
bash_input.getter = (sh_cget_func_t *)NULL;
bash_input.ungetter = (sh_cunget_func_t *)NULL;
}
void
init_yy_io (get, unget, type, name, location)
sh_cget_func_t *get;
sh_cunget_func_t *unget;
enum stream_type type;
const char *name;
INPUT_STREAM location;
{
bash_input.type = type;
FREE (bash_input.name);
bash_input.name = name ? savestring (name) : (char *)NULL;
#if defined (CRAY)
memcpy((char *)&bash_input.location.string, (char *)&location.string, sizeof(location));
#else
bash_input.location = location;
#endif
bash_input.getter = get;
bash_input.ungetter = unget;
}
char *
yy_input_name ()
{
return (bash_input.name ? bash_input.name : "stdin");
}
static int
yy_getc ()
{
return (*(bash_input.getter)) ();
}
static int
yy_ungetc (c)
int c;
{
return (*(bash_input.ungetter)) (c);
}
#if defined (BUFFERED_INPUT)
#ifdef INCLUDE_UNUSED
int
input_file_descriptor ()
{
switch (bash_input.type)
{
case st_stream:
return (fileno (bash_input.location.file));
case st_bstream:
return (bash_input.location.buffered_fd);
case st_stdin:
default:
return (fileno (stdin));
}
}
#endif
#endif
#if defined (READLINE)
char *current_readline_prompt = (char *)NULL;
char *current_readline_line = (char *)NULL;
int current_readline_line_index = 0;
static int
yy_readline_get ()
{
SigHandler *old_sigint;
int line_len;
unsigned char c;
if (!current_readline_line)
{
if (!bash_readline_initialized)
initialize_readline ();
#if defined (JOB_CONTROL)
if (job_control)
give_terminal_to (shell_pgrp, 0);
#endif
old_sigint = (SigHandler *)NULL;
if (signal_is_ignored (SIGINT) == 0)
{
old_sigint = (SigHandler *)set_signal_handler (SIGINT, sigint_sighandler);
interrupt_immediately++;
}
terminate_immediately = 1;
current_readline_line = readline (current_readline_prompt ?
current_readline_prompt : "");
terminate_immediately = 0;
if (signal_is_ignored (SIGINT) == 0 && old_sigint)
{
interrupt_immediately--;
set_signal_handler (SIGINT, old_sigint);
}
#if 0
reset_readline_prompt ();
#endif
if (current_readline_line == 0)
return (EOF);
current_readline_line_index = 0;
line_len = strlen (current_readline_line);
current_readline_line = (char *)xrealloc (current_readline_line, 2 + line_len);
current_readline_line[line_len++] = '\n';
current_readline_line[line_len] = '\0';
}
if (current_readline_line[current_readline_line_index] == 0)
{
free (current_readline_line);
current_readline_line = (char *)NULL;
return (yy_readline_get ());
}
else
{
c = current_readline_line[current_readline_line_index++];
return (c);
}
}
static int
yy_readline_unget (c)
int c;
{
if (current_readline_line_index && current_readline_line)
current_readline_line[--current_readline_line_index] = c;
return (c);
}
void
with_input_from_stdin ()
{
INPUT_STREAM location;
if (bash_input.type != st_stdin && stream_on_stack (st_stdin) == 0)
{
location.string = current_readline_line;
init_yy_io (yy_readline_get, yy_readline_unget,
st_stdin, "readline stdin", location);
}
}
#else
void
with_input_from_stdin ()
{
with_input_from_stream (stdin, "stdin");
}
#endif
static int
yy_string_get ()
{
register char *string;
register unsigned char c;
string = bash_input.location.string;
if (string && *string)
{
c = *string++;
bash_input.location.string = string;
return (c);
}
else
return (EOF);
}
static int
yy_string_unget (c)
int c;
{
*(--bash_input.location.string) = c;
return (c);
}
void
with_input_from_string (string, name)
char *string;
const char *name;
{
INPUT_STREAM location;
location.string = string;
init_yy_io (yy_string_get, yy_string_unget, st_string, name, location);
}
static int
yy_stream_get ()
{
int result;
result = EOF;
if (bash_input.location.file)
{
if (interactive)
{
interrupt_immediately++;
terminate_immediately++;
}
result = getc_with_restart (bash_input.location.file);
if (interactive)
{
interrupt_immediately--;
terminate_immediately--;
}
}
return (result);
}
static int
yy_stream_unget (c)
int c;
{
return (ungetc_with_restart (c, bash_input.location.file));
}
void
with_input_from_stream (stream, name)
FILE *stream;
const char *name;
{
INPUT_STREAM location;
location.file = stream;
init_yy_io (yy_stream_get, yy_stream_unget, st_stream, name, location);
}
typedef struct stream_saver {
struct stream_saver *next;
BASH_INPUT bash_input;
int line;
#if defined (BUFFERED_INPUT)
BUFFERED_STREAM *bstream;
#endif
} STREAM_SAVER;
int line_number = 0;
#if defined (COND_COMMAND)
static int cond_lineno;
static int cond_token;
#endif
STREAM_SAVER *stream_list = (STREAM_SAVER *)NULL;
void
push_stream (reset_lineno)
int reset_lineno;
{
STREAM_SAVER *saver = (STREAM_SAVER *)xmalloc (sizeof (STREAM_SAVER));
xbcopy ((char *)&bash_input, (char *)&(saver->bash_input), sizeof (BASH_INPUT));
#if defined (BUFFERED_INPUT)
saver->bstream = (BUFFERED_STREAM *)NULL;
if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)
saver->bstream = set_buffered_stream (bash_input.location.buffered_fd,
(BUFFERED_STREAM *)NULL);
#endif
saver->line = line_number;
bash_input.name = (char *)NULL;
saver->next = stream_list;
stream_list = saver;
EOF_Reached = 0;
if (reset_lineno)
line_number = 0;
}
void
pop_stream ()
{
if (!stream_list)
EOF_Reached = 1;
else
{
STREAM_SAVER *saver = stream_list;
EOF_Reached = 0;
stream_list = stream_list->next;
init_yy_io (saver->bash_input.getter,
saver->bash_input.ungetter,
saver->bash_input.type,
saver->bash_input.name,
saver->bash_input.location);
#if defined (BUFFERED_INPUT)
if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)
{
if (bash_input_fd_changed)
{
bash_input_fd_changed = 0;
if (default_buffered_input >= 0)
{
bash_input.location.buffered_fd = default_buffered_input;
saver->bstream->b_fd = default_buffered_input;
SET_CLOSE_ON_EXEC (default_buffered_input);
}
}
set_buffered_stream (bash_input.location.buffered_fd, saver->bstream);
}
#endif
line_number = saver->line;
FREE (saver->bash_input.name);
free (saver);
}
}
int
stream_on_stack (type)
enum stream_type type;
{
register STREAM_SAVER *s;
for (s = stream_list; s; s = s->next)
if (s->bash_input.type == type)
return 1;
return 0;
}
int *
save_token_state ()
{
int *ret;
ret = (int *)xmalloc (3 * sizeof (int));
ret[0] = last_read_token;
ret[1] = token_before_that;
ret[2] = two_tokens_ago;
return ret;
}
void
restore_token_state (ts)
int *ts;
{
if (ts == 0)
return;
last_read_token = ts[0];
token_before_that = ts[1];
two_tokens_ago = ts[2];
}
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
#define END_OF_ALIAS 0
typedef struct string_saver {
struct string_saver *next;
int expand_alias;
char *saved_line;
#if defined (ALIAS)
alias_t *expander;
#endif
int saved_line_size, saved_line_index, saved_line_terminator;
} STRING_SAVER;
STRING_SAVER *pushed_string_list = (STRING_SAVER *)NULL;
static void
push_string (s, expand, ap)
char *s;
int expand;
alias_t *ap;
{
STRING_SAVER *temp = (STRING_SAVER *)xmalloc (sizeof (STRING_SAVER));
temp->expand_alias = expand;
temp->saved_line = shell_input_line;
temp->saved_line_size = shell_input_line_size;
temp->saved_line_index = shell_input_line_index;
temp->saved_line_terminator = shell_input_line_terminator;
#if defined (ALIAS)
temp->expander = ap;
#endif
temp->next = pushed_string_list;
pushed_string_list = temp;
#if defined (ALIAS)
if (ap)
ap->flags |= AL_BEINGEXPANDED;
#endif
shell_input_line = s;
shell_input_line_size = strlen (s);
shell_input_line_index = 0;
shell_input_line_terminator = '\0';
#if 0
parser_state &= ~PST_ALEXPNEXT;
#endif
set_line_mbstate ();
}
static void
pop_string ()
{
STRING_SAVER *t;
FREE (shell_input_line);
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_terminator = pushed_string_list->saved_line_terminator;
if (pushed_string_list->expand_alias)
parser_state |= PST_ALEXPNEXT;
else
parser_state &= ~PST_ALEXPNEXT;
t = pushed_string_list;
pushed_string_list = pushed_string_list->next;
#if defined (ALIAS)
if (t->expander)
t->expander->flags &= ~AL_BEINGEXPANDED;
#endif
free ((char *)t);
set_line_mbstate ();
}
static void
free_string_list ()
{
register STRING_SAVER *t, *t1;
for (t = pushed_string_list; t; )
{
t1 = t->next;
FREE (t->saved_line);
#if defined (ALIAS)
if (t->expander)
t->expander->flags &= ~AL_BEINGEXPANDED;
#endif
free ((char *)t);
t = t1;
}
pushed_string_list = (STRING_SAVER *)NULL;
}
#endif
void
free_pushed_string_input ()
{
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
free_string_list ();
#endif
}
static char *
read_a_line (remove_quoted_newline)
int remove_quoted_newline;
{
static char *line_buffer = (char *)NULL;
static int buffer_size = 0;
int indx = 0, c, peekc, pass_next;
#if defined (READLINE)
if (no_line_editing && SHOULD_PROMPT ())
#else
if (SHOULD_PROMPT ())
#endif
print_prompt ();
pass_next = 0;
while (1)
{
QUIT;
c = yy_getc ();
if (c == 0)
{
#if 0
internal_warning ("read_a_line: ignored null byte in input");
#endif
continue;
}
if (c == EOF)
{
if (interactive && bash_input.type == st_stream)
clearerr (stdin);
if (indx == 0)
return ((char *)NULL);
c = '\n';
}
RESIZE_MALLOCED_BUFFER (line_buffer, indx, 2, buffer_size, 128);
if (pass_next)
{
line_buffer[indx++] = c;
pass_next = 0;
}
else if (c == '\\' && remove_quoted_newline)
{
peekc = yy_getc ();
if (peekc == '\n')
{
line_number++;
continue;
}
else
{
yy_ungetc (peekc);
pass_next = 1;
line_buffer[indx++] = c;
}
}
else
line_buffer[indx++] = c;
if (c == '\n')
{
line_buffer[indx] = '\0';
return (line_buffer);
}
}
}
char *
read_secondary_line (remove_quoted_newline)
int remove_quoted_newline;
{
prompt_string_pointer = &ps2_prompt;
if (SHOULD_PROMPT())
prompt_again ();
return (read_a_line (remove_quoted_newline));
}
STRING_INT_ALIST word_token_alist[] = {
{ "if", IF },
{ "then", THEN },
{ "else", ELSE },
{ "elif", ELIF },
{ "fi", FI },
{ "case", CASE },
{ "esac", ESAC },
{ "for", FOR },
#if defined (SELECT_COMMAND)
{ "select", SELECT },
#endif
{ "while", WHILE },
{ "until", UNTIL },
{ "do", DO },
{ "done", DONE },
{ "in", IN },
{ "function", FUNCTION },
#if defined (COMMAND_TIMING)
{ "time", TIME },
#endif
{ "{", '{' },
{ "}", '}' },
{ "!", BANG },
#if defined (COND_COMMAND)
{ "[[", COND_START },
{ "]]", COND_END },
#endif
{ (char *)NULL, 0}
};
STRING_INT_ALIST other_token_alist[] = {
{ "-p", TIMEOPT },
{ "&&", AND_AND },
{ "||", OR_OR },
{ ">>", GREATER_GREATER },
{ "<<", LESS_LESS },
{ "<&", LESS_AND },
{ ">&", GREATER_AND },
{ ";;", SEMI_SEMI },
{ "<<-", LESS_LESS_MINUS },
{ "<<<", LESS_LESS_LESS },
{ "&>", AND_GREATER },
{ "<>", LESS_GREATER },
{ ">|", GREATER_BAR },
{ "EOF", yacc_EOF },
{ ">", '>' },
{ "<", '<' },
{ "-", '-' },
{ "{", '{' },
{ "}", '}' },
{ ";", ';' },
{ "(", '(' },
{ ")", ')' },
{ "|", '|' },
{ "&", '&' },
{ "newline", '\n' },
{ (char *)NULL, 0}
};
struct dstack dstack = { (char *)NULL, 0, 0 };
static struct dstack temp_dstack = { (char *)NULL, 0, 0 };
#define current_delimiter(ds) \
(ds.delimiter_depth ? ds.delimiters[ds.delimiter_depth - 1] : 0)
#define push_delimiter(ds, character) \
do \
{ \
if (ds.delimiter_depth + 2 > ds.delimiter_space) \
ds.delimiters = (char *)xrealloc \
(ds.delimiters, (ds.delimiter_space += 10) * sizeof (char)); \
ds.delimiters[ds.delimiter_depth] = character; \
ds.delimiter_depth++; \
} \
while (0)
#define pop_delimiter(ds) ds.delimiter_depth--
static int eol_ungetc_lookahead = 0;
static int
shell_getc (remove_quoted_newline)
int remove_quoted_newline;
{
register int i;
int c;
unsigned char uc;
QUIT;
if (sigwinch_received)
{
sigwinch_received = 0;
get_new_window_size (0, (int *)0, (int *)0);
}
if (eol_ungetc_lookahead)
{
c = eol_ungetc_lookahead;
eol_ungetc_lookahead = 0;
return (c);
}
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
if (!shell_input_line || ((!shell_input_line[shell_input_line_index]) &&
(pushed_string_list == (STRING_SAVER *)NULL)))
#else
if (!shell_input_line || !shell_input_line[shell_input_line_index])
#endif
{
line_number++;
restart_read:
QUIT;
i = 0;
shell_input_line_terminator = 0;
if (interactive_shell == 0 || SHOULD_PROMPT())
{
#if defined (JOB_CONTROL)
notify_and_cleanup ();
#else
cleanup_dead_jobs ();
#endif
}
#if defined (READLINE)
if (no_line_editing && SHOULD_PROMPT())
#else
if (SHOULD_PROMPT())
#endif
print_prompt ();
if (bash_input.type == st_stream)
clearerr (stdin);
while (1)
{
c = yy_getc ();
QUIT;
if (c == '\0')
{
#if 0
internal_warning ("shell_getc: ignored null byte in input");
#endif
continue;
}
RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
if (c == EOF)
{
if (bash_input.type == st_stream)
clearerr (stdin);
if (i == 0)
shell_input_line_terminator = EOF;
shell_input_line[i] = '\0';
break;
}
shell_input_line[i++] = c;
if (c == '\n')
{
shell_input_line[--i] = '\0';
current_command_line_count++;
break;
}
}
shell_input_line_index = 0;
shell_input_line_len = i;
set_line_mbstate ();
#if defined (HISTORY)
if (remember_on_history && shell_input_line && shell_input_line[0])
{
char *expansions;
# if defined (BANG_HISTORY)
int old_hist;
old_hist = history_expansion_inhibited;
if (current_delimiter (dstack) == '\'')
history_expansion_inhibited = 1;
# endif
expansions = pre_process_line (shell_input_line, 1, 1);
# if defined (BANG_HISTORY)
history_expansion_inhibited = old_hist;
# endif
if (expansions != shell_input_line)
{
free (shell_input_line);
shell_input_line = expansions;
shell_input_line_len = shell_input_line ?
strlen (shell_input_line) : 0;
if (!shell_input_line_len)
current_command_line_count--;
shell_input_line_size = shell_input_line_len;
set_line_mbstate ();
}
}
else if (remember_on_history && shell_input_line &&
shell_input_line[0] == '\0' &&
current_command_line_count > 1)
{
if (current_delimiter (dstack))
maybe_add_history (shell_input_line);
else
{
char *hdcs;
hdcs = history_delimiting_chars ();
if (hdcs && hdcs[0] == ';')
maybe_add_history (shell_input_line);
}
}
#endif
if (shell_input_line)
{
if (echo_input_at_read && (shell_input_line[0] ||
shell_input_line_terminator != EOF))
fprintf (stderr, "%s\n", shell_input_line);
}
else
{
shell_input_line_size = 0;
prompt_string_pointer = ¤t_prompt_string;
if (SHOULD_PROMPT ())
prompt_again ();
goto restart_read;
}
if (shell_input_line_terminator != EOF)
{
if (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';
shell_input_line[shell_input_line_len + 1] = '\0';
set_line_mbstate ();
}
}
uc = shell_input_line[shell_input_line_index];
if (uc)
shell_input_line_index++;
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
if (!uc && (pushed_string_list != (STRING_SAVER *)NULL))
{
pop_string ();
uc = shell_input_line[shell_input_line_index];
if (uc)
shell_input_line_index++;
}
#endif
if MBTEST(uc == '\\' && remove_quoted_newline && shell_input_line[shell_input_line_index] == '\n')
{
if (SHOULD_PROMPT ())
prompt_again ();
line_number++;
goto restart_read;
}
if (!uc && shell_input_line_terminator == EOF)
return ((shell_input_line_index != 0) ? '\n' : EOF);
return (uc);
}
static void
shell_ungetc (c)
int c;
{
if (shell_input_line && shell_input_line_index)
shell_input_line[--shell_input_line_index] = c;
else
eol_ungetc_lookahead = c;
}
#ifdef INCLUDE_UNUSED
static void
shell_ungetchar ()
{
if (shell_input_line && shell_input_line_index)
shell_input_line_index--;
}
#endif
static void
discard_until (character)
int character;
{
int c;
while ((c = shell_getc (0)) != EOF && c != character)
;
if (c != EOF)
shell_ungetc (c);
}
void
execute_variable_command (command, vname)
char *command, *vname;
{
char *last_lastarg;
sh_parser_state_t ps;
save_parser_state (&ps);
last_lastarg = get_string_value ("_");
if (last_lastarg)
last_lastarg = savestring (last_lastarg);
parse_and_execute (savestring (command), vname, SEVAL_NONINT|SEVAL_NOHIST);
restore_parser_state (&ps);
bind_variable ("_", last_lastarg, 0);
FREE (last_lastarg);
if (token_to_read == '\n')
token_to_read = 0;
}
static char *token = (char *)NULL;
static int token_buffer_size;
#define READ 0
#define RESET 1
#define prompt_is_ps1 \
(!prompt_string_pointer || prompt_string_pointer == &ps1_prompt)
static int
yylex ()
{
if (interactive && (current_token == 0 || current_token == '\n'))
{
if (prompt_is_ps1 && time_to_check_mail ())
{
check_mail ();
reset_mail_timer ();
}
if (token_to_read == 0 && SHOULD_PROMPT ())
prompt_again ();
}
two_tokens_ago = token_before_that;
token_before_that = last_read_token;
last_read_token = current_token;
current_token = read_token (READ);
return (current_token);
}
static int esacs_needed_count;
void
gather_here_documents ()
{
int r = 0;
while (need_here_doc)
{
make_here_document (redir_stack[r++]);
need_here_doc--;
}
}
static int open_brace_count;
#define command_token_position(token) \
(((token) == ASSIGNMENT_WORD) || \
((token) != SEMI_SEMI && reserved_word_acceptable(token)))
#define assignment_acceptable(token) \
(command_token_position(token) && ((parser_state & PST_CASEPAT) == 0))
#define CHECK_FOR_RESERVED_WORD(tok) \
do { \
if (!dollar_present && !quoted && \
reserved_word_acceptable (last_read_token)) \
{ \
int i; \
for (i = 0; word_token_alist[i].word != (char *)NULL; i++) \
if (STREQ (tok, word_token_alist[i].word)) \
{ \
if ((parser_state & PST_CASEPAT) && (word_token_alist[i].token != ESAC)) \
break; \
if (word_token_alist[i].token == TIME && time_command_acceptable () == 0) \
break; \
if (word_token_alist[i].token == ESAC) \
parser_state &= ~(PST_CASEPAT|PST_CASESTMT); \
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); \
else if (word_token_alist[i].token == COND_START) \
parser_state |= PST_CONDCMD; \
else if (word_token_alist[i].token == '{') \
open_brace_count++; \
else if (word_token_alist[i].token == '}' && open_brace_count) \
open_brace_count--; \
return (word_token_alist[i].token); \
} \
} \
} while (0)
#if defined (ALIAS)
static char *
mk_alexpansion (s)
char *s;
{
int l;
char *r;
l = strlen (s);
r = xmalloc (l + 2);
strcpy (r, s);
if (r[l -1] != ' ')
r[l++] = ' ';
r[l] = '\0';
return r;
}
static int
alias_expand_token (tokstr)
char *tokstr;
{
char *expanded;
alias_t *ap;
if (((parser_state & PST_ALEXPNEXT) || command_token_position (last_read_token)) &&
(parser_state & PST_CASEPAT) == 0)
{
ap = find_alias (tokstr);
if (ap && (ap->flags & AL_BEINGEXPANDED))
return (NO_EXPANSION);
expanded = ap ? mk_alexpansion (ap->value) : (char *)NULL;
if (expanded)
{
push_string (expanded, ap->flags & AL_EXPANDNEXT, ap);
return (RE_READ_TOKEN);
}
else
return (NO_EXPANSION);
}
return (NO_EXPANSION);
}
#endif
static int
time_command_acceptable ()
{
#if defined (COMMAND_TIMING)
switch (last_read_token)
{
case 0:
case ';':
case '\n':
case AND_AND:
case OR_OR:
case '&':
case DO:
case THEN:
case ELSE:
case '{':
case '(':
return 1;
default:
return 0;
}
#else
return 0;
#endif
}
static int
special_case_tokens (tokstr)
char *tokstr;
{
if ((last_read_token == WORD) &&
#if defined (SELECT_COMMAND)
((token_before_that == FOR) || (token_before_that == CASE) || (token_before_that == SELECT)) &&
#else
((token_before_that == FOR) || (token_before_that == CASE)) &&
#endif
(tokstr[0] == 'i' && tokstr[1] == 'n' && tokstr[2] == 0))
{
if (token_before_that == CASE)
{
parser_state |= PST_CASEPAT;
esacs_needed_count++;
}
return (IN);
}
if (last_read_token == WORD &&
#if defined (SELECT_COMMAND)
(token_before_that == FOR || token_before_that == SELECT) &&
#else
(token_before_that == FOR) &&
#endif
(tokstr[0] == 'd' && tokstr[1] == 'o' && tokstr[2] == '\0'))
return (DO);
if (esacs_needed_count)
{
esacs_needed_count--;
if (STREQ (tokstr, "esac"))
{
parser_state &= ~PST_CASEPAT;
return (ESAC);
}
}
if (parser_state & PST_ALLOWOPNBRC)
{
parser_state &= ~PST_ALLOWOPNBRC;
if (tokstr[0] == '{' && tokstr[1] == '\0')
{
open_brace_count++;
function_bstart = line_number;
return ('{');
}
}
if (last_read_token == ARITH_FOR_EXPRS && tokstr[0] == 'd' && tokstr[1] == 'o' && !tokstr[2])
return (DO);
if (last_read_token == ARITH_FOR_EXPRS && tokstr[0] == '{' && tokstr[1] == '\0')
{
open_brace_count++;
return ('{');
}
if (open_brace_count && reserved_word_acceptable (last_read_token) && tokstr[0] == '}' && !tokstr[1])
{
open_brace_count--;
return ('}');
}
#if defined (COMMAND_TIMING)
if (last_read_token == TIME && tokstr[0] == '-' && tokstr[1] == 'p' && !tokstr[2])
return (TIMEOPT);
#endif
#if 0
#if defined (COMMAND_TIMING)
if (STREQ (token, "time") && ((parser_state & PST_CASEPAT) == 0) && time_command_acceptable ())
return (TIME);
#endif
#endif
#if defined (COND_COMMAND)
if ((parser_state & PST_CONDEXPR) && tokstr[0] == ']' && tokstr[1] == ']' && tokstr[2] == '\0')
return (COND_END);
#endif
return (-1);
}
void
reset_parser ()
{
dstack.delimiter_depth = 0;
open_brace_count = 0;
parser_state = 0;
#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
if (pushed_string_list)
free_string_list ();
#endif
if (shell_input_line)
{
free (shell_input_line);
shell_input_line = (char *)NULL;
shell_input_line_size = shell_input_line_index = 0;
}
FREE (word_desc_to_read);
word_desc_to_read = (WORD_DESC *)NULL;
last_read_token = '\n';
token_to_read = '\n';
}
static int
read_token (command)
int command;
{
int character;
int peek_char;
int result;
if (command == RESET)
{
reset_parser ();
return ('\n');
}
if (token_to_read)
{
result = token_to_read;
if (token_to_read == WORD || token_to_read == ASSIGNMENT_WORD)
{
yylval.word = word_desc_to_read;
word_desc_to_read = (WORD_DESC *)NULL;
}
token_to_read = 0;
return (result);
}
#if defined (COND_COMMAND)
if ((parser_state & (PST_CONDCMD|PST_CONDEXPR)) == PST_CONDCMD)
{
cond_lineno = line_number;
parser_state |= PST_CONDEXPR;
yylval.command = parse_cond_command ();
if (cond_token != COND_END)
{
cond_error ();
return (-1);
}
token_to_read = COND_END;
parser_state &= ~(PST_CONDEXPR|PST_CONDCMD);
return (COND_CMD);
}
#endif
#if defined (ALIAS)
re_read_token:
#endif
while ((character = shell_getc (1)) != EOF && shellblank (character))
;
if (character == EOF)
{
EOF_Reached = 1;
return (yacc_EOF);
}
if MBTEST(character == '#' && (!interactive || interactive_comments))
{
discard_until ('\n');
shell_getc (0);
character = '\n';
}
if (character == '\n')
{
if (need_here_doc)
gather_here_documents ();
#if defined (ALIAS)
parser_state &= ~PST_ALEXPNEXT;
#endif
parser_state &= ~PST_ASSIGNOK;
return (character);
}
if MBTEST(shellmeta (character) && ((parser_state & PST_DBLPAREN) == 0))
{
#if defined (ALIAS)
if (character == '<' || character == '>')
parser_state &= ~PST_ALEXPNEXT;
#endif
parser_state &= ~PST_ASSIGNOK;
peek_char = shell_getc (1);
if (character == peek_char)
{
switch (character)
{
case '<':
peek_char = shell_getc (1);
if (peek_char == '-')
return (LESS_LESS_MINUS);
else if (peek_char == '<')
return (LESS_LESS_LESS);
else
{
shell_ungetc (peek_char);
return (LESS_LESS);
}
case '>':
return (GREATER_GREATER);
case ';':
parser_state |= PST_CASEPAT;
#if defined (ALIAS)
parser_state &= ~PST_ALEXPNEXT;
#endif
return (SEMI_SEMI);
case '&':
return (AND_AND);
case '|':
return (OR_OR);
#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
case '(':
result = parse_dparen (character);
if (result == -2)
break;
else
return result;
#endif
}
}
else if MBTEST(character == '<' && peek_char == '&')
return (LESS_AND);
else if MBTEST(character == '>' && peek_char == '&')
return (GREATER_AND);
else if MBTEST(character == '<' && peek_char == '>')
return (LESS_GREATER);
else if MBTEST(character == '>' && peek_char == '|')
return (GREATER_BAR);
else if MBTEST(peek_char == '>' && character == '&')
return (AND_GREATER);
shell_ungetc (peek_char);
if MBTEST(character == ')' && last_read_token == '(' && token_before_that == WORD)
{
parser_state |= PST_ALLOWOPNBRC;
#if defined (ALIAS)
parser_state &= ~PST_ALEXPNEXT;
#endif
function_dstart = line_number;
}
if MBTEST(character == '(' && (parser_state & PST_CASEPAT) == 0)
parser_state |= PST_SUBSHELL;
else if MBTEST((parser_state & PST_CASEPAT) && character == ')')
parser_state &= ~PST_CASEPAT;
else if MBTEST((parser_state & PST_SUBSHELL) && character == ')')
parser_state &= ~PST_SUBSHELL;
#if defined (PROCESS_SUBSTITUTION)
if MBTEST(posixly_correct || ((character != '>' && character != '<') || peek_char != '('))
#endif
return (character);
}
if MBTEST(character == '-' && (last_read_token == LESS_AND || last_read_token == GREATER_AND))
return (character);
result = read_token_word (character);
#if defined (ALIAS)
if (result == RE_READ_TOKEN)
goto re_read_token;
#endif
return result;
}
#define P_FIRSTCLOSE 0x01
#define P_ALLOWESC 0x02
#define P_DQUOTE 0x04
#define P_COMMAND 0x08
#define P_BACKQUOTE 0x10
static char matched_pair_error;
static char *
parse_matched_pair (qc, open, close, lenp, flags)
int qc;
int open, close;
int *lenp, flags;
{
int count, ch, was_dollar, in_comment, check_comment;
int pass_next_character, backq_backslash, nestlen, ttranslen, start_lineno;
char *ret, *nestret, *ttrans;
int retind, retsize, rflags;
count = 1;
pass_next_character = backq_backslash = was_dollar = in_comment = 0;
check_comment = (flags & P_COMMAND) && qc != '\'' && qc != '"' && (flags & P_DQUOTE) == 0;
rflags = (qc == '"') ? P_DQUOTE : (flags & P_DQUOTE);
ret = (char *)xmalloc (retsize = 64);
retind = 0;
start_lineno = line_number;
while (count)
{
ch = shell_getc (qc != '\'' && pass_next_character == 0 && backq_backslash == 0);
if (ch == EOF)
{
free (ret);
parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), close);
EOF_Reached = 1;
return (&matched_pair_error);
}
if (ch == '\n' && SHOULD_PROMPT ())
prompt_again ();
if (in_comment)
{
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
ret[retind++] = ch;
if (ch == '\n')
in_comment = 0;
continue;
}
else if MBTEST(check_comment && in_comment == 0 && ch == '#' && (retind == 0 || ret[retind-1] == '\n' || whitespace (ret[retind - 1])))
in_comment = 1;
if (backq_backslash)
{
backq_backslash = 0;
}
if (pass_next_character)
{
pass_next_character = 0;
if (qc != '\'' && ch == '\n')
{
if (retind > 0) retind--;
continue;
}
RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
if MBTEST(ch == CTLESC || ch == CTLNUL)
ret[retind++] = CTLESC;
ret[retind++] = ch;
continue;
}
else if MBTEST(ch == CTLESC || ch == CTLNUL)
{
RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
ret[retind++] = CTLESC;
ret[retind++] = ch;
continue;
}
else if MBTEST(ch == close)
count--;
else if MBTEST(open != close && was_dollar && open == '{' && ch == open)
count++;
else if MBTEST(((flags & P_FIRSTCLOSE) == 0) && ch == open)
count++;
RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
ret[retind++] = ch;
if (open == '\'')
{
if MBTEST((flags & P_ALLOWESC) && ch == '\\')
pass_next_character++;
#if 0
else if MBTEST((flags & P_BACKQUOTE) && ch == '\\')
backq_backslash++;
#endif
continue;
}
if MBTEST(ch == '\\')
pass_next_character++;
if (open != close)
{
if MBTEST(shellquote (ch))
{
push_delimiter (dstack, ch);
if MBTEST(was_dollar && ch == '\'')
nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);
else
nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);
pop_delimiter (dstack);
if (nestret == &matched_pair_error)
{
free (ret);
return &matched_pair_error;
}
if MBTEST(was_dollar && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))
{
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;
}
else if MBTEST(was_dollar && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))
{
ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
xfree (nestret);
nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);
free (ttrans);
nestlen = ttranslen + 2;
retind -= 2;
}
if (nestlen)
{
RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
strcpy (ret + retind, nestret);
retind += nestlen;
}
FREE (nestret);
}
}
else if MBTEST(open == '"' && ch == '`')
{
nestret = parse_matched_pair (0, '`', '`', &nestlen, rflags);
add_nestret:
if (nestret == &matched_pair_error)
{
free (ret);
return &matched_pair_error;
}
if (nestlen)
{
RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
strcpy (ret + retind, nestret);
retind += nestlen;
}
FREE (nestret);
}
#if 0
else if MBTEST(qc == '`' && (ch == '"' || ch == '\'') && in_comment == 0)
{
nestret = parse_matched_pair (0, ch, ch, &nestlen, rflags|P_BACKQUOTE);
goto add_nestret;
}
#endif
else if MBTEST(open != '`' && was_dollar && (ch == '(' || ch == '{' || ch == '['))
{
if (open == ch)
count--;
if (ch == '(')
nestret = parse_matched_pair (0, '(', ')', &nestlen, rflags & ~P_DQUOTE);
else if (ch == '{')
nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|rflags);
else if (ch == '[')
nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);
goto add_nestret;
}
was_dollar = MBTEST(ch == '$');
}
ret[retind] = '\0';
if (lenp)
*lenp = retind;
return ret;
}
#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
static int
parse_dparen (c)
int c;
{
int cmdtyp, sline;
char *wval;
WORD_DESC *wd;
#if defined (ARITH_FOR_COMMAND)
if (last_read_token == FOR)
{
arith_for_lineno = line_number;
cmdtyp = parse_arith_cmd (&wval, 0);
if (cmdtyp == 1)
{
wd = alloc_word_desc ();
wd->word = wval;
yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
return (ARITH_FOR_EXPRS);
}
else
return -1;
}
#endif
#if defined (DPAREN_ARITHMETIC)
if (reserved_word_acceptable (last_read_token))
{
sline = 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;
yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
return (ARITH_CMD);
}
else if (cmdtyp == 0)
{
push_string (wval, 0, (alias_t *)NULL);
if ((parser_state & PST_CASEPAT) == 0)
parser_state |= PST_SUBSHELL;
return (c);
}
else
return -1;
}
#endif
return -2;
}
static int
parse_arith_cmd (ep, adddq)
char **ep;
int adddq;
{
int exp_lineno, rval, c;
char *ttok, *tokstr;
int ttoklen;
exp_lineno = line_number;
ttok = parse_matched_pair (0, '(', ')', &ttoklen, 0);
rval = 1;
if (ttok == &matched_pair_error)
return -1;
c = shell_getc (0);
if MBTEST(c != ')')
rval = 0;
tokstr = (char *)xmalloc (ttoklen + 4);
if (rval == 1 && adddq)
{
tokstr[0] = '"';
strncpy (tokstr + 1, ttok, ttoklen - 1);
tokstr[ttoklen] = '"';
tokstr[ttoklen+1] = '\0';
}
else if (rval == 1)
{
strncpy (tokstr, ttok, ttoklen - 1);
tokstr[ttoklen-1] = '\0';
}
else
{
tokstr[0] = '(';
strncpy (tokstr + 1, ttok, ttoklen - 1);
tokstr[ttoklen] = ')';
tokstr[ttoklen+1] = c;
tokstr[ttoklen+2] = '\0';
}
*ep = tokstr;
FREE (ttok);
return rval;
}
#endif
#if defined (COND_COMMAND)
static void
cond_error ()
{
char *etext;
if (EOF_Reached && cond_token != COND_ERROR)
parser_error (cond_lineno, _("unexpected EOF while looking for `]]'"));
else if (cond_token != COND_ERROR)
{
if (etext = error_token_from_token (cond_token))
{
parser_error (cond_lineno, _("syntax error in conditional expression: unexpected token `%s'"), etext);
free (etext);
}
else
parser_error (cond_lineno, _("syntax error in conditional expression"));
}
}
static COND_COM *
cond_expr ()
{
return (cond_or ());
}
static COND_COM *
cond_or ()
{
COND_COM *l, *r;
l = cond_and ();
if (cond_token == OR_OR)
{
r = cond_or ();
l = make_cond_node (COND_OR, (WORD_DESC *)NULL, l, r);
}
return l;
}
static COND_COM *
cond_and ()
{
COND_COM *l, *r;
l = cond_term ();
if (cond_token == AND_AND)
{
r = cond_and ();
l = make_cond_node (COND_AND, (WORD_DESC *)NULL, l, r);
}
return l;
}
static int
cond_skip_newlines ()
{
while ((cond_token = read_token (READ)) == '\n')
{
if (SHOULD_PROMPT ())
prompt_again ();
}
return (cond_token);
}
#define COND_RETURN_ERROR() \
do { cond_token = COND_ERROR; return ((COND_COM *)NULL); } while (0)
static COND_COM *
cond_term ()
{
WORD_DESC *op;
COND_COM *term, *tleft, *tright;
int tok, lineno;
char *etext;
tok = cond_skip_newlines ();
lineno = line_number;
if (tok == COND_END)
{
COND_RETURN_ERROR ();
}
else if (tok == '(')
{
term = cond_expr ();
if (cond_token != ')')
{
if (term)
dispose_cond_node (term);
if (etext = error_token_from_token (cond_token))
{
parser_error (lineno, _("unexpected token `%s', expected `)'"), etext);
free (etext);
}
else
parser_error (lineno, _("expected `)'"));
COND_RETURN_ERROR ();
}
term = make_cond_node (COND_EXPR, (WORD_DESC *)NULL, term, (COND_COM *)NULL);
(void)cond_skip_newlines ();
}
else if (tok == BANG || (tok == WORD && (yylval.word->word[0] == '!' && yylval.word->word[1] == '\0')))
{
if (tok == WORD)
dispose_word (yylval.word);
term = cond_term ();
if (term)
term->flags |= CMD_INVERT_RETURN;
}
else if (tok == WORD && test_unop (yylval.word->word))
{
op = yylval.word;
tok = read_token (READ);
if (tok == WORD)
{
tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);
}
else
{
dispose_word (op);
if (etext = error_token_from_token (tok))
{
parser_error (line_number, _("unexpected argument `%s' to conditional unary operator"), etext);
free (etext);
}
else
parser_error (line_number, _("unexpected argument to conditional unary operator"));
COND_RETURN_ERROR ();
}
(void)cond_skip_newlines ();
}
else if (tok == WORD)
{
tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
tok = read_token (READ);
if (tok == WORD && test_binop (yylval.word->word))
op = yylval.word;
#if defined (COND_REGEXP)
else if (tok == WORD && STREQ (yylval.word->word,"=~"))
op = yylval.word;
#endif
else if (tok == '<' || tok == '>')
op = make_word_from_token (tok);
else if (tok == COND_END || tok == AND_AND || tok == OR_OR || tok == ')')
{
op = make_word ("-n");
term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);
cond_token = tok;
return (term);
}
else
{
if (etext = error_token_from_token (tok))
{
parser_error (line_number, _("unexpected token `%s', conditional binary operator expected"), etext);
free (etext);
}
else
parser_error (line_number, _("conditional binary operator expected"));
dispose_cond_node (tleft);
COND_RETURN_ERROR ();
}
tok = read_token (READ);
if (tok == WORD)
{
tright = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
term = make_cond_node (COND_BINARY, op, tleft, tright);
}
else
{
if (etext = error_token_from_token (tok))
{
parser_error (line_number, _("unexpected argument `%s' to conditional binary operator"), etext);
free (etext);
}
else
parser_error (line_number, _("unexpected argument to conditional binary operator"));
dispose_cond_node (tleft);
dispose_word (op);
COND_RETURN_ERROR ();
}
(void)cond_skip_newlines ();
}
else
{
if (tok < 256)
parser_error (line_number, _("unexpected token `%c' in conditional command"), tok);
else if (etext = error_token_from_token (tok))
{
parser_error (line_number, _("unexpected token `%s' in conditional command"), etext);
free (etext);
}
else
parser_error (line_number, _("unexpected token %d in conditional command"), tok);
COND_RETURN_ERROR ();
}
return (term);
}
static COMMAND *
parse_cond_command ()
{
COND_COM *cexp;
cexp = cond_expr ();
return (make_cond_command (cexp));
}
#endif
#if defined (ARRAY_VARS)
static int
token_is_assignment (t, i)
char *t;
int i;
{
unsigned char c, c1;
int r;
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;
}
static int
token_is_ident (t, i)
char *t;
int i;
{
unsigned char c;
int r;
c = t[i];
t[i] = '\0';
r = legal_identifier (t);
t[i] = c;
return r;
}
#endif
static int
read_token_word (character)
int character;
{
WORD_DESC *the_word;
int token_index;
int all_digit_token;
int dollar_present;
int compound_assignment;
int quoted;
int pass_next_character;
int cd;
int result, peek_char;
char *ttok, *ttrans;
int ttoklen, ttranslen;
intmax_t lvalue;
if (token_buffer_size < TOKEN_DEFAULT_INITIAL_SIZE)
token = (char *)xrealloc (token, token_buffer_size = TOKEN_DEFAULT_INITIAL_SIZE);
token_index = 0;
all_digit_token = DIGIT (character);
dollar_present = quoted = pass_next_character = compound_assignment = 0;
for (;;)
{
if (character == EOF)
goto got_token;
if (pass_next_character)
{
pass_next_character = 0;
goto got_character;
}
cd = current_delimiter (dstack);
if MBTEST(character == '\\')
{
peek_char = shell_getc (0);
if (peek_char == '\n')
{
character = '\n';
goto next_character;
}
else
{
shell_ungetc (peek_char);
if (cd == 0 || cd == '`' ||
(cd == '"' && peek_char >= 0 && (sh_syntaxtab[peek_char] & CBSDQUOTE)))
pass_next_character++;
quoted = 1;
goto got_character;
}
}
if MBTEST(shellquote (character))
{
push_delimiter (dstack, character);
ttok = parse_matched_pair (character, character, character, &ttoklen, (character == '`') ? P_COMMAND : 0);
pop_delimiter (dstack);
if (ttok == &matched_pair_error)
return -1;
RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
token_buffer_size, TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
strcpy (token + token_index, ttok);
token_index += ttoklen;
all_digit_token = 0;
quoted = 1;
dollar_present |= (character == '"' && strchr (ttok, '$') != 0);
FREE (ttok);
goto next_character;
}
#ifdef EXTENDED_GLOB
if (extended_glob && PATTERN_CHAR (character))
{
peek_char = shell_getc (1);
if MBTEST(peek_char == '(')
{
push_delimiter (dstack, peek_char);
ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
pop_delimiter (dstack);
if (ttok == &matched_pair_error)
return -1;
RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
token[token_index++] = peek_char;
strcpy (token + token_index, ttok);
token_index += ttoklen;
FREE (ttok);
dollar_present = all_digit_token = 0;
goto next_character;
}
else
shell_ungetc (peek_char);
}
#endif
if (shellexp (character))
{
peek_char = shell_getc (1);
if MBTEST(peek_char == '(' || \
((peek_char == '{' || peek_char == '[') && character == '$'))
{
if (peek_char == '{')
ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE);
else if (peek_char == '(')
{
push_delimiter (dstack, peek_char);
ttok = parse_matched_pair (cd, '(', ')', &ttoklen, P_COMMAND);
pop_delimiter (dstack);
}
else
ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);
if (ttok == &matched_pair_error)
return -1;
RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
token[token_index++] = peek_char;
strcpy (token + token_index, ttok);
token_index += ttoklen;
FREE (ttok);
dollar_present = 1;
all_digit_token = 0;
goto next_character;
}
else if MBTEST(character == '$' && (peek_char == '\'' || peek_char == '"'))
{
int first_line;
first_line = line_number;
push_delimiter (dstack, peek_char);
ttok = parse_matched_pair (peek_char, peek_char, peek_char,
&ttoklen,
(peek_char == '\'') ? P_ALLOWESC : 0);
pop_delimiter (dstack);
if (ttok == &matched_pair_error)
return -1;
if (peek_char == '\'')
{
ttrans = ansiexpand (ttok, 0, ttoklen - 1, &ttranslen);
free (ttok);
ttok = sh_single_quote (ttrans);
free (ttrans);
ttranslen = strlen (ttok);
ttrans = ttok;
}
else
{
ttrans = localeexpand (ttok, 0, ttoklen - 1, first_line, &ttranslen);
free (ttok);
ttok = sh_mkdoublequoted (ttrans, ttranslen, 0);
free (ttrans);
ttranslen += 2;
ttrans = ttok;
}
RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 2,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
strcpy (token + token_index, ttrans);
token_index += ttranslen;
FREE (ttrans);
quoted = 1;
all_digit_token = 0;
goto next_character;
}
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;
dollar_present = 1;
all_digit_token = 0;
FREE (ttok);
goto next_character;
}
else
shell_ungetc (peek_char);
}
#if defined (ARRAY_VARS)
else if MBTEST(character == '[' && token_index > 0 && assignment_acceptable (last_read_token) && token_is_ident (token, token_index))
{
ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);
if (ttok == &matched_pair_error)
return -1;
RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = character;
strcpy (token + token_index, ttok);
token_index += ttoklen;
FREE (ttok);
all_digit_token = 0;
goto next_character;
}
else if MBTEST(character == '=' && token_index > 0 && (assignment_acceptable (last_read_token) || (parser_state & PST_ASSIGNOK)) && token_is_assignment (token, token_index))
{
peek_char = shell_getc (1);
if MBTEST(peek_char == '(')
{
ttok = parse_compound_assignment (&ttoklen);
RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 4,
token_buffer_size,
TOKEN_DEFAULT_GROW_SIZE);
token[token_index++] = '=';
token[token_index++] = '(';
if (ttok)
{
strcpy (token + token_index, ttok);
token_index += ttoklen;
}
token[token_index++] = ')';
FREE (ttok);
all_digit_token = 0;
compound_assignment = 1;
#if 1
goto next_character;
#else
goto got_token;
#endif
}
else
shell_ungetc (peek_char);
}
#endif
if MBTEST(shellbreak (character))
{
shell_ungetc (character);
goto got_token;
}
got_character:
all_digit_token &= DIGIT (character);
dollar_present |= character == '$';
if (character == CTLESC || character == CTLNUL)
token[token_index++] = CTLESC;
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 ();
cd = current_delimiter (dstack);
character = shell_getc (cd != '\'' && pass_next_character == 0);
}
got_token:
token[token_index] = '\0';
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);
}
result = (last_shell_getc_is_singlebyte) ? special_case_tokens (token) : -1;
if (result >= 0)
return result;
#if defined (ALIAS)
if MBTEST(posixly_correct)
CHECK_FOR_RESERVED_WORD (token);
if (expand_aliases && quoted == 0)
{
result = alias_expand_token (token);
if (result == RE_READ_TOKEN)
return (RE_READ_TOKEN);
else if (result == NO_EXPANSION)
parser_state &= ~PST_ALEXPNEXT;
}
if MBTEST(posixly_correct == 0)
#endif
CHECK_FOR_RESERVED_WORD (token);
the_word = (WORD_DESC *)xmalloc (sizeof (WORD_DESC));
the_word->word = (char *)xmalloc (1 + token_index);
the_word->flags = 0;
strcpy (the_word->word, token);
if (dollar_present)
the_word->flags |= W_HASDOLLAR;
if (quoted)
the_word->flags |= W_QUOTED;
if (compound_assignment && token[token_index-1] == ')')
the_word->flags |= W_COMPASSIGN;
if (assignment (token, (parser_state & PST_COMPASSIGN) != 0))
{
the_word->flags |= W_ASSIGNMENT;
if (assignment_acceptable (last_read_token) || (parser_state & PST_COMPASSIGN) != 0)
the_word->flags |= W_NOSPLIT;
}
if (command_token_position (last_read_token))
{
struct builtin *b;
b = builtin_address_internal (token, 0);
if (b && (b->flags & ASSIGNMENT_BUILTIN))
parser_state |= PST_ASSIGNOK;
else if (STREQ (token, "eval") || STREQ (token, "let"))
parser_state |= PST_ASSIGNOK;
}
yylval.word = the_word;
result = ((the_word->flags & (W_ASSIGNMENT|W_NOSPLIT)) == (W_ASSIGNMENT|W_NOSPLIT))
? ASSIGNMENT_WORD : WORD;
switch (last_read_token)
{
case FUNCTION:
parser_state |= PST_ALLOWOPNBRC;
function_dstart = line_number;
break;
case CASE:
case SELECT:
case FOR:
if (word_top < MAX_CASE_NEST)
word_top++;
word_lineno[word_top] = line_number;
break;
}
return (result);
}
static int
reserved_word_acceptable (toksym)
int toksym;
{
switch (toksym)
{
case '\n':
case ';':
case '(':
case ')':
case '|':
case '&':
case '{':
case '}':
case AND_AND:
case BANG:
case DO:
case DONE:
case ELIF:
case ELSE:
case ESAC:
case FI:
case IF:
case OR_OR:
case SEMI_SEMI:
case THEN:
case TIME:
case TIMEOPT:
case UNTIL:
case WHILE:
case 0:
return 1;
default:
return 0;
}
}
int
find_reserved_word (tokstr)
char *tokstr;
{
int i;
for (i = 0; word_token_alist[i].word; i++)
if (STREQ (tokstr, word_token_alist[i].word))
return i;
return -1;
}
#if 0
#if defined (READLINE)
static void
reset_readline_prompt ()
{
char *temp_prompt;
if (prompt_string_pointer)
{
temp_prompt = (*prompt_string_pointer)
? decode_prompt_string (*prompt_string_pointer)
: (char *)NULL;
if (temp_prompt == 0)
{
temp_prompt = (char *)xmalloc (1);
temp_prompt[0] = '\0';
}
FREE (current_readline_prompt);
current_readline_prompt = temp_prompt;
}
}
#endif
#endif
#if defined (HISTORY)
static int no_semi_successors[] = {
'\n', '{', '(', ')', ';', '&', '|',
CASE, DO, ELSE, IF, SEMI_SEMI, THEN, UNTIL, WHILE, AND_AND, OR_OR, IN,
0
};
char *
history_delimiting_chars ()
{
register int i;
if (dstack.delimiter_depth != 0)
return ("\n");
if (token_before_that == ')')
{
if (two_tokens_ago == '(')
return " ";
else if (parser_state & PST_CASESTMT)
return " ";
else
return "; ";
}
else if (token_before_that == WORD && two_tokens_ago == FUNCTION)
return " ";
else if (token_before_that == WORD && two_tokens_ago == FOR)
{
for (i = shell_input_line_index; whitespace(shell_input_line[i]); i++)
;
if (shell_input_line[i] && shell_input_line[i] == 'i' && shell_input_line[i+1] == 'n')
return " ";
return ";";
}
else if (two_tokens_ago == CASE && token_before_that == WORD && (parser_state & PST_CASESTMT))
return " ";
for (i = 0; no_semi_successors[i]; i++)
{
if (token_before_that == no_semi_successors[i])
return (" ");
}
return ("; ");
}
#endif
static void
prompt_again ()
{
char *temp_prompt;
if (interactive == 0 || expanding_alias())
return;
ps1_prompt = get_string_value ("PS1");
ps2_prompt = get_string_value ("PS2");
if (!prompt_string_pointer)
prompt_string_pointer = &ps1_prompt;
temp_prompt = *prompt_string_pointer
? decode_prompt_string (*prompt_string_pointer)
: (char *)NULL;
if (temp_prompt == 0)
{
temp_prompt = (char *)xmalloc (1);
temp_prompt[0] = '\0';
}
current_prompt_string = *prompt_string_pointer;
prompt_string_pointer = &ps2_prompt;
#if defined (READLINE)
if (!no_line_editing)
{
FREE (current_readline_prompt);
current_readline_prompt = temp_prompt;
}
else
#endif
{
FREE (current_decoded_prompt);
current_decoded_prompt = temp_prompt;
}
}
int
get_current_prompt_level ()
{
return ((current_prompt_string && current_prompt_string == ps2_prompt) ? 2 : 1);
}
void
set_current_prompt_level (x)
int x;
{
prompt_string_pointer = (x == 2) ? &ps2_prompt : &ps1_prompt;
current_prompt_string = *prompt_string_pointer;
}
static void
print_prompt ()
{
fprintf (stderr, "%s", current_decoded_prompt);
fflush (stderr);
}
#define PROMPT_GROWTH 48
char *
decode_prompt_string (string)
char *string;
{
WORD_LIST *list;
char *result, *t;
struct dstack save_dstack;
int last_exit_value;
#if defined (PROMPT_STRING_DECODE)
int result_size, result_index;
int c, n, i;
char *temp, octal_string[4];
struct tm *tm;
time_t the_time;
char timebuf[128];
char *timefmt;
result = (char *)xmalloc (result_size = PROMPT_GROWTH);
result[result_index = 0] = 0;
temp = (char *)NULL;
while (c = *string++)
{
if (posixly_correct && c == '!')
{
if (*string == '!')
{
temp = savestring ("!");
goto add_string;
}
else
{
#if !defined (HISTORY)
temp = savestring ("1");
#else
temp = itos (history_number ());
#endif
string--;
goto add_string;
}
}
if (c == '\\')
{
c = *string;
switch (c)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
strncpy (octal_string, string, 3);
octal_string[3] = '\0';
n = read_octal (octal_string);
temp = (char *)xmalloc (3);
if (n == CTLESC || n == CTLNUL)
{
temp[0] = CTLESC;
temp[1] = n;
temp[2] = '\0';
}
else if (n == -1)
{
temp[0] = '\\';
temp[1] = '\0';
}
else
{
temp[0] = n;
temp[1] = '\0';
}
for (c = 0; n != -1 && c < 3 && ISOCTAL (*string); c++)
string++;
c = 0;
goto add_string;
case 'd':
case 't':
case 'T':
case '@':
case 'A':
(void) time (&the_time);
tm = localtime (&the_time);
if (c == 'd')
n = strftime (timebuf, sizeof (timebuf), "%a %b %d", tm);
else if (c == 't')
n = strftime (timebuf, sizeof (timebuf), "%H:%M:%S", tm);
else if (c == 'T')
n = strftime (timebuf, sizeof (timebuf), "%I:%M:%S", tm);
else if (c == '@')
n = strftime (timebuf, sizeof (timebuf), "%I:%M %p", tm);
else if (c == 'A')
n = strftime (timebuf, sizeof (timebuf), "%H:%M", tm);
if (n == 0)
timebuf[0] = '\0';
else
timebuf[sizeof(timebuf) - 1] = '\0';
temp = savestring (timebuf);
goto add_string;
case 'D':
if (string[1] != '{')
goto not_escape;
(void) time (&the_time);
tm = localtime (&the_time);
string += 2;
timefmt = xmalloc (strlen (string) + 3);
for (t = timefmt; *string && *string != '}'; )
*t++ = *string++;
*t = '\0';
c = *string;
if (timefmt[0] == '\0')
{
timefmt[0] = '%';
timefmt[1] = 'X';
timefmt[2] = '\0';
}
n = strftime (timebuf, sizeof (timebuf), timefmt, tm);
free (timefmt);
if (n == 0)
timebuf[0] = '\0';
else
timebuf[sizeof(timebuf) - 1] = '\0';
if (promptvars || posixly_correct)
temp = sh_backslash_quote_for_double_quotes (timebuf);
else
temp = savestring (timebuf);
goto add_string;
case 'n':
temp = (char *)xmalloc (3);
temp[0] = no_line_editing ? '\n' : '\r';
temp[1] = no_line_editing ? '\0' : '\n';
temp[2] = '\0';
goto add_string;
case 's':
temp = base_pathname (shell_name);
temp = savestring (temp);
goto add_string;
case 'v':
case 'V':
temp = (char *)xmalloc (16);
if (c == 'v')
strcpy (temp, dist_version);
else
sprintf (temp, "%s.%d", dist_version, patch_level);
goto add_string;
case 'w':
case 'W':
{
char t_string[PATH_MAX];
int tlen;
temp = get_string_value ("PWD");
if (temp == 0)
{
if (getcwd (t_string, sizeof(t_string)) == 0)
{
t_string[0] = '.';
tlen = 1;
}
else
tlen = strlen (t_string);
}
else
{
tlen = sizeof (t_string) - 1;
strncpy (t_string, temp, tlen);
}
t_string[tlen] = '\0';
#define ROOT_PATH(x) ((x)[0] == '/' && (x)[1] == 0)
#define DOUBLE_SLASH_ROOT(x) ((x)[0] == '/' && (x)[1] == '/' && (x)[2] == 0)
if (c == 'W' && (((t = get_string_value ("HOME")) == 0) || STREQ (t, t_string) == 0))
{
if (ROOT_PATH (t_string) == 0 && DOUBLE_SLASH_ROOT (t_string) == 0)
{
t = strrchr (t_string, '/');
if (t)
strcpy (t_string, t + 1);
}
}
#undef ROOT_PATH
#undef DOUBLE_SLASH_ROOT
else
strcpy (t_string, polite_directory_format (t_string));
if (promptvars || posixly_correct)
temp = sh_backslash_quote_for_double_quotes (t_string);
else
temp = savestring (t_string);
goto add_string;
}
case 'u':
if (current_user.user_name == 0)
get_current_user_info ();
temp = savestring (current_user.user_name);
goto add_string;
case 'h':
case 'H':
temp = savestring (current_host_name);
if (c == 'h' && (t = (char *)strchr (temp, '.')))
*t = '\0';
goto add_string;
case '#':
temp = itos (current_command_number);
goto add_string;
case '!':
#if !defined (HISTORY)
temp = savestring ("1");
#else
temp = itos (history_number ());
#endif
goto add_string;
case '$':
t = temp = (char *)xmalloc (3);
if ((promptvars || posixly_correct) && (current_user.euid != 0))
*t++ = '\\';
*t++ = current_user.euid == 0 ? '#' : '$';
*t = '\0';
goto add_string;
case 'j':
temp = itos (count_all_jobs ());
goto add_string;
case 'l':
#if defined (HAVE_TTYNAME)
temp = (char *)ttyname (fileno (stdin));
t = temp ? base_pathname (temp) : "tty";
temp = savestring (t);
#else
temp = savestring ("tty");
#endif
goto add_string;
#if defined (READLINE)
case '[':
case ']':
if (no_line_editing)
{
string++;
break;
}
temp = (char *)xmalloc (3);
n = (c == '[') ? RL_PROMPT_START_IGNORE : RL_PROMPT_END_IGNORE;
i = 0;
if (n == CTLESC || n == CTLNUL)
temp[i++] = CTLESC;
temp[i++] = n;
temp[i] = '\0';
goto add_string;
#endif
case '\\':
case 'a':
case 'e':
case 'r':
temp = (char *)xmalloc (2);
if (c == 'a')
temp[0] = '\07';
else if (c == 'e')
temp[0] = '\033';
else if (c == 'r')
temp[0] = '\r';
else
temp[0] = c;
temp[1] = '\0';
goto add_string;
default:
not_escape:
temp = (char *)xmalloc (3);
temp[0] = '\\';
temp[1] = c;
temp[2] = '\0';
add_string:
if (c)
string++;
result =
sub_append_string (temp, result, &result_index, &result_size);
temp = (char *)NULL;
result[result_index] = '\0';
break;
}
}
else
{
RESIZE_MALLOCED_BUFFER (result, result_index, 3, result_size, PROMPT_GROWTH);
result[result_index++] = c;
result[result_index] = '\0';
}
}
#else
result = savestring (string);
#endif
save_dstack = dstack;
dstack = temp_dstack;
dstack.delimiter_depth = 0;
if (promptvars || posixly_correct)
{
last_exit_value = last_command_exit_value;
list = expand_prompt_string (result, Q_DOUBLE_QUOTES);
free (result);
result = string_list (list);
dispose_words (list);
last_command_exit_value = last_exit_value;
}
else
{
t = dequote_string (result);
free (result);
result = t;
}
dstack = save_dstack;
return (result);
}
int
yyerror (msg)
const char *msg;
{
report_syntax_error ((char *)NULL);
reset_parser ();
return (0);
}
static char *
error_token_from_token (tok)
int tok;
{
char *t;
if (t = find_token_in_alist (tok, word_token_alist, 0))
return t;
if (t = find_token_in_alist (tok, other_token_alist, 0))
return t;
t = (char *)NULL;
switch (current_token)
{
case WORD:
case ASSIGNMENT_WORD:
if (yylval.word)
t = savestring (yylval.word->word);
break;
case NUMBER:
t = itos (yylval.number);
break;
case ARITH_CMD:
if (yylval.word_list)
t = string_list (yylval.word_list);
break;
case ARITH_FOR_EXPRS:
if (yylval.word_list)
t = string_list_internal (yylval.word_list, " ; ");
break;
case COND_CMD:
t = (char *)NULL;
break;
}
return t;
}
static char *
error_token_from_text ()
{
char *msg, *t;
int token_end, i;
t = shell_input_line;
i = shell_input_line_index;
token_end = 0;
msg = (char *)NULL;
if (i && t[i] == '\0')
i--;
while (i && (whitespace (t[i]) || t[i] == '\n'))
i--;
if (i)
token_end = i + 1;
while (i && (member (t[i], " \n\t;|&") == 0))
i--;
while (i != token_end && (whitespace (t[i]) || t[i] == '\n'))
i++;
if (token_end || (i == 0 && token_end == 0))
{
if (token_end)
msg = substring (t, i, token_end);
else
{
msg = (char *)xmalloc (2);
msg[0] = t[i];
msg[1] = '\0';
}
}
return (msg);
}
static void
print_offending_line ()
{
char *msg;
int token_end;
msg = savestring (shell_input_line);
token_end = strlen (msg);
while (token_end && msg[token_end - 1] == '\n')
msg[--token_end] = '\0';
parser_error (line_number, "`%s'", msg);
free (msg);
}
static void
report_syntax_error (message)
char *message;
{
char *msg;
if (message)
{
parser_error (line_number, "%s", message);
if (interactive && EOF_Reached)
EOF_Reached = 0;
last_command_exit_value = EX_USAGE;
return;
}
if (current_token != 0 && EOF_Reached == 0 && (msg = error_token_from_token (current_token)))
{
parser_error (line_number, _("syntax error near unexpected token `%s'"), msg);
free (msg);
if (interactive == 0)
print_offending_line ();
last_command_exit_value = EX_USAGE;
return;
}
if (shell_input_line && *shell_input_line)
{
msg = error_token_from_text ();
if (msg)
{
parser_error (line_number, _("syntax error near `%s'"), msg);
free (msg);
}
if (interactive == 0)
print_offending_line ();
}
else
{
msg = EOF_Reached ? _("syntax error: unexpected end of file") : _("syntax error");
parser_error (line_number, "%s", msg);
if (interactive && EOF_Reached)
EOF_Reached = 0;
}
last_command_exit_value = EX_USAGE;
}
static void
discard_parser_constructs (error_p)
int error_p;
{
}
int ignoreeof = 0;
int eof_encountered = 0;
int eof_encountered_limit = 10;
static void
handle_eof_input_unit ()
{
if (interactive)
{
if (EOF_Reached)
EOF_Reached = 0;
if (ignoreeof)
{
if (eof_encountered < eof_encountered_limit)
{
fprintf (stderr, _("Use \"%s\" to leave the shell.\n"),
login_shell ? "logout" : "exit");
eof_encountered++;
last_read_token = current_token = '\n';
prompt_string_pointer = (char **)NULL;
prompt_again ();
return;
}
}
reset_parser ();
exit_builtin ((WORD_LIST *)NULL);
}
else
{
EOF_Reached = 1;
}
}
static WORD_LIST parse_string_error;
WORD_LIST *
parse_string_to_word_list (s, flags, whom)
char *s;
int flags;
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
#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;
current_command_line_count = 0;
echo_input_at_read = expand_aliases = 0;
with_input_from_string (s, whom);
wl = (WORD_LIST *)NULL;
if (flags & 1)
parser_state |= PST_COMPASSIGN;
while ((tok = read_token (READ)) != yacc_EOF)
{
if (tok == '\n' && *bash_input.location.string == '\0')
break;
if (tok == '\n')
continue;
if (tok != WORD && tok != ASSIGNMENT_WORD)
{
line_number = orig_line_number + line_number - 1;
orig_current_token = current_token;
current_token = tok;
yyerror (NULL);
current_token = orig_current_token;
if (wl)
dispose_words (wl);
wl = &parse_string_error;
break;
}
wl = make_word_list (yylval.word, wl);
}
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
#endif
echo_input_at_read = old_echo_input;
expand_aliases = old_expand_aliases;
current_command_line_count = orig_line_count;
shell_input_line_terminator = orig_input_terminator;
if (flags & 1)
parser_state &= ~PST_COMPASSIGN;
if (wl == &parse_string_error)
{
last_command_exit_value = EXECUTION_FAILURE;
if (interactive_shell == 0 && posixly_correct)
jump_to_top_level (FORCE_EOF);
else
jump_to_top_level (DISCARD);
}
return (REVERSE_LIST (wl, WORD_LIST *));
}
static char *
parse_compound_assignment (retlenp)
int *retlenp;
{
WORD_LIST *wl, *rl;
int tok, orig_line_number, orig_token_size, orig_last_token, assignok;
char *saved_token, *ret;
saved_token = token;
orig_token_size = token_buffer_size;
orig_line_number = line_number;
orig_last_token = last_read_token;
last_read_token = WORD;
token = (char *)NULL;
token_buffer_size = 0;
assignok = parser_state&PST_ASSIGNOK;
wl = (WORD_LIST *)NULL;
parser_state |= PST_COMPASSIGN;
while ((tok = read_token (READ)) != ')')
{
if (tok == '\n')
{
if (SHOULD_PROMPT ())
prompt_again ();
continue;
}
if (tok != WORD && tok != ASSIGNMENT_WORD)
{
current_token = tok;
if (tok == yacc_EOF)
parser_error (orig_line_number, _("unexpected EOF while looking for matching `)'"));
else
yyerror(NULL);
if (wl)
dispose_words (wl);
wl = &parse_string_error;
break;
}
wl = make_word_list (yylval.word, wl);
}
FREE (token);
token = saved_token;
token_buffer_size = orig_token_size;
parser_state &= ~PST_COMPASSIGN;
if (wl == &parse_string_error)
{
last_command_exit_value = EXECUTION_FAILURE;
last_read_token = '\n';
if (interactive_shell == 0 && posixly_correct)
jump_to_top_level (FORCE_EOF);
else
jump_to_top_level (DISCARD);
}
last_read_token = orig_last_token;
if (wl)
{
rl = REVERSE_LIST (wl, WORD_LIST *);
ret = string_list (rl);
dispose_words (rl);
}
else
ret = (char *)NULL;
if (retlenp)
*retlenp = (ret && *ret) ? strlen (ret) : 0;
if (assignok)
parser_state |= PST_ASSIGNOK;
return ret;
}
sh_parser_state_t *
save_parser_state (ps)
sh_parser_state_t *ps;
{
#if defined (ARRAY_VARS)
SHELL_VAR *v;
#endif
if (ps == 0)
ps = (sh_parser_state_t *)xmalloc (sizeof (sh_parser_state_t));
if (ps == 0)
return ((sh_parser_state_t *)NULL);
ps->parser_state = parser_state;
ps->token_state = save_token_state ();
ps->input_line_terminator = shell_input_line_terminator;
ps->eof_encountered = eof_encountered;
ps->current_command_line_count = current_command_line_count;
#if defined (HISTORY)
ps->remember_on_history = remember_on_history;
# if defined (BANG_HISTORY)
ps->history_expansion_inhibited = history_expansion_inhibited;
# endif
#endif
ps->last_command_exit_value = last_command_exit_value;
#if defined (ARRAY_VARS)
v = find_variable ("PIPESTATUS");
if (v && array_p (v) && array_cell (v))
ps->pipestatus = array_copy (array_cell (v));
else
ps->pipestatus = (ARRAY *)NULL;
#endif
ps->last_shell_builtin = last_shell_builtin;
ps->this_shell_builtin = this_shell_builtin;
ps->expand_aliases = expand_aliases;
ps->echo_input_at_read = echo_input_at_read;
return (ps);
}
void
restore_parser_state (ps)
sh_parser_state_t *ps;
{
#if defined (ARRAY_VARS)
SHELL_VAR *v;
#endif
if (ps == 0)
return;
parser_state = ps->parser_state;
if (ps->token_state)
{
restore_token_state (ps->token_state);
free (ps->token_state);
}
shell_input_line_terminator = ps->input_line_terminator;
eof_encountered = ps->eof_encountered;
current_command_line_count = ps->current_command_line_count;
#if defined (HISTORY)
remember_on_history = ps->remember_on_history;
# if defined (BANG_HISTORY)
history_expansion_inhibited = ps->history_expansion_inhibited;
# endif
#endif
last_command_exit_value = ps->last_command_exit_value;
#if defined (ARRAY_VARS)
v = find_variable ("PIPESTATUS");
if (v && array_p (v) && array_cell (v))
{
array_dispose (array_cell (v));
var_setarray (v, ps->pipestatus);
}
#endif
last_shell_builtin = ps->last_shell_builtin;
this_shell_builtin = ps->this_shell_builtin;
expand_aliases = ps->expand_aliases;
echo_input_at_read = ps->echo_input_at_read;
}
#if defined (HANDLE_MULTIBYTE)
static void
set_line_mbstate ()
{
int i, previ, len, c;
mbstate_t mbs, prevs;
size_t mbclen;
if (shell_input_line == NULL)
return;
len = strlen (shell_input_line);
FREE (shell_input_line_property);
shell_input_line_property = (char *)xmalloc (len + 1);
memset (&prevs, '\0', sizeof (mbstate_t));
for (i = previ = 0; i < len; i++)
{
mbs = prevs;
c = shell_input_line[i];
if (c == EOF)
{
int 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 (mbclen == 1 || mbclen == (size_t)-1)
{
mbclen = 1;
previ = i + 1;
}
else if (mbclen == (size_t)-2)
mbclen = 0;
else if (mbclen > 1)
{
mbclen = 0;
previ = i + 1;
prevs = mbs;
}
else
{
int j;
for (j = i; j < len; j++)
shell_input_line_property[j] = 1;
break;
}
shell_input_line_property[i] = mbclen;
}
}
#endif