The R Project SVN R

Rev

Rev 51509 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 51509 Rev 51510
Line 1... Line 1...
1 
#!@R_SHELL@
 1 
#!@R_SHELL@
2 
##
 2 
##
3 
## Rdiff -- diff 'without R version'
 3 
## Rdiff -- diff 'without R version'
4 
 
 4 
 
5 
revision='$Rev: 51509 $'
 5 
revision='$Rev: 51510 $'
6 
version=`set - ${revision}; echo ${2}`
 6 
version=`set - ${revision}; echo ${2}`
7 
version="R output diff: ${R_VERSION} (r${version})
 7 
version="R output diff: ${R_VERSION} (r${version})
8 
 
 8 
 
9 
Copyright (C) 2000-2008 The R Core Development Team.
 9 
Copyright (C) 2000-2008 The R Core Development Team.
10 
This is free software; see the GNU General Public License version 2
 10 
This is free software; see the GNU General Public License version 2
Line 66... Line 66...
66 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
 66 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
67 
 
 67 
 
68 
${SED} -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
 68 
${SED} -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
69 
## some packages ship .Rout.save with CRLF endings
 69 
## some packages ship .Rout.save with CRLF endings
70 
## OTOH, Solaris's /usr/ucb/tr strips 'r' here
 70 
## OTOH, Solaris's /usr/ucb/tr strips 'r' here
71 
(tr -d '\r' <  ${tfile} | ${SED} -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" | \
 71 
(${TR} -d '\r' <  ${tfile} | ${SED} -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" | \
72 
  ${EGREP} -v "${pattern}" | \
 72 
  ${EGREP} -v "${pattern}" | \
73 
  diff -bw ${tmpfile} - ) && exitstatus=0
 73 
  diff -bw ${tmpfile} - ) && exitstatus=0
74 
 
 74 
 
75 
rm -f ${tmpfile}
 75 
rm -f ${tmpfile}
76 
 
 76