blob: f5ed6a1d8fcecfdec34b960736a573a12d524456 (
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!/bin/sh
# Copyright (c) 2002 Kevin M. Rosenberg
# GNU GPL v2 license
if [ ! -f /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp ] ; then
echo "*** Can't find common-lisp-controller.lisp ***" >&2
echo "Please report this as a bug" &>2
exit 1
fi
clisp_dir=/usr/lib/clisp
clc_lib_dir=/usr/lib/common-lisp/clisp
builder=/usr/bin/clisp
old_mem=$clisp_dir/full/lispinit.mem
new_mem=$clisp_dir/full/lispinit-new.mem
clean_mem=$clisp_dir/full/lispinit-clean.mem
lisp_error()
{
echo "Error running $builder" >&2
exit 1
}
mem_error()
{
echo "Error moving new lisp image $new_mem" >&2
exit 1
}
case $1 in
rebuild)
echo $0 Rebuilding packages...
shift
while [ -x $builder ] && [ ! -z "$1" ] ; do
echo ...rebuilding $1
$builder -norc -q -M $old_mem -x "
(let ((*compile-print* nil)
(*compile-progress* nil)
(*compile-verbose* nil)
(*require-verbose* nil)
(*load-verbose* nil)
(mk::*load-source-if-no-binary* nil)
(mk::*bother-user-if-no-binary* nil)
(mk::*compile-during-load* t))
(handler-case
(progn
(c-l-c:compile-library (quote $1))
(ext:exit 0)
)
(error (e)
(ignore-errors (format t \"~&Build error: ~A~%\" e))
(finish-output)
(ext:exit 1))))" || exit 1
shift
done
;;
remove)
echo $0 Removing packages...
shift
while [ ! -z "$1" ] ; do
echo ...removing package $1
rm -rf "${clc_lib_dir}/$1"
shift
done
rmdir $clc_lib_dir 2> /dev/null
;;
install-clc)
echo Installing clc...
if [ ! -f $clean_mem ]; then
cp $old_mem $clean_mem
fi
if [ -x $clisp_dir/$lisp_builder ]; then
$builder -norc -q -M $clean_mem \
-x "
(handler-case
(progn
(when (find-package :c-l-c) ; have to remove
(delete-package :c-l-c)) ; for clisp workaround
(load \"$clisp_dir/install-clc.lisp\")
(saveinitmem \"${new_mem}\")
(ext:exit 0))
(error (e)
(ignore-errors (format t \"~&install-clc error: ~A~%\" e))
(finish-output)
(ext:exit 1)))" || lisp_error
mv $new_mem $old_mem || mem_error
fi
;;
remove-clc)
if [ -f $clean_mem ]; then
cp $clean_mem $old_mem
else
echo "Warning: Can't find original image file $clean_mem. Aborting." >& 2
fi
;;
make-user-image)
if [ ! -f $2 ] ; then
echo "Trying to make-user image, but can not find file $2" >&2
exit 1
fi
$builder -norc -q -M $old_mem \
-x "(progn
(load \"$2\")
(saveinitmem \"${new_mem}\"))
(ext:exit 0)" || lisp_error
mv $new_mem $old_mem || mem_error
;;
*)
echo "`basename $0`: Unknown command $1" >&2
echo "Known commands are:" >&2
echo "install-clc, remove-clc, rebuild, remove, and make-user-image" >&2
exit 1
;;
esac
exit 0
|
GitWeb