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