1 /* TUI Interpreter definitions for GDB, the GNU debugger.
3 Copyright (C) 2003, 2007 Free Software Foundation, Inc.
5 This file is part of GDB.
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.
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.
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., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
25 #include "event-top.h"
26 #include "event-loop.h"
29 #include "tui/tui-data.h"
30 #include "readline/readline.h"
31 #include "tui/tui-win.h"
33 #include "tui/tui-io.h"
34 #include "exceptions.h"
36 /* Set to 1 when the TUI mode must be activated when we first start
38 static int tui_start_enabled = 0;
40 /* Cleanup the tui before exiting. */
45 /* Disable the tui. Curses mode is left leaving the screen in a
46 clean state (see endwin()). */
50 /* These implement the TUI interpreter. */
55 /* Install exit handler to leave the screen in a good shape. */
58 tui_initialize_static_data ();
61 tui_initialize_readline ();
67 tui_resume (void *data)
69 struct ui_file *stream;
71 /* gdb_setup_readline will change gdb_stdout. If the TUI was
72 previously writing to gdb_stdout, then set it to the new
73 gdb_stdout afterwards. */
75 stream = cli_out_set_stream (tui_old_uiout, gdb_stdout);
76 if (stream != gdb_stdout)
78 cli_out_set_stream (tui_old_uiout, stream);
82 gdb_setup_readline ();
85 cli_out_set_stream (tui_old_uiout, gdb_stdout);
87 if (tui_start_enabled)
93 tui_suspend (void *data)
95 tui_start_enabled = tui_active;
100 /* Display the prompt if we are silent. */
103 tui_display_prompt_p (void *data)
105 if (interp_quiet_p (NULL))
111 static struct gdb_exception
112 tui_exec (void *data, const char *command_str)
114 internal_error (__FILE__, __LINE__, _("tui_exec called"));
118 /* Initialize all the necessary variables, start the event loop,
119 register readline, and stdin, start the loop. */
122 tui_command_loop (void *data)
124 /* If we are using readline, set things up and display the first
125 prompt, otherwise just print the prompt. */
126 if (async_command_editing_p)
130 char *gdb_prompt = get_prompt ();
132 /* Tell readline what the prompt to display is and what function
133 it will need to call after a whole line is read. This also
134 displays the first prompt. */
135 length = strlen (PREFIX (0))
136 + strlen (gdb_prompt) + strlen (SUFFIX (0)) + 1;
137 a_prompt = (char *) alloca (length);
138 strcpy (a_prompt, PREFIX (0));
139 strcat (a_prompt, gdb_prompt);
140 strcat (a_prompt, SUFFIX (0));
141 rl_callback_handler_install (a_prompt, input_handler);
144 display_gdb_prompt (0);
146 /* Loop until there is nothing to do. This is the entry point to the
147 event loop engine. gdb_do_one_event, called via catch_errors()
148 will process one event for each invocation. It blocks waits for
149 an event and then processes it. >0 when an event is processed, 0
150 when catch_errors() caught an error and <0 when there are no
151 longer any event sources registered. */
154 int result = catch_errors (gdb_do_one_event, 0, "", RETURN_MASK_ALL);
158 /* Update gdb output according to TUI mode. Since catch_errors
159 preserves the uiout from changing, this must be done at top
160 level of event loop. */
164 uiout = tui_old_uiout;
168 /* FIXME: this should really be a call to a hook that is
169 interface specific, because interfaces can display the
170 prompt in their own way. */
171 display_gdb_prompt (0);
172 /* This call looks bizarre, but it is required. If the user
173 entered a command that caused an error,
174 after_char_processing_hook won't be called from
175 rl_callback_read_char_wrapper. Using a cleanup there
176 won't work, since we want this function to be called
177 after a new prompt is printed. */
178 if (after_char_processing_hook)
179 (*after_char_processing_hook) ();
180 /* Maybe better to set a flag to be checked somewhere as to
181 whether display the prompt or not. */
185 /* We are done with the event loop. There are no more event sources
186 to listen to. So we exit GDB. */
191 _initialize_tui_interp (void)
193 static const struct interp_procs procs = {
198 tui_display_prompt_p,
201 struct interp *tui_interp;
203 /* Create a default uiout builder for the TUI. */
204 tui_out = tui_out_new (gdb_stdout);
205 interp_add (interp_new (INTERP_TUI, NULL, tui_out, &procs));
206 if (interpreter_p && strcmp (interpreter_p, INTERP_TUI) == 0)
207 tui_start_enabled = 1;
209 if (interpreter_p && strcmp (interpreter_p, INTERP_CONSOLE) == 0)
211 xfree (interpreter_p);
212 interpreter_p = xstrdup (INTERP_TUI);