The R Project SVN R

Rev

Rev 10641 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10641 Rev 11358
Line 1... Line 1...
1 
#!/bin/sh
 1 
#! /bin/sh
2 
# Diff  ``without R version''; f1="-" means STDIN
 2 
## Diff  ``without R version''
- 
 
 3 
## usage: Rdiff from-file to-file exitstatus
- 
 
 4 
## from-file equal to `-' means STDIN
- 
 
 5 
 
3 
f1=${1}
 6 
ffile=${1}
4 
f2=${2}
 7 
tfile=${2}
5 
exitstatus=${3}
 8 
exitstatus=${3}
6 
 
 9 
 
- 
 
 10 
## sed script to get rid of the startup message
- 
 
 11 
script='/^R : Copyright/,/quit R.$/{d;}; p'
- 
 
 12 
## egrep pattern to get rid of some more???
7 
egrepv='(^Version|^Number of.*:|^Type|^R : Copyright|^Time '
 13 
pattern='(^Number of.*:|^Time '
8 
if test -n "`echo $f1 | grep primitive-funs`"; then
 14 
if test -n "`echo ${ffile} | grep primitive-funs`"; then
9 
  egrepv=${egrepv}'|^\[1\] [19][0-9][0-9])'
 15 
  pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
10 
else
 16 
else
11 
  egrepv=${egrepv}')'
 17 
  pattern=${pattern}')'
12 
fi
 18 
fi
13 
 
 19 
 
14 
tmpfile=${TMPDIR:-/tmp}/${f1}-d.${$}
 20 
tmpfile=${TMPDIR:-/tmp}/${ffile}-d.${$}
15 
(if test x${f1} = x-
 - 
 
- 
 
 21 
 
16 
 then	cat - | egrep -v "${egrepv}"
 22 
sed -e "${script}" ${ffile} | egrep -v "${pattern}" > ${tmpfile}
17 
 else		egrep -v "${egrepv}" ${f1}
 23 
(sed -e "${script}" ${tfile} | \
18 
 fi) > ${tmpfile}
 24 
  egrep -v "${pattern}" | \
19 
(egrep -v "${egrepv}" ${f2} | diff -bw ${tmpfile} - ) && exitstatus=0
 25 
  diff -bw ${tmpfile} - ) && exitstatus=0
20 
 
 26 
 
21 
rm -f ${tmpfile}
 27 
rm -f ${tmpfile}
- 
 
 28 
 
22 
exit ${exitstatus}
 29 
exit ${exitstatus}