The R Project SVN – R – Diff – /trunk/src/scripts/INSTALL.in


#! /bin/sh
#
# ${R_HOME}/bin/INSTALL for installing add-on packages
 
# @configure_input@
 
revision='$Revision: 1.145 $'
version=`set - ${revision}; echo ${2}`
version="R add-on package installer ${version}
 
Copyright (C) 2000-2003 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 INSTALL [options] pkgs
 
Install the add-on packages specified by pkgs.  The elements of pkgs can
be relative or absolute paths to directories with the package (bundle)
sources, or to gzipped package 'tar' archives.  The library tree to
install to can be specified via '--library'.  By default, packages are
installed in the library tree rooted at the first directory given in the
environment variable R_LIBS if this is set and non-null, and into the
default R library tree (${R_HOME}/library) otherwise.
 
Options:
  -h, --help		print short help message and exit
  -v, --version		print version info and exit
      --configure-args=ARGS
                        set arguments for the package's configure script
			(if any)
      --configure-vars=VARS
                        set variables for the configure script (if any)
  -c, --clean		remove all files created during installation
  -s, --save[=ARGS]     save the package source as an image file, and
                        arrange for this file to be loaded when the
                        package is attached; if given, ARGS are passed
                        to R when creating the save image
      --no-save         do not save the package source as an image file
  -d, --debug		turn on shell and build-help debugging
  -l, --library=LIB	install packages to library tree LIB
      --no-configure    do not use the package's configure script
      --no-docs		do not build and install documentation
      --with-package-versions
                        allow for multiple versions of the same package
      --use-zip-data	collect data files in zip archive
      --use-zip-help	collect help and examples into zip archives
      --use-zip		combine '--use-zip-data' and '--use-zip-help'
      --fake		do minimal install for testing purposes
 
Report bugs to <r-bugs@r-project.org>."
 
## <NOTE>
## This is a *shell* script.
## According to the R Coding Standards (see R-exts), Perl can be assumed
## for *source*, but not for *binary* installations.
## </NOTE>
 
## <NOTE>
## We try to be defensive about possible white space in file names,
## hence all the strange quoting ...
## </NOTE>
 
umask 022
 
R_VERSION='@VERSION@'
GETWD='@GETWD@'
## <FIXME>
## Should already be set via Rcmd.
MAKE=${MAKE-'@MAKE@'}
TAR=${TAR='@TAR@'}
## </FIXME>
NO_PERL5=@NO_PERL5@
NO_PERL5_MSG="\
*** Formatting and installing R help pages needs Perl version 5, which
*** does not seem to be installed on your system or is not in your path.
*** Please install either Perl 5 on your system and re-configure R or
*** get the PDF reference manual from the nearest CRAN server.
*** The CRAN master site can be found at
***    http://cran.r-project.org/"
 
if mkdir -p . 2>/dev/null; then
  MKDIR_P="mkdir -p"
else
  MKDIR_P="${R_HOME}/bin/mkinstalldirs"
fi
 
warning () { echo "WARNING: $*" >&2 ; }
error ()   { echo "ERROR: $*" >&2 ; }
 
startdir=`${GETWD}`
tmpdir="${TMPDIR-/tmp}/R.INSTALL.$$"
if (test -d "${tmpdir}" && test -w "${tmpdir}") || \
    ${MKDIR_P} "${tmpdir}" 2> /dev/null; then
  tmpdir=`cd "${tmpdir}" && ${GETWD}`
else
  error "cannot write to or create temporary directory '${tmpdir}'"
  exit 1
fi
 
: ${R_OSTYPE=unix}
## <NOTE>
## Unix only ... but Windows has INSTALL as a Perl script.
R_EXE="${R_HOME}/bin/R"
## </NOTE>
 
## <NOTE>
## This could be made a bit more general: if R CMD INSTALL is run by
## another tool (e.g., when building or checking a package, its messages
## should be a section level deeper (at least).  So we could have an
## argument to set the initial secnumdepth (0 by default), and work
## against this ...
message () { echo "${stars} $*"; }
stars="*"
## </NOTE>
 
. "${R_HOME}/share/sh/dcf.sh"	# get_dcf_field()
 
get_packages () {
  ## get the full path names to all packages contained in $1.
  ## NOTE: modifies pkgs!
  if grep "^Contains:" "${1}/DESCRIPTION" >/dev/null; then
    bundlepkg=`get_dcf_field Contains "${1}/DESCRIPTION"`
    for p in ${bundlepkg}; do
      pkgs="${pkgs} \"`cd "${1}/${p}" && ${GETWD}`\""
      if test -f "${1}/${p}/DESCRIPTION.in"; then
        ## Try being defensive about missing final newlines, or extra
	## empty lines.
        (cat "${1}/${p}/DESCRIPTION.in"
	  echo
          grep -v "^Contains:" "${1}/DESCRIPTION"
	  echo) | sed '/^ *$/d' > "${1}/${p}/DESCRIPTION"
      fi
    done
  else 
    pkgs="${pkgs} \"`cd "${1}" && ${GETWD}`\""
  fi
}
 
### 
### Setup and command line processing.
 
if test -n "${R_LIBS}"; then
  lib=`echo "${R_LIBS}" | cut -f1 -d:`
else
  lib="${R_HOME}/library"
fi
 
pkgs=
clean=false
debug=false
error=false
build_text=true
build_html=true
build_latex=true
build_example=true
build_help=true
build_help_opts=
use_configure=true
use_zip_data=
use_zip_help=
configure_args=
configure_vars=
with_package_versions=false
save="CHECK"
save_args=
fake=false
 
while test -n "${1}"; do
  case ${1} in
    -h|--help)
      echo "${usage}"; exit 0 ;;
    -v|--version)
      echo "${version}"; exit 0 ;;
    -c|--clean)
      clean=true ;;
    -s|--save)
      save=true;;
    --save=*)
      save_args=`echo "${1}" | sed -e 's/[^=]*=//'` ;;
    --no-save)
      save=false ;;
    -d|--debug)
      debug=true ;;
    --with-package-versions)
      with_package_versions=true ;;
    --no-configure)
      use_configure=false ;;
    --no-docs)
      build_text=false
      build_html=false
      build_latex=false
      build_example=false ;;
    --no-text)
      build_text=false ;;
    --no-html)
      build_html=false ;;
    --no-latex)
      build_latex=false ;;
    --no-example)
      build_example=false ;;
    --use-zip)
      use_zip_data=true
      use_zip_help=true ;;
    --use-zip-data)
      use_zip_data=true ;;
    --use-zip-help)
      use_zip_help=true ;;
    -l|--library)
      lib="${2}"; shift ;;
    --library=*)
      lib=`echo "${1}" | sed -e 's/[^=]*=//'` ;;
    --configure-args=*)
      configure_args=`echo "${1}" | sed -e 's/[^=]*=//'` ;;
    --configure-vars=*)
      configure_vars=`echo "${1}" | sed -e 's/[^=]*=//'` ;;
    --fake)
      fake=true ;;
    *)
      if test -f "${1}"; then
	pkgname=`basename "${1}"`
	## Also allow for 'package.tgz' ...
	pkgname=`basename "${pkgname}" .tgz`
	pkgname=`echo "${pkgname}" | sed 's/_.*//'`
	## Note that we use '-m' so that modification dates are *not*
	## preserved when untarring the sources.  This is necessary to
	## ensure that the preformatted help pages are always rebuilt.
	## Otherwise, the build date for an older version may be newer
	## than the modification date for the new sources as recorded in
	## the tarball ...
	gzip -dc "${1}" | (cd "${tmpdir}" && ${TAR} -mxf -)
	if test -f "${tmpdir}/${pkgname}/DESCRIPTION"; then
	  get_packages "${tmpdir}/${pkgname}"
	else
	  error "cannot extract package from '${1}'"
	  exit 1
	fi    
      elif test -f "${1}/DESCRIPTION"; then
        get_packages "${1}"
      else
	warning "invalid package '${1}'"
      fi
      ;;
  esac
  shift
done
 
if test -z "${pkgs}"; then
  error "no packages specified"
  exit 1
fi
 
if (test -d "${lib}" && test -w "${lib}") || \
    ${MKDIR_P} "${lib}" 2> /dev/null; then
  lib=`cd "${lib}" && ${GETWD}`
else
  error "cannot write to or create directory '${lib}'"
  exit 2
fi
lockdir="${lib}/00LOCK"
if test -d "${lockdir}" || test -f "${lockdir}"; then
  error "failed to lock directory '${lib}' for modifying"
  echo "Try removing '${lockdir}'" >&2
  exit 3
else
  ${MKDIR_P} "${lockdir}"
  if test ${?} -ne 0; then
    ## This should not really happen ...
    error "failed to lock directory '${lib}' for modifying"
    exit 3
  fi
