Radix cross Linux

#!/bin/sh

# Preserve new files
install_file() {
  NEW="$1"
  OLD="`dirname $NEW`/`basename $NEW .new`"
  # If there's no file by that name, mv it over:
  if [ ! -r $OLD ]; then
    mv $NEW $OLD
  elif [ "`cat $OLD | md5sum`" = "`cat $NEW | md5sum`" ]; then # toss the redundant copy
    rm $NEW
  fi
  # Otherwise, we leave the .new copy for the admin to consider...
}


# arg 1:  the new package version
pre_install() {
  /bin/true
}

# arg 1:  the new package version
post_install() {
  #
  # NOTE:
  #   'install-info' can work using relative paths and we can make use build machine
  #   utility during installation to the some partition and use target 'install-info'
  #   during installation directly on the running target machine.
  #
  if [ -x /usr/bin/install-info ] ; then
    install-info --info-dir=usr/share/info usr/share/info/gawk.info.gz         2>/dev/null
    install-info --info-dir=usr/share/info usr/share/info/gawkinet.info.gz     2>/dev/null
    install-info --info-dir=usr/share/info usr/share/info/gawkworkflow.info.gz 2>/dev/null
  elif ! grep "(gawk)" usr/share/info/dir 1> /dev/null 2> /dev/null ; then
  cat << EOF >> usr/share/info/dir

Individual utilities
* Gawk Work Flow: (gawkworkflow)Overview.       Participating in 'gawk' 
                                                  development.
* awk: (gawk)Invoking Gawk.                     Text scanning and processing.

Network applications
* awkinet: (gawkinet).          TCP/IP Internetworking With 'gawk'.

Text creation and manipulation
* Gawk: (gawk).                 A text scanning and processing language.
* Gawk Work Flow: (gawkworkflow).
                                Participating in 'gawk' development.
EOF
  fi
}

# arg 1:  the new package version
# arg 2:  the old package version
pre_update() {
  /bin/true
}

# arg 1:  the new package version
# arg 2:  the old package version
post_update() {
  post_install
}

# arg 1:  the old package version
pre_remove() {
  if [ -x /usr/bin/install-info ] ; then
    install-info --delete --info-file=usr/share/info/gawk.info.gz         --dir-file=usr/share/info/dir 2> /dev/null || /bin/true
    install-info --delete --info-file=usr/share/info/gawkinet.info.gz     --dir-file=usr/share/info/dir 2> /dev/null || /bin/true
    install-info --delete --info-file=usr/share/info/gawkworkflow.info.gz --dir-file=usr/share/info/dir 2> /dev/null || /bin/true
  fi
}

# arg 1:  the old package version
post_remove() {
  /bin/true
}


operation=$1
shift

$operation $*