Radix cross Linux

     5         kx #!/bin/sh
     5         kx 
     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   if [ -r bin/bash ]; then
     5         kx     mv bin/bash bin/bash.old
     5         kx   fi
     5         kx   mv bin/bash5.new bin/bash
     5         kx   if [ -f bin/bash.old ]; then
     5         kx     rm -f bin/bash.old
     5         kx   fi
     5         kx   if [ ! -r etc/shells ]; then
     5         kx     touch etc/shells
     5         kx     chmod 644 etc/shells
     5         kx   fi
     5         kx   if grep -wq bin/bash etc/shells ; then
     5         kx     true
     5         kx   else
     5         kx     echo "/bin/bash" >> etc/shells
     5         kx   fi
     5         kx   ( cd usr/bin ; rm -rf bash )
     5         kx   ( cd usr/bin ; ln -sf ../../bin/bash bash )
     5         kx   if [ ! -r bin/sh -a ! -L bin/sh ]; then
     5         kx     ( cd bin ; ln -sf bash sh )
     5         kx   fi
     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/bash.info.gz 2>/dev/null
     5         kx   elif ! grep "(bash)" usr/share/info/dir 1> /dev/null 2> /dev/null ; then
     5         kx   cat << EOF >> usr/share/info/dir
     5         kx 
     5         kx Basics
     5         kx * Bash: (bash).                 The GNU Bourne-Again SHell.
     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/bash.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 $*