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); }