]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blobdiff - gdb/top.c
2004-07-26 Andrew Cagney <cagney@gnu.org>
[thirdparty/binutils-gdb.git] / gdb / top.c
index d25bc3b8a79cdd008c9ff4c859d57686c2bebfc7..e282b2edf16f65c6a9f21cca518b05190269adfc 100644 (file)
--- a/gdb/top.c
+++ b/gdb/top.c
@@ -1,7 +1,7 @@
 /* Top level stuff for GDB, the GNU debugger.
 
    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
-   1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+   1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
    Free Software Foundation, Inc.
 
    This file is part of GDB.
@@ -47,8 +47,8 @@
 #include "gdb_assert.h"
 
 /* readline include files */
-#include <readline/readline.h>
-#include <readline/history.h>
+#include "readline/readline.h"
+#include "readline/history.h"
 
 /* readline defines this.  */
 #undef savestring
@@ -147,7 +147,7 @@ int baud_rate = -1;
    In mid-1996, remote_timeout was moved from remote.c to top.c and 
    it began being used in other remote-* targets.  It appears that the
    default was changed to 20 seconds at that time, perhaps because the
-   Hitachi E7000 ICE didn't always respond in a timely manner.
+   Renesas E7000 ICE didn't always respond in a timely manner.
 
    But if 5 seconds is a long time to sit and wait for retransmissions,
    20 seconds is far worse.  This demonstrates the difficulty of using 
@@ -171,6 +171,11 @@ int target_executing = 0;
 /* Level of control structure.  */
 static int control_level;
 
+/* Sbrk location on entry to main.  Used for statistics only.  */
+#ifdef HAVE_SBRK
+char *lim_at_start;
+#endif
+
 /* Signal to catch ^Z typed while reading a command: SIGTSTP or SIGCONT.  */
 
 #ifndef STOP_SIGNAL
@@ -188,103 +193,104 @@ static void stop_sig (int);
    If the UI fails to initialize and it wants GDB to continue
    using the default UI, then it should clear this hook before returning. */
 
-void (*init_ui_hook) (char *argv0);
+void (*deprecated_init_ui_hook) (char *argv0);
 
 /* This hook is called from within gdb's many mini-event loops which could
    steal control from a real user interface's event loop. It returns
    non-zero if the user is requesting a detach, zero otherwise. */
 
-int (*ui_loop_hook) (int);
+int (*deprecated_ui_loop_hook) (int);
 
 /* Called instead of command_loop at top level.  Can be invoked via
    throw_exception().  */
 
-void (*command_loop_hook) (void);
+void (*deprecated_command_loop_hook) (void);
 
 
 /* Called from print_frame_info to list the line we stopped in.  */
 
-void (*print_frame_info_listing_hook) (struct symtab * s, int line,
-                                      int stopline, int noerror);
+void (*deprecated_print_frame_info_listing_hook) (struct symtab * s, int line,
+                                                 int stopline, int noerror);
 /* Replaces most of query.  */
 
-int (*query_hook) (const char *, va_list);
+int (*deprecated_query_hook) (const char *, va_list);
 
 /* Replaces most of warning.  */
 
-void (*warning_hook) (const char *, va_list);
+void (*deprecated_warning_hook) (const char *, va_list);
 
-/* These three functions support getting lines of text from the user.  They
-   are used in sequence.  First readline_begin_hook is called with a text
-   string that might be (for example) a message for the user to type in a
-   sequence of commands to be executed at a breakpoint.  If this function
-   calls back to a GUI, it might take this opportunity to pop up a text
-   interaction window with this message.  Next, readline_hook is called
-   with a prompt that is emitted prior to collecting the user input.
-   It can be called multiple times.  Finally, readline_end_hook is called
-   to notify the GUI that we are done with the interaction window and it
-   can close it. */
+/* These three functions support getting lines of text from the user.
+   They are used in sequence.  First deprecated_readline_begin_hook is
+   called with a text string that might be (for example) a message for
+   the user to type in a sequence of commands to be executed at a
+   breakpoint.  If this function calls back to a GUI, it might take
+   this opportunity to pop up a text interaction window with this
+   message.  Next, deprecated_readline_hook is called with a prompt
+   that is emitted prior to collecting the user input.  It can be
+   called multiple times.  Finally, deprecated_readline_end_hook is
+   called to notify the GUI that we are done with the interaction
+   window and it can close it.  */
 
