The R Project SVN R

Rev

Rev 14330 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14330 Rev 19969
Line 21... Line 21...
21 
fi
 21 
fi
22 
 
 22 
 
23 
. ${R_HOME}/etc/Renviron
 23 
. ${R_HOME}/etc/Renviron
24 
export `sed 's/^ *#.*//; s/^\(.*\)=.*/\1/' ${R_HOME}/etc/Renviron`
 24 
export `sed 's/^ *#.*//; s/^\(.*\)=.*/\1/' ${R_HOME}/etc/Renviron`
25 
 
 25 
 
26 
PATH="${R_HOME}/bin:${PATH}"
- 
 
27 
case "${1}" in
 26 
case "${1}" in
28 
  perl)
 27 
  perl)
29 
    shift;
 - 
 
30 
    exec ${PERL} "${@}"
 28 
    cmd="${PERL}" ;;
31 
    ;;
 - 
 
32 
  awk)
 29 
  awk)
33 
    shift;
 - 
 
34 
    exec ${AWK}  "${@}"
 30 
    cmd="${AWK}"  ;;
35 
    ;;
 - 
 
36 
  *)
 31 
  *)
- 
 
 32 
    if test -x "${R_HOME}/bin/${1}"; then
- 
 
 33 
      cmd="${R_HOME}/bin/${1}"
- 
 
 34 
    else
37 
    exec "${@}"
 35 
      cmd="${1}"
- 
 
 36 
    fi
38 
    ;;
 37 
    ;;
39 
esac
 38 
esac
- 
 
 39 
shift
- 
 
 40 
 
- 
 
 41 
exec "${cmd}" "${@}"
40 
 
 42 
 
41 
### Local Variables: ***
 43 
### Local Variables: ***
42 
### mode: sh ***
 44 
### mode: sh ***
43 
### sh-indentation: 2 ***
 45 
### sh-indentation: 2 ***
44 
### End: ***
 46 
### End: ***