Handle run-program with :directory nil.
[sbcl.git] / run-sbcl.sh
1 #!/bin/sh
2 # A simple shell-script to run the freshly build SBCL without
3 # installing it.
4
5 # This software is part of the SBCL system. See the README file for
6 # more information.
7 #
8 # This software is derived from the CMU CL system, which was
9 # written at Carnegie Mellon University and released into the
10 # public domain. The software is in the public domain and is
11 # provided with absolutely no warranty. See the COPYING and CREDITS
12 # files for more information.
13
14 set -e
15
16 this="$0"
17
18 # OSX 10.8 readlink doesn't have -f
19 while [ -h "$this" ]; do
20     # [ -h should guarantee that readlink output will be non-null
21     link=`readlink -n "$this"`
22     # if absolute path
23     if expr "$link" : '^/.*' > /dev/null; then
24         this="$link"
25     else
26         this=`dirname "$this"`/"$link"
27     fi
28 done
29 BASE=`dirname "$this"`
30
31 CORE_DEFINED=no
32
33 for arg in "$@"; do
34     case "$arg" in
35         --core)
36           CORE_DEFINED=yes
37           ;;
38         --help)
39           echo "usage: run-sbcl.sh sbcl-options*"
40           echo
41           echo "Runs SBCL from the build directory or binary tarball without need for"
42           echo "installation. Except for --help, accepts all the same command-line options"
43           echo "as SBCL does."
44           echo
45           exit 1
46           ;;
47     esac
48 done
49
50 ARGUMENTS=""
51
52 if [ "$CORE_DEFINED" = "no" ]; then
53     ARGUMENTS="--core "$BASE"/output/sbcl.core"
54 fi
55
56 if [ -x "$BASE"/src/runtime/sbcl -a -f "$BASE"/output/sbcl.core ]; then
57     echo "(running SBCL from: $BASE)" 1>&2
58     SBCL_HOME="$BASE/obj/sbcl-home" exec "$BASE"/src/runtime/sbcl $ARGUMENTS "$@"
59 else
60     echo "No built SBCL here ($BASE): run 'sh make.sh' first!"
61     exit 1
62 fi