fi
 
if ${fake}; then
  use_configure=false
  build_text=true
  build_html=false
  build_latex=true
  build_example=false
fi
 
if ${build_text}; then
  build_help_opts="${build_help_opts} --txt"
fi
if ${build_html}; then
  build_help_opts="${build_help_opts} --html"
fi
if ${build_latex}; then
  build_help_opts="${build_help_opts} --latex"
fi
if ${build_example}; then
  build_help_opts="${build_help_opts} --example"
fi
if test -z "${build_help_opts}"; then
  build_help=false
elif ${debug}; then
  build_help_opts="--debug ${build_help_opts}"
fi
 
is_first_package=yes
 
### 
### Install a *binary* package from the current directory. 
 
do_install_binary () {
  pkg="${1}"
  R_PACKAGE_DIR="${2}"
  R_PACKAGE_NAME="${3}"
 
  if test "${pkg}" = "${R_PACKAGE_NAME}"; then
    message "Installing *binary* package '${pkg}' ..."
  else
    message "Installing *binary* package '${pkg}' as '${R_PACKAGE_NAME}' ..."
  fi
 
  if test -f "${R_PACKAGE_DIR}/DESCRIPTION"; then
    ## Back up previous version.
    mv "${R_PACKAGE_DIR}" "${lockdir}/${R_PACKAGE_NAME}"
    ${MKDIR_P} "${R_PACKAGE_DIR}"
  fi
  
  cp -r . "${R_PACKAGE_DIR}" || \
    (${TAR} cf - . | (cd "${R_PACKAGE_DIR}" && ${TAR} xf -))
 
  if test ${?} -ne 0; then
    error "installing binary package failed"
    do_exit_on_error
  fi
}
 
### 
### Install a *source* package from the current directory.
 
