Reorganisation of the source tree

[ghc-hetmet.git] / utils / pvm / debugger.emacs

diff --git a/utils/pvm/debugger.emacs b/utils/pvm/debugger.emacs
new file mode 100644 (file)
index 0000000..ee053ca
--- /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
+
+