1 /* TUI Interpreter definitions for GDB, the GNU debugger.
3 Copyright 2003 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., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
25 #include "event-top.h"
26 #include "event-loop.h"
28 #include "tui/tuiData.h"
29 #include "readline/readline.h"
30 #include "tui/tuiWin.h"
32 #include "tui/tuiIO.h"
34 /* Cleanup the tui before exiting. */
39 /* Disable the tui. Curses mode is left leaving the screen
40 in a clean state (see endwin()). */
44 /* These implement the TUI interpreter. */
49 /* Install exit handler to leave the screen in a good shape. */
52 initializeStaticData ();
55 tui_initialize_readline ();
61 tui_resume (void *data
)
63 gdb_setup_readline ();
69 tui_suspend (void *data
)
75 /* Display the prompt if we are silent. */
78 tui_display_prompt_p (void *data
)
80 if (interp_quiet_p (NULL
))
87 tui_exec (void *data
, const char *command_str
)
89 internal_error (__FILE__
, __LINE__
, "tui_exec called");
93 /* Initialize all the necessary variables, start the event loop,
94 register readline, and stdin, start the loop. */
97 tui_command_loop (void *data
)
101 char *gdb_prompt
= get_prompt ();
103 /* If we are using readline, set things up and display the first
104 prompt, otherwise just print the prompt. */
105 if (async_command_editing_p
)
107 /* Tell readline what the prompt to display is and what function
108 it will need to call after a whole line is read. This also
109 displays the first prompt. */
110 length
= strlen (PREFIX (0)) + strlen (gdb_prompt
) + strlen (SUFFIX (0)) + 1;
111 a_prompt
= (char *) xmalloc (length
);
112 strcpy (a_prompt
, PREFIX (0));
113 strcat (a_prompt
, gdb_prompt
);
114 strcat (a_prompt
, SUFFIX (0));
115 rl_callback_handler_install (a_prompt
, input_handler
);
118 display_gdb_prompt (0);
120 /* Loop until there is nothing to do. This is the entry point to the
121 event loop engine. gdb_do_one_event, called via catch_errors()
122 will process one event for each invocation. It blocks waits for
123 an event and then processes it. >0 when an event is processed, 0
124 when catch_errors() caught an error and <0 when there are no
125 longer any event sources registered. */
128 int result
= catch_errors (gdb_do_one_event
, 0, "", RETURN_MASK_ALL
);
132 /* Update gdb output according to TUI mode. Since catch_errors
133 preserves the uiout from changing, this must be done at top
134 level of event loop. */
138 uiout
= tui_old_uiout
;
142 /* FIXME: this should really be a call to a hook that is
143 interface specific, because interfaces can display the
144 prompt in their own way. */
145 display_gdb_prompt (0);
146 /* This call looks bizarre, but it is required. If the user
147 entered a command that caused an error,
148 after_char_processing_hook won't be called from
149 rl_callback_read_char_wrapper. Using a cleanup there
150 won't work, since we want this function to be called
151 after a new prompt is printed. */
152 if (after_char_processing_hook
)
153 (*after_char_processing_hook
) ();
154 /* Maybe better to set a flag to be checked somewhere as to
155 whether display the prompt or not. */
159 /* We are done with the event loop. There are no more event sources
160 to listen to. So we exit GDB. */
165 _initialize_tui_interp (void)
167 static const struct interp_procs procs
= {
172 tui_display_prompt_p
,
175 struct interp
*tui_interp
;
177 /* Create a default uiout builder for the TUI. */
178 tui_out
= tui_out_new (gdb_stdout
);
179 interp_add (interp_new ("tui", NULL
, tui_out
, &procs
));