2000-02-23 01:25:43 +01:00
|
|
|
/* MI Console code.
|
2002-03-19 03:51:09 +01:00
|
|
|
|
|
|
|
Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
|
|
|
|
|
2000-02-23 07:19:22 +01:00
|
|
|
Contributed by Cygnus Solutions (a Red Hat company).
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
#include "mi-console.h"
|
2001-01-31 16:46:36 +01:00
|
|
|
#include "gdb_string.h"
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* MI-console: send output to std-out but correcty encapsulated */
|
|
|
|
|
|
|
|
static ui_file_fputs_ftype mi_console_file_fputs;
|
|
|
|
static ui_file_flush_ftype mi_console_file_flush;
|
|
|
|
static ui_file_delete_ftype mi_console_file_delete;
|
|
|
|
|
|
|
|
struct mi_console_file
|
|
|
|
{
|
|
|
|
int *magic;
|
|
|
|
struct ui_file *raw;
|
|
|
|
struct ui_file *buffer;
|
|
|
|
const char *prefix;
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
char quote;
|
2000-02-23 01:25:43 +01:00
|
|
|
};
|
|
|
|
|
|
|
|
int mi_console_file_magic;
|
|
|
|
|
|
|
|
struct ui_file *
|
|
|
|
mi_console_file_new (struct ui_file *raw,
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
const char *prefix, char quote)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
|
|
|
struct ui_file *ui_file = ui_file_new ();
|
|
|
|
struct mi_console_file *mi_console = XMALLOC (struct mi_console_file);
|
|
|
|
mi_console->magic = &mi_console_file_magic;
|
|
|
|
mi_console->raw = raw;
|
|
|
|
mi_console->buffer = mem_fileopen ();
|
|
|
|
mi_console->prefix = prefix;
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
mi_console->quote = quote;
|
2000-02-23 01:25:43 +01:00
|
|
|
set_ui_file_fputs (ui_file, mi_console_file_fputs);
|
|
|
|
set_ui_file_flush (ui_file, mi_console_file_flush);
|
|
|
|
set_ui_file_data (ui_file, mi_console, mi_console_file_delete);
|
|
|
|
return ui_file;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
mi_console_file_delete (struct ui_file *file)
|
|
|
|
{
|
|
|
|
struct mi_console_file *mi_console = ui_file_data (file);
|
|
|
|
if (mi_console->magic != &mi_console_file_magic)
|
2001-02-08 07:03:54 +01:00
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
"mi_console_file_delete: bad magic number");
|
2000-12-15 02:01:51 +01:00
|
|
|
xfree (mi_console);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
mi_console_file_fputs (const char *buf,
|
|
|
|
struct ui_file *file)
|
|
|
|
{
|
|
|
|
struct mi_console_file *mi_console = ui_file_data (file);
|
|
|
|
if (mi_console->magic != &mi_console_file_magic)
|
2001-02-08 07:03:54 +01:00
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
"mi_console_file_fputs: bad magic number");
|
2000-02-23 01:25:43 +01:00
|
|
|
/* Append the text to our internal buffer */
|
|
|
|
fputs_unfiltered (buf, mi_console->buffer);
|
|
|
|
/* Flush when an embedded \n */
|
|
|
|
if (strchr (buf, '\n') != NULL)
|
|
|
|
gdb_flush (file);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Transform a byte sequence into a console output packet. */
|
|
|
|
static void
|
|
|
|
mi_console_raw_packet (void *data,
|
|
|
|
const char *buf,
|
|
|
|
long length_buf)
|
|
|
|
{
|
|
|
|
struct mi_console_file *mi_console = data;
|
|
|
|
if (mi_console->magic != &mi_console_file_magic)
|
2001-02-08 07:03:54 +01:00
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
"mi_console_file_transform: bad magic number");
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
if (length_buf > 0)
|
|
|
|
{
|
|
|
|
fputs_unfiltered (mi_console->prefix, mi_console->raw);
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
if (mi_console->quote)
|
|
|
|
{
|
|
|
|
fputs_unfiltered ("\"", mi_console->raw);
|
|
|
|
fputstrn_unfiltered (buf, length_buf, mi_console->quote, mi_console->raw);
|
|
|
|
fputs_unfiltered ("\"\n", mi_console->raw);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fputstrn_unfiltered (buf, length_buf, 0, mi_console->raw);
|
|
|
|
fputs_unfiltered ("\n", mi_console->raw);
|
|
|
|
}
|
2000-02-23 01:25:43 +01:00
|
|
|
gdb_flush (mi_console->raw);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
mi_console_file_flush (struct ui_file *file)
|
|
|
|
{
|
|
|
|
struct mi_console_file *mi_console = ui_file_data (file);
|
|
|
|
if (mi_console->magic != &mi_console_file_magic)
|
2001-02-08 07:03:54 +01:00
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
"mi_console_file_flush: bad magic number");
|
2000-02-23 01:25:43 +01:00
|
|
|
ui_file_put (mi_console->buffer, mi_console_raw_packet, mi_console);
|
|
|
|
ui_file_rewind (mi_console->buffer);
|
|
|
|
}
|