do_install_source () {
  pkg_name="${1}"
  pkg_dir="${4}"
  ## (The basename of ${pkg_dir} might be different from ${pkg_name},
  ## e.g., when building Debian packages from R packages.)
 
  ## Make the destination directories available to the developer's
  ## installation scripts (e.g. configure, etc.)
  R_PACKAGE_DIR="${2}"
  R_PACKAGE_NAME="${3}"
  R_LIBRARY_DIR="${lib}"
  export R_LIBRARY_DIR
  export R_PACKAGE_DIR
  export R_PACKAGE_NAME
 
  if test "${pkg_name}" = "${R_PACKAGE_NAME}"; then
    message "Installing *source* package '${pkg_name}' ..."
  else
    message "Installing *source* package '${pkg_name}' as '${R_PACKAGE_NAME}' ..."
  fi
 
  stars="**"
 
  if test -f "${R_PACKAGE_DIR}/DESCRIPTION"; then
    ## Back up previous version.
    mv "${R_PACKAGE_DIR}" "${lockdir}/${R_PACKAGE_NAME}"
    ${MKDIR_P} "${R_PACKAGE_DIR}"
    ## Preserve man pages to speed up installation?  Only makes sense
    ## if we install from a non-temporary directory.
    if test "`cd .. && ${GETWD}`" != \
            "`cd \"${tmpdir}\" && ${GETWD}`"; then
      (cd "${lockdir}/${R_PACKAGE_NAME}" \
          && ${TAR} cf - R-ex help html latex) | \
	(cd "${R_PACKAGE_DIR}" && ${TAR} xf -)
    fi
  fi
 
  if ${use_configure} && test -x ./configure ; then
    eval ${configure_vars} ./configure ${configure_args}
    if test ${?} -ne 0; then
      error "configuration failed for package '${pkg_name}'"
      do_exit_on_error
    fi
  fi
 
  for f in COPYING NAMESPACE; do
    if test -f "${f}"; then
      cp "${f}" "${R_PACKAGE_DIR}"
      chmod 644 "${R_PACKAGE_DIR}/${f}"
    fi
  done
 
  ## Copy DESCRIPTION file, stamp with build information, and remove
  ## blank lines.  (Need to add an empty line to deal with missing
  ## trailing newlines at EOF.)
  ## As from 1.7.0, packages without compiled code are not marked
  ## as being from any platform.
  echo ".installPackageDescription(\".\", \"${R_PACKAGE_DIR}\")" | \
    R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null
  if test ${?} -ne 0; then
    error "installing package DESCRIPTION failed"
    do_exit_on_error
  fi
 
  if test -d src && test "${fake}" != "true"; then
    message "libs"
    if ${debug}; then set -x; fi
    ${MKDIR_P} "${R_PACKAGE_DIR}/libs"
    if test -f src/Makefile; then
      cd src;
      makefiles="-f \"${R_HOME}\"/share/make/shlib.mk -f Makefile"
      if test -r Makevars; then
	makefiles="-f Makevars ${makefiles}"
      fi
      eval ${MAKE} ${makefiles} \
	&& cp *@SHLIB_EXT@ "${R_PACKAGE_DIR}/libs" \
        || error=true; \
      if ${clean}; then
	${MAKE} clean
      fi
      cd ..
    else
      cd src;
      srcs=`ls *.[cfC] *.cc *.cpp 2>/dev/null`
      if test -n "${srcs}"; then
	sh "${R_HOME}/bin/SHLIB" -o "${pkg_name}@SHLIB_EXT@" ${srcs} \
          && cp *@SHLIB_EXT@ "${R_PACKAGE_DIR}/libs" \
	  || error=true; \
	if ${clean}; then
	  rm -rf .libs _libs
	  rm -f *.o *@SHLIB_EXT@
	fi
      else
	warning "no source files found"
      fi
      cd ..
    fi
    if ${error}; then
      error "compilation failed for package '${pkg_name}'"
      do_exit_on_error
    fi
    chmod 755 "${R_PACKAGE_DIR}/libs/"*
    if ${debug}; then set +x; fi
  fi
 
  if test -d R; then
    message "R"
      ${MKDIR_P} "${R_PACKAGE_DIR}/R"
      rm -f "${R_PACKAGE_DIR}/R/"*
      echo ".installPackageCodeFiles(\".\", \"${R_PACKAGE_DIR}\")" | \
        R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null
      if test ${?} -ne 0; then
        error "unable to collate files for package '${pkg_name}'"
        do_exit_on_error
      fi
    if ${fake}; then
      if test -f NAMESPACE; then
        echo ".onLoad <- function(list, pkg) NULL" >> \
	  "${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"
	sed -e '/useDynLib/d' NAMESPACE > "${R_PACKAGE_DIR}/NAMESPACE"
      else
        echo ".First.lib <- function(lib, pkg) NULL" >> \
          "${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"
      fi
    fi
  fi
 
  if test -d data; then
    message "data"
    ${MKDIR_P} "${R_PACKAGE_DIR}/data"
    rm -f "${R_PACKAGE_DIR}/data/"*
    cp data/* "${R_PACKAGE_DIR}/data" 2>/dev/null
    chmod 644 "${R_PACKAGE_DIR}/data/"*
    if test -n "${use_zip_data}" \
        && test -n "${R_UNZIPCMD}" \
        && test -n "${R_ZIPCMD}"; then
      (cd "${R_PACKAGE_DIR}/data";
        find . -type f -print > filelist
        ${R_ZIPCMD} -m Rdata * -x filelist 00Index)
    fi
  fi
 
  if test -d demo && test "${fake}" != "true"; then
    message "demo"
    ${MKDIR_P} "${R_PACKAGE_DIR}/demo"
    rm -f "${R_PACKAGE_DIR}/demo/"*
    cp demo/* "${R_PACKAGE_DIR}/demo" 2>/dev/null
    chmod 644 "${R_PACKAGE_DIR}/demo/"*
  fi
 
  if test -d exec && test "${fake}" != "true"; then
    message "exec"
    ${MKDIR_P} "${R_PACKAGE_DIR}/exec"
    rm -f "${R_PACKAGE_DIR}/exec/"*
    cp exec/* "${R_PACKAGE_DIR}/exec" 2>/dev/null
    chmod 755 "${R_PACKAGE_DIR}/exec/"*
  fi
 
  if test -d inst && test "${fake}" != "true"; then
    message "inst"
    cp -r inst/* "${R_PACKAGE_DIR}" || \
      (cd inst && ${TAR} cf - . | \
        (cd "${R_PACKAGE_DIR}" && ${TAR} xf -))
  fi
 
  case ${save} in
    CHECK)
      if test -r install.R; then
	R_SAVE_IMAGE=true;
      else
	R_SAVE_IMAGE=false;
      fi
      ;;
    *)
      R_SAVE_IMAGE=${save} ;;
  esac
  export R_SAVE_IMAGE
 
  if ${R_SAVE_IMAGE}; then
    message "save image"
    ## <NOTE>
    ## We want R to run as quietly as possible when creating the save
    ## image.  But this is tricky: sending options(echo=FALSE) to R via
    ## stdin (as opposed to writing to a file and reading from it)
    ## echoes what we sent before shutting up R, which is not what we
    ## want.  Option '--slave' gets around this but also turns off
    ## saving ... hence we call R with '--slave --save' (in case there
    ## is no namespace).  Argh.
    ## </NOTE>
    save_image_defaults="list(compress=TRUE, safe=FALSE)"
    code_file="${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"
    rda_file="${R_PACKAGE_DIR}/R/all.rda"
    if test -f NAMESPACE; then
      code_cmd="echo saveNamespaceImage(\"${pkg_name}\", \"${rda_file}\", \"${lib}\")"
      loader_file=nsrdaload.R
      R_SAVE_EXE="${R_EXE} --vanilla --slave"
    else
      code_cmd="eval cat \"${code_file}\""
      loader_file=firstlib.R
      R_SAVE_EXE="${R_EXE} --vanilla --slave --save"
    fi
    (echo "options(save.image.defaults=${save_image_defaults})"; \
      if test -s R_PROFILE.R; then cat R_PROFILE.R; fi; \
      echo "invisible(.libPaths(c(\"${lib}\", .libPaths())))"; \
      ${code_cmd}) | R_DEFAULT_PACKAGES= ${R_SAVE_EXE} ${save_args}
    if test ${?} -ne 0; then
      error "execution of package source for '${pkg_name}' failed"
      do_exit_on_error
    fi
    test -f NAMESPACE || mv .RData "${rda_file}"
    ## we used to install the dumped code but this seems a waste of space
    rm "${code_file}"
    # mv "${code_file}" "${R_PACKAGE_DIR}/R/${pkg_name}.R"
    cat "${R_HOME}/share/R/${loader_file}" > "${code_file}"
    ## If install.R is non-empty, arrange to evaluate the R code it
    ## contains after the package source (maybe for some kind of
    ## cleanup).
    if test -s install.R; then
      cat install.R >> "${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"
    fi
  fi
 
  if test -d man; then
    message "help"
    ## Install man sources ...
    Rdfiles=`ls man/*.[Rr]d man/${R_OSTYPE}/*.[Rr]d 2>/dev/null`
    if test -n "${Rdfiles}"; then
      ${MKDIR_P} "${R_PACKAGE_DIR}/man"
      rm -f "${R_PACKAGE_DIR}/man/"*
      for f in ${Rdfiles}; do cat "${f}"; echo; echo '\eof'; done \
        > "${R_PACKAGE_DIR}/man/${pkg_name}.Rd"
      chmod 644 "${R_PACKAGE_DIR}/man/${pkg_name}.Rd"
    fi
    ## Maybe build preformatted help pages ...
    if ${build_help}; then
      if ${NO_PERL5}; then
	echo "${NO_PERL5_MSG}"
      else
	if ${debug}; then
	  echo "DEBUG: build-help ${BUILD_HELP_OPTS} ${pkg_dir} ${lib} ${R_PACKAGE_DIR} ${pkg_name}"
	fi
	${R_CMD} perl "${R_HOME}/share/perl/build-help.pl" \
	  ${build_help_opts} \
	  "${pkg_dir}" "${lib}" "${R_PACKAGE_DIR}" "${pkg_name}"
	if test ${?} -ne 0; then
	  error "building help failed for package '${pkg_name}'"
	  do_exit_on_error
        fi
      fi
      if test -n "${use_zip_help}" \
	  && test -n "${R_UNZIPCMD}" \
	  && test -n "${R_ZIPCMD}"; then
	(cd "${R_PACKAGE_DIR}"
	  if test -d R-ex; then
	    (cd R-ex; ${R_ZIPCMD} -m Rex *.R)
	  fi
          ## NOT YET:
          ## if test -d latex; then
          ##   (cd latex; ${R_ZIPCMD} -m Rhelp *.tex)
          ## fi
	  if test -d help; then
	    (cd help; ${R_ZIPCMD} -m Rhelp * -x AnIndex);
	  fi)
      fi
    fi
  else
    echo "No man pages found in package '${pkg_name}'"
  fi
 
  echo ".installPackageIndices(\".\", \"${R_PACKAGE_DIR}\")" | \
    R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null
  if test ${?} -ne 0; then
    error "installing package indices failed"
    do_exit_on_error
  fi
 
  ## Install a dump of the parsed NAMESPACE file
  if test -f NAMESPACE; then
      echo ".installPackageNamespaceInfo(\".\", \"${R_PACKAGE_DIR}\")" | \
        R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null
    if test ${?} -ne 0; then
      error "installing namespace metadata failed"
      do_exit_on_error
    fi
  fi
 
  ## <FIXME>
  ## Remove stuff we should not have installed in the first place.
  ## When installing from a source directory under CVS control, we
  ## should really exclude the CVS subdirs.  (In fact, we should also
  ## exclude everything in @file{.Rbuildignore}, but that's another
  ## story ...)
  find "${R_PACKAGE_DIR}" -name CVS -exec rm -rf \{\} \; 2>/dev/null
  ## </FIXME>
 
  if ${clean}; then
    if test -x ./cleanup ; then
      ./cleanup
    fi
  fi
 
  stars="*"
}
 
### 
### Install a package.
 
do_install () {
  cd "${1}"
  pkg_dir="${1}"
  pkg_name=`get_dcf_field Package DESCRIPTION`
  ## (The basename of ${pkg_dir} might be different from ${pkg_name},
  ## e.g., when building Debian packages from R packages.)
  if test -z "${pkg_name}"; then
    error "no 'Package' field in 'DESCRIPTION'"
    do_exit_on_error no
  fi
 
  ## Set R_PACKAGE_DIR here at the top level.  If a version is being
  ## specified, tack that on.
  if ${with_package_versions}; then
    version=`get_dcf_field Version DESCRIPTION`
    if test -z "${version}"; then
      error "no 'Version' field in 'DESCRIPTION'"
      do_exit_on_error no
    fi
    R_PACKAGE_NAME="${pkg_name}_${version}"
    R_PACKAGE_DIR="${lib}/${pkg_name}_${version}"
  else
    R_PACKAGE_NAME="${pkg_name}"
    R_PACKAGE_DIR="${lib}/${pkg_name}"
  fi
  export R_PACKAGE_DIR
  export R_PACKAGE_NAME
 
  depends=`get_dcf_field Depends DESCRIPTION`
  depends=`echo "${depends}" | grep 'R *('`
  if test "${depends}"; then
    depends=`echo "${depends}" | sed 's/.*R *(\([^)]*\)).*/\1/;s/=/= /'`
    dep_operator=`set - ${depends}; echo ${1}`
    dep_version=`set - ${depends}; echo ${2}`
    ## Currently, only operators '<=' and '>=' are supported.  Hence we
    ## check this, and also whether we found a version string.
    if (test "${dep_operator}" = "<=" \
           || test "${dep_operator}" = ">=") \
         && test -n "${dep_version}"; then
      dep_ok=`expr ${R_VERSION} ${dep_operator} ${dep_version} `
      if test ${dep_ok} -eq 0; then
        error "This R is version ${R_VERSION}"
        echo "       package '${pkg_name}' depends on R ${dep_version}" >&2
        do_exit_on_error
      fi
    else
      warning "malformed 'Depends' field in 'DESCRIPTION'"
    fi
  fi
 
  ${MKDIR_P} "${R_PACKAGE_DIR}" || do_exit_on_error no
 
  ## Make sure we do not attempt installing to srcdir.
  if test "`cd \"${R_PACKAGE_DIR}\" && ${GETWD}`" = "`${GETWD}`"; then
    error "cannot install to srcdir"
    do_exit_on_error no
  fi  
 
  ## Figure out whether this is a source or binary package.
  ## <NOTE>
  ## If DESCRIPTION has a @samp{Built:} entry, this is a binary package.
  ## This is the right test, but not available for packages installed
  ## prior to R 1.4.  For some time, we thus checked for the existence
  ## of a 'man' subdir if no build information was found in DESCRIPTION,
  ## using the fact that versions of R prior to 1.4 also did not install
  ## documentation sources, and assuming that all source packages would
  ## have some documentation, which caused problems for people who had
  ## not yet written any docs ... hence, from R 1.6 on only DESCRIPTION
  ## is looked at.
  ## </NOTE>
  if grep "^Built:" DESCRIPTION >/dev/null ; then
    ## If DESCRIPTION has a @samp{Built:} entry this is a binary
    ## package.  This is the right test, but not available for packages
    ## installed prior to 1.4.0.
    is_source_package=false
  else
    is_source_package=true
  fi
 
  test "${is_first_package}" = no && echo
 
  if ${is_source_package}; then
    ## This is a source package ... hopefully.
    do_install_source \
      "${pkg_name}" "${R_PACKAGE_DIR}" "${R_PACKAGE_NAME}" "${pkg_dir}"
  else  
    ## This is a binary package ... hopefully.
    do_install_binary \
      "${pkg_name}" "${R_PACKAGE_DIR}" "${R_PACKAGE_NAME}"
  fi
 
  find "${R_PACKAGE_DIR}" -exec chmod a+r \{\} \;
 
  message "DONE (${pkg_name})"
  is_first_package=no
}
 
