#!@R_SHELL@
#
# ${R_HOME}/bin/Rcmd

## Shell script wrapper for all R CMD commands.
## For internal use only.

R_CMD="${R_HOME}/bin/Rcmd"
export R_CMD

R_VERSION=@PACKAGE_VERSION@
export R_VERSION

R_OSTYPE="unix"
export R_OSTYPE

## Add 'share/perl' to the perl library path.
if test -n "${PERL5LIB}"; then
  PERL5LIB="${R_SHARE_DIR}/perl:${PERL5LIB}"
  export PERL5LIB
else
  PERLLIB="${R_SHARE_DIR}/perl:${PERLLIB}"
  export PERLLIB
fi

## Append 'share/texmf/...' to TeX's input search path.
if test -z "${TEXINPUTS}"; then
  TEXINPUTS=".:${R_SHARE_DIR}/texmf/tex/latex:"
else
  TEXINPUTS=".:${TEXINPUTS}:${R_SHARE_DIR}/texmf/tex/latex:"
fi
export TEXINPUTS
if test -z "${BSTINPUTS}"; then
  BSTINPUTS=".:${R_SHARE_DIR}/texmf/bibtex/bst:"
else
  BSTINPUTS=".:${BSTINPUTS}:${R_SHARE_DIR}/texmf/bibtex/bst:"
fi
export BSTINPUTS

. "${R_HOME}/etc${R_ARCH}/Renviron"
export `sed 's/^ *#.*//; s/^\(.*\)=.*/\1/' "${R_HOME}/etc${R_ARCH}/Renviron"`

extra=
case "${1}" in
  perl)
    cmd="${PERL}" ;;
  awk)
    cmd="${AWK}"  ;;
## this was a separate command prior to 2.10.0
  Rd2txt)
    cmd="${R_HOME}/bin/Rdconv"
    extra="-t txt"
    ;;
  Rd2pdf)
    cmd="${R_HOME}/bin/Rd2dvi"
    extra="--pdf"
    ;;
  *)
    if test -x "${R_HOME}/bin/${1}"; then
      cmd="${R_HOME}/bin/${1}"
    else
      cmd="${1}"
    fi
    ;;
esac
shift

exec "${cmd}" ${extra} @OSF_SH_BUG@

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