home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / math / mathremote.emacs1.1 < prev    next >
Encoding:
Text File  |  1989-01-07  |  730 b   |  45 lines
  1. #! /bin/sh -f
  2.  
  3. mathdir=/usr-local/henry/Tape
  4.  
  5. machdir=`/bin/arch`
  6.  
  7. if [ $machdir = sun3 ]; then
  8.     machdir=sun3.`$mathdir/common/foption`
  9. fi
  10.  
  11. PATH=$PATH:$mathdir/common/Utilities:$mathdir/$machdir/Utilities:\
  12. $mathdir/$machdir/MathTalk
  13. export PATH
  14.  
  15. case "$1" in
  16. -crc)
  17.     if tty -s; then
  18.         stty raw -tandem -echo
  19.     fi
  20.     lastproc=leftcrc
  21.     shift
  22.     ;;
  23. *)
  24.     if tty -s; then
  25.         stty -raw tandem cbreak -echo
  26.     fi
  27.     lastproc=rightend
  28.     ;;
  29. esac
  30.  
  31. # should be conditional on something
  32. lastproc="-core emacsfrontend"
  33.  
  34. twoway -e -nowait $mathdir/$machdir/mathexe -remote -run \
  35.     '$Path = Join[
  36.         $Path,
  37.         {
  38.             "~",
  39.             "'$mathdir/common'",
  40.             "'$mathdir/common/Packages'"
  41.         }
  42.     ]; Get["init.m"]' "$@" \| control \| $lastproc
  43.  
  44. stty -raw tandem -cbreak echo
  45.