summaryrefslogtreecommitdiffstats
path: root/slib.sh
diff options
context:
space:
mode:
authorThomas Bushnell, BSG <tb@debian.org>2007-12-28 16:25:32 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:39 -0800
commitd8ae23691ed6392b7f320f5fa7d4dd78ae52c10e (patch)
treeb20b8bc02e854c4c86d39ee22a0638a8b06e01af /slib.sh
parentedd1ebef3ad774e7cbcc2f5918d555bfb0b44091 (diff)
parent64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (diff)
downloadslib-d8ae23691ed6392b7f320f5fa7d4dd78ae52c10e.tar.gz
slib-d8ae23691ed6392b7f320f5fa7d4dd78ae52c10e.zip
Import Debian changes 3a5-1debian/3a5-1
slib (3a5-1) unstable; urgency=low * New upstream release. * slib.texi (Library Catalogs): Repeat change from 3a3-3. * Makefile: Repeat $(htmldir)slib_toc.html changes from 3a2-1. * guile.init: (library-vicinity): Repeat change from 3a4-2. * debian/rules (binary-indep): Don't hide .init files in a separate subdirectory, thus conforming better to the usual slib practice. Put a symlink in place to ease transitions. (Closes: #407370).
Diffstat (limited to 'slib.sh')
-rwxr-xr-xslib.sh21
1 files changed, 14 insertions, 7 deletions
diff --git a/slib.sh b/slib.sh
index 0186442..6948389 100755
--- a/slib.sh
+++ b/slib.sh
@@ -28,18 +28,17 @@ Usage: slib SCHEME
Usage: slib
- Initialize SLIB session using executable 'scheme', 'scm',
- 'mzscheme', 'guile', 'gsi' or 'slib48'."
+ Initialize SLIB session using executable (MIT) 'scheme', 'scm',
+ 'gsi', 'mzscheme', 'guile', 'slib48', 'scmlit', 'elk', 'sisc', or
+ 'kawa'."
case "$1" in
-v | --ver*) echo slib "$VERSION"; exit 0;;
- "")
- if type scheme>/dev/null 2>&1; then
- command=scheme
+ "") if type scheme>/dev/null 2>&1; then
+ command=scheme
fi;;
-*) echo "$usage"; exit 1;;
- *)
- command="$1"
+ *) command="$1"
shift
esac
# If more arguments are supplied, then err out.
@@ -62,6 +61,10 @@ if [ -z "$command" ]; then
command=scmlit; implementation=scm
elif type elk>/dev/null 2>&1; then
command=elk; implementation=elk
+ elif type sisc>/dev/null 2>&1; then
+ command=sisc; implementation=ssc
+ elif type kawa>/dev/null 2>&1; then
+ command=kawa; implementation=kwa
else
echo No Scheme implementation found.
exit 1
@@ -78,6 +81,8 @@ elif type $command>/dev/null 2>&1; then
elif echo ${SPEW} | grep 'MzScheme' >/dev/null 2>&1; then implementation=plt
elif echo ${SPEW} | grep 'Guile' >/dev/null 2>&1; then implementation=gui
elif echo ${SPEW} | grep 'SCM' >/dev/null 2>&1; then implementation=scm
+ elif echo ${SPEW} | grep 'SISC' >/dev/null 2>&1; then implementation=ssc
+ elif echo ${SPEW} | grep 'Kawa' >/dev/null 2>&1; then implementation=kwa
else implementation=
fi
else
@@ -116,6 +121,8 @@ case $implementation in
scm) exec $command -ip1 -l ${SCHEME_LIBRARY_PATH}scm.init "$@";;
elk) exec $command -i -l ${SCHEME_LIBRARY_PATH}elk.init "$@";;
gam) exec $command -:s ${SCHEME_LIBRARY_PATH}gambit.init - "$@";;
+ ssc) exec $command -e "(load \"${SCHEME_LIBRARY_PATH}sisc.init\")" -- "$@";;
+ kwa) exec $command -f ${SCHEME_LIBRARY_PATH}kawa.init -- "$@";;
plt) exec $command -f ${SCHEME_LIBRARY_PATH}DrScheme.init "$@";;
gui) exec $command -l ${SCHEME_LIBRARY_PATH}guile.init "$@";;
mit) exec $command -load ${SCHEME_LIBRARY_PATH}mitscheme.init "$@";;