static void *
gdbtk_interpreter_init (struct interp *interp, int top_level)
{
/* Disable interpreter-exec. It causes us big trouble right now. */
struct cmd_list_element *cmd = NULL;
struct cmd_list_element *alias = NULL;
struct cmd_list_element *prefix = NULL;
struct gdbtk_interp_data *data;
data = XZALLOC (struct gdbtk_interp_data);
data->_stdout = gdbtk_fileopen ();
data->_stderr = gdbtk_fileopen ();
data->_stdlog = gdbtk_fileopen ();
data->_stdtarg = gdbtk_fileopen ();
data->_stdtargin = gdbtk_fileopenin ();
data->uiout = cli_out_new (data->_stdout),
gdbtk_init ();
if (lookup_cmd_composition ("interpreter-exec", &alias, &prefix, &cmd))
{
set_cmd_cfunc (cmd, hack_disable_interpreter_exec);
}
return data;
}
void
gdbtk_interp::init (bool top_level)
{
/* Disable interpreter-exec. It causes us big trouble right now. */
struct cmd_list_element *cmd = NULL;
struct cmd_list_element *alias = NULL;
struct cmd_list_element *prefix = NULL;
_stdout = gdbtk_fileopen ();
_stderr = gdbtk_fileopen ();
_stdlog = gdbtk_fileopen ();
_stdtarg = gdbtk_fileopen ();
_stdtargin = gdbtk_fileopen ();
uiout = cli_out_new (_stdout),
gdbtk_init ();
if (lookup_cmd_composition ("interpreter-exec", &alias, &prefix, &cmd))
{
set_cmd_cfunc (cmd, hack_disable_interpreter_exec);
}
}
void
_initialize_gdbtk_interp (void)
{
static const struct interp_procs procs = {
gdbtk_interpreter_init, /* init_proc */
gdbtk_interpreter_resume, /* resume_proc */
gdbtk_interpreter_suspend, /* suspend_proc */
gdbtk_interpreter_exec, /* exec_proc */
gdbtk_interpreter_display_prompt_p /* prompt_proc_p */
};
struct interp *gdbtk_interp;
gdbtk_data =
(struct gdbtk_interp_data *) xmalloc (sizeof (struct gdbtk_interp_data));
memset (gdbtk_data, 0, sizeof (struct gdbtk_interp_data));
gdbtk_data->_stdout = gdbtk_fileopen ();
gdbtk_data->_stderr = gdbtk_fileopen ();
gdbtk_data->_stdlog = gdbtk_fileopen ();
gdbtk_data->_stdtarg = gdbtk_fileopen ();
gdbtk_interp = interp_new ("insight", gdbtk_data, cli_out_new (gdbtk_data->_stdout),
&procs);
interp_add (gdbtk_interp);
}