-void (*readline_begin_hook) (char *, ...);
-char *(*readline_hook) (char *);
-void (*readline_end_hook) (void);
+void (*deprecated_readline_begin_hook) (char *, ...);
+char *(*deprecated_readline_hook) (char *);
+void (*deprecated_readline_end_hook) (void);
 
 /* Called as appropriate to notify the interface of the specified breakpoint
    conditions.  */
 
-void (*create_breakpoint_hook) (struct breakpoint * bpt);
-void (*delete_breakpoint_hook) (struct breakpoint * bpt);
-void (*modify_breakpoint_hook) (struct breakpoint * bpt);
+void (*deprecated_create_breakpoint_hook) (struct breakpoint * bpt);
+void (*deprecated_delete_breakpoint_hook) (struct breakpoint * bpt);
+void (*deprecated_modify_breakpoint_hook) (struct breakpoint * bpt);
 
 /* Called as appropriate to notify the interface that we have attached
    to or detached from an already running process. */
 
-void (*attach_hook) (void);
-void (*detach_hook) (void);
+void (*deprecated_attach_hook) (void);
+void (*deprecated_detach_hook) (void);
 
 /* Called during long calculations to allow GUI to repair window damage, and to
    check for stop buttons, etc... */
 
-void (*interactive_hook) (void);
+void (*deprecated_interactive_hook) (void);
 
 /* Called when the registers have changed, as a hint to a GUI
    to minimize window update. */
 
-void (*registers_changed_hook) (void);
+void (*deprecated_registers_changed_hook) (void);
 
 /* Tell the GUI someone changed the register REGNO. -1 means
    that the caller does not know which register changed or
    that several registers have changed (see value_assign). */
-void (*register_changed_hook) (int regno);
+void (*deprecated_register_changed_hook) (int regno);
 
 /* Tell the GUI someone changed LEN bytes of memory at ADDR */
-void (*memory_changed_hook) (CORE_ADDR addr, int len);
+void (*deprecated_memory_changed_hook) (CORE_ADDR addr, int len);
 
 /* Called when going to wait for the target.  Usually allows the GUI to run
    while waiting for target events.  */
 
-ptid_t (*target_wait_hook) (ptid_t ptid,
-                            struct target_waitstatus * status);
+ptid_t (*deprecated_target_wait_hook) (ptid_t ptid,
+                                      struct target_waitstatus * status);
 
 /* Used by UI as a wrapper around command execution.  May do various things
    like enabling/disabling buttons, etc...  */
 
-void (*call_command_hook) (struct cmd_list_element * c, char *cmd,
-                          int from_tty);
+void (*deprecated_call_command_hook) (struct cmd_list_element * c, char *cmd,
+                                     int from_tty);
 
 /* Called after a `set' command has finished.  Is only run if the
    `set' command succeeded.  */
 
-void (*set_hook) (struct cmd_list_element * c);
+void (*deprecated_set_hook) (struct cmd_list_element * c);
 
 /* Called when the current thread changes.  Argument is thread id.  */
 
-void (*context_hook) (int id);
+void (*deprecated_context_hook) (int id);
 
 /* Takes control from error ().  Typically used to prevent longjmps out of the
    middle of the GUI.  Usually used in conjunction with a catch routine.  */
 
