#!/bin/sh

die () {
  echo
  echo "Error:"
  echo $1 >&2
  exit 2
}

[ -e "scripts/config" ] \
  || die "Please run ./configure first"

. scripts/config
. scripts/common.sh

install_pkg () {
  IDX=$1
  PKG=$2

  cd "packages/${PKG}" 2> /dev/null \
    || die "The directory for the component ${PKG} is missing"

  [ -x Setup ] || die "The ${PKG}/Setup script does not exist or cannot be run"


  if [ -n "${DESTDIR}" ]; then

      ./Setup copy ${VERBOSE} --destdir=${DESTDIR} \
        || die "Installing the ${PKG} component failed"
    
      ./Setup register ${VERBOSE} --gen-pkg-config="${DESTDIR}/load/${IDX}-${PKG}.conf" \
        || die "Generating the registration information for the package ${PKG} failed"
        
  else
    
      ./Setup copy ${VERBOSE} \
        || die "Installing the ${PKG} component failed"
    
      ./Setup register ${VERBOSE} --gen-pkg-config="${PKG}.conf" \
        || die "Generating the registration information for the package ${PKG} failed"
        
      if [ -f ${PKG}.conf ]; then
        if test "${USER_INSTALL}" = "YES"; then
          GHC_PKG_DB="--user"
        else
          GHC_PKG_DB="--global"
        fi
        ${GHC_PKG} update ${GHC_PKG_DB} "${PKG}.conf" \
          || die "Registering the package ${PKG} failed"
      fi
    
      ./Setup copy ${VERBOSE} \
        || die "Installing the ${PKG} component failed"
    
  fi


  cd ../..
}

if [ -f DESTDIR ]; then
    DESTDIR=$(cat DESTDIR)
    mkdir -p ${DESTDIR}/load
fi

# Actually do something!
i=000
for pkg in `cat packages/platform.packages`; do
  if is_pkg_installed "${pkg}"; then
    true
  else
    echo "Installing ${pkg}..."
    install_pkg ${i} ${pkg}
  fi
  i=$(printf "%03d" $(expr ${i} + 1))
done

echo
echo '*******************************************************'
echo '* Installation completed successfully.            '
echo '*'
echo '* Programs installed into:                        '
echo "*   ${prefix}/bin"
echo '*'
echo '* Now do "cabal update" to initialize the package list                          '
echo '*'
echo '* Additional packages may be found at http://hackage.haskell.org'
echo '* or via "cabal list <pattern>"'
echo '*'
echo '* Use "cabal install <foo>" to install additional packages'
echo '*'
echo '*******************************************************'