blob: b0b2fe23157e908ca869c5b2055d25e1449d75d7 (
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
|
# Copyright 1999-2003 Gentoo Technologies, Inc.
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/eclass/common-lisp-common.eclass,v 1.3 2004/02/12 15:14:03 mkennedy Exp $
#
# Author Matthew Kennedy <mkennedy@gentoo.org>
#
# Sundy code common to many Common Lisp related ebuilds.
# Some handy constants
CLFASLROOT=/usr/lib/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/lib/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/lib/common-lisp/$IMPL || true &>/dev/null
chown cl-builder:cl-builder /usr/lib/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/lib/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/lib/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/lib/common-lisp/bin
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
}
# Local Variables: ***
# mode: shell-script ***
# tab-width: 4 ***
# End: ***
|
GitWeb