Upgrade GDB from 7.4.1 to 7.6.1 on the vendor branch
[dragonfly.git] / contrib / gdb-7 / gdb / tui / tui-interp.c
CommitLineData
5796c8dc
SS
1/* TUI Interpreter definitions for GDB, the GNU debugger.
2
ef5ccd6c 3 Copyright (C) 2003-2013 Free Software Foundation, Inc.
5796c8dc
SS
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 3 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, see <http://www.gnu.org/licenses/>. */
19
20#include "defs.h"
21#include "interps.h"
22#include "top.h"
23#include "event-top.h"
24#include "event-loop.h"
25#include "ui-out.h"
26#include "cli-out.h"
27#include "tui/tui-data.h"
28#include "readline/readline.h"
29#include "tui/tui-win.h"
30#include "tui/tui.h"
31#include "tui/tui-io.h"
32#include "exceptions.h"
33
34/* Set to 1 when the TUI mode must be activated when we first start
35 gdb. */
36static int tui_start_enabled = 0;
37
38/* Cleanup the tui before exiting. */
39
40static void
41tui_exit (void)
42{
43 /* Disable the tui. Curses mode is left leaving the screen in a
44 clean state (see endwin()). */
45 tui_disable ();
46}
47
cf7f2e2d
JM
48/* True if TUI is the top-level interpreter. */
49static int tui_is_toplevel = 0;
50
5796c8dc
SS
51/* These implement the TUI interpreter. */
52
53static void *
a45ae5f8 54tui_init (struct interp *self, int top_level)
5796c8dc 55{
cf7f2e2d
JM
56 tui_is_toplevel = top_level;
57
5796c8dc
SS
58 /* Install exit handler to leave the screen in a good shape. */
59 atexit (tui_exit);
60
61 tui_initialize_static_data ();
62
63 tui_initialize_io ();
64 tui_initialize_win ();
cf7f2e2d
JM
65 if (ui_file_isatty (gdb_stdout))
66 tui_initialize_readline ();
5796c8dc
SS
67
68 return NULL;
69}
70
cf7f2e2d
JM
71/* True if enabling the TUI is allowed. Example, if the top level
72 interpreter is MI, enabling curses will certainly lose. */
73
74int
75tui_allowed_p (void)
76{
77 /* Only if TUI is the top level interpreter. Also don't try to
78 setup curses (and print funny control characters) if we're not
79 outputting to a terminal. */
80 return tui_is_toplevel && ui_file_isatty (gdb_stdout);
81}
82
5796c8dc
SS
83static int
84tui_resume (void *data)
85{
86 struct ui_file *stream;
87
88 /* gdb_setup_readline will change gdb_stdout. If the TUI was
89 previously writing to gdb_stdout, then set it to the new
90 gdb_stdout afterwards. */
91
92 stream = cli_out_set_stream (tui_old_uiout, gdb_stdout);
93 if (stream != gdb_stdout)
94 {
95 cli_out_set_stream (tui_old_uiout, stream);
96 stream = NULL;
97 }
98
99 gdb_setup_readline ();
100
101 if (stream != NULL)
102 cli_out_set_stream (tui_old_uiout, gdb_stdout);
103
104 if (tui_start_enabled)
105 tui_enable ();
106 return 1;
107}
108
109static int
110tui_suspend (void *data)
111{
112 tui_start_enabled = tui_active;
113 tui_disable ();
114 return 1;
115}
116
117/* Display the prompt if we are silent. */
118
119static int
120tui_display_prompt_p (void *data)
121{
122 if (interp_quiet_p (NULL))
123 return 0;
124 else
125 return 1;
126}
127
a45ae5f8
JM
128static struct ui_out *
129tui_ui_out (struct interp *self)
5796c8dc 130{
a45ae5f8
JM
131 if (tui_active)
132 return tui_out;
133 else
134 return tui_old_uiout;
5796c8dc
SS
135}
136
a45ae5f8
JM
137static struct gdb_exception
138tui_exec (void *data, const char *command_str)
5796c8dc 139{
a45ae5f8 140 internal_error (__FILE__, __LINE__, _("tui_exec called"));
5796c8dc
SS
141}
142
143/* Provide a prototype to silence -Wmissing-prototypes. */
144extern initialize_file_ftype _initialize_tui_interp;
145
146void
147_initialize_tui_interp (void)
148{
149 static const struct interp_procs procs = {
150 tui_init,
151 tui_resume,
152 tui_suspend,
153 tui_exec,
154 tui_display_prompt_p,
a45ae5f8 155 tui_ui_out,
5796c8dc 156 };
a45ae5f8 157 struct interp *tui_interp;
5796c8dc
SS
158
159 /* Create a default uiout builder for the TUI. */
a45ae5f8
JM
160 tui_interp = interp_new (INTERP_TUI, &procs);
161 interp_add (tui_interp);
5796c8dc
SS
162 if (interpreter_p && strcmp (interpreter_p, INTERP_TUI) == 0)
163 tui_start_enabled = 1;
164
165 if (interpreter_p && strcmp (interpreter_p, INTERP_CONSOLE) == 0)
166 {
167 xfree (interpreter_p);
168 interpreter_p = xstrdup (INTERP_TUI);
169 }
170}