From 95049edd94b6b724d243fb0b7484478f59e8e71c Mon Sep 17 00:00:00 2001
From: Kevin Holbrook <kwh@neosoft.com>
Date: Sat, 24 Jul 1999 12:07:35 +0000
Subject: [PATCH] Added utility function to invoke external debugger.

---
 debugger/Makefile.in |   1 +
 debugger/external.c  | 149 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 150 insertions(+)
 create mode 100644 debugger/external.c

diff --git a/debugger/Makefile.in b/debugger/Makefile.in
index 1aaaca1e43c..994581f1a1b 100644
--- a/debugger/Makefile.in
+++ b/debugger/Makefile.in
@@ -11,6 +11,7 @@ C_SRCS = \
 	display.c \
 	editline.c \
 	expr.c \
+	external.c \
 	hash.c \
 	info.c \
 	memory.c \
diff --git a/debugger/external.c b/debugger/external.c
new file mode 100644
index 00000000000..341eb389384
--- /dev/null
+++ b/debugger/external.c
@@ -0,0 +1,149 @@
+/* 
+ *  File    : external.c
+ *  Author  : Kevin Holbrook
+ *  Created : July 18, 1999
+ *
+ *  Convenience functions to handle use of external debugger.
+ *
+ */
+
+
+#include <unistd.h>
+#include <errno.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+
+
+#define DBG_BUFF_SIZE  12
+
+#define DBG_EXTERNAL_DEFAULT   "gdb"
+#define DBG_LOCATION_DEFAULT   "/usr/local/bin/wine"
+#define DBG_SLEEPTIME_DEFAULT  120
+
+
+
+/* DEBUG_ExternalDebugger
+ *
+ * This function invokes an external debugger on the current
+ * wine process. The form of the command executed is:
+ *  <debugger image> <wine image> <attach process id>
+ *
+ * The debugger command is normally invoked by a newly created xterm.
+ *
+ * The current calling process is temporarily put to sleep
+ * so that the invoked debugger has time to come up and attach.
+ *
+ * The following environment variables may be used:
+ *
+ *   Name                Use                                      Default
+ *  -------------------------------------------------------------------------------------
+ *   WINE_DBG_EXTERNAL   debugger command to invoke               ("gdb")
+ *   WINE_DBG_LOCATION   fully qualified location of wine image   ("/usr/local/bin/wine")
+ *   WINE_DBG_NO_XTERM   if set do not invoke xterm with command  (not set)
+ *   WINE_DBG_SLEEPTIME  number of seconds to make process sleep  (120)
+ *
+ *
+ * Usage:
+ *
+ *   #include "debugtools.h"
+ *
+ *   DEBUG_ExternalDebugger();
+ *
+ *
+ * Environment Example:
+ *
+ *   export WINE_DBG_EXTERNAL="ddd"
+ *   export WINE_DBG_NO_XTERM=1
+ *   export WINE_DBG_SLEEPTIME=60
+ *
+ */
+
+void DEBUG_ExternalDebugger(void)
+{
+  pid_t attach_pid;
+  pid_t child_pid;
+  int   dbg_sleep_secs = DBG_SLEEPTIME_DEFAULT;
+  char *dbg_sleeptime;
+
+
+  dbg_sleeptime = getenv("WINE_DBG_SLEEPTIME");
+
+  /* convert sleep time string to integer seconds */
+  if (dbg_sleeptime)
+  {
+    dbg_sleep_secs = atoi(dbg_sleeptime);
+
+    /* check for conversion error */
+    if (dbg_sleep_secs == 0)
+      dbg_sleep_secs = DBG_SLEEPTIME_DEFAULT;
+  }
+
+  /* get the curent process id */
+  attach_pid = getpid();
+
+  /* create new process */
+  child_pid = fork();
+
+  /* check if we are the child process */
+  if (child_pid == 0)
+  {
+    int  status;
+    char *dbg_external;
+    char *dbg_wine_location;
+    char *dbg_no_xterm;
+    char pid_string[DBG_BUFF_SIZE];    
+
+
+    /* check settings in environment for debugger to use */
+    dbg_external      = getenv("WINE_DBG_EXTERNAL");
+    dbg_wine_location = getenv("WINE_DBG_LOCATION");
+    dbg_no_xterm      = getenv("WINE_DBG_NO_XTERM");
+
+    /* if not set in environment, use default */
+    if (!dbg_external)
+      dbg_external = "gdb";
+
+    /* if not set in environment, use default */
+    if (!dbg_wine_location)
+      dbg_wine_location = "/usr/local/bin/wine";
+
+    /* check for empty string in WINE_DBG_NO_XTERM */
+    if (dbg_no_xterm && (strlen(dbg_no_xterm) < 1))
+      dbg_no_xterm = NULL;
+
+    /* clear the buffer */
+    memset(pid_string, 0, DBG_BUFF_SIZE);
+
+    /* make pid into string */
+    sprintf(pid_string, "%d", attach_pid);
+
+    /* now exec the debugger to get it's own clean memory space */
+    if (dbg_no_xterm)
+      status = execlp(dbg_external, dbg_external, dbg_wine_location, pid_string, NULL);
+    else
+      status = execlp("xterm", "xterm", "-e", dbg_external, dbg_wine_location, pid_string, NULL); 
+
+    if (status == -1)
+    {
+      if (dbg_no_xterm)
+        fprintf(stderr, "DEBUG_ExternalDebugger failed to execute \"%s %s %s\", errno = %d\n", 
+                dbg_external, dbg_wine_location, pid_string, errno);
+      else
+        fprintf(stderr, "DEBUG_ExternalDebugger failed to execute \"xterm -e %s %s %s\", errno = %d\n", 
+                dbg_external, dbg_wine_location, pid_string, errno);
+    }
+
+  }
+  else if (child_pid != -1)
+  {
+    /* make the parent/caller sleep so the child/debugger can catch it */
+    sleep(dbg_sleep_secs);
+  }
+  else
+    fprintf(stderr, "DEBUG_ExternalDebugger failed.\n");
+  
+}
+
+