blob: 6693bd9b4e8b683399b68c55618182bf11028b44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#!/bin/sh
# This file is originally from the Debian project patch to SBCL
# upstream. It has been modified by the Gentoo project to NOT use
# /etc/sbcl.rc which has been confusing because SBCL docs refer
# /etc/sbclrc.
if [ ! -f /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp ] ; then
cat <<EOF
$0: cannot find the common-lisp-controller source.
EOF
exit 0
fi
build_error()
{
echo "Build failure $1"
exit 1
}
case $1 in
install-clc)
echo $0 loading and dumping clc.
( cd /usr/lib/sbcl
/usr/bin/sbcl --core /usr/lib/sbcl/sbcl-dist.core \
--noinform --sysinit /etc/sbclrc --userinit /dev/null \
--load "/usr/lib/sbcl/install-clc.lisp" # 2> /dev/null
mv sbcl-new.core sbcl.core || (echo FAILED ; cp sbcl-dist.core sbcl.core ) )
;;
remove-clc)
echo $0 removing clc-enabled image
cp /usr/lib/sbcl/sbcl-dist.core /usr/lib/sbcl/sbcl.core
;;
rebuild)
echo $0 rebuilding...
shift
echo rebuilding $1
/usr/bin/sbcl --noinform --sysinit /etc/sbclrc --userinit /dev/null \
--disable-debugger \
--eval \
"(handler-case
(progn
(asdf:operate 'asdf:compile-op (quote $1))
(sb-unix:unix-exit 0))
(error (e)
(ignore-errors (format t \"~&Build error: ~A~%\" e))
(finish-output)
(sb-unix:unix-exit 1)))" || build_error
;;
remove)
echo $0 removing packages...
shift
while [ ! -z "$1" ] ; do
rm -rf "/var/cache/common-lisp-controller/*/sbcl/${1}"
shift
done
;;
*)
echo $0 unkown command $1
echo known commands: rebuild, remove, install-clc, and remove-clc
exit 1
;;
esac
exit 0
|
GitWeb
