blob: 2f259fd64d7f2bf6b54051aa041dba9ecace8751 (
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
|
# Copyright 1999-2011 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/eclass/common-lisp-common.eclass,v 1.14 2011/12/27 17:55:12 fauli Exp $
#
# Author Matthew Kennedy <mkennedy@gentoo.org>
#
# Sundry code common to many Common Lisp related ebuilds.
# Some handy constants
inherit eutils
CLFASLROOT=/usr/$(get_libdir)/common-lisp/
CLSOURCEROOT=/usr/share/common-lisp/source/
CLSYSTEMROOT=/usr/share/common-lisp/systems/
# Many of our Common Lisp ebuilds are either inspired by, or actually
# use packages and files from the Debian project's archives.
do-debian-credits() {
docinto debian
for i in copyright README.Debian changelog; do
# be silent, since all files are not always present
dodoc "${S}"/debian/${i} &>/dev/null || true
done
docinto .
}
# Most of the code below is from Debian's Common Lisp Controller
# package
register-common-lisp-implementation() {
PROGNAME=$(basename $0)
# first check if there is at least a compiler-name:
if [ -z "$1" ] ; then
cat <<EOF
usage: $PROGNAME compiler-name
registers a Common Lisp compiler to the
Common-Lisp-Controller system.
EOF
exit 1
fi
IMPL=$1
FILE="/usr/$(get_libdir)/common-lisp/bin/$IMPL.sh"
if [ ! -f "$FILE" ] ; then
cat <<EOF
$PROGNAME: I cannot find the script $FILE for the implementation $IMPL
EOF
exit 2
fi
if [ ! -r "$FILE" ] ; then
cat <<EOF
$PROGNAME: I cannot read the script $FILE for the implementation $IMPL
EOF
exit 2
fi
# install CLC into the lisp
sh "$FILE" install-clc || (echo "Installation of CLC failed" >&2 ; exit 3)
mkdir /usr/$(get_libdir)/common-lisp/$IMPL &>/dev/null || true
chown cl-builder:cl-builder /usr/$(get_libdir)/common-lisp/$IMPL
# now recompile the stuff
for i in /usr/share/common-lisp/systems/*.asd ; do
if [ -f $i -a -r $i ] ; then
i=${i%.asd}
package=${i##*/}
clc-autobuild-check $IMPL $package
if [ $? = 0 ]; then
echo recompiling package $package for implementation $IMPL
/usr/bin/clc-send-command --quiet recompile $package $IMPL
fi
fi
done
for i in /usr/share/common-lisp/systems/*.system ; do
if [ -f $i -a -r $i ] ; then
i=${i%.system}
package=${i##*/}
clc-autobuild-check $IMPL $package
if [ $? = 0 ]; then
echo recompiling package $package for implementation $IMPL
/usr/bin/clc-send-command --quiet recompile $package $IMPL
fi
fi
done
echo "$PROGNAME: Compiler $IMPL installed"
}
unregister-common-lisp-implementation() {
PROGNAME=$(basename $0)
if [ `id -u` != 0 ] ; then
echo $PROGNAME: you need to be root to run this program
exit 1
fi
if [ -z "$1" ] ; then
cat <<EOF
usage: $PROGNAME compiler-name
un-registers a Common Lisp compiler to the
Common-Lisp-Controller system.
EOF
exit 1
fi
IMPL=$1
IMPL_BIN="/usr/$(get_libdir)/common-lisp/bin/$IMPL.sh"
if [ ! -f "$IMPL_BIN" ] ; then
cat <<EOF
$PROGNAME: No implementation of the name $IMPL is registered
Cannot find the file $IMPL_BIN
Maybe you already removed it?
EOF
exit 0
fi
if [ ! -r "$IMPL_BIN" ] ; then
cat <<EOF
$PROGNAME: No implementation of the name $IMPL is registered
Cannot read the file $IMPL_BIN
Maybe you already removed it?
EOF
exit 0
fi
# Uninstall the CLC
sh $IMPL_BIN remove-clc || echo "De-installation of CLC failed" >&2
clc-autobuild-impl $IMPL inherit
# Just remove the damn subtree
(cd / ; rm -rf "/usr/$(get_libdir)/common-lisp/$IMPL/" ; true )
echo "$PROGNAME: Common Lisp implementation $IMPL uninstalled"
}
reregister-all-common-lisp-implementations() {
# Rebuilds all common lisp implementations
# Written by Kevin Rosenberg <kmr@debian.org>
# GPL-2 license
local clc_bin_dir=/usr/$(get_libdir)/common-lisp/bin
local opt=$(shopt nullglob); shopt -s nullglob
cd $clc_bin_dir
for impl_bin in *.sh; do
impl=$(echo $impl_bin | sed 's/\(.*\).sh/\1/')
unregister-common-lisp-implementation $impl
register-common-lisp-implementation $impl
done
cd - >/dev/null
[[ $opt = *off ]] && shopt -u nullglob
}
# BIG FAT HACK: Since the Portage emerge step kills file timestamp
# information, we need to compensate by ensuring all FASL files are
# more recent than their source files.
# The following `impl-*-timestamp-hack' functions SHOULD NOT be used
# outside of this eclass.
impl-save-timestamp-hack() {
local impl=$1
dodir /usr/share/${impl}
tar cpjf "${D}"/usr/share/${impl}/portage-timestamp-compensate -C "${D}"/usr/$(get_libdir)/${impl} .
}
impl-restore-timestamp-hack() {
local impl=$1
tar xjpfo /usr/share/${impl}/portage-timestamp-compensate -C /usr/$(get_libdir)/${impl}
}
impl-remove-timestamp-hack() {
local impl=$1
rm -rf /usr/$(get_libdir)/${impl} &>/dev/null || true
}
test-in() {
local symbol=$1
shift
for i in $@; do
if [ $i == ${symbol} ]; then
return 0 # true
fi
done
false
}
standard-impl-postinst() {
local impl=$1
rm -rf /usr/$(get_libdir)/common-lisp/${impl}/* &>/dev/null || true
chown cl-builder:cl-builder /usr/$(get_libdir)/common-lisp/${impl}
if test-in ${impl} cmucl sbcl; then
impl-restore-timestamp-hack ${impl}
fi
chown -R root:0 /usr/$(get_libdir)/${impl}
/usr/bin/clc-autobuild-impl ${impl} yes
register-common-lisp-implementation ${impl}
}
standard-impl-postrm() {
local impl=$1 impl_binary=$2
# Since we keep our own time stamps we must manually remove them
# here.
if [ ! -x ${impl_binary} ]; then
if test-in ${impl} cmucl sbcl; then
impl-remove-timestamp-hack ${impl}
fi
rm -rf /usr/$(get_libdir)/common-lisp/${impl}/*
fi
}
# Local Variables: ***
# mode: shell-script ***
# tab-width: 4 ***
# End: ***
|
GitWeb