3 files changed, 89 insertions, 0 deletions
diff --git a/utils/pvm/README b/utils/pvm/README
new file mode 100644
index 0000000000..5ab58ddec8
--- /dev/null
+++ b/utils/pvm/README
@@ -0,0 +1,4 @@
+"debugger2" is our hacked version of the one that
+comes with PVM 3.3.7.
+
+Less sure about "debugger.emacs"...
diff --git a/utils/pvm/debugger.emacs b/utils/pvm/debugger.emacs
new file mode 100644
index 0000000000..ee053ca7b4
--- /dev/null
+++ b/utils/pvm/debugger.emacs
@@ -0,0 +1,37 @@
+#!/bin/csh -f
+#
+#	debugger.csh
+#
+#	this script is invoked by the pvmd when a task is spawned with
+#	the PvmTaskDebug flag set.  it execs an xterm with script
+#	debugger2 running inside.
+#
+#	06 Apr 1993  Manchek
+#
+
+if ($#argv < 1) then
+	echo "usage: debugger command [args]"
+	exit 1
+endif
+
+# scratch file for debugger commands
+
+set TEMPCMD=gdb$$.cmd
+set TEMPLISP=gdb$$.el
+
+# default debugger and flags
+
+#
+# run the debugger
+#
+
+echo run $argv[2-] > $TEMPCMD
+echo "(gdb "'"'"$argv[1] -q -x $TEMPCMD"'")' > $TEMPLISP
+
+emacs -l $TEMPLISP
+
+#rm -f $TEMPCMD $TEMPLISP
+
+exit 0
+
+
diff --git a/utils/pvm/debugger2 b/utils/pvm/debugger2
new file mode 100644
index 0000000000..7cdf8b9a1a
--- /dev/null
+++ b/utils/pvm/debugger2
@@ -0,0 +1,48 @@
+#!/bin/csh -f
+#
+#	debugger2.csh
+#
+#	this script is invoked in an xterm by the generic debugger script.
+#	it starts the debugger and waits when it exits to prevent the
+#	window from closing.
+#
+#	it expects the pvmd to set envar PVM_ARCH.
+#
+#	06 Apr 1993  Manchek
+#
+
+set noglob
+
+# scratch file for debugger commands
+
+set TEMPCMD=/tmp/debugger2.$$
+
+# default debugger and flags
+
+set DBCMD="gdb"
+set DBFF="-q -x $TEMPCMD"
+
+#
+# try to pick the debugger by arch name
+#
+
+#
+# run the debugger
+#
+
+echo run $argv[2-] > $TEMPCMD
+$DBCMD $DBFF $argv[1]
+
+#$DBCMD $argv[1]
+
+#rm -f $TEMPCMD
+
+#
+# wait to go away
+#
+
+#reset
+#sleep 1
+rm -f $TEMPCMD
+exit 0
+