diff options
Diffstat (limited to 'gdb/gdbtk/generic/gdbtk-interp.c')
| -rw-r--r-- | gdb/gdbtk/generic/gdbtk-interp.c | 177 |
1 files changed, 0 insertions, 177 deletions
diff --git a/gdb/gdbtk/generic/gdbtk-interp.c b/gdb/gdbtk/generic/gdbtk-interp.c deleted file mode 100644 index 1fc1b64a1ff..00000000000 --- a/gdb/gdbtk/generic/gdbtk-interp.c +++ /dev/null @@ -1,177 +0,0 @@ -/* Insight Definitions for GDB, the GNU debugger. - Written by Keith Seitz <kseitz@uglyboxes.com> - - Copyright 2003 Free Software Foundation, Inc. - - This file is part of Insight. - - 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 "interps.h" -#include "ui-file.h" -#include "ui-out.h" -#include "cli-out.h" -#include "gdb_string.h" -#include "cli/cli-cmds.h" -#include "cli/cli-decode.h" - -#include "tcl.h" -#include "tk.h" -#include "gdbtk.h" - -static void gdbtk_command_loop (void); -static void hack_disable_interpreter_exec (char *, int); - -struct gdbtk_interp_data -{ - struct ui_file *_stdout; - struct ui_file *_stderr; - struct ui_file *_stdlog; - struct ui_file *_stdtarg; -}; - -static struct gdbtk_interp_data *gdbtk_data; - -/* See note in gdbtk_interpreter_init */ -static void -hack_disable_interpreter_exec (char *args, int from_tty) -{ - error ("interpreter-exec not available when running Insight"); -} - -static void * -gdbtk_interpreter_init (void) -{ - /* 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; - - gdbtk_init (); - - if (lookup_cmd_composition ("interpreter-exec", &alias, &prefix, &cmd)) - { - set_cmd_cfunc (cmd, hack_disable_interpreter_exec); - } - - return gdbtk_data; -} - -static int -gdbtk_interpreter_resume (void *data) -{ - static int started = 0; - struct gdbtk_interp_data *d = (struct gdbtk_interp_data *) data; - gdbtk_add_hooks (); - - gdb_stdout = d->_stdout; - gdb_stderr = d->_stderr; - gdb_stdlog = d->_stdlog; - gdb_stdtarg = d->_stdtarg; - - command_loop_hook = gdbtk_command_loop; - - /* 2003-02-11 keiths: We cannot actually source our main Tcl file in - our interpreter's init function because any errors that may - get generated will go to the wrong gdb_stderr. Instead of hacking - our interpreter init function to force gdb_stderr to our ui_file, - we defer sourcing the startup file until now, when gdb is ready - to let our interpreter run. */ - if (!started) - { - started = 1; - gdbtk_source_start_file (); - } - - return 1; -} - -static int -gdbtk_interpreter_suspend (void *data) -{ - return 1; -} - -static int -gdbtk_interpreter_display_prompt_p (void *data) -{ - return 1; -} - -static int -gdbtk_interpreter_exec (void *data, const char *command_str) -{ - return 1; -} - -/* This function is called instead of gdb's internal command loop. This is the - last chance to do anything before entering the main Tk event loop. - At the end of the command, we enter the main loop. */ - -static void -gdbtk_command_loop (void) -{ - extern FILE *instream; - - /* We no longer want to use stdin as the command input stream */ - instream = NULL; - - if (Tcl_Eval (gdbtk_interp, "gdbtk_tcl_preloop") != TCL_OK) - { - const char *msg; - - /* Force errorInfo to be set up propertly. */ - Tcl_AddErrorInfo (gdbtk_interp, ""); - - msg = Tcl_GetVar (gdbtk_interp, "errorInfo", TCL_GLOBAL_ONLY); -#ifdef _WIN32 - MessageBox (NULL, msg, NULL, MB_OK | MB_ICONERROR | MB_TASKMODAL); -#else - fputs_unfiltered (msg, gdb_stderr); -#endif - } - -#ifdef _WIN32 - close_bfds (); -#endif - - Tk_MainLoop (); -} - -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); -} |