contrib/gdb/gdb/cli/cli-interp.c

   1 /* CLI Definitions for GDB, the GNU debugger.
   2
   3    Copyright 2002, 2003 Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 59 Temple Place - Suite 330,
  20    Boston, MA 02111-1307, USA.  */
  21
  22 #include "defs.h"
  23 #include "interps.h"
  24 #include "wrapper.h"
  25 #include "event-top.h"
  26 #include "ui-out.h"
  27 #include "cli-out.h"
  28 #include "top.h"                /* for "execute_command" */
  29 #include "gdb_string.h"
  30
  31 struct ui_out *cli_uiout;
  32
  33 /* These are the ui_out and the interpreter for the console interpreter. */
  34
  35 /* Longjmp-safe wrapper for "execute_command" */
  36 static int do_captured_execute_command (struct ui_out *uiout, void *data);
  37 static enum gdb_rc safe_execute_command (struct ui_out *uiout, char *command,
  38                                          int from_tty);
  39 struct captured_execute_command_args
  40 {
  41   char *command;
  42   int from_tty;
  43 };
  44
  45 /* These implement the cli out interpreter: */
  46
  47 static void *
  48 cli_interpreter_init (void)
  49 {
  50   return NULL;
  51 }
  52
  53 static int
  54 cli_interpreter_resume (void *data)
  55 {
  56   struct ui_file *stream;
  57
  58   /*sync_execution = 1; */
  59
  60   /* gdb_setup_readline will change gdb_stdout.  If the CLI was previously
  61      writing to gdb_stdout, then set it to the new gdb_stdout afterwards.  */
  62
  63   stream = cli_out_set_stream (cli_uiout, gdb_stdout);
  64   if (stream != gdb_stdout)
  65     {
  66       cli_out_set_stream (cli_uiout, stream);
  67       stream = NULL;
  68     }
  69
  70   gdb_setup_readline ();
  71
  72   if (stream != NULL)
  73     cli_out_set_stream (cli_uiout, gdb_stdout);
  74
  75   return 1;
  76 }
  77
  78 static int
  79 cli_interpreter_suspend (void *data)
  80 {
  81   gdb_disable_readline ();
  82   return 1;
  83 }
  84
  85 /* Don't display the prompt if we are set quiet.  */
  86 static int
  87 cli_interpreter_display_prompt_p (void *data)
  88 {
  89   if (interp_quiet_p (NULL))
  90     return 0;
  91   else
  92     return 1;
  93 }
  94
  95 static int
  96 cli_interpreter_exec (void *data, const char *command_str)
  97 {
  98   int result;
  99   struct ui_file *old_stream;
 100
 101   /* FIXME: cagney/2003-02-01: Need to const char *propogate
 102      safe_execute_command.  */
 103   char *str = strcpy (alloca (strlen (command_str) + 1), command_str);
 104
 105   /* gdb_stdout could change between the time cli_uiout was initialized
 106      and now. Since we're probably using a different interpreter which has
 107      a new ui_file for gdb_stdout, use that one instead of the default.
 108
 109      It is important that it gets reset everytime, since the user could
 110      set gdb to use a different interpreter. */
 111   old_stream = cli_out_set_stream (cli_uiout, gdb_stdout);
 112   result = safe_execute_command (cli_uiout, str, 1);
 113   cli_out_set_stream (cli_uiout, old_stream);
 114   return result;
 115 }
 116
 117 static int
 118 do_captured_execute_command (struct ui_out *uiout, void *data)
 119 {
 120   struct captured_execute_command_args *args =
 121     (struct captured_execute_command_args *) data;
 122   execute_command (args->command, args->from_tty);
 123   return GDB_RC_OK;
 124 }
 125
 126 static enum gdb_rc
 127 safe_execute_command (struct ui_out *uiout, char *command, int from_tty)
 128 {
 129   struct captured_execute_command_args args;
 130   args.command = command;
 131   args.from_tty = from_tty;
 132   return catch_exceptions (uiout, do_captured_execute_command, &args,
 133                            NULL, RETURN_MASK_ALL);
 134 }
 135
 136
 137 /* standard gdb initialization hook */
 138 extern initialize_file_ftype _initialize_cli_interp; /* -Wmissing-prototypes */
 139
 140 void
 141 _initialize_cli_interp (void)
 142 {
 143   static const struct interp_procs procs = {
 144     cli_interpreter_init,       /* init_proc */
 145     cli_interpreter_resume,     /* resume_proc */
 146     cli_interpreter_suspend,    /* suspend_proc */
 147     cli_interpreter_exec,       /* exec_proc */
 148     cli_interpreter_display_prompt_p    /* prompt_proc_p */
 149   };
 150   struct interp *cli_interp;
 151
 152   /* Create a default uiout builder for the CLI. */
 153   cli_uiout = cli_out_new (gdb_stdout);
 154   cli_interp = interp_new (INTERP_CONSOLE, NULL, cli_uiout, &procs);
 155
 156   interp_add (cli_interp);
 157 }