#! /bin/sh
#
# ${R_HOME}/bin/REMOVE for removing add-on packages

revision='$Revision: 1.10.2.1 $'
version=`set - ${revision}; echo ${2}`
version="R add-on package remover ${version}

Copyright (C) 2000 The R Core Development Team.
This is free software; see the GNU General Public Licence version 2
or later for copying conditions.  There is NO warranty."

usage="Usage: R CMD REMOVE [options] pkgs

Remove the add-on packages specified by pkgs from the default library
tree (${R_HOME}/library) or the tree specified via \`--library'.

Options:
  -h, --help		print short help message and exit
  -v, --version		print version info and exit
  -l, --library=LIB	remove packages from library tree LIB

Report bugs to <r-bugs@r-project.org>."

pkgs=
lib=${R_HOME}/library

while test -n "${1}"; do
  case ${1} in
    -h|--help)
      echo "${usage}"; exit 0 ;;
    -v|--version)
      echo "${version}"; exit 0 ;;
    -l)
      lib=${2}; shift ;;
    --library=*)
      lib=`echo "${1}" | sed -e 's/[^=]*=//'` ;;
    *)
      pkgs="${pkgs} ${1}" ;;
  esac
  shift
done  

if test -z "${pkgs}"; then
  echo "ERROR: no packages specified"
  exit 1
fi

if test -d ${lib} -a -w ${lib}; then
  cd ${lib}
  lib=`pwd`
else    
  echo "ERROR: cannot cd to or remove from directory \`${lib}'"
  exit 2
fi    

for pkg in ${pkgs}; do
  pkg=`basename ${pkg}`		# in case someone gave a path ...
  if test -d ${pkg}; then
    rm -rf ${pkg}
  else
    echo "WARNING: there is no pkg \`${pkg}' in lib \`${lib}'"
    continue
  fi
done

cat */TITLE > LibIndex 2> /dev/null

NO_PERL5=@NO_PERL5@
if ${NO_PERL5}; then
  echo "*** Cannot update the file"
  echo "***    ${lib}/index.html"
  echo "*** without Perl version 5.  Please delete the entries for"
  echo "*** the packages you removed manually."
  exit 2
fi

if test ${lib} = ${R_HOME}/library; then
  ${R_HOME}/bin/build-help --htmllists
  cat ${R_HOME}/library/*/CONTENTS > ${R_HOME}/doc/html/search/index.txt
fi

### Local Variables: ***
### mode: sh ***
### sh-indentation: 2 ***
### End: ***