chiark - git - mdw - runlisp/blob - toy-runlisp

   1 #! /bin/sh -e
   2
   3 case $# in
   4   0 | 1) echo >&2 "usage: $0 LISP SCRIPT [ARGS ...]"; exit 127 ;;
   5 esac
   6 lisp=$1 script=$2; shift 2
   7
   8 __CL_ARGV0=$script; export __CL_ARGV0 # this is stupid
   9
  10 lispscript=$(printf "%s" "$script" | sed 's/[\"]/\\&/g')
  11
  12 load_asdf_rune="\
  13 (let ((*load-verbose* nil)
  14       #+cmu (ext:*require-verbose* nil))
  15   (require \"asdf\"))"
  16
  17 ignore_shebang_rune="\
  18 (set-dispatch-macro-character
  19  #\# #\!
  20  (lambda (stream char arg)
  21    (declare (ignore char arg))
  22    (values (read-line stream))))"
  23
  24 clisp_startup_rune="\
  25 (progn
  26   $ignore_shebang_rune
  27   $load_asdf_rune
  28   (setf *standard-input* (ext:make-stream :input))
  29   (load \"$lispscript\" :verbose nil :print nil)
  30   (ext:quit))"
  31
  32 abcl_startup_rune="\
  33 (let ((script \"$lispscript\"))
  34   $load_asdf_rune
  35   $ignore_shebang_rune
  36   (setf *error-output*
  37           (java:jnew \"org.armedbear.lisp.Stream\"
  38                      'sys::system-stream
  39                      (java:jfield \"java.lang.System\" \"err\")
  40                      'character
  41                      java:+true+))
  42   (handler-case (load script :verbose nil :print nil)
  43     (error (error)
  44       (format *error-output* \"~A (unhandled error): ~A~%\" script error)
  45     (ext:quit :status 255))))"
  46
  47 #set -x
  48 case $lisp in
  49
  50   sbcl)
  51     exec sbcl --noinform --eval "$load_asdf_rune" --script "$script" "$@"
  52     ;;
  53
  54   ecl)
  55     exec ecl --norc --eval "$load_asdf_rune" --shell "$script" -- "$@"
  56     ;;
  57
  58   clisp)
  59     exec clisp -norc -q -x "$clisp_startup_rune" -- "$@"
  60     ;;
  61
  62   cmucl)
  63     exec cmucl -batch -noinit -nositeinit -quiet \
  64          -eval "$load_asdf_rune" \
  65          -eval "$ignore_shebang_rune" \
  66          -load "$script" -eval "(ext:quit)" -- "$@"
  67     ;;
  68
  69   ccl)
  70     exec ccl -b -n -Q \
  71          -e "$load_asdf_rune" \
  72          -e "$ignore_shebang_rune" \
  73          -l "$script" -e "(ccl:quit)" -- "$@"
  74     ;;
  75
  76   abcl)
  77     exec abcl --batch --noinform --noinit --nosystem \
  78          --eval "$abcl_startup_rune" -- "$@"
  79     ;;
  80
  81   *)
  82     echo >&2 "$0: unsupported Lisp \`$lisp'"
  83     exit 127
  84     ;;
  85 esac