/* error.c -- Functions for handling errors. */
-/* Copyright (C) 1993 Free Software Foundation, Inc.
+/* Copyright (C) 1993-2003 Free Software Foundation, Inc.
This file is part of GNU Bash, the Bourne Again SHell.
#if defined (PREFER_STDARG)
# include <stdarg.h>
#else
-# if defined (PREFER_VARARGS)
-# include <varargs.h>
-# endif
+# include <varargs.h>
#endif
#include <stdio.h>
#endif /* !errno */
#include "bashansi.h"
+#include "bashintl.h"
+
+#include "shell.h"
#include "flags.h"
-#include "error.h"
-#include "command.h"
-#include "general.h"
-#include "externs.h"
#include "input.h"
#if defined (HISTORY)
# include "bashhist.h"
#endif
-extern int interactive_shell, interactive;
-extern char *dollar_vars[];
+extern int executing_line_number __P((void));
+
extern char *shell_name;
#if defined (JOB_CONTROL)
extern pid_t shell_pgrp;
extern int give_terminal_to __P((pid_t, int));
#endif /* JOB_CONTROL */
+#if defined (ARRAY_VARS)
+extern char *bash_badsub_errmsg;
+#endif
+
+static void error_prolog __P((int));
+
/* The current maintainer of the shell. You change this in the
Makefile. */
#if !defined (MAINTAINER)
char *the_current_maintainer = MAINTAINER;
+int gnu_error_format = 0;
+
+static void
+error_prolog (print_lineno)
+ int print_lineno;
+{
+ char *ename;
+ int line;
+
+ ename = get_name_for_error ();
+ line = (print_lineno && interactive_shell == 0) ? executing_line_number () : -1;
+
+ if (line > 0)
+ fprintf (stderr, "%s:%s%d: ", ename, gnu_error_format ? "" : " line ", line);
+ else
+ fprintf (stderr, "%s: ", ename);
+}
+
/* Return the name of the shell or the shell script for error reporting. */
char *
get_name_for_error ()
{
char *name;
+#if defined (ARRAY_VARS)
+ SHELL_VAR *bash_source_v;
+ ARRAY *bash_source_a;
+#endif
name = (char *)NULL;
if (interactive_shell == 0)
- name = dollar_vars[0];
+ {
+#if defined (ARRAY_VARS)
+ bash_source_v = find_variable ("BASH_SOURCE");
+ if (bash_source_v && array_p (bash_source_v) &&
+ (bash_source_a = array_cell (bash_source_v)))
+ name = array_reference (bash_source_a, 0);
+ if (name == 0)
+#endif
+ name = dollar_vars[0];
+ }
if (name == 0 && shell_name && *shell_name)
name = base_pathname (shell_name);
if (name == 0)
report_error ("%s: %s", filename, strerror (errno));
}
-#if !defined (USE_VARARGS)
-void
-programming_error (reason, arg1, arg2, arg3, arg4, arg5)
- char *reason;
-{
- char *h;
-
-#if defined (JOB_CONTROL)
- give_terminal_to (shell_pgrp);
-#endif /* JOB_CONTROL */
-
- report_error (reason, arg1, arg2);
-
-#if defined (HISTORY)
- if (remember_on_history)
- {
- h = last_history_line ();
- fprintf (stderr, "last command: %s\n", h ? h : "(null)");
- }
-#endif
-
-#if 0
- fprintf (stderr, "Report this to %s\n", the_current_maintainer);
-#endif
-
- fprintf (stderr, "Stopping myself...");
- fflush (stderr);
-
- abort ();
-}
-
-void
-report_error (format, arg1, arg2, arg3, arg4, arg5)
- char *format;
-{
- fprintf (stderr, "%s: ", get_name_for_error ());
-
- fprintf (stderr, format, arg1, arg2, arg3, arg4, arg5);
- fprintf (stderr, "\n");
- if (exit_immediately_on_error)
- exit (1);
-}
-
-void
-parser_error (lineno, format, arg1, arg2, arg3, arg4, arg5);
- int lineno;
- char *format;
- va_dcl
-{
- char *ename, *iname;
-
- ename = get_name_for_error ();
- iname = bash_input.name ? bash_input.name : "stdin";
-
- if (interactive)
- fprintf (stderr, "%s: ", ename);
- else if (interactive_shell)
- fprintf (stderr, "%s: %s: line %d: ", ename, iname, lineno);
- else if (STREQ (ename, iname))
- fprintf (stderr, "%s: line %d: ", ename, lineno);
- else
- fprintf (stderr, "%s: %s: line %d: ", ename, iname, lineno);
-
- fprintf (stderr, format, arg1, arg2, arg3, arg4, arg5);
- fprintf (stderr, "\n");
-
- if (exit_immediately_on_error)
- exit (2);
-}
-
-void
-fatal_error (format, arg1, arg2, arg3, arg4, arg5)
- char *format;
-{
- fprintf (stderr, "%s: ", get_name_for_error ());
-
- fprintf (stderr, format, arg1, arg2, arg3, arg4, arg5);
- fprintf (stderr, "\n");
-
- exit (2);
-}
-
-void
-internal_error (format, arg1, arg2, arg3, arg4, arg5)
- char *format;
-{
- fprintf (stderr, "%s: ", get_name_for_error ());
-
- fprintf (stderr, format, arg1, arg2, arg3, arg4, arg5);
- fprintf (stderr, "\n");
-}
-
-void
-internal_warning (format, arg1, arg2, arg3, arg4, arg5)
- char *format;
-{
- fprintf (stderr, "%s: warning: ", get_name_for_error ());
-
- fprintf (stderr, format, arg1, arg2, arg3, arg4, arg5);
- fprintf (stderr, "\n");
-}
-
-void
-sys_error (format, arg1, arg2, arg3, arg4, arg5)
- char *format;
-{
- fprintf (stderr, "%s: ", get_name_for_error ());
-
- fprintf (stderr, format, arg1, arg2, arg3, arg4, arg5);
- fprintf (stderr, ": %s\n", strerror (errno));
-}
-
-#else /* We have VARARGS support, so use it. */
-
void
#if defined (PREFER_STDARG)
programming_error (const char *format, ...)
give_terminal_to (shell_pgrp, 0);
#endif /* JOB_CONTROL */
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
if (remember_on_history)
{
h = last_history_line ();
- fprintf (stderr, "last command: %s\n", h ? h : "(null)");
+ fprintf (stderr, _("last command: %s\n"), h ? h : "(null)");
}
#endif
fprintf (stderr, "Report this to %s\n", the_current_maintainer);
#endif
- fprintf (stderr, "Stopping myself...");
+ fprintf (stderr, _("Aborting..."));
fflush (stderr);
abort ();
}
+/* Print an error message and, if `set -e' has been executed, exit the
+ shell. Used in this file by file_error and programming_error. Used
+ outside this file mostly to report substitution and expansion errors,
+ and for bad invocation options. */
void
#if defined (PREFER_STDARG)
report_error (const char *format, ...)
{
va_list args;
- fprintf (stderr, "%s: ", get_name_for_error ());
+ error_prolog (1);
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
va_end (args);
if (exit_immediately_on_error)
- exit (1);
+ exit_shell (1);
}
void
{
va_list args;
- fprintf (stderr, "%s: ", get_name_for_error ());
+ error_prolog (0);
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
va_end (args);
- exit (2);
+ sh_exit (2);
}
void
{
va_list args;
- fprintf (stderr, "%s: ", get_name_for_error ());
+ error_prolog (1);
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
{
va_list args;
- fprintf (stderr, "%s: warning: ", get_name_for_error ());
+ fprintf (stderr, _("%s: warning: "), get_name_for_error ());
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
va_dcl
#endif
{
+ int e;
va_list args;
- fprintf (stderr, "%s: ", get_name_for_error ());
+ e = errno;
+ error_prolog (0);
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
- fprintf (stderr, ": %s\n", strerror (errno));
+ fprintf (stderr, ": %s\n", strerror (e));
va_end (args);
}
char *ename, *iname;
ename = get_name_for_error ();
- iname = bash_input.name ? bash_input.name : "stdin";
+ iname = yy_input_name ();
if (interactive)
fprintf (stderr, "%s: ", ename);
else if (interactive_shell)
- fprintf (stderr, "%s: %s: line %d: ", ename, iname, lineno);
+ fprintf (stderr, "%s: %s:%s%d: ", ename, iname, gnu_error_format ? "" : " line ", lineno);
else if (STREQ (ename, iname))
- fprintf (stderr, "%s: line %d: ", ename, lineno);
+ fprintf (stderr, "%s:%s%d: ", ename, gnu_error_format ? "" : " line ", lineno);
else
- fprintf (stderr, "%s: %s: line %d: ", ename, iname, lineno);
+ fprintf (stderr, "%s: %s:%s%d: ", ename, iname, gnu_error_format ? "" : " line ", lineno);
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
va_end (args);
if (exit_immediately_on_error)
- exit (2);
+ exit_shell (2);
}
#ifdef DEBUG
fprintf(stderr, "TRACE: pid %ld: ", (long)getpid());
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
fprintf(tracefp, "TRACE: pid %ld: ", (long)getpid());
-#if defined (PREFER_STDARG)
- va_start (args, format);
-#else
- va_start (args);
-#endif
+ SH_VA_START (args, format);
vfprintf (tracefp, format, args);
fprintf (tracefp, "\n");
fflush(tracefp);
}
-#endif /* USE_VARARGS */
#endif /* DEBUG */
+/* **************************************************************** */
+/* */
+/* Common error reporting */
+/* */
+/* **************************************************************** */
+
+
static char *cmd_error_table[] = {
- "unknown command error", /* CMDERR_DEFAULT */
- "bad command type", /* CMDERR_BADTYPE */
- "bad connector", /* CMDERR_BADCONN */
- "bad jump", /* CMDERR_BADJUMP */
+ N_("unknown command error"), /* CMDERR_DEFAULT */
+ N_("bad command type"), /* CMDERR_BADTYPE */
+ N_("bad connector"), /* CMDERR_BADCONN */
+ N_("bad jump"), /* CMDERR_BADJUMP */
0
};
if (code > CMDERR_LAST)
code = CMDERR_DEFAULT;
- programming_error ("%s: %s: %d", func, cmd_error_table[code], e);
+ programming_error ("%s: %s: %d", func, _(cmd_error_table[code]), e);
}
char *
if (code > CMDERR_LAST)
code = CMDERR_DEFAULT;
- return (cmd_error_table[code]);
+ return (_(cmd_error_table[code]));
+}
+
+#ifdef ARRAY_VARS
+void
+err_badarraysub (s)
+ const char *s;
+{
+ report_error ("%s: %s", s, _(bash_badsub_errmsg));
+}
+#endif
+
+void
+err_unboundvar (s)
+ const char *s;
+{
+ report_error (_("%s: unbound variable"), s);
+}
+
+void
+err_readonly (s)
+ const char *s;
+{
+ report_error (_("%s: readonly variable"), s);
}
projects / platform / upstream / bash.git / blobdiff