-/* eval.c -- reading and evaluating commands.
+/* eval.c -- reading and evaluating commands. */
- Copyright (C) 1996 Free Software Foundation, Inc.
+/* Copyright (C) 1996-2009 Free Software Foundation, Inc.
- This file is part of GNU Bash.
+ This file is part of GNU Bash, the Bourne Again SHell.
- Bash is distributed in the hope that it will be useful, but WITHOUT
- ANY WARRANTY. No author or distributor accepts responsibility to
- anyone for the consequences of using it or for whether it serves
- any particular purpose or works at all, unless he says so in
- writing. Refer to the GNU Emacs General Public License for full
- details.
+ Bash is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
- Everyone is granted permission to copy, modify and redistribute
- Bash, but only under the conditions described in the GNU General
- Public License. A copy of this license is supposed to have been
- given to you along with GNU Emacs so you can know your rights and
- responsibilities. It should be in a file named COPYING.
+ Bash is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
- Among other things, the copyright notice and this notice must be
- preserved on all copies. */
+ You should have received a copy of the GNU General Public License
+ along with Bash. If not, see <http://www.gnu.org/licenses/>.
+*/
#include "config.h"
#include "bashansi.h"
#include <stdio.h>
+#include "bashintl.h"
+
#include "shell.h"
#include "flags.h"
#include "trap.h"
#include "input.h"
#include "execute_cmd.h"
-extern int yyparse ();
+#if defined (HISTORY)
+# include "bashhist.h"
+#endif
extern int EOF_reached;
-extern int indirection_level, interactive, interactive_shell;
+extern int indirection_level;
+extern int posixly_correct;
extern int subshell_environment, running_under_emacs;
extern int last_command_exit_value, stdin_redir;
extern int need_here_doc;
extern int current_command_number, current_command_line_count, line_number;
-extern char *ps1_prompt, **prompt_string_pointer;
extern int expand_aliases;
+static void send_pwd_to_eterm __P((void));
+static sighandler alrm_catcher __P((int));
+
/* Read and execute commands until EOF is reached. This assumes that
the input source has already been initialized. */
int
reader_loop ()
{
int our_indirection_level;
- COMMAND *current_command = (COMMAND *)NULL;
+ COMMAND * volatile current_command;
+
+ USE_VAR(current_command);
+
+ current_command = (COMMAND *)NULL;
our_indirection_level = ++indirection_level;
{
/* Some kind of throw to top_level has occured. */
case FORCE_EOF:
+ case ERREXIT:
case EXITPROG:
current_command = (COMMAND *)NULL;
+ if (exit_immediately_on_error)
+ variable_context = 0; /* not in a function */
EOF_Reached = EOF;
goto exec_done;
case DISCARD:
- last_command_exit_value = 1;
+ /* Make sure the exit status is reset to a non-zero value, but
+ leave existing non-zero values (e.g., > 128 on signal)
+ alone. */
+ if (last_command_exit_value == 0)
+ last_command_exit_value = EXECUTION_FAILURE;
if (subshell_environment)
{
current_command = (COMMAND *)NULL;
break;
default:
- programming_error ("reader_loop: bad jump: code %d", code);
+ command_error ("reader_loop", CMDERR_BADJUMP, code, 0);
}
}
executing = 0;
- dispose_used_env_vars ();
+ if (temporary_env)
+ dispose_used_env_vars ();
#if (defined (ultrix) && defined (mips)) || defined (C_ALLOCA)
/* Attempt to reclaim memory allocated with alloca (). */
execute_command (current_command);
exec_done:
+ QUIT;
+
if (current_command)
- {
+ {
dispose_command (current_command);
current_command = (COMMAND *)NULL;
- }
-
- QUIT;
+ }
}
}
else
alrm_catcher(i)
int i;
{
- printf ("%ctimed out waiting for input: auto-logout\n", '\07');
+ printf (_("\007timed out waiting for input: auto-logout\n"));
+ fflush (stdout);
+ bash_logout (); /* run ~/.bash_logout if this is a login shell */
jump_to_top_level (EXITPROG);
SIGRETURN (0);
}
{
command_to_execute = get_string_value ("PROMPT_COMMAND");
if (command_to_execute)
- execute_prompt_command (command_to_execute);
+ execute_variable_command (command_to_execute, "PROMPT_COMMAND");
if (running_under_emacs == 2)
send_pwd_to_eterm (); /* Yuck */
int tmout_len, result;
SigHandler *old_alrm;
- prompt_string_pointer = &ps1_prompt;
+ set_current_prompt_level (1);
global_command = (COMMAND *)NULL;
/* Only do timeouts if interactive. */
tmout_var = (SHELL_VAR *)NULL;
tmout_len = 0;
+ old_alrm = (SigHandler *)NULL;
if (interactive)
{
tmout_var = find_variable ("TMOUT");
- old_alrm = (SigHandler *)NULL;
- if (tmout_var && tmout_var->value)
+ if (tmout_var && var_isset (tmout_var))
{
- tmout_len = atoi (tmout_var->value);
+ tmout_len = atoi (value_cell (tmout_var));
if (tmout_len > 0)
{
old_alrm = set_signal_handler (SIGALRM, alrm_catcher);
return (result);
}
-
-/* Take a string and run it through the shell parser, returning the
- resultant word list. Used by compound array assignment. */
-WORD_LIST *
-parse_string_to_word_list (s, whom)
- char *s, *whom;
-{
- WORD_LIST *wl;
- COMMAND *saved_global;
-
- push_stream (1);
-
- saved_global = global_command;
- global_command = (COMMAND *)0;
-
- with_input_from_string (s, whom);
- if (parse_command () != 0 || global_command == 0 || global_command->type != cm_simple)
- {
- if (global_command)
- dispose_command (global_command);
- wl = (WORD_LIST *)NULL;
- }
- else
- {
- wl = global_command->value.Simple->words;
- free (global_command->value.Simple);
- free (global_command);
- }
-
- global_command = saved_global;
-
- pop_stream ();
-
- return (wl);
-}