The R Project SVN R

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
8746 hornik 1 
#!/bin/sh
10641 maechler 2 
# Diff  ``without R version''; f1="-" means STDIN
8746 hornik 3 
f1=${1}
4 
f2=${2}
5 
exitstatus=${3}
6 
 
9481 maechler 7 
egrepv='(^Version|^Number of.*:|^Type|^R : Copyright|^Time '
10641 maechler 8 
if test -n "`echo $f1 | grep primitive-funs`"; then
8746 hornik 9 
  egrepv=${egrepv}'|^\[1\] [19][0-9][0-9])'
10 
else
11 
  egrepv=${egrepv}')'
12 
fi
13 
 
14 
tmpfile=${TMPDIR:-/tmp}/${f1}-d.${$}
10641 maechler 15 
(if test x${f1} = x-
16 
 then	cat - | egrep -v "${egrepv}"
17 
 else		egrep -v "${egrepv}" ${f1}
18 
 fi) > ${tmpfile}
8746 hornik 19 
(egrep -v "${egrepv}" ${f2} | diff -bw ${tmpfile} - ) && exitstatus=0
20 
 
21 
rm -f ${tmpfile}
22 
exit ${exitstatus}