1999-02-11 Martin Hunt <hunt@cygnus.com>

	* gdbtk.c, gdbtk-cmds.c, gdbtk-hooks.c: Removed old IDE stuff.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 863a821..fc4f8e7 100644 (file)
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,7 @@
+1999-02-11  Martin Hunt  <hunt@cygnus.com>
+
+       * gdbtk.c, gdbtk-cmds.c, gdbtk-hooks.c: Removed old IDE stuff.
+
 1999-02-09  Martin Hunt  <hunt@cygnus.com>
 
        * gdbtk-hooks.c: Remove gdbtk_ignorable_warning prototype.

diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c
index ee5d1e1..6527af4 100644 (file)
--- a/gdb/gdbtk-cmds.c
+++ b/gdb/gdbtk-cmds.c
@@ -44,14 +44,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "guitcl.h"
 #include "gdbtk.h"
 
-/* start-sanitize-ide */
-#ifdef IDE
-#include "event.h"
-#include "idetcl.h"
-#include "ilutk.h"
-#endif
-/* end-sanitize-ide */
-
 #ifdef ANSI_PROTOTYPES
 #include <stdarg.h>
 #else

diff --git a/gdb/gdbtk-hooks.c b/gdb/gdbtk-hooks.c
index 71bca51..c49f75c 100644 (file)
--- a/gdb/gdbtk-hooks.c
+++ b/gdb/gdbtk-hooks.c
@@ -44,14 +44,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "guitcl.h"
 #include "gdbtk.h"
 
-#ifdef IDE
-/* start-sanitize-ide */
-#include "event.h"
-#include "idetcl.h"
-#include "ilutk.h"
-/* end-sanitize-ide */
-#endif
-
 #ifdef ANSI_PROTOTYPES
 #include <stdarg.h>
 #else

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index f69a549..f5aa549 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -44,14 +44,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "guitcl.h"
 #include "gdbtk.h"
 
-/* start-sanitize-ide */
-#ifdef IDE
-#include "event.h"
-#include "idetcl.h"
-#include "ilutk.h"
-#endif
-/* end-sanitize-ide */
-
 #ifdef ANSI_PROTOTYPES
 #include <stdarg.h>
 #else
@@ -317,12 +309,6 @@ gdbtk_cleanup (dummy)
      PTR dummy;
 {
   Tcl_Eval (gdbtk_interp, "gdbtk_cleanup");
-#ifdef IDE
-  {
-    struct ide_event_handle *h = (struct ide_event_handle *) dummy;
-    ide_interface_deregister_all (h);
-  }
-#endif
   Tcl_Finalize ();
 }
 
@@ -342,14 +328,6 @@ gdbtk_init ( argv0 )
   char s[5];
   Tcl_Obj *auto_path_elem, *auto_path_name;
 
-  /* start-sanitize-ide */
-#ifdef IDE
-  struct ide_event_handle *h;
-  const char *errmsg;
-  char *libexecdir;
-#endif 
-  /* end-sanitize-ide */
-
   /* If there is no DISPLAY environment variable, Tk_Init below will fail,
      causing gdb to abort.  If instead we simply return here, gdb will
      gracefully degrade to using the command line interface. */
@@ -380,84 +358,12 @@ gdbtk_init ( argv0 )
   sprintf (s, "%d", inhibit_gdbinit);
   Tcl_SetVar2 (gdbtk_interp, "GDBStartup", "inhibit_prefs", s, TCL_GLOBAL_ONLY);
 
-  /* start-sanitize-ide */
-#ifndef IDE
-  /* end-sanitize-ide */
-  /* For the IDE we register the cleanup later, after we've
-     initialized events.  */
   make_final_cleanup (gdbtk_cleanup,  NULL);
-  /* start-sanitize-ide */
-#endif /* IDE */
-  /* end-sanitize-ide */
 
   /* Initialize the Paths variable.  */
   if (ide_initialize_paths (gdbtk_interp, "") != TCL_OK)
     error ("ide_initialize_paths failed: %s", gdbtk_interp->result);
 