### 
### Exit and cleanup.
 
do_exit_on_error () {
  remove_R_package_dir=${1-yes}
  if test "${remove_R_package_dir}" = yes \
      && test -n "${R_PACKAGE_DIR}"; then
    message "Removing '${R_PACKAGE_DIR}'"
    rm -rf "${R_PACKAGE_DIR}"
  fi
  if test -n "${R_PACKAGE_NAME}" \
      && test -d "${lockdir}/${R_PACKAGE_NAME}"; then
    message "Restoring previous '${R_PACKAGE_DIR}'"
    mv "${lockdir}/${R_PACKAGE_NAME}" "${R_PACKAGE_DIR}"
  fi
  do_cleanup
  exit 1
}
 
do_cleanup () {
  ## Solaris will not remove any directory in the current path
  cd "${startdir}"
  if test -d "${tmpdir}"; then
    rm -rf "${tmpdir}"
  fi
 
  if test "${is_first_package}" = no; then
    ## Only need to do this in case we successfully installed  at least
    ## *one* package ... 
    cp "${R_HOME}/doc/html/R.css" "${lib}"
    chmod 644 "${lib}/R.css"
    if test "${lib}" = `cd "${R_HOME}/library" && ${GETWD}`; then
      cat "${R_HOME}"/library/*/CONTENTS \
        > "${R_HOME}"/doc/html/search/index.txt
      if ${build_help} && test "${NO_PERL5}" = "false"; then
        ${R_CMD} perl "${R_HOME}/share/perl/build-help.pl" --htmllists
      fi
    fi
  fi
 
  rm -rf "${lockdir}"
}
 
### 
### Main loop.
 
eval "for pkg in ${pkgs}; do do_install \"\${pkg}\"; done"
do_cleanup
 
### Local Variables: ***
### mode: sh ***
### sh-indentation: 2 ***
### End: ***

Rev 27595	Rev 27636
1	`#! /bin/sh`	1	`#! /bin/sh`
2	`#`	2	`#`
3	`# ${R_HOME}/bin/INSTALL for installing add-on packages`	3	`# ${R_HOME}/bin/INSTALL for installing add-on packages`
4		4
5	`# @configure_input@`	5	`# @configure_input@`
6		6
7	`revision='$Revision: 1.144 $'`	7	`revision='$Revision: 1.145 $'`
8	version=`set - ${revision}; echo ${2}`	8	version=`set - ${revision}; echo ${2}`
9	`version="R add-on package installer ${version}`	9	`version="R add-on package installer ${version}`
10		10
11	`Copyright (C) 2000-2003 The R Core Development Team.`	11	`Copyright (C) 2000-2003 The R Core Development Team.`
12	`This is free software; see the GNU General Public Licence version 2`	12	`This is free software; see the GNU General Public Licence version 2`
13	`or later for copying conditions. There is NO warranty."`	13	`or later for copying conditions. There is NO warranty."`
14		14
15	`usage="Usage: R CMD INSTALL [options] pkgs`	15	`usage="Usage: R CMD INSTALL [options] pkgs`
16		16
17	`Install the add-on packages specified by pkgs. The elements of pkgs can`	17	`Install the add-on packages specified by pkgs. The elements of pkgs can`
18	`be relative or absolute paths to directories with the package (bundle)`	18	`be relative or absolute paths to directories with the package (bundle)`
19	`sources, or to gzipped package 'tar' archives. The library tree to`	19	`sources, or to gzipped package 'tar' archives. The library tree to`
20	`install to can be specified via '--library'. By default, packages are`	20	`install to can be specified via '--library'. By default, packages are`
21	`installed in the library tree rooted at the first directory given in the`	21	`installed in the library tree rooted at the first directory given in the`
22	`environment variable R_LIBS if this is set and non-null, and into the`	22	`environment variable R_LIBS if this is set and non-null, and into the`
23	`default R library tree (${R_HOME}/library) otherwise.`	23	`default R library tree (${R_HOME}/library) otherwise.`
24		24
25	`Options:`	25	`Options:`
26	`-h, --help print short help message and exit`	26	`-h, --help print short help message and exit`
27	`-v, --version print version info and exit`	27	`-v, --version print version info and exit`
28	`--configure-args=ARGS`	28	`--configure-args=ARGS`
29	`set arguments for the package's configure script`	29	`set arguments for the package's configure script`
30	`(if any)`	30	`(if any)`
31	`--configure-vars=VARS`	31	`--configure-vars=VARS`
32	`set variables for the configure script (if any)`	32	`set variables for the configure script (if any)`
33	`-c, --clean remove all files created during installation`	33	`-c, --clean remove all files created during installation`
34	`-s, --save[=ARGS] save the package source as an image file, and`	34	`-s, --save[=ARGS] save the package source as an image file, and`
35	`arrange for this file to be loaded when the`	35	`arrange for this file to be loaded when the`
36	`package is attached; if given, ARGS are passed`	36	`package is attached; if given, ARGS are passed`
37	`to R when creating the save image`	37	`to R when creating the save image`
38	`--no-save do not save the package source as an image file`	38	`--no-save do not save the package source as an image file`
39	`-d, --debug turn on shell and build-help debugging`	39	`-d, --debug turn on shell and build-help debugging`
40	`-l, --library=LIB install packages to library tree LIB`	40	`-l, --library=LIB install packages to library tree LIB`
41	`--no-configure do not use the package's configure script`	41	`--no-configure do not use the package's configure script`
42	`--no-docs do not build and install documentation`	42	`--no-docs do not build and install documentation`
43	`--with-package-versions`	43	`--with-package-versions`
44	`allow for multiple versions of the same package`	44	`allow for multiple versions of the same package`
45	`--use-zip-data collect data files in zip archive`	45	`--use-zip-data collect data files in zip archive`
46	`--use-zip-help collect help and examples into zip archives`	46	`--use-zip-help collect help and examples into zip archives`
47	`--use-zip combine '--use-zip-data' and '--use-zip-help'`	47	`--use-zip combine '--use-zip-data' and '--use-zip-help'`
48	`--fake do minimal install for testing purposes`	48	`--fake do minimal install for testing purposes`
49		49
50	`Report bugs to <r-bugs@r-project.org>."`	50	`Report bugs to <r-bugs@r-project.org>."`
51		51
52	`## <NOTE>`	52	`## <NOTE>`
53	`## This is a shell script.`	53	`## This is a shell script.`
54	`## According to the R Coding Standards (see R-exts), Perl can be assumed`	54	`## According to the R Coding Standards (see R-exts), Perl can be assumed`
55	`## for source, but not for binary installations.`	55	`## for source, but not for binary installations.`
56	`## </NOTE>`	56	`## </NOTE>`
57		57
58	`## <NOTE>`	58	`## <NOTE>`
59	`## We try to be defensive about possible white space in file names,`	59	`## We try to be defensive about possible white space in file names,`
60	`## hence all the strange quoting ...`	60	`## hence all the strange quoting ...`
61	`## </NOTE>`	61	`## </NOTE>`
62		62
63	`umask 022`	63	`umask 022`
64		64
65	`R_VERSION='@VERSION@'`	65	`R_VERSION='@VERSION@'`
66	`GETWD='@GETWD@'`	66	`GETWD='@GETWD@'`
67	`## <FIXME>`	67	`## <FIXME>`
68	`## Should already be set via Rcmd.`	68	`## Should already be set via Rcmd.`
69	`MAKE=${MAKE-'@MAKE@'}`	69	`MAKE=${MAKE-'@MAKE@'}`
70	`TAR=${TAR='@TAR@'}`	70	`TAR=${TAR='@TAR@'}`
71	`## </FIXME>`	71	`## </FIXME>`
72	`NO_PERL5=@NO_PERL5@`	72	`NO_PERL5=@NO_PERL5@`
73	`NO_PERL5_MSG="\`	73	`NO_PERL5_MSG="\`
74	`*** Formatting and installing R help pages needs Perl version 5, which`	74	`*** Formatting and installing R help pages needs Perl version 5, which`
75	`*** does not seem to be installed on your system or is not in your path.`	75	`*** does not seem to be installed on your system or is not in your path.`
76	`*** Please install either Perl 5 on your system and re-configure R or`	76	`*** Please install either Perl 5 on your system and re-configure R or`
77	`*** get the PDF reference manual from the nearest CRAN server.`	77	`*** get the PDF reference manual from the nearest CRAN server.`
78	`*** The CRAN master site can be found at`	78	`*** The CRAN master site can be found at`
79	`*** http://cran.r-project.org/"`	79	`*** http://cran.r-project.org/"`
80		80
81	`if mkdir -p . 2>/dev/null; then`	81	`if mkdir -p . 2>/dev/null; then`
82	`MKDIR_P="mkdir -p"`	82	`MKDIR_P="mkdir -p"`
83	`else`	83	`else`
84	`MKDIR_P="${R_HOME}/bin/mkinstalldirs"`	84	`MKDIR_P="${R_HOME}/bin/mkinstalldirs"`
85	`fi`	85	`fi`
86		86
87	`warning () { echo "WARNING: $*" >&2 ; }`	87	`warning () { echo "WARNING: $*" >&2 ; }`
88	`error () { echo "ERROR: $*" >&2 ; }`	88	`error () { echo "ERROR: $*" >&2 ; }`
89		89
90	startdir=`${GETWD}`	90	startdir=`${GETWD}`
91	`tmpdir="${TMPDIR-/tmp}/R.INSTALL.$$"`	91	`tmpdir="${TMPDIR-/tmp}/R.INSTALL.$$"`
92	`if (test -d "${tmpdir}" && test -w "${tmpdir}") \|\| \`	92	`if (test -d "${tmpdir}" && test -w "${tmpdir}") \|\| \`
93	`${MKDIR_P} "${tmpdir}" 2> /dev/null; then`	93	`${MKDIR_P} "${tmpdir}" 2> /dev/null; then`
94	tmpdir=`cd "${tmpdir}" && ${GETWD}`	94	tmpdir=`cd "${tmpdir}" && ${GETWD}`
95	`else`	95	`else`
96	`error "cannot write to or create temporary directory '${tmpdir}'"`	96	`error "cannot write to or create temporary directory '${tmpdir}'"`
97	`exit 1`	97	`exit 1`
98	`fi`	98	`fi`
99		99
100	`: ${R_OSTYPE=unix}`	100	`: ${R_OSTYPE=unix}`
101	`## <NOTE>`	101	`## <NOTE>`
102	`## Unix only ... but Windows has INSTALL as a Perl script.`	102	`## Unix only ... but Windows has INSTALL as a Perl script.`
103	`R_EXE="${R_HOME}/bin/R"`	103	`R_EXE="${R_HOME}/bin/R"`
104	`## </NOTE>`	104	`## </NOTE>`
105		105
106	`## <NOTE>`	106	`## <NOTE>`
107	`## This could be made a bit more general: if R CMD INSTALL is run by`	107	`## This could be made a bit more general: if R CMD INSTALL is run by`
108	`## another tool (e.g., when building or checking a package, its messages`	108	`## another tool (e.g., when building or checking a package, its messages`
109	`## should be a section level deeper (at least). So we could have an`	109	`## should be a section level deeper (at least). So we could have an`
110	`## argument to set the initial secnumdepth (0 by default), and work`	110	`## argument to set the initial secnumdepth (0 by default), and work`
111	`## against this ...`	111	`## against this ...`
112	`message () { echo "${stars} $*"; }`	112	`message () { echo "${stars} $*"; }`
113	`stars="*"`	113	`stars="*"`
114	`## </NOTE>`	114	`## </NOTE>`
115		115
116	`. "${R_HOME}/share/sh/dcf.sh" # get_dcf_field()`	116	`. "${R_HOME}/share/sh/dcf.sh" # get_dcf_field()`
117		117
118	`get_packages () {`	118	`get_packages () {`
119	`## get the full path names to all packages contained in $1.`	119	`## get the full path names to all packages contained in $1.`
120	`## NOTE: modifies pkgs!`	120	`## NOTE: modifies pkgs!`
121	`if grep "^Contains:" "${1}/DESCRIPTION" >/dev/null; then`	121	`if grep "^Contains:" "${1}/DESCRIPTION" >/dev/null; then`
122	bundlepkg=`get_dcf_field Contains "${1}/DESCRIPTION"`	122	bundlepkg=`get_dcf_field Contains "${1}/DESCRIPTION"`
123	`for p in ${bundlepkg}; do`	123	`for p in ${bundlepkg}; do`
124	pkgs="${pkgs} \"`cd "${1}/${p}" && ${GETWD}`\""	124	pkgs="${pkgs} \"`cd "${1}/${p}" && ${GETWD}`\""
125	`if test -f "${1}/${p}/DESCRIPTION.in"; then`	125	`if test -f "${1}/${p}/DESCRIPTION.in"; then`
126	`## Try being defensive about missing final newlines, or extra`	126	`## Try being defensive about missing final newlines, or extra`
127	`## empty lines.`	127	`## empty lines.`
128	`(cat "${1}/${p}/DESCRIPTION.in"`	128	`(cat "${1}/${p}/DESCRIPTION.in"`
129	`echo`	129	`echo`
130	`grep -v "^Contains:" "${1}/DESCRIPTION"`	130	`grep -v "^Contains:" "${1}/DESCRIPTION"`
131	`echo) \| sed '/^ *$/d' > "${1}/${p}/DESCRIPTION"`	131	`echo) \| sed '/^ *$/d' > "${1}/${p}/DESCRIPTION"`
132	`fi`	132	`fi`
133	`done`	133	`done`
134	`else`	134	`else`
135	pkgs="${pkgs} \"`cd "${1}" && ${GETWD}`\""	135	pkgs="${pkgs} \"`cd "${1}" && ${GETWD}`\""
136	`fi`	136	`fi`
137	`}`	137	`}`
138		138
139	`###`	139	`###`
140	`### Setup and command line processing.`	140	`### Setup and command line processing.`
141		141
142	`if test -n "${R_LIBS}"; then`	142	`if test -n "${R_LIBS}"; then`
143	lib=`echo "${R_LIBS}" \| cut -f1 -d:`	143	lib=`echo "${R_LIBS}" \| cut -f1 -d:`
144	`else`	144	`else`
145	`lib="${R_HOME}/library"`	145	`lib="${R_HOME}/library"`
146	`fi`	146	`fi`
147		147
148	`pkgs=`	148	`pkgs=`
149	`clean=false`	149	`clean=false`
150	`debug=false`	150	`debug=false`
151	`error=false`	151	`error=false`
152	`build_text=true`	152	`build_text=true`
153	`build_html=true`	153	`build_html=true`
154	`build_latex=true`	154	`build_latex=true`
155	`build_example=true`	155	`build_example=true`
156	`build_help=true`	156	`build_help=true`
157	`build_help_opts=`	157	`build_help_opts=`
158	`use_configure=true`	158	`use_configure=true`
159	`use_zip_data=`	159	`use_zip_data=`
160	`use_zip_help=`	160	`use_zip_help=`
161	`configure_args=`	161	`configure_args=`
162	`configure_vars=`	162	`configure_vars=`
163	`with_package_versions=false`	163	`with_package_versions=false`
164	`save="CHECK"`	164	`save="CHECK"`
165	`save_args=`	165	`save_args=`
166	`fake=false`	166	`fake=false`
167		167
168	`while test -n "${1}"; do`	168	`while test -n "${1}"; do`
169	`case ${1} in`	169	`case ${1} in`
170	`-h\|--help)`	170	`-h\|--help)`
171	`echo "${usage}"; exit 0 ;;`	171	`echo "${usage}"; exit 0 ;;`
172	`-v\|--version)`	172	`-v\|--version)`
173	`echo "${version}"; exit 0 ;;`	173	`echo "${version}"; exit 0 ;;`
174	`-c\|--clean)`	174	`-c\|--clean)`
175	`clean=true ;;`	175	`clean=true ;;`
176	`-s\|--save)`	176	`-s\|--save)`
177	`save=true;;`	177	`save=true;;`
178	`--save=*)`	178	`--save=*)`
179	save_args=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;	179	save_args=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;
180	`--no-save)`	180	`--no-save)`
181	`save=false ;;`	181	`save=false ;;`
182	`-d\|--debug)`	182	`-d\|--debug)`
183	`debug=true ;;`	183	`debug=true ;;`
184	`--with-package-versions)`	184	`--with-package-versions)`
185	`with_package_versions=true ;;`	185	`with_package_versions=true ;;`
186	`--no-configure)`	186	`--no-configure)`
187	`use_configure=false ;;`	187	`use_configure=false ;;`
188	`--no-docs)`	188	`--no-docs)`
189	`build_text=false`	189	`build_text=false`
190	`build_html=false`	190	`build_html=false`
191	`build_latex=false`	191	`build_latex=false`
192	`build_example=false ;;`	192	`build_example=false ;;`
193	`--no-text)`	193	`--no-text)`
194	`build_text=false ;;`	194	`build_text=false ;;`
195	`--no-html)`	195	`--no-html)`
196	`build_html=false ;;`	196	`build_html=false ;;`
197	`--no-latex)`	197	`--no-latex)`
198	`build_latex=false ;;`	198	`build_latex=false ;;`
199	`--no-example)`	199	`--no-example)`
200	`build_example=false ;;`	200	`build_example=false ;;`
201	`--use-zip)`	201	`--use-zip)`
202	`use_zip_data=true`	202	`use_zip_data=true`
203	`use_zip_help=true ;;`	203	`use_zip_help=true ;;`
204	`--use-zip-data)`	204	`--use-zip-data)`
205	`use_zip_data=true ;;`	205	`use_zip_data=true ;;`
206	`--use-zip-help)`	206	`--use-zip-help)`
207	`use_zip_help=true ;;`	207	`use_zip_help=true ;;`
208	`-l\|--library)`	208	`-l\|--library)`
209	`lib="${2}"; shift ;;`	209	`lib="${2}"; shift ;;`
210	`--library=*)`	210	`--library=*)`
211	lib=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;	211	lib=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;
212	`--configure-args=*)`	212	`--configure-args=*)`
213	configure_args=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;	213	configure_args=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;
214	`--configure-vars=*)`	214	`--configure-vars=*)`
215	configure_vars=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;	215	configure_vars=`echo "${1}" \| sed -e 's/[^=]*=//'` ;;
216	`--fake)`	216	`--fake)`
217	`fake=true ;;`	217	`fake=true ;;`
218	`*)`	218	`*)`
219	`if test -f "${1}"; then`	219	`if test -f "${1}"; then`
220	pkgname=`basename "${1}"`	220	pkgname=`basename "${1}"`
221	`## Also allow for 'package.tgz' ...`	221	`## Also allow for 'package.tgz' ...`
222	pkgname=`basename "${pkgname}" .tgz`	222	pkgname=`basename "${pkgname}" .tgz`
223	pkgname=`echo "${pkgname}" \| sed 's/_.*//'`	223	pkgname=`echo "${pkgname}" \| sed 's/_.*//'`
224	`## Note that we use '-m' so that modification dates are not`	224	`## Note that we use '-m' so that modification dates are not`
225	`## preserved when untarring the sources. This is necessary to`	225	`## preserved when untarring the sources. This is necessary to`
226	`## ensure that the preformatted help pages are always rebuilt.`	226	`## ensure that the preformatted help pages are always rebuilt.`
227	`## Otherwise, the build date for an older version may be newer`	227	`## Otherwise, the build date for an older version may be newer`
228	`## than the modification date for the new sources as recorded in`	228	`## than the modification date for the new sources as recorded in`
229	`## the tarball ...`	229	`## the tarball ...`
230	`gzip -dc "${1}" \| (cd "${tmpdir}" && ${TAR} -mxf -)`	230	`gzip -dc "${1}" \| (cd "${tmpdir}" && ${TAR} -mxf -)`
231	`if test -f "${tmpdir}/${pkgname}/DESCRIPTION"; then`	231	`if test -f "${tmpdir}/${pkgname}/DESCRIPTION"; then`
232	`get_packages "${tmpdir}/${pkgname}"`	232	`get_packages "${tmpdir}/${pkgname}"`
233	`else`	233	`else`
234	`error "cannot extract package from '${1}'"`	234	`error "cannot extract package from '${1}'"`
235	`exit 1`	235	`exit 1`
236	`fi`	236	`fi`
237	`elif test -f "${1}/DESCRIPTION"; then`	237	`elif test -f "${1}/DESCRIPTION"; then`
238	`get_packages "${1}"`	238	`get_packages "${1}"`
239	`else`	239	`else`
240	`warning "invalid package '${1}'"`	240	`warning "invalid package '${1}'"`
241	`fi`	241	`fi`
242	`;;`	242	`;;`
243	`esac`	243	`esac`
244	`shift`	244	`shift`
245	`done`	245	`done`
246		246
247	`if test -z "${pkgs}"; then`	247	`if test -z "${pkgs}"; then`
248	`error "no packages specified"`	248	`error "no packages specified"`
249	`exit 1`	249	`exit 1`
250	`fi`	250	`fi`
251		251
252	`if (test -d "${lib}" && test -w "${lib}") \|\| \`	252	`if (test -d "${lib}" && test -w "${lib}") \|\| \`
253	`${MKDIR_P} "${lib}" 2> /dev/null; then`	253	`${MKDIR_P} "${lib}" 2> /dev/null; then`
254	lib=`cd "${lib}" && ${GETWD}`	254	lib=`cd "${lib}" && ${GETWD}`
255	`else`	255	`else`
256	`error "cannot write to or create directory '${lib}'"`	256	`error "cannot write to or create directory '${lib}'"`
257	`exit 2`	257	`exit 2`
258	`fi`	258	`fi`
259	`lockdir="${lib}/00LOCK"`	259	`lockdir="${lib}/00LOCK"`
260	`if test -d "${lockdir}" \|\| test -f "${lockdir}"; then`	260	`if test -d "${lockdir}" \|\| test -f "${lockdir}"; then`
261	`error "failed to lock directory '${lib}' for modifying"`	261	`error "failed to lock directory '${lib}' for modifying"`
262	`echo "Try removing '${lockdir}'" >&2`	262	`echo "Try removing '${lockdir}'" >&2`
263	`exit 3`	263	`exit 3`
264	`else`	264	`else`
265	`${MKDIR_P} "${lockdir}"`	265	`${MKDIR_P} "${lockdir}"`
266	`if test ${?} -ne 0; then`	266	`if test ${?} -ne 0; then`
267	`## This should not really happen ...`	267	`## This should not really happen ...`
268	`error "failed to lock directory '${lib}' for modifying"`	268	`error "failed to lock directory '${lib}' for modifying"`
269	`exit 3`	269	`exit 3`
270	`fi`	270	`fi`
271	`fi`	271	`fi`
272		272
273	`if ${fake}; then`	273	`if ${fake}; then`
274	`use_configure=false`	274	`use_configure=false`
275	`build_text=true`	275	`build_text=true`
276	`build_html=false`	276	`build_html=false`
277	`build_latex=true`	277	`build_latex=true`
278	`build_example=false`	278	`build_example=false`
279	`fi`	279	`fi`
280		280
281	`if ${build_text}; then`	281	`if ${build_text}; then`
282	`build_help_opts="${build_help_opts} --txt"`	282	`build_help_opts="${build_help_opts} --txt"`
283	`fi`	283	`fi`
284	`if ${build_html}; then`	284	`if ${build_html}; then`
285	`build_help_opts="${build_help_opts} --html"`	285	`build_help_opts="${build_help_opts} --html"`
286	`fi`	286	`fi`
287	`if ${build_latex}; then`	287	`if ${build_latex}; then`
288	`build_help_opts="${build_help_opts} --latex"`	288	`build_help_opts="${build_help_opts} --latex"`
289	`fi`	289	`fi`
290	`if ${build_example}; then`	290	`if ${build_example}; then`
291	`build_help_opts="${build_help_opts} --example"`	291	`build_help_opts="${build_help_opts} --example"`
292	`fi`	292	`fi`
293	`if test -z "${build_help_opts}"; then`	293	`if test -z "${build_help_opts}"; then`
294	`build_help=false`	294	`build_help=false`
295	`elif ${debug}; then`	295	`elif ${debug}; then`
296	`build_help_opts="--debug ${build_help_opts}"`	296	`build_help_opts="--debug ${build_help_opts}"`
297	`fi`	297	`fi`
298		298
299	`is_first_package=yes`	299	`is_first_package=yes`
300		300
301	`###`	301	`###`
302	`### Install a binary package from the current directory.`	302	`### Install a binary package from the current directory.`
303		303
304	`do_install_binary () {`	304	`do_install_binary () {`
305	`pkg="${1}"`	305	`pkg="${1}"`
306	`R_PACKAGE_DIR="${2}"`	306	`R_PACKAGE_DIR="${2}"`
307	`R_PACKAGE_NAME="${3}"`	307	`R_PACKAGE_NAME="${3}"`
308		308
309	`if test "${pkg}" = "${R_PACKAGE_NAME}"; then`	309	`if test "${pkg}" = "${R_PACKAGE_NAME}"; then`
310	`message "Installing binary package '${pkg}' ..."`	310	`message "Installing binary package '${pkg}' ..."`
311	`else`	311	`else`
312	`message "Installing binary package '${pkg}' as '${R_PACKAGE_NAME}' ..."`	312	`message "Installing binary package '${pkg}' as '${R_PACKAGE_NAME}' ..."`
313	`fi`	313	`fi`
314		314
315	`if test -f "${R_PACKAGE_DIR}/DESCRIPTION"; then`	315	`if test -f "${R_PACKAGE_DIR}/DESCRIPTION"; then`
316	`## Back up previous version.`	316	`## Back up previous version.`
317	`mv "${R_PACKAGE_DIR}" "${lockdir}/${R_PACKAGE_NAME}"`	317	`mv "${R_PACKAGE_DIR}" "${lockdir}/${R_PACKAGE_NAME}"`
318	`${MKDIR_P} "${R_PACKAGE_DIR}"`	318	`${MKDIR_P} "${R_PACKAGE_DIR}"`
319	`fi`	319	`fi`
320		320
321	`cp -r . "${R_PACKAGE_DIR}" \|\| \`	321	`cp -r . "${R_PACKAGE_DIR}" \|\| \`
322	`(${TAR} cf - . \| (cd "${R_PACKAGE_DIR}" && ${TAR} xf -))`	322	`(${TAR} cf - . \| (cd "${R_PACKAGE_DIR}" && ${TAR} xf -))`
323		323
324	`if test ${?} -ne 0; then`	324	`if test ${?} -ne 0; then`
325	`error "installing binary package failed"`	325	`error "installing binary package failed"`
326	`do_exit_on_error`	326	`do_exit_on_error`
327	`fi`	327	`fi`
328	`}`	328	`}`
329		329
330	`###`	330	`###`
331	`### Install a source package from the current directory.`	331	`### Install a source package from the current directory.`
332		332
333	`do_install_source () {`	333	`do_install_source () {`
334	`pkg_name="${1}"`	334	`pkg_name="${1}"`
335	`pkg_dir="${4}"`	335	`pkg_dir="${4}"`
336	`## (The basename of ${pkg_dir} might be different from ${pkg_name},`	336	`## (The basename of ${pkg_dir} might be different from ${pkg_name},`
337	`## e.g., when building Debian packages from R packages.)`	337	`## e.g., when building Debian packages from R packages.)`
338		338
339	`## Make the destination directories available to the developer's`	339	`## Make the destination directories available to the developer's`
340	`## installation scripts (e.g. configure, etc.)`	340	`## installation scripts (e.g. configure, etc.)`
341	`R_PACKAGE_DIR="${2}"`	341	`R_PACKAGE_DIR="${2}"`
342	`R_PACKAGE_NAME="${3}"`	342	`R_PACKAGE_NAME="${3}"`
343	`R_LIBRARY_DIR="${lib}"`	343	`R_LIBRARY_DIR="${lib}"`
344	`export R_LIBRARY_DIR`	344	`export R_LIBRARY_DIR`
345	`export R_PACKAGE_DIR`	345	`export R_PACKAGE_DIR`
346	`export R_PACKAGE_NAME`	346	`export R_PACKAGE_NAME`
347		347
348	`if test "${pkg_name}" = "${R_PACKAGE_NAME}"; then`	348	`if test "${pkg_name}" = "${R_PACKAGE_NAME}"; then`
349	`message "Installing source package '${pkg_name}' ..."`	349	`message "Installing source package '${pkg_name}' ..."`
350	`else`	350	`else`
351	`message "Installing source package '${pkg_name}' as '${R_PACKAGE_NAME}' ..."`	351	`message "Installing source package '${pkg_name}' as '${R_PACKAGE_NAME}' ..."`
352	`fi`	352	`fi`
353		353
354	`stars="**"`	354	`stars="**"`
355		355
356	`if test -f "${R_PACKAGE_DIR}/DESCRIPTION"; then`	356	`if test -f "${R_PACKAGE_DIR}/DESCRIPTION"; then`
357	`## Back up previous version.`	357	`## Back up previous version.`
358	`mv "${R_PACKAGE_DIR}" "${lockdir}/${R_PACKAGE_NAME}"`	358	`mv "${R_PACKAGE_DIR}" "${lockdir}/${R_PACKAGE_NAME}"`
359	`${MKDIR_P} "${R_PACKAGE_DIR}"`	359	`${MKDIR_P} "${R_PACKAGE_DIR}"`
360	`## Preserve man pages to speed up installation? Only makes sense`	360	`## Preserve man pages to speed up installation? Only makes sense`
361	`## if we install from a non-temporary directory.`	361	`## if we install from a non-temporary directory.`
362	if test "`cd .. && ${GETWD}`" != \	362	if test "`cd .. && ${GETWD}`" != \
363	"`cd \"${tmpdir}\" && ${GETWD}`"; then	363	"`cd \"${tmpdir}\" && ${GETWD}`"; then
364	`(cd "${lockdir}/${R_PACKAGE_NAME}" \`	364	`(cd "${lockdir}/${R_PACKAGE_NAME}" \`
365	`&& ${TAR} cf - R-ex help html latex) \| \`	365	`&& ${TAR} cf - R-ex help html latex) \| \`
366	`(cd "${R_PACKAGE_DIR}" && ${TAR} xf -)`	366	`(cd "${R_PACKAGE_DIR}" && ${TAR} xf -)`
367	`fi`	367	`fi`
368	`fi`	368	`fi`
369		369
370	`if ${use_configure} && test -x ./configure ; then`	370	`if ${use_configure} && test -x ./configure ; then`
371	`eval ${configure_vars} ./configure ${configure_args}`	371	`eval ${configure_vars} ./configure ${configure_args}`
372	`if test ${?} -ne 0; then`	372	`if test ${?} -ne 0; then`
373	`error "configuration failed for package '${pkg_name}'"`	373	`error "configuration failed for package '${pkg_name}'"`
374	`do_exit_on_error`	374	`do_exit_on_error`
375	`fi`	375	`fi`
376	`fi`	376	`fi`
377		377
378	`for f in COPYING NAMESPACE; do`	378	`for f in COPYING NAMESPACE; do`
379	`if test -f "${f}"; then`	379	`if test -f "${f}"; then`
380	`cp "${f}" "${R_PACKAGE_DIR}"`	380	`cp "${f}" "${R_PACKAGE_DIR}"`
381	`chmod 644 "${R_PACKAGE_DIR}/${f}"`	381	`chmod 644 "${R_PACKAGE_DIR}/${f}"`
382	`fi`	382	`fi`
383	`done`	383	`done`
384		384
385	`## Copy DESCRIPTION file, stamp with build information, and remove`	385	`## Copy DESCRIPTION file, stamp with build information, and remove`
386	`## blank lines. (Need to add an empty line to deal with missing`	386	`## blank lines. (Need to add an empty line to deal with missing`
387	`## trailing newlines at EOF.)`	387	`## trailing newlines at EOF.)`
388	`## As from 1.7.0, packages without compiled code are not marked`	388	`## As from 1.7.0, packages without compiled code are not marked`
389	`## as being from any platform.`	389	`## as being from any platform.`
390	`echo ".installPackageDescription(\".\", \"${R_PACKAGE_DIR}\")" \| \`	390	`echo ".installPackageDescription(\".\", \"${R_PACKAGE_DIR}\")" \| \`
391	`R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null`	391	`R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null`
392	`if test ${?} -ne 0; then`	392	`if test ${?} -ne 0; then`
393	`error "installing package DESCRIPTION failed"`	393	`error "installing package DESCRIPTION failed"`
394	`do_exit_on_error`	394	`do_exit_on_error`
395	`fi`	395	`fi`
396		396
397	`if test -d src && test "${fake}" != "true"; then`	397	`if test -d src && test "${fake}" != "true"; then`
398	`message "libs"`	398	`message "libs"`
399	`if ${debug}; then set -x; fi`	399	`if ${debug}; then set -x; fi`
400	`${MKDIR_P} "${R_PACKAGE_DIR}/libs"`	400	`${MKDIR_P} "${R_PACKAGE_DIR}/libs"`
401	`if test -f src/Makefile; then`	401	`if test -f src/Makefile; then`
402	`cd src;`	402	`cd src;`
403	`makefiles="-f \"${R_HOME}\"/share/make/shlib.mk -f Makefile"`	403	`makefiles="-f \"${R_HOME}\"/share/make/shlib.mk -f Makefile"`
404	`if test -r Makevars; then`	404	`if test -r Makevars; then`
405	`makefiles="-f Makevars ${makefiles}"`	405	`makefiles="-f Makevars ${makefiles}"`
406	`fi`	406	`fi`
407	`eval ${MAKE} ${makefiles} \`	407	`eval ${MAKE} ${makefiles} \`
408	`&& cp *@SHLIB_EXT@ "${R_PACKAGE_DIR}/libs" \`	408	`&& cp *@SHLIB_EXT@ "${R_PACKAGE_DIR}/libs" \`
409	`\|\| error=true; \`	409	`\|\| error=true; \`
410	`if ${clean}; then`	410	`if ${clean}; then`
411	`${MAKE} clean`	411	`${MAKE} clean`
412	`fi`	412	`fi`
413	`cd ..`	413	`cd ..`
414	`else`	414	`else`
415	`cd src;`	415	`cd src;`
416	srcs=`ls .[cfC] .cc *.cpp 2>/dev/null`	416	srcs=`ls .[cfC] .cc *.cpp 2>/dev/null`
417	`if test -n "${srcs}"; then`	417	`if test -n "${srcs}"; then`
418	`sh "${R_HOME}/bin/SHLIB" -o "${pkg_name}@SHLIB_EXT@" ${srcs} \`	418	`sh "${R_HOME}/bin/SHLIB" -o "${pkg_name}@SHLIB_EXT@" ${srcs} \`
419	`&& cp *@SHLIB_EXT@ "${R_PACKAGE_DIR}/libs" \`	419	`&& cp *@SHLIB_EXT@ "${R_PACKAGE_DIR}/libs" \`
420	`\|\| error=true; \`	420	`\|\| error=true; \`
421	`if ${clean}; then`	421	`if ${clean}; then`
422	`rm -rf .libs _libs`	422	`rm -rf .libs _libs`
423	`rm -f .o @SHLIB_EXT@`	423	`rm -f .o @SHLIB_EXT@`
424	`fi`	424	`fi`
425	`else`	425	`else`
426	`warning "no source files found"`	426	`warning "no source files found"`
427	`fi`	427	`fi`
428	`cd ..`	428	`cd ..`
429	`fi`	429	`fi`
430	`if ${error}; then`	430	`if ${error}; then`
431	`error "compilation failed for package '${pkg_name}'"`	431	`error "compilation failed for package '${pkg_name}'"`
432	`do_exit_on_error`	432	`do_exit_on_error`
433	`fi`	433	`fi`
434	`chmod 755 "${R_PACKAGE_DIR}/libs/"*`	434	`chmod 755 "${R_PACKAGE_DIR}/libs/"*`
435	`if ${debug}; then set +x; fi`	435	`if ${debug}; then set +x; fi`
436	`fi`	436	`fi`
437		437
438	`if test -d R; then`	438	`if test -d R; then`
439	`message "R"`	439	`message "R"`
440	`${MKDIR_P} "${R_PACKAGE_DIR}/R"`	440	`${MKDIR_P} "${R_PACKAGE_DIR}/R"`
441	`rm -f "${R_PACKAGE_DIR}/R/"*`	441	`rm -f "${R_PACKAGE_DIR}/R/"*`
442	`echo ".installPackageCodeFiles(\".\", \"${R_PACKAGE_DIR}\")" \| \`	442	`echo ".installPackageCodeFiles(\".\", \"${R_PACKAGE_DIR}\")" \| \`
443	`R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null`	443	`R_DEFAULT_PACKAGES=tools ${R_EXE} --vanilla >/dev/null`
444	`if test ${?} -ne 0; then`	444	`if test ${?} -ne 0; then`
445	`error "unable to collate files for package '${pkg_name}'"`	445	`error "unable to collate files for package '${pkg_name}'"`
446	`do_exit_on_error`	446	`do_exit_on_error`
447	`fi`	447	`fi`
448	`if ${fake}; then`	448	`if ${fake}; then`
449	`if test -f NAMESPACE; then`	449	`if test -f NAMESPACE; then`
450	`echo ".onLoad <- function(list, pkg) NULL" >> \`	450	`echo ".onLoad <- function(list, pkg) NULL" >> \`
451	`"${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"`	451	`"${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"`
452	`sed -e '/useDynLib/d' NAMESPACE > "${R_PACKAGE_DIR}/NAMESPACE"`	452	`sed -e '/useDynLib/d' NAMESPACE > "${R_PACKAGE_DIR}/NAMESPACE"`
453	`else`	453	`else`
454	`echo ".First.lib <- function(lib, pkg) NULL" >> \`	454	`echo ".First.lib <- function(lib, pkg) NULL" >> \`
455	`"${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"`	455	`"${R_PACKAGE_DIR}/R/${R_PACKAGE_NAME}"`
456	`fi`	456	`fi`
457	`fi`	457	`fi`
458	`fi`	458	`fi`
459		459
460	`if test -d data; then`	460	`if test -d data; then`
461	`message "data"`	461	`message "data"`
462	`${MKDIR_P} "${R_PACKAGE_DIR}/data"`	462	`${MKDIR_P} "${R_PACKAGE_DIR}/data"`
463	`rm -f "${R_PACKAGE_DIR}/data/"*`	463	`rm -f "${R_PACKAGE_DIR}/data/"*`
464	`cp data/* "${R_PACKAGE_DIR}/data" 2>/dev/null`	464	`cp data/* "${R_PACKAGE_DIR}/data" 2>/dev/null`
465	`chmod 644 "${R_PACKAGE_DIR}/data/"*`	465	`chmod 644 "${R_PACKAGE_DIR}/data/"*`
466	`if test -n "${use_zip_data}" \`	466	`if test -n "${use_zip_data}" \`
467	`&& test -n "${R_UNZIPCMD}" \`	467	`&& test -n "${R_UNZIPCMD}" \`
468	`&& test -n "${R_ZIPCMD}"; then`	468	`&& test -n "${R_ZIPCMD}"; then`
469	`(cd "${R_PACKAGE_DIR}/data";`	469	`(cd "${R_PACKAGE_DIR}/data";`
470	`find . -type f -print > filelist`	470	`find . -type f -print > filelist`
471	`${R_ZIPCMD} -m Rdata * -x filelist 00Index)`	471	`${R_ZIPCMD} -m Rdata * -x filelist 00Index)`
472	`fi`	472	`fi`
473	`fi`	473	`fi`
474		474
475	`if test -d demo && test "${fake}" != "true"; then`	475	`if test -d demo && test "${fake}" != "true"; then`
476	`message "demo"`	476	`message "demo"`
477	`${MKDIR_P} "${R_PACKAGE_DIR}/demo"`	477	`${MKDIR_P} "${R_PACKAGE_DIR}/demo"`
478	`rm -f "${R_PACKAGE_DIR}/demo/"*`	478	`rm -f "${R_PACKAGE_DIR}/demo/"*`
479	`cp demo/* "${R_PACKAGE_DIR}/demo" 2>/dev/null`	479	`cp demo/* "${R_PACKAGE_DIR}/demo" 2>/dev/null`
480	`chmod 644 "${R_PACKAGE_DIR}/demo/"*`	480	`chmod 644 "${R_PACKAGE_DIR}/demo/"*`
481	`fi`	481	`fi`
482		482
483	`if test -d exec && test "${fake}" != "true"; then`	483	`if test -d exec && test "${fake}" != "true"; then`
484	`message "exec"`	484	`message "exec"`
485	`${MKDIR_P} "${R_PACKAGE_DIR}/exec"`	485	`${MKDIR_P} "${R_PACKAGE_DIR}/exec"`
486	`rm -f "${R_PACKAGE_DIR}/exec/"*`	486	`rm -f "${R_PACKAGE_DIR}/exec/"*`
487	`cp exec/* "${R_PACKAGE_DIR}/exec" 2>/dev/null`	487	`cp exec/* "${R_PACKAGE_DIR}/exec" 2>/dev/null`
488	`chmod 755 "${R_PACKAGE_DIR}/exec/"*`	488	`chmod 755 "${R_PACKAGE_DIR}/exec/"*`
489	`fi`	489	`fi`
490		490
491	`if test -d inst && test "${fake}" != "true"; then`	491	`if test -d inst && test "${fake}" != "true"; then`
492	`message "inst"`	492	`message "inst"`
493	`cp -r inst/* "${R_PACKAGE_DIR}" \|\| \`	493	`cp -r inst/* "${R_PACKAGE_DIR}" \|\| \`
494	`(cd inst && ${TAR} cf - . \| \`	494	`(cd inst && ${TAR} cf - . \| \`
495	`(cd "${R_PACKAGE_DIR}" && ${TAR} xf -))`	495	`(cd "${R_PACKAGE_DIR}" && ${TAR} xf -))`
496	`fi`	496	`fi`
497		497
498	`case ${save} in`	498	`case ${save} in`
499	`CHECK)`	499	`CHECK)`
500	`if test -r install.R; then`	500	`if test -r install.R; then`

The R Project SVN R

(root)/trunk/src/scripts/INSTALL.in @ 28362 – Rev 27595 → 27636