X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fpvm%2Fdebugger2;fp=utils%2Fpvm%2Fdebugger2;h=7cdf8b9a1aac786d85f52083f5e522692e5d24cf;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=0000000000000000000000000000000000000000;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/utils/pvm/debugger2 b/utils/pvm/debugger2
new file mode 100644
index 0000000..7cdf8b9
--- /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
+