#include "defs.h"
#include "interps.h"
#include "wrapper.h"
#include "event-top.h"
#include "ui-out.h"
#include "cli-out.h"
#include "top.h"
#include "inferior.h"
#include "mi/mi-console.h"
#include "gdb_string.h"
#include "cli-cmds.h"
#include "exceptions.h"
struct ui_out *cli_uiout;
struct gdb_exception safe_execute_command (struct ui_out *uiout,
char *command, int from_tty);
struct captured_execute_command_args
{
char *command;
int from_tty;
};
static void *
cli_interpreter_init (void)
{
return NULL;
}
static int
cli_interpreter_resume (void *data)
{
struct ui_file *stream;
sync_execution = 1;
print_frame_more_info_hook = 0;
stream = cli_out_set_stream (cli_uiout, gdb_stdout);
if (stream != gdb_stdout)
{
cli_out_set_stream (cli_uiout, stream);
stream = NULL;
}
gdb_setup_readline ();
if (stream != NULL)
cli_out_set_stream (cli_uiout, gdb_stdout);
return 1;
}
static int
cli_interpreter_suspend (void *data)
{
gdb_disable_readline ();
return 1;
}
static int
cli_interpreter_display_prompt_p (void *data)
{
if (interp_quiet_p (NULL))
return 0;
else
return 1;
}
static struct gdb_exception
cli_interpreter_exec (void *data, const char *command_str)
{
struct gdb_exception result;
char *str = strcpy (alloca (strlen (command_str) + 1), command_str);
result = safe_execute_command (uiout, str, 1);
return result;
}
static void
do_captured_execute_command (struct ui_out *uiout, void *data)
{
struct captured_execute_command_args *args =
(struct captured_execute_command_args *) data;
execute_command (args->command, args->from_tty);
}
struct gdb_exception
safe_execute_command (struct ui_out *uiout, char *command, int from_tty)
{
struct gdb_exception e;
struct captured_execute_command_args args;
args.command = command;
args.from_tty = from_tty;
e = catch_exception (uiout, do_captured_execute_command, &args,
RETURN_MASK_ALL);
exception_print (gdb_stderr, e);
return e;
}
int
cli_quoted_interpreter_resume (void *data)
{
static struct ui_file *quoted_stdout = NULL;
static struct ui_file *quoted_stderr = NULL;
static struct ui_file *quoted_stdtarg = NULL;
sync_execution = 1;
print_frame_more_info_hook = 0;
gdb_setup_readline ();
if (quoted_stdout == NULL)
{
struct ui_file *raw_stdout;
raw_stdout = stdio_fileopen (stdout);
quoted_stdout = mi_console_file_new (raw_stdout, "~", '"');
quoted_stderr = mi_console_file_new (raw_stdout, "&", '"');
quoted_stdtarg = mi_console_file_new (raw_stdout, "@", '"');
}
gdb_stdout = quoted_stdout;
gdb_stderr = quoted_stderr;
gdb_stdlog = gdb_stderr;
gdb_stdtarg = quoted_stdtarg;
return 1;
}
extern initialize_file_ftype _initialize_cli_interp;
void
_initialize_cli_interp (void)
{
static const struct interp_procs procs = {
cli_interpreter_init,
cli_interpreter_resume,
cli_interpreter_suspend,
cli_interpreter_exec,
cli_interpreter_display_prompt_p,
cli_command_loop,
cli_interpreter_complete
};
struct interp *cli_interp;
static const struct interp_procs quoted_procs = {
cli_interpreter_init,
cli_quoted_interpreter_resume,
cli_interpreter_suspend,
cli_interpreter_exec,
cli_interpreter_display_prompt_p,
cli_command_loop,
cli_interpreter_complete
};
struct ui_out *tmp_ui_out;
struct ui_file *raw_stdout;
cli_uiout = cli_out_new (gdb_stdout);
cli_interp = interp_new (INTERP_CONSOLE, NULL, cli_uiout, &procs);
interp_add (cli_interp);
raw_stdout = stdio_fileopen (stdout);
tmp_ui_out = cli_quoted_out_new (raw_stdout);
cli_interp = interp_new ("console-quoted", NULL, tmp_ui_out,
"ed_procs);
interp_add (cli_interp);
}