-NORETURN void (*error_hook) (void) ATTR_NORETURN;
+NORETURN void (*deprecated_error_hook) (void) ATTR_NORETURN;
 \f
 
 /* One should use catch_errors rather than manipulating these
@@ -378,6 +384,7 @@ catcher (catch_exceptions_ftype *func,
         int *func_val,
         enum return_reason *func_caught,
         char *errstring,
+        char **gdberrmsg,
         return_mask mask)
 {
   SIGJMP_BUF *saved_catch;
@@ -423,7 +430,14 @@ catcher (catch_exceptions_ftype *func,
   if (!caught)
     val = (*func) (func_uiout, func_args);
   else
-    val = 0;
+    {
+      val = 0;
+      /* If caller wants a copy of the low-level error message, make one.  
+         This is used in the case of a silent error whereby the caller
+         may optionally want to issue the message.  */
+      if (gdberrmsg)
+       *gdberrmsg = error_last_message ();
+    }
   catch_return = saved_catch;
 
   /* FIXME: cagney/1999-11-05: A correct FUNC implementation will
@@ -471,7 +485,25 @@ catch_exceptions (struct ui_out *uiout,
 {
   int val;
   enum return_reason caught;
-  catcher (func, uiout, func_args, &val, &caught, errstring, mask);
+  catcher (func, uiout, func_args, &val, &caught, errstring, NULL, mask);
+  gdb_assert (val >= 0);
+  gdb_assert (caught <= 0);
+  if (caught < 0)
+    return caught;
+  return val;
+}
+
+int
+catch_exceptions_with_msg (struct ui_out *uiout,
+                          catch_exceptions_ftype *func,
+                          void *func_args,
+                          char *errstring,
+                          char **gdberrmsg,
+                          return_mask mask)
+{
+  int val;
+  enum return_reason caught;
+  catcher (func, uiout, func_args, &val, &caught, errstring, gdberrmsg, mask);
   gdb_assert (val >= 0);
   gdb_assert (caught <= 0);
   if (caught < 0)
@@ -485,7 +517,7 @@ struct catch_errors_args
   void *func_args;
 };
 
-int
+static int
 do_catch_errors (struct ui_out *uiout, void *data)
 {
   struct catch_errors_args *args = data;
@@ -501,7 +533,8 @@ catch_errors (catch_errors_ftype *func, void *func_args, char *errstring,
   struct catch_errors_args args;
   args.func = func;
   args.func_args = func_args;
-  catcher (do_catch_errors, uiout, &args, &val, &caught, errstring, mask);
+  catcher (do_catch_errors, uiout, &args, &val, &caught, errstring, 
+          NULL, mask);
   if (caught != 0)
     return 0;
   return val;
@@ -635,8 +668,8 @@ do_chdir_cleanup (void *old_dir)
 void
 execute_command (char *p, int from_tty)
 {
-  register struct cmd_list_element *c;
-  register enum language flang;
+  struct cmd_list_element *c;
+  enum language flang;
   static int warned = 0;
   char *line;
   
@@ -664,10 +697,10 @@ execute_command (char *p, int from_tty)
       /* If the target is running, we allow only a limited set of
          commands. */
       if (event_loop_p && target_can_async_p () && target_executing)
-       if (!strcmp (c->name, "help")
-           && !strcmp (c->name, "pwd")
-           && !strcmp (c->name, "show")
-           && !strcmp (c->name, "stop"))
+       if (strcmp (c->name, "help") != 0
+           && strcmp (c->name, "pwd") != 0
+           && strcmp (c->name, "show") != 0
+           && strcmp (c->name, "stop") != 0)
          error ("Cannot execute this command while the target is running.");
 
       /* Pass null arg rather than an empty one.  */
@@ -705,8 +738,8 @@ execute_command (char *p, int from_tty)
        do_setshow_command (arg, from_tty & caution, c);
       else if (!cmd_func_p (c))
        error ("That is not a command, just a help topic.");
-      else if (call_command_hook)
-       call_command_hook (c, arg, from_tty & caution);
+      else if (deprecated_call_command_hook)
+       deprecated_call_command_hook (c, arg, from_tty & caution);
       else
        cmd_func (c, arg, from_tty & caution);
        
@@ -782,10 +815,8 @@ command_loop (void)
       if (display_space)
        {
 #ifdef HAVE_SBRK
-         extern char **environ;
          char *lim = (char *) sbrk (0);
-
-         space_at_cmd_start = (long) (lim - (char *) &environ);
+         space_at_cmd_start = lim - lim_at_start;
 #endif
        }
 
