This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
Re: GDB/MI and ">" prompts
- From: Eli Zaretskii <eliz at gnu dot org>
- To: Joel Brobecker <brobecker at adacore dot com>
- Cc: marc dot khouzam at ericsson dot com, stanshebs at earthlink dot net, gdb-patches at sourceware dot org
- Date: Tue, 08 May 2012 21:49:05 +0300
- Subject: Re: GDB/MI and ">" prompts
- References: <83vckviv3b.fsf@gnu.org> <20120419154853.GM25623@adacore.com> <83sjfzitxx.fsf@gnu.org> <83r4vjitnj.fsf@gnu.org> <20120419185329.GO25623@adacore.com> <83mx67ikxm.fsf@gnu.org> <837gx7hhxa.fsf@gnu.org> <83lilg6ysn.fsf@gnu.org> <4F9EBD0D.2090701@earthlink.net> <F7CE05678329534C957159168FA70DEC57968C02F5@EUSAACMS0703.eamcs.ericsson.se> <20120508155123.GA15555@adacore.com>
- Reply-to: Eli Zaretskii <eliz at gnu dot org>
> Date: Tue, 8 May 2012 08:51:23 -0700
> From: Joel Brobecker <brobecker@adacore.com>
> Cc: 'Stan Shebs' <stanshebs@earthlink.net>,
> "'gdb-patches@sourceware.org'" <gdb-patches@sourceware.org>,
> 'Eli Zaretskii' <eliz@gnu.org>
>
> Thanks for doing the testing, Mark!
>
> Stan said:
> > > If Eclipse is good, then this is OK to commit.
>
> Mark reported:
> > So, it seems ok for an Eclipse perspective.
>
> So it seems Eli is good to go!
Thanks. Here's what I actually committed:
Index: gdb/ChangeLog
===================================================================
RCS file: /cvs/src/src/gdb/ChangeLog,v
retrieving revision 1.14219
diff -u -p -r1.14219 ChangeLog
--- gdb/ChangeLog 8 May 2012 14:07:06 -0000 1.14219
+++ gdb/ChangeLog 8 May 2012 18:48:12 -0000
@@ -1,3 +1,16 @@
+2012-05-08 Eli Zaretskii <eliz@gnu.org>
+
+ Display the ">" prompt in interactive mode while reading canned
+ commands, even when the current interpreter is MI.
+
+ * interps.c (interp_set_temp): New function.
+
+ * interps.h (interp_set_temp): Add prototype.
+
+ * cli/cli-script.c (restore_interp): New cleanup function.
+ (read_command_lines): Temporarily override the current interpreter
+ with CLI and arrange for restoring the original one.
+
2012-05-12 Joel Sherrill <joel.sherrill@oarcorp.com>
* microblaze-rom.c (_initialize_picobug_rom): Add prototype.
Index: gdb/interps.c
===================================================================
RCS file: /cvs/src/src/gdb/interps.c,v
retrieving revision 1.44
diff -u -p -r1.44 interps.c
--- gdb/interps.c 4 Jan 2012 08:17:05 -0000 1.44
+++ gdb/interps.c 8 May 2012 18:48:12 -0000
@@ -253,6 +253,18 @@ interp_ui_out (struct interp *interp)
return current_interpreter->procs->ui_out_proc (current_interpreter);
}
+/* Temporarily overrides the current interpreter. */
+struct interp *
+interp_set_temp (const char *name)
+{
+ struct interp *interp = interp_lookup (name);
+ struct interp *old_interp = current_interpreter;
+
+ if (interp)
+ current_interpreter = interp;
+ return old_interp;
+}
+
/* Returns the interpreter's cookie. */
void *
Index: gdb/interps.h
===================================================================
RCS file: /cvs/src/src/gdb/interps.h,v
retrieving revision 1.22
diff -u -p -r1.22 interps.h
--- gdb/interps.h 4 Jan 2012 08:17:05 -0000 1.22
+++ gdb/interps.h 8 May 2012 18:48:12 -0000
@@ -69,6 +69,7 @@ extern struct interp *interp_lookup (con
extern struct ui_out *interp_ui_out (struct interp *interp);
extern void *interp_data (struct interp *interp);
extern const char *interp_name (struct interp *interp);
+extern struct interp *interp_set_temp (const char *name);
extern int current_interp_named_p (const char *name);
extern int current_interp_display_prompt_p (void);
Index: gdb/cli/cli-script.c
===================================================================
RCS file: /cvs/src/src/gdb/cli/cli-script.c,v
retrieving revision 1.74
diff -u -p -r1.74 cli-script.c
--- gdb/cli/cli-script.c 24 Jan 2012 20:56:33 -0000 1.74
+++ gdb/cli/cli-script.c 8 May 2012 18:48:12 -0000
@@ -1178,6 +1178,12 @@ recurse_read_control_structure (char * (
return ret;
}
+static void
+restore_interp (void *arg)
+{
+ interp_set_temp (interp_name ((struct interp *)arg));
+}
+
/* Read lines from the input stream and accumulate them in a chain of
struct command_line's, which is then returned. For input from a
terminal, the special command "end" is used to mark the end of the
@@ -1210,8 +1216,21 @@ read_command_lines (char *prompt_arg, in
}
}
- head = read_command_lines_1 (read_next_line, parse_commands,
- validator, closure);
+
+ /* Reading commands assumes the CLI behavior, so temporarily
+ override the current interpreter with CLI. */
+ if (current_interp_named_p (INTERP_CONSOLE))
+ head = read_command_lines_1 (read_next_line, parse_commands,
+ validator, closure);
+ else
+ {
+ struct interp *old_interp = interp_set_temp (INTERP_CONSOLE);
+ struct cleanup *old_chain = make_cleanup (restore_interp, old_interp);
+
+ head = read_command_lines_1 (read_next_line, parse_commands,
+ validator, closure);
+ do_cleanups (old_chain);
+ }
if (deprecated_readline_end_hook && from_tty && input_from_terminal_p ())
{