aboutsummaryrefslogtreecommitdiffstats
path: root/Lisp/startlisp
diff options
context:
space:
mode:
authorBrian Cully <bjc@kublai.com>2008-04-02 19:20:20 -0400
committerBrian Cully <bjc@kublai.com>2008-04-02 19:20:20 -0400
commitab10720260e2c184b319026da89f4dfd338500bb (patch)
treea692a27435da0296972e43b21b2f35762e720bfd /Lisp/startlisp
downloadmoxie-ab10720260e2c184b319026da89f4dfd338500bb.tar.gz
moxie-ab10720260e2c184b319026da89f4dfd338500bb.zip
Initial commit
Diffstat (limited to 'Lisp/startlisp')
-rwxr-xr-xLisp/startlisp46
1 files changed, 46 insertions, 0 deletions
diff --git a/Lisp/startlisp b/Lisp/startlisp
new file mode 100755
index 0000000..a7005cf
--- /dev/null
+++ b/Lisp/startlisp
@@ -0,0 +1,46 @@
+#!/bin/sh
+#
+# Args are Resources, Plugins, and Framework paths.
+#
+
+topdir=`dirname $0`
+cd "$1"
+
+template="init-template.lisp"
+initfile="/tmp/moxie-init.$$.lisp"
+
+start_clisp()
+{
+ if [ ! -f "$1/base" ]; then
+ ln -s . "$1/base"
+ fi
+ "$topdir/clisp" -B "$1" -E UTF-8 -i "$initfile"
+}
+
+start_openmcl()
+{
+ CCL_DEFAULT_DIRECTORY="$1"
+ export CCL_DEFAULT_DIRECTORY
+ "$topdir/openmcl" -l "$initfile"
+}
+
+start_sbcl()
+{
+ "$topdir/sbcl" --core "$1/sbcl.core" --load "$initfile"
+}
+
+#
+# Create the init file by substituting our args for variables in
+# the template.
+#
+sed -e "s,@resources@,$1,g;s,@plugins@,$2,g;s,@framework@,$3,g" < $template > $initfile
+
+#
+# Start up a lisp with the initialization file we just created.
+#
+#start_clisp "$1"
+start_sbcl "$1"
+#start_openmcl "$1"
+
+# Remove the initfile when the lisp quits.
+#rm -f $initfile \ No newline at end of file