@@ -805,9 +836,8 @@ command_loop (void)
       if (display_space)
        {
 #ifdef HAVE_SBRK
-         extern char **environ;
          char *lim = (char *) sbrk (0);
-         long space_now = lim - (char *) &environ;
+         long space_now = lim - lim_at_start;
          long space_diff = space_now - space_at_cmd_start;
 
          printf_unfiltered ("Space used: %ld (%c%ld for this command)\n",
@@ -1059,7 +1089,7 @@ static int operate_saved_history = -1;
 
 /* This is put on the appropriate hook and helps operate-and-get-next
    do its work.  */
-void
+static void
 gdb_rl_operate_and_get_next_completion (void)
 {
   int delta = where_history () - operate_saved_history;
@@ -1133,7 +1163,7 @@ command_line_input (char *prompt_arg, int repeat, char *annotation_suffix)
 {
   static char *linebuffer = 0;
   static unsigned linelength = 0;
-  register char *p;
+  char *p;
   char *p1;
   char *rl;
   char *local_prompt = prompt_arg;
@@ -1199,15 +1229,15 @@ command_line_input (char *prompt_arg, int repeat, char *annotation_suffix)
 
       if (annotation_level > 1 && instream == stdin)
        {
-         printf_unfiltered ("\n\032\032pre-");
-         printf_unfiltered (annotation_suffix);
-         printf_unfiltered ("\n");
+         puts_unfiltered ("\n\032\032pre-");
+         puts_unfiltered (annotation_suffix);
+         puts_unfiltered ("\n");
        }
 
       /* Don't use fancy stuff if not talking to stdin.  */
-      if (readline_hook && instream == NULL)
+      if (deprecated_readline_hook && instream == NULL)
        {
-         rl = (*readline_hook) (local_prompt);
+         rl = (*deprecated_readline_hook) (local_prompt);
        }
       else if (command_editing_p && instream == stdin && ISATTY (instream))
        {
@@ -1220,9 +1250,9 @@ command_line_input (char *prompt_arg, int repeat, char *annotation_suffix)
 
       if (annotation_level > 1 && instream == stdin)
        {
-         printf_unfiltered ("\n\032\032post-");
-         printf_unfiltered (annotation_suffix);
-         printf_unfiltered ("\n");
+         puts_unfiltered ("\n\032\032post-");
+         puts_unfiltered (annotation_suffix);
+         puts_unfiltered ("\n");
        }
 
       if (!rl || rl == (char *) EOF)
@@ -1264,7 +1294,7 @@ command_line_input (char *prompt_arg, int repeat, char *annotation_suffix)
 #define SERVER_COMMAND_LENGTH 7
   server_command =
     (p - linebuffer > SERVER_COMMAND_LENGTH)
-    && STREQN (linebuffer, "server ", SERVER_COMMAND_LENGTH);
+    && strncmp (linebuffer, "server ", SERVER_COMMAND_LENGTH) == 0;
   if (server_command)
     {
       /* Note that we don't set `line'.  Between this and the check in
@@ -1357,7 +1387,7 @@ print_gdb_version (struct ui_file *stream)
 
   /* Second line is a copyright notice. */
 
-  fprintf_filtered (stream, "Copyright 2002 Free Software Foundation, Inc.\n");
+  fprintf_filtered (stream, "Copyright 2004 Free Software Foundation, Inc.\n");
 
   /* Following the copyright is a brief statement that the program is
      free software, that users are free to copy and change it on
@@ -1373,7 +1403,7 @@ There is absolutely no warranty for GDB.  Type \"show warranty\" for details.\n"
   /* After the required info we print the configuration information. */
 
   fprintf_filtered (stream, "This GDB was configured as \"");
-  if (!STREQ (host_name, target_name))
+  if (strcmp (host_name, target_name) != 0)
     {
       fprintf_filtered (stream, "--host=%s --target=%s", host_name, target_name);
     }
@@ -1386,267 +1416,13 @@ There is absolutely no warranty for GDB.  Type \"show warranty\" for details.\n"
 \f
 /* get_prompt: access method for the GDB prompt string.  */
 
-#define MAX_PROMPT_SIZE 256
-
-/*
- * int get_prompt_1 (char * buf);
- *
- * Work-horse for get_prompt (called via catch_errors).
- * Argument is buffer to hold the formatted prompt.
- *
- * Returns: 1 for success (use formatted prompt)
- *          0 for failure (use gdb_prompt_string).
- */
-
-static int gdb_prompt_escape;
-
-static int
-get_prompt_1 (void *data)
-{
-  char *formatted_prompt = data;
-  char *local_prompt;
-
-  if (event_loop_p)
-    local_prompt = PROMPT (0);
-  else
-    local_prompt = gdb_prompt_string;
-
-
-  if (gdb_prompt_escape == 0)
-    {
-      return 0;                        /* do no formatting */
-    }
-  else
-    /* formatted prompt */
-    {
-      char fmt[40], *promptp, *outp, *tmp;
-      struct value *arg_val;
-      DOUBLEST doubleval;
-      LONGEST longval;
-      CORE_ADDR addrval;
-
-      int i, len;
-      struct type *arg_type, *elt_type;
-
-      promptp = local_prompt;
-      outp = formatted_prompt;
-
-      while (*promptp != '\0')
-       {
-         int available = MAX_PROMPT_SIZE - (outp - formatted_prompt) - 1;
-
-         if (*promptp != gdb_prompt_escape)
-           {
-             if (available >= 1)       /* overflow protect */
-               *outp++ = *promptp++;
-           }
-         else
-           {
-             /* GDB prompt string contains escape char.  Parse for arg.
-                Two consecutive escape chars followed by arg followed by
-                a comma means to insert the arg using a default format.
-                Otherwise a printf format string may be included between
-                the two escape chars.  eg:
-                %%foo, insert foo using default format
-                %2.2f%foo,     insert foo using "%2.2f" format
-                A mismatch between the format string and the data type
-                of "foo" is an error (which we don't know how to protect
-                against).  */
-
-             fmt[0] = '\0';    /* assume null format string */
-             if (promptp[1] == gdb_prompt_escape)      /* double esc char */
-               {
-                 promptp += 2; /* skip past two escape chars. */
-               }
-             else
-               {
-                 /* extract format string from between two esc chars */
-                 i = 0;
-                 do
-                   {
-                     fmt[i++] = *promptp++;    /* copy format string */
-                   }
-                 while (i < sizeof (fmt) - 1 &&
-                        *promptp != gdb_prompt_escape &&
-                        *promptp != '\0');
-
-                 if (*promptp != gdb_prompt_escape)
-                   error ("Syntax error at prompt position %d",
-                          (int) (promptp - local_prompt));
-                 else
-                   {
-                     promptp++;        /* skip second escape char */
-                     fmt[i++] = '\0';  /* terminate the format string */
-                   }
-               }
-
-             arg_val = parse_to_comma_and_eval (&promptp);
-             if (*promptp == ',')
-               promptp++;      /* skip past the comma */
-             arg_type = check_typedef (VALUE_TYPE (arg_val));
-             switch (TYPE_CODE (arg_type))
-               {
-               case TYPE_CODE_ARRAY:
-                 elt_type = check_typedef (TYPE_TARGET_TYPE (arg_type));
-                 if (TYPE_LENGTH (arg_type) > 0 &&
-                     TYPE_LENGTH (elt_type) == 1 &&
-                     TYPE_CODE (elt_type) == TYPE_CODE_INT)
-                   {
-                     int len = TYPE_LENGTH (arg_type);
-
-                     if (VALUE_LAZY (arg_val))
-                       value_fetch_lazy (arg_val);
-                     tmp = VALUE_CONTENTS (arg_val);
-
-                     if (len > available)
-                       len = available;        /* overflow protect */
-
-                     /* FIXME: how to protect GDB from crashing
-                        from bad user-supplied format string? */
-                     if (fmt[0] != 0)
-                       sprintf (outp, fmt, tmp);
-                     else
-                       strncpy (outp, tmp, len);
-                     outp[len] = '\0';
-                   }
-                 break;
-               case TYPE_CODE_PTR:
-                 elt_type = check_typedef (TYPE_TARGET_TYPE (arg_type));
-                 addrval = value_as_address (arg_val);
-
-                 if (TYPE_LENGTH (elt_type) == 1 &&
-                     TYPE_CODE (elt_type) == TYPE_CODE_INT &&
-                     addrval != 0)
-                   {
-                     /* display it as a string */
-                     char *default_fmt = "%s";
-                     char *tmp;
-                     int err = 0;
-
-                     /* Limiting the number of bytes that the following call
-                        will read protects us from sprintf overflow later. */
-                     i = target_read_string (addrval,  /* src */
-                                             &tmp,     /* dest */
-                                             available,        /* len */
-                                             &err);
-                     if (err)  /* read failed */
-                       error ("%s on target_read", safe_strerror (err));
-
-                     tmp[i] = '\0';    /* force-terminate string */
-                     /* FIXME: how to protect GDB from crashing
-                        from bad user-supplied format string? */
-                     sprintf (outp, fmt[0] == 0 ? default_fmt : fmt,
-                              tmp);
-                     xfree (tmp);
-                   }
-                 else
-                   {
-                     /* display it as a pointer */
-                     char *default_fmt = "0x%x";
-
-                     /* FIXME: how to protect GDB from crashing
-                        from bad user-supplied format string? */
-                     if (available >= 16 /*? */ )      /* overflow protect */
-                       sprintf (outp, fmt[0] == 0 ? default_fmt : fmt,
-                                (long) addrval);
-                   }
-                 break;
-               case TYPE_CODE_FLT:
-                 {
-                   char *default_fmt = "%g";
-
-                   doubleval = value_as_double (arg_val);
-                   /* FIXME: how to protect GDB from crashing
-                      from bad user-supplied format string? */
-                   if (available >= 16 /*? */ )        /* overflow protect */
-                     sprintf (outp, fmt[0] == 0 ? default_fmt : fmt,
-                              (double) doubleval);
-                   break;
-                 }
-               case TYPE_CODE_INT:
-                 {
-                   char *default_fmt = "%d";
-
-                   longval = value_as_long (arg_val);
-                   /* FIXME: how to protect GDB from crashing
-                      from bad user-supplied format string? */
-                   if (available >= 16 /*? */ )        /* overflow protect */
-                     sprintf (outp, fmt[0] == 0 ? default_fmt : fmt,
-                              (long) longval);
-                   break;
-                 }
-               case TYPE_CODE_BOOL:
-                 {
-                   /* no default format for bool */
-                   longval = value_as_long (arg_val);
-                   if (available >= 8 /*? */ )         /* overflow protect */
-                     {
-                       if (longval)
-                         strcpy (outp, "<true>");
-                       else
-                         strcpy (outp, "<false>");
-                     }
-                   break;
-                 }
-               case TYPE_CODE_ENUM:
-                 {
-                   /* no default format for enum */
-                   longval = value_as_long (arg_val);
-                   len = TYPE_NFIELDS (arg_type);
-                   /* find enum name if possible */
-                   for (i = 0; i < len; i++)
-                     if (TYPE_FIELD_BITPOS (arg_type, i) == longval)
-                       break;  /* match -- end loop */
-
-                   if (i < len)        /* enum name found */
-                     {
-                       char *name = TYPE_FIELD_NAME (arg_type, i);
-
-                       strncpy (outp, name, available);
-                       /* in casel available < strlen (name), */
-                       outp[available] = '\0';
-                     }
-                   else
-                     {
-                       if (available >= 16 /*? */ )    /* overflow protect */
-                         sprintf (outp, "%ld", (long) longval);
-                     }
-                   break;
-                 }
-               case TYPE_CODE_VOID:
-                 *outp = '\0';
-                 break;        /* void type -- no output */
-               default:
-                 error ("bad data type at prompt position %d",
-                        (int) (promptp - local_prompt));
-                 break;
-               }
-             outp += strlen (outp);
-           }
-       }
-      *outp++ = '\0';          /* terminate prompt string */
-      return 1;
-    }
-}
-
 char *
 get_prompt (void)
 {
-  static char buf[MAX_PROMPT_SIZE];
-
-  if (catch_errors (get_prompt_1, buf, "bad formatted prompt: ",
-                   RETURN_MASK_ALL))
-    {
-      return &buf[0];          /* successful formatted prompt */
-    }
+  if (event_loop_p)
+    return PROMPT (0);
   else
-    {
-      /* Prompt could not be formatted.  */
-      if (event_loop_p)
-       return PROMPT (0);
-      else
-       return gdb_prompt_string;
-    }
+    return gdb_prompt_string;
 }
 
 void
@@ -1677,46 +1453,43 @@ quit_confirm (void)
       /* This is something of a hack.  But there's no reliable way to
          see if a GUI is running.  The `use_windows' variable doesn't
          cut it.  */
-      if (init_ui_hook)
+      if (deprecated_init_ui_hook)
        s = "A debugging session is active.\nDo you still want to close the debugger?";
       else if (attach_flag)
        s = "The program is running.  Quit anyway (and detach it)? ";
       else
        s = "The program is running.  Exit anyway? ";
 
-      if (!query (s))
+      if (!query ("%s", s))
        return 0;
     }
 
   return 1;
 }
 
-/* Quit without asking for confirmation.  */
+/* Helper routine for quit_force that requires error handling.  */
 
-void
-quit_force (char *args, int from_tty)
+struct qt_args
 {
-  int exit_code = 0;
-
-  /* An optional expression may be used to cause gdb to terminate with the 
-     value of that expression. */
-  if (args)
-    {
-      struct value *val = parse_and_eval (args);
+  char *args;
+  int from_tty;
+};
 
-      exit_code = (int) value_as_long (val);
-    }
+static int
+quit_target (void *arg)
+{
+  struct qt_args *qt = (struct qt_args *)arg;
 
   if (! ptid_equal (inferior_ptid, null_ptid) && target_has_execution)
     {
       if (attach_flag)
-       target_detach (args, from_tty);
+        target_detach (qt->args, qt->from_tty);
       else
-       target_kill ();
+        target_kill ();
     }
 
   /* UDI wants this, to kill the TIP.  */
-  target_close (1);
+  target_close (&current_target, 1);
 
   /* Save the history information if it is appropriate to do so.  */
   if (write_history_p && history_filename)
@@ -1724,6 +1497,33 @@ quit_force (char *args, int from_tty)
 
   do_final_cleanups (ALL_CLEANUPS);    /* Do any final cleanups before exiting */
 
+  return 0;
+}
+
+/* Quit without asking for confirmation.  */
+
+void
+quit_force (char *args, int from_tty)
+{
+  int exit_code = 0;
+  struct qt_args qt;
+
+  /* An optional expression may be used to cause gdb to terminate with the 
+     value of that expression. */
+  if (args)
+    {
+      struct value *val = parse_and_eval (args);
+
+      exit_code = (int) value_as_long (val);
+    }
+
+  qt.args = args;
+  qt.from_tty = from_tty;
+
+  /* We want to handle any quit errors and exit regardless.  */
+  catch_errors (quit_target, &qt,
+               "Quitting: ", RETURN_MASK_ALL);
+
   exit (exit_code);
 }
 
@@ -1736,7 +1536,6 @@ input_from_terminal_p (void)
   return gdb_has_a_terminal () && (instream == stdin) & caution;
 }
 \f
-/* ARGSUSED */
 static void
 dont_repeat_command (char *ignored, int from_tty)
 {
@@ -1822,7 +1621,6 @@ show_commands (char *args, int from_tty)
 }
 
 /* Called by do_setshow_command.  */
-/* ARGSUSED */
 static void
 set_history_size_command (char *args, int from_tty, struct cmd_list_element *c)
 {
@@ -1837,7 +1635,6 @@ set_history_size_command (char *args, int from_tty, struct cmd_list_element *c)
     }
 }
 
-/* ARGSUSED */
 void
 set_history (char *args, int from_tty)
 {
@@ -1845,7 +1642,6 @@ set_history (char *args, int from_tty)
   help_list (sethistlist, "set history ", -1, gdb_stdout);
 }
 
-/* ARGSUSED */
 void
 show_history (char *args, int from_tty)
 {
@@ -1855,7 +1651,6 @@ show_history (char *args, int from_tty)
 int info_verbose = 0;          /* Default verbose msgs off */
 
 /* Called by do_setshow_command.  An elaborate joke.  */
-/* ARGSUSED */
 void
 set_verbose (char *args, int from_tty, struct cmd_list_element *c)
 {
@@ -1944,7 +1739,6 @@ init_main (void)
       if (annotation_level > 1)
         set_async_annotation_level (NULL, 0, NULL);
     }
-  gdb_prompt_escape = 0;       /* default to none.  */
 
   /* Set the important stuff up for command editing.  */
   command_editing_p = 1;
@@ -1953,8 +1747,7 @@ init_main (void)
 
   /* Setup important stuff for command line editing.  */
   rl_completion_entry_function = readline_line_completion_function;
-  rl_completer_word_break_characters =
-                                get_gdb_completer_word_break_characters ();
+  rl_completer_word_break_characters = default_word_break_characters ();
   rl_completer_quote_characters = get_gdb_completer_quote_characters ();
   rl_readline_name = "gdb";
   rl_terminal_name = getenv ("TERM");
@@ -1969,7 +1762,7 @@ init_main (void)
      gdb. */
   if (!event_loop_p)
     {
-      add_show_from_set
+      deprecated_add_show_from_set
        (add_set_cmd ("prompt", class_support, var_string,
                      (char *) &gdb_prompt_string, "Set gdb's prompt",
                      &setlist),
@@ -1980,17 +1773,10 @@ init_main (void)
       c = add_set_cmd ("prompt", class_support, var_string,
                       (char *) &new_async_prompt, "Set gdb's prompt",
                       &setlist);
-      add_show_from_set (c, &showlist);
+      deprecated_add_show_from_set (c, &showlist);
       set_cmd_sfunc (c, set_async_prompt);
     }
 
-  add_show_from_set
-    (add_set_cmd ("prompt-escape-char", class_support, var_zinteger,
-                 (char *) &gdb_prompt_escape,
-                 "Set escape character for formatting of gdb's prompt",
-                 &setlist),
-     &showlist);
-
   add_com ("dont-repeat", class_support, dont_repeat_command, "Don't repeat this command.\n\
 Primarily used inside of user-defined commands that should not be repeated when\n\
 hitting return.");
@@ -2000,7 +1786,7 @@ hitting return.");
      as we make the event loop be the default engine of gdb. */
   if (!event_loop_p)
     {
-      add_show_from_set
+      deprecated_add_show_from_set
        (add_set_cmd ("editing", class_support, var_boolean, (char *) &command_editing_p,
                      "Set editing of command lines as they are typed.\n\
 Use \"on\" to enable the editing, and \"off\" to disable it.\n\
@@ -2016,11 +1802,11 @@ Use \"on\" to enable the editing, and \"off\" to disable it.\n\
 Without an argument, command line editing is enabled.  To edit, use\n\
 EMACS-like or VI-like commands like control-P or ESC.", &setlist);
 
-      add_show_from_set (c, &showlist);
+      deprecated_add_show_from_set (c, &showlist);
       set_cmd_sfunc (c, set_async_editing_command);
     }
 
-  add_show_from_set
+  deprecated_add_show_from_set
     (add_set_cmd ("save", no_class, var_boolean, (char *) &write_history_p,
                  "Set saving of the history record on exit.\n\
 Use \"on\" to enable the saving, and \"off\" to disable it.\n\
@@ -2030,7 +1816,7 @@ Without an argument, saving is enabled.", &sethistlist),
   c = add_set_cmd ("size", no_class, var_integer, (char *) &history_size,
                   "Set the size of the command history,\n\
 ie. the number of previous commands to keep a record of.", &sethistlist);
-  add_show_from_set (c, &showhistlist);
+  deprecated_add_show_from_set (c, &showhistlist);
   set_cmd_sfunc (c, set_history_size_command);
 
   c = add_set_cmd ("filename", no_class, var_filename,
@@ -2038,9 +1824,9 @@ ie. the number of previous commands to keep a record of.", &sethistlist);
                   "Set the filename in which to record the command history\n\
 (the list of previous commands of which a record is kept).", &sethistlist);
   set_cmd_completer (c, filename_completer);
-  add_show_from_set (c, &showhistlist);
+  deprecated_add_show_from_set (c, &showhistlist);
 
-  add_show_from_set
+  deprecated_add_show_from_set
     (add_set_cmd ("confirm", class_support, var_boolean,
                  (char *) &caution,
                  "Set whether to confirm potentially dangerous operations.",
@@ -2058,7 +1844,7 @@ ie. the number of previous commands to keep a record of.", &sethistlist);
 0 == normal;     1 == fullname (for use when running under emacs)\n\
 2 == output annotated suitably for use by programs that control GDB.",
                       &setlist);
-      c = add_show_from_set (c, &showlist);
+      c = deprecated_add_show_from_set (c, &showlist);
     }
   else
     {
@@ -2067,12 +1853,12 @@ ie. the number of previous commands to keep a record of.", &sethistlist);
 0 == normal;     1 == fullname (for use when running under emacs)\n\
 2 == output annotated suitably for use by programs that control GDB.",
                       &setlist);
-      add_show_from_set (c, &showlist);
+      deprecated_add_show_from_set (c, &showlist);
       set_cmd_sfunc (c, set_async_annotation_level);
     }
   if (event_loop_p)
     {
-      add_show_from_set
+      deprecated_add_show_from_set
        (add_set_cmd ("exec-done-display", class_support, var_boolean, (char *) &exec_done_display_p,
                      "Set notification of completion for asynchronous execution commands.\n\
 Use \"on\" to enable the notification, and \"off\" to disable it.", &setlist),
@@ -2120,23 +1906,9 @@ gdb_init (char *argv0)
   set_language (language_c);
   expected_language = current_language;                /* don't warn about the change.  */
 
-  /* Allow another UI to initialize. If the UI fails to initialize, and
-     it wants GDB to revert to the CLI, it should clear init_ui_hook. */
-  if (init_ui_hook)
-    init_ui_hook (argv0);
-
-  /* Install the default UI */
-  if (!init_ui_hook)
-    {
-      uiout = cli_out_new (gdb_stdout);
-
-      /* All the interpreters should have had a look at things by now.
-        Initialize the selected interpreter. */
-      if (interpreter_p)
-       {
-         fprintf_unfiltered (gdb_stderr, "Interpreter `%s' unrecognized.\n",
-                             interpreter_p);
-         exit (1);
-       }
-    }
+  /* Allow another UI to initialize. If the UI fails to initialize,
+     and it wants GDB to revert to the CLI, it should clear
+     deprecated_init_ui_hook.  */
+  if (deprecated_init_ui_hook)
+    deprecated_init_ui_hook (argv0);
 }