5 kx #!/bin/sh
5 kx
5 kx # Preserve new files
5 kx install_file() {
5 kx NEW="$1"
5 kx OLD="`dirname $NEW`/`basename $NEW .new`"
5 kx # If there's no file by that name, mv it over:
5 kx if [ ! -r $OLD ]; then
5 kx mv $NEW $OLD
5 kx elif [ "`cat $OLD | md5sum`" = "`cat $NEW | md5sum`" ]; then # toss the redundant copy
5 kx rm $NEW
5 kx fi
5 kx # Otherwise, we leave the .new copy for the admin to consider...
5 kx }
5 kx
5 kx
5 kx # arg 1: the new package version
5 kx pre_install() {
5 kx /bin/true
5 kx }
5 kx
5 kx # arg 1: the new package version
5 kx post_install() {
5 kx #
5 kx # NOTE:
5 kx # 'install-info' can work using relative paths and we can make use build machine
5 kx # utility during installation to the some partition and use target 'install-info'
5 kx # during installation directly on the running target machine.
5 kx #
5 kx if [ -x /usr/bin/install-info ] ; then
5 kx install-info --info-dir=usr/share/info usr/share/info/guile.info.gz 2>/dev/null
5 kx install-info --info-dir=usr/share/info usr/share/info/r5rs.info.gz 2>/dev/null
5 kx elif ! grep "(guile)" usr/share/info/dir 1> /dev/null 2> /dev/null ; then
5 kx cat << EOF >> usr/share/info/dir
5 kx
5 kx The Algorithmic Language Scheme
5 kx * Guile Reference: (guile). The Guile reference manual.
5 kx * R5RS: (r5rs). The Revised(5) Report on Scheme.
5 kx EOF
5 kx fi
5 kx }
5 kx
5 kx # arg 1: the new package version
5 kx # arg 2: the old package version
5 kx pre_update() {
5 kx /bin/true
5 kx }
5 kx
5 kx # arg 1: the new package version
5 kx # arg 2: the old package version
5 kx post_update() {
5 kx post_install
5 kx }
5 kx
5 kx # arg 1: the old package version
5 kx pre_remove() {
5 kx if [ -x /usr/bin/install-info ] ; then
5 kx install-info --delete --info-file=usr/share/info/guile.info.gz --dir-file=usr/share/info/dir 2> /dev/null || /bin/true
5 kx install-info --delete --info-file=usr/share/info/r5rs.info.gz --dir-file=usr/share/info/dir 2> /dev/null || /bin/true
5 kx fi
5 kx }
5 kx
5 kx # arg 1: the old package version
5 kx post_remove() {
5 kx /bin/true
5 kx }
5 kx
5 kx
5 kx operation=$1
5 kx shift
5 kx
5 kx $operation $*