The R Project SVN R

Rev

Rev 40768 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 40768 Rev 43235
1 
#! /bin/sh
 1 
#! /bin/sh
2 
##
 2 
##
3 
## Rdiff -- Diff 'without R version'
 3 
## Rdiff -- Diff 'without R version'
4 
 
 4 
 
5 
## Usage:
 5 
## Usage:
6 
##   R CMD Rdiff from-file to-file exitstatus
 6 
##   R CMD Rdiff from-file to-file exitstatus
7 
## where from-file equal to '-' means STDIN
 7 
## where from-file equal to '-' means STDIN
8 
 
 8 
 
9 
ffile=${1}
 9 
ffile=${1}
10 
tfile=${2}
 10 
tfile=${2}
11 
exitstatus=${3}
 11 
exitstatus=${3}
12 
 
 12 
 
13 
## sed scripts to get rid of the startup message
 13 
## sed scripts to get rid of the startup message
14 
scriptold='/^R : Copyright /,/quit R.$/{d;}'
 14 
scriptold='/^R : Copyright /,/quit R.$/{d;}'
15 
scriptnew='/^R version /,/quit R.$/{d;}'
 15 
scriptnew='/^R version /,/quit R.$/{d;}'
16 
s1="s/‘/'/g"
 16 
s1="s/‘/'/g"
17 
s2="s/’/'/g"
 17 
s2="s/’/'/g"
18 
 
 18 
 
19 
## egrep pattern to get rid of some more
 19 
## egrep pattern to get rid of some more
20 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
 20 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
21 
pattern='(^Time |^Loading required package.*|^Package [A-Za-z][A-Za-z0-9]+ loaded'
 21 
pattern='(^Time |^Loading required package.*|^Package [A-Za-z][A-Za-z0-9]+ loaded'
22 
case "${ffile}" in
 22 
case "${ffile}" in
23 
  *primitive-funs*)
 23 
  *primitive-funs*)
24 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
 24 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
25 
    ;;
 25 
    ;;
26 
  *)
 26 
  *)
27 
    pattern=${pattern}'|^<(environment|promise|pointer): )'
 27 
    pattern=${pattern}'|^<(environment|promise|pointer): )'
28 
    ;;
 28 
    ;;
29 
esac
 29 
esac
30 
 
 30 
 
31 
if test ${ffile} = '-' ; then
 31 
if test ${ffile} = '-' ; then
32 
  ffile=''
 32 
  ffile=''
33 
  bfile=''
 33 
  bfile=''
34 
else
 34 
else
35 
  if test -f ${ffile} ; then
 35 
  if test -f ${ffile} ; then
36 
      bfile=`basename "${ffile}"`
 36 
      bfile=`basename "${ffile}"`
37 
  else
 37 
  else
38 
      echo "no valid file ${ffile}"
 38 
      echo "no valid file ${ffile}"
39 
      exit 1
 39 
      exit 1
40 
  fi
 40 
  fi
41 
fi
 41 
fi
42 
 
 42 
 
43 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
 43 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
44 
 
 44 
 
45 
sed -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
 45 
${SED-sed} -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
46 
## some packages ship .Rout.save with CRLF endings
 46 
## some packages ship .Rout.save with CRLF endings
47 
(tr -d '\r' <  ${tfile} | sed -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" | \
 47 
(tr -d '\r' <  ${tfile} | ${SED-sed} -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" | \
48 
  ${EGREP} -v "${pattern}" | \
 48 
  ${EGREP} -v "${pattern}" | \
49 
  diff -bw ${tmpfile} - ) && exitstatus=0
 49 
  diff -bw ${tmpfile} - ) && exitstatus=0
50 
 
 50 
 
51 
rm -f ${tmpfile}
 51 
rm -f ${tmpfile}
52 
 
 52 
 
53 
exit ${exitstatus}
 53 
exit ${exitstatus}