utils/pvm/debugger.emacs

   1 #!/bin/csh -f
   2 #
   3 #       debugger.csh
   4 #
   5 #       this script is invoked by the pvmd when a task is spawned with
   6 #       the PvmTaskDebug flag set.  it execs an xterm with script
   7 #       debugger2 running inside.
   8 #
   9 #       06 Apr 1993  Manchek
  10 #
  11
  12 if ($#argv < 1) then
  13         echo "usage: debugger command [args]"
  14         exit 1
  15 endif
  16
  17 # scratch file for debugger commands
  18
  19 set TEMPCMD=gdb$$.cmd
  20 set TEMPLISP=gdb$$.el
  21
  22 # default debugger and flags
  23
  24 #
  25 # run the debugger
  26 #
  27
  28 echo run $argv[2-] > $TEMPCMD
  29 echo "(gdb "'"'"$argv[1] -q -x $TEMPCMD"'")' > $TEMPLISP
  30
  31 emacs -l $TEMPLISP
  32
  33 #rm -f $TEMPCMD $TEMPLISP
  34
  35 exit 0
  36
  37