| #!/bin/sh | |
| # | |
| # ${R_HOME}/tools/GETDISTNAME | |
| TOOLS_DIR=`echo ${0} | sed 's%/[^/][^/]*$%%'` | |
| ( | |
| maj=`sed 's/\([^ .]*\).\([^ ]*\) *\(.*\)/\1/' < ${TOOLS_DIR}/../VERSION` | |
| min=`sed 's/\([^ .]*\).\([^ ]*\) *\(.*\)/\2/' < ${TOOLS_DIR}/../VERSION` | |
| rev=`sed 's/\([^ .]*\).\([^ ]*\) *\(.*\)/\3/' < ${TOOLS_DIR}/../VERSION` | |
| if test -z "${rev}" ; then | |
| res=R-${maj}.${min} | |
| else | |
| dat=`sed -e 1d -e 's/^Last Changed Date: //' SVN-REVISION` | |
| svn=`sed -e 2d -e 's/^Revision: //' SVN-REVISION` | |
| y=`echo ${dat} | cut -d- -f1` | |
| m=`echo ${dat} | cut -d- -f2` | |
| d=`echo ${dat} | cut -d- -f3` | |
| if test "${rev}" = "Under development (unstable)"; then | |
| res="R-devel_"${y}-${m}-${d}_r${svn} | |
| else | |
| rev=`echo ${rev} | tr [A-Z] [a-z]` | |
| res="R-${rev}_"${y}-${m}-${d}_r${svn} | |
| fi | |
| fi | |
| echo ${res} | |
| ) |