-  /* start-sanitize-ide */
-#ifdef IDE
-  /* Find the directory where we expect to find idemanager.  We ignore
-     errors since it doesn't really matter if this fails.  */
-  libexecdir = Tcl_GetVar2 (gdbtk_interp, "Paths", "libexecdir", TCL_GLOBAL_ONLY);
-
-  IluTk_Init ();
-
-  h = ide_event_init_from_environment (&errmsg, libexecdir);
-  make_final_cleanup (gdbtk_cleanup, h);
-  if (h == NULL)
-    {
-      Tcl_AppendResult (gdbtk_interp, "can't initialize event system: ", errmsg,
-                       (char *) NULL);
-      fprintf(stderr, "WARNING: ide_event_init_client failed: %s\n", gdbtk_interp->result);
-
-      Tcl_SetVar (gdbtk_interp, "IDE_ENABLED", "0", 0);
-    }
-  else 
-    {
-      if (ide_create_tclevent_command (gdbtk_interp, h) != TCL_OK)
-       error ("ide_create_tclevent_command failed: %s", gdbtk_interp->result);
-
-      if (ide_create_edit_command (gdbtk_interp, h) != TCL_OK)
-       error ("ide_create_edit_command failed: %s", gdbtk_interp->result);
-      
-      if (ide_create_property_command (gdbtk_interp, h) != TCL_OK)
-       error ("ide_create_property_command failed: %s", gdbtk_interp->result);
-
-      if (ide_create_build_command (gdbtk_interp, h) != TCL_OK)
-       error ("ide_create_build_command failed: %s", gdbtk_interp->result);
-
-      if (ide_create_window_register_command (gdbtk_interp, h, "gdb-restore")
-         != TCL_OK)
-       error ("ide_create_window_register_command failed: %s",
-              gdbtk_interp->result);
-
-      if (ide_create_window_command (gdbtk_interp, h) != TCL_OK)
-       error ("ide_create_window_command failed: %s", gdbtk_interp->result);
-
-      if (ide_create_exit_command (gdbtk_interp, h) != TCL_OK)
-       error ("ide_create_exit_command failed: %s", gdbtk_interp->result);
-
-      if (ide_create_help_command (gdbtk_interp) != TCL_OK)
-       error ("ide_create_help_command failed: %s", gdbtk_interp->result);
-
-      /*
-       if (ide_initialize (gdbtk_interp, "gdb") != TCL_OK)
-       error ("ide_initialize failed: %s", gdbtk_interp->result);
-      */
-
-      Tcl_SetVar (gdbtk_interp, "IDE_ENABLED", "1", 0);
-    }
-#else
-  /* end-sanitize-ide */
-  Tcl_SetVar (gdbtk_interp, "IDE_ENABLED", "0", 0);
-  /* start-sanitize-ide */
-#endif /* IDE */
-  /* end-sanitize-ide */
-
-  /* We don't want to open the X connection until we've done all the
-     IDE initialization.  Otherwise, goofy looking unfinished windows
-     pop up when ILU drops into the TCL event loop.  */
-
   if (Tk_Init(gdbtk_interp) != TCL_OK)
     error ("Tk_Init failed: %s", gdbtk_interp->result);
 
@@ -493,11 +399,6 @@ gdbtk_init ( argv0 )
     error ("sizebox creation failed");
   if (ide_create_winprint_command (gdbtk_interp) != TCL_OK)
     error ("windows print code initialization failed");
-  /* start-sanitize-ide */
-  /* An interface to ShellExecute.  */
-  if (ide_create_shell_execute_command (gdbtk_interp) != TCL_OK)
-    error ("shell execute command initialization failed");
-  /* end-sanitize-ide */
   if (ide_create_win_grab_command (gdbtk_interp) != TCL_OK)
     error ("grab support command initialization failed");
   /* Path conversion functions.  */
@@ -604,16 +505,6 @@ gdbtk_find_main";
       }
   }
 
-  
-  /* start-sanitize-ide */
-#ifdef IDE
-  /* Don't do this until we have initialized.  Otherwise, we may get a
-     run command before we are ready for one.  */
-  if (ide_run_server_init (gdbtk_interp, h) != TCL_OK)
-    error ("ide_run_server_init failed: %s", gdbtk_interp->result);
-#endif
-  /* end-sanitize-ide */
-
   /* Now source in the filename provided by the --tclcommand option.
      This is mostly used for the gdbtk testsuite... */