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
|
#!/bin/sh
# postinst script for mit-scheme
#
# see: dh_installdeb(1)
set -e
# summary of how this script can be called:
# * <postinst> `configure' <most-recently-configured-version>
# * <old-postinst> `abort-upgrade' <new version>
# * <conflictor's-postinst> `abort-remove' `in-favour' <package>
# <new-version>
# * <deconfigured's-postinst> `abort-deconfigure' `in-favour'
# <failed-install-package> <version> `removing'
# <conflicting-package> <version>
# for details, see /usr/share/doc/packaging-manual/
#
# quoting from the policy:
# Any necessary prompting should almost always be confined to the
# post-installation script, and should be protected with a conditional
# so that unnecessary prompting doesn't happen if a package's
# installation fails and the `postinst' is called with `abort-upgrade',
# `abort-remove' or `abort-deconfigure'.
case "${1}" in
(configure)
BIN_ARCH=${DPKG_MAINTSCRIPT_ARCH}
case ${BIN_ARCH} in
amd64|x86_64)
BIN_ARCH=x86-64
;;
i486|i586)
BIN_ARCH=i386
;;
esac
update-alternatives \
--install /usr/bin/mit-scheme mit-scheme /usr/bin/mit-scheme-${BIN_ARCH} 20
update-alternatives \
--install /usr/bin/scheme scheme /usr/bin/mit-scheme-${BIN_ARCH} 20 \
--slave /usr/share/man/man1/scheme.1.gz scheme.1.gz \
/usr/share/man/man1/mit-scheme.1.gz
;;
(abort-upgrade|abort-remove|abort-deconfigure)
;;
(*)
echo "postinst called with unknown argument \"${1}\"" >&2
exit 1
;;
esac
# dh_installdeb will replace this with shell code automatically
# generated by other debhelper scripts.
#DEBHELPER#
exit 0
|
