PREUN
/bin/sh
if [ "$1" = "0" ]; then if [[ -f /usr/share/info/guile-tut.info.xz ]]; then /sbin/install-info /usr/share/info/guile-tut.info.xz --dir=/usr/share/info/dir --remove ; fi; fi
if [ "$1" = "0" ]; then if [[ -f /usr/share/info/guile.info.xz ]]; then /sbin/install-info /usr/share/info/guile.info.xz --dir=/usr/share/info/dir --remove ; fi; fi
if [ "$1" = "0" ]; then if [[ -f /usr/share/info/r5rs.info.xz ]]; then /sbin/install-info /usr/share/info/r5rs.info.xz --dir=/usr/share/info/dir --remove ; fi; fi
if [ "$1" = "0" ]; then if [[ -f /usr/share/info/goops.info.xz ]]; then /sbin/install-info /usr/share/info/goops.info.xz --dir=/usr/share/info/dir --remove ; fi; fi
POSTIN
/bin/sh
if [[ -f /usr/share/info/guile-tut.info.xz ]]; then /sbin/install-info /usr/share/info/guile-tut.info.xz --dir=/usr/share/info/dir; fi
if [[ -f /usr/share/info/guile.info.xz ]]; then /sbin/install-info /usr/share/info/guile.info.xz --dir=/usr/share/info/dir; fi
if [[ -f /usr/share/info/r5rs.info.xz ]]; then /sbin/install-info /usr/share/info/r5rs.info.xz --dir=/usr/share/info/dir; fi
if [[ -f /usr/share/info/goops.info.xz ]]; then /sbin/install-info /usr/share/info/goops.info.xz --dir=/usr/share/info/dir; fi
Triggers
slib
/bin/sh
# Remove files created in guile < 1.8.7-4mdv
ln -sfT ../../slib /usr/share/guile/1.8/slib
rm -f /usr/share/guile/1.8/slibcat
export SCHEME_LIBRARY_PATH=/usr/share/slib/
# Build SLIB catalog
for pre in \
"(use-modules (ice-9 slib))" \
"(load \"/usr/share/slib/guile.init\")"
do
/usr/bin/guile -c "$pre
(set! implementation-vicinity (lambda () \"/usr/share/guile/1.8/\"))
(require 'new-catalog)" &> /dev/null && break
rm -f /usr/share/guile/1.8/slibcat
done
:
slib
/bin/sh
if [ "$1" = 0 -o "$2" = 0 ]; then
rm -f /usr/share/guile/1.8/slib{,cat}
fi