The R Project SVN R

Rev

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

Rev 37490 Rev 37742
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 script to get rid of the startup message
 13 
## sed script to get rid of the startup message
14 
script='/^R : Copyright/,/quit R.$/{d;}'
 14 
script='/^R \(version\|: Copyright\) /,/quit R.$/{d;}'
- 
 
 15 
 
15 
## egrep pattern to get rid of some more
 16 
## egrep pattern to get rid of some more
16 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
 17 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
17 
pattern='(^Time |^Loading required package.*'
 18 
pattern='(^Time |^Loading required package.*'
18 
case "${ffile}" in
 19 
case "${ffile}" in
19 
  *primitive-funs*)
 20 
  *primitive-funs*)
20 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
 21 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
21 
    ;;
 22 
    ;;
22 
  *)
 23 
  *)
23 
    pattern=${pattern}'|^<(environment|promise|pointer): )'
 24 
    pattern=${pattern}'|^<(environment|promise|pointer): )'
24 
    ;;
 25 
    ;;
25 
esac
 26 
esac
26 
 
 27 
 
27 
if test ${ffile} = '-' ; then
 28 
if test ${ffile} = '-' ; then
28 
  ffile=''
 29 
  ffile=''
29 
  bfile=''
 30 
  bfile=''
30 
else
 31 
else
31 
  if test -f ${ffile} ; then
 32 
  if test -f ${ffile} ; then
32 
      bfile=`basename "${ffile}"`
 33 
      bfile=`basename "${ffile}"`
33 
  else
 34 
  else
34 
      echo "no valid file ${ffile}"
 35 
      echo "no valid file ${ffile}"
35 
      exit 1
 36 
      exit 1
36 
  fi
 37 
  fi
37 
fi
 38 
fi
38 
 
 39 
 
39 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
 40 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
40 
 
 41 
 
41 
sed -e "${script}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
 42 
sed -e "${script}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
42 
(sed -e "${script}" ${tfile} | \
 43 
(sed -e "${script}" ${tfile} | \
43 
  ${EGREP} -v "${pattern}" | \
 44 
  ${EGREP} -v "${pattern}" | \
44 
  diff -bw ${tmpfile} - ) && exitstatus=0
 45 
  diff -bw ${tmpfile} - ) && exitstatus=0
45 
 
 46 
 
46 
rm -f ${tmpfile}
 47 
rm -f ${tmpfile}
47 
 
 48 
 
48 
exit ${exitstatus}
 49 
exit ${exitstatus}