| 1 |
# Copyright 1999-2012 Gentoo Foundation
|
| 2 |
# Distributed under the terms of the GNU General Public License v2
|
| 3 |
# $Header: /var/cvsroot/gentoo-x86/eclass/common-lisp-common.eclass,v 1.14 2011/12/27 17:55:12 fauli Exp $
|
| 4 |
#
|
| 5 |
# Author Matthew Kennedy <mkennedy@gentoo.org>
|
| 6 |
#
|
| 7 |
# Sundry code common to many Common Lisp related ebuilds.
|
| 8 |
|
| 9 |
# Some handy constants
|
| 10 |
|
| 11 |
inherit eutils multilib
|
| 12 |
|
| 13 |
CLFASLROOT=/usr/$(get_libdir)/common-lisp/
|
| 14 |
CLSOURCEROOT=/usr/share/common-lisp/source/
|
| 15 |
CLSYSTEMROOT=/usr/share/common-lisp/systems/
|
| 16 |
|
| 17 |
# Many of our Common Lisp ebuilds are either inspired by, or actually
|
| 18 |
# use packages and files from the Debian project's archives.
|
| 19 |
|
| 20 |
do-debian-credits() {
|
| 21 |
docinto debian
|
| 22 |
for i in copyright README.Debian changelog; do
|
| 23 |
# be silent, since all files are not always present
|
| 24 |
dodoc "${S}"/debian/${i} &>/dev/null || true
|
| 25 |
done
|
| 26 |
docinto .
|
| 27 |
}
|
| 28 |
|
| 29 |
# Most of the code below is from Debian's Common Lisp Controller
|
| 30 |
# package
|
| 31 |
|
| 32 |
register-common-lisp-implementation() {
|
| 33 |
PROGNAME=$(basename $0)
|
| 34 |
# first check if there is at least a compiler-name:
|
| 35 |
if [ -z "$1" ] ; then
|
| 36 |
cat <<EOF
|
| 37 |
usage: $PROGNAME compiler-name
|
| 38 |
|
| 39 |
registers a Common Lisp compiler to the
|
| 40 |
Common-Lisp-Controller system.
|
| 41 |
EOF
|
| 42 |
exit 1
|
| 43 |
fi
|
| 44 |
IMPL=$1
|
| 45 |
FILE="/usr/$(get_libdir)/common-lisp/bin/$IMPL.sh"
|
| 46 |
if [ ! -f "$FILE" ] ; then
|
| 47 |
cat <<EOF
|
| 48 |
$PROGNAME: I cannot find the script $FILE for the implementation $IMPL
|
| 49 |
EOF
|
| 50 |
exit 2
|
| 51 |
fi
|
| 52 |
if [ ! -r "$FILE" ] ; then
|
| 53 |
cat <<EOF
|
| 54 |
$PROGNAME: I cannot read the script $FILE for the implementation $IMPL
|
| 55 |
EOF
|
| 56 |
exit 2
|
| 57 |
fi
|
| 58 |
# install CLC into the lisp
|
| 59 |
sh "$FILE" install-clc || (echo "Installation of CLC failed" >&2 ; exit 3)
|
| 60 |
mkdir /usr/$(get_libdir)/common-lisp/$IMPL &>/dev/null || true
|
| 61 |
chown cl-builder:cl-builder /usr/$(get_libdir)/common-lisp/$IMPL
|
| 62 |
|
| 63 |
# now recompile the stuff
|
| 64 |
for i in /usr/share/common-lisp/systems/*.asd ; do
|
| 65 |
if [ -f $i -a -r $i ] ; then
|
| 66 |
i=${i%.asd}
|
| 67 |
package=${i##*/}
|
| 68 |
clc-autobuild-check $IMPL $package
|
| 69 |
if [ $? = 0 ]; then
|
| 70 |
echo recompiling package $package for implementation $IMPL
|
| 71 |
/usr/bin/clc-send-command --quiet recompile $package $IMPL
|
| 72 |
fi
|
| 73 |
fi
|
| 74 |
done
|
| 75 |
for i in /usr/share/common-lisp/systems/*.system ; do
|
| 76 |
if [ -f $i -a -r $i ] ; then
|
| 77 |
i=${i%.system}
|
| 78 |
package=${i##*/}
|
| 79 |
clc-autobuild-check $IMPL $package
|
| 80 |
if [ $? = 0 ]; then
|
| 81 |
echo recompiling package $package for implementation $IMPL
|
| 82 |
/usr/bin/clc-send-command --quiet recompile $package $IMPL
|
| 83 |
fi
|
| 84 |
fi
|
| 85 |
done
|
| 86 |
echo "$PROGNAME: Compiler $IMPL installed"
|
| 87 |
}
|
| 88 |
|
| 89 |
unregister-common-lisp-implementation() {
|
| 90 |
PROGNAME=$(basename $0)
|
| 91 |
if [ `id -u` != 0 ] ; then
|
| 92 |
echo $PROGNAME: you need to be root to run this program
|
| 93 |
exit 1
|
| 94 |
fi
|
| 95 |
if [ -z "$1" ] ; then
|
| 96 |
cat <<EOF
|
| 97 |
usage: $PROGNAME compiler-name
|
| 98 |
|
| 99 |
un-registers a Common Lisp compiler to the
|
| 100 |
Common-Lisp-Controller system.
|
| 101 |
EOF
|
| 102 |
exit 1
|
| 103 |
fi
|
| 104 |
IMPL=$1
|
| 105 |
IMPL_BIN="/usr/$(get_libdir)/common-lisp/bin/$IMPL.sh"
|
| 106 |
if [ ! -f "$IMPL_BIN" ] ; then
|
| 107 |
cat <<EOF
|
| 108 |
$PROGNAME: No implementation of the name $IMPL is registered
|
| 109 |
Cannot find the file $IMPL_BIN
|
| 110 |
|
| 111 |
Maybe you already removed it?
|
| 112 |
EOF
|
| 113 |
exit 0
|
| 114 |
fi
|
| 115 |
if [ ! -r "$IMPL_BIN" ] ; then
|
| 116 |
cat <<EOF
|
| 117 |
$PROGNAME: No implementation of the name $IMPL is registered
|
| 118 |
Cannot read the file $IMPL_BIN
|
| 119 |
|
| 120 |
Maybe you already removed it?
|
| 121 |
EOF
|
| 122 |
exit 0
|
| 123 |
fi
|
| 124 |
# Uninstall the CLC
|
| 125 |
sh $IMPL_BIN remove-clc || echo "De-installation of CLC failed" >&2
|
| 126 |
clc-autobuild-impl $IMPL inherit
|
| 127 |
# Just remove the damn subtree
|
| 128 |
(cd / ; rm -rf "/usr/$(get_libdir)/common-lisp/$IMPL/" ; true )
|
| 129 |
echo "$PROGNAME: Common Lisp implementation $IMPL uninstalled"
|
| 130 |
}
|
| 131 |
|
| 132 |
reregister-all-common-lisp-implementations() {
|
| 133 |
# Rebuilds all common lisp implementations
|
| 134 |
# Written by Kevin Rosenberg <kmr@debian.org>
|
| 135 |
# GPL-2 license
|
| 136 |
local clc_bin_dir=/usr/$(get_libdir)/common-lisp/bin
|
| 137 |
local opt=$(shopt nullglob); shopt -s nullglob
|
| 138 |
cd $clc_bin_dir
|
| 139 |
for impl_bin in *.sh; do
|
| 140 |
impl=$(echo $impl_bin | sed 's/\(.*\).sh/\1/')
|
| 141 |
unregister-common-lisp-implementation $impl
|
| 142 |
register-common-lisp-implementation $impl
|
| 143 |
done
|
| 144 |
cd - >/dev/null
|
| 145 |
[[ $opt = *off ]] && shopt -u nullglob
|
| 146 |
}
|
| 147 |
|
| 148 |
# BIG FAT HACK: Since the Portage emerge step kills file timestamp
|
| 149 |
# information, we need to compensate by ensuring all FASL files are
|
| 150 |
# more recent than their source files.
|
| 151 |
|
| 152 |
# The following `impl-*-timestamp-hack' functions SHOULD NOT be used
|
| 153 |
# outside of this eclass.
|
| 154 |
|
| 155 |
impl-save-timestamp-hack() {
|
| 156 |
local impl=$1
|
| 157 |
dodir /usr/share/${impl}
|
| 158 |
tar cpjf "${D}"/usr/share/${impl}/portage-timestamp-compensate -C "${D}"/usr/$(get_libdir)/${impl} .
|
| 159 |
}
|
| 160 |
|
| 161 |
impl-restore-timestamp-hack() {
|
| 162 |
local impl=$1
|
| 163 |
tar xjpfo /usr/share/${impl}/portage-timestamp-compensate -C /usr/$(get_libdir)/${impl}
|
| 164 |
}
|
| 165 |
|
| 166 |
impl-remove-timestamp-hack() {
|
| 167 |
local impl=$1
|
| 168 |
rm -rf /usr/$(get_libdir)/${impl} &>/dev/null || true
|
| 169 |
}
|
| 170 |
|
| 171 |
test-in() {
|
| 172 |
local symbol=$1
|
| 173 |
shift
|
| 174 |
for i in $@; do
|
| 175 |
if [ $i == ${symbol} ]; then
|
| 176 |
return 0 # true
|
| 177 |
fi
|
| 178 |
done
|
| 179 |
false
|
| 180 |
}
|
| 181 |
|
| 182 |
standard-impl-postinst() {
|
| 183 |
local impl=$1
|
| 184 |
rm -rf /usr/$(get_libdir)/common-lisp/${impl}/* &>/dev/null || true
|
| 185 |
chown cl-builder:cl-builder /usr/$(get_libdir)/common-lisp/${impl}
|
| 186 |
if test-in ${impl} cmucl sbcl; then
|
| 187 |
impl-restore-timestamp-hack ${impl}
|
| 188 |
fi
|
| 189 |
chown -R root:0 /usr/$(get_libdir)/${impl}
|
| 190 |
/usr/bin/clc-autobuild-impl ${impl} yes
|
| 191 |
register-common-lisp-implementation ${impl}
|
| 192 |
}
|
| 193 |
|
| 194 |
standard-impl-postrm() {
|
| 195 |
local impl=$1 impl_binary=$2
|
| 196 |
# Since we keep our own time stamps we must manually remove them
|
| 197 |
# here.
|
| 198 |
if [ ! -x ${impl_binary} ]; then
|
| 199 |
if test-in ${impl} cmucl sbcl; then
|
| 200 |
impl-remove-timestamp-hack ${impl}
|
| 201 |
fi
|
| 202 |
rm -rf /usr/$(get_libdir)/common-lisp/${impl}/*
|
| 203 |
fi
|
| 204 |
}
|
| 205 |
|
| 206 |
# Local Variables: ***
|
| 207 |
# mode: shell-script ***
|
| 208 |
# tab-width: 4 ***
|
| 209 |
# End: ***
|
Parent Directory
| 
Revision Log