The R Project SVN R

Rev

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

Rev 3279 Rev 6098
Line 1... Line 1...
1 
#!/bin/sh
 1 
#!/bin/sh
2 
# Diff  ``without R version''
 2 
# Diff  ``without R version''
3 
f1=$1
 3 
f1=$1
4 
f2=$2
 4 
f2=$2
5 
#$perlne="'print if /^Version|^Number of.*:/'"
 - 
 
6 
#perl -ne "$perlne" $f1 ....
 5 
exitstatus=${3}
7 
egrepv='(^Version|^Number of.*:|^Type|^R : Copyright'
 6 
egrepv='(^Version|^Number of.*:|^Type|^R : Copyright'
8 
if test -n "`grep primitive-funs $f1`"
 7 
if test -n "`grep primitive-funs $f1`"
9 
 then egrepv=$egrepv'|^\[1\] [19][0-9][0-9])'
 8 
 then egrepv=$egrepv'|^\[1\] [19][0-9][0-9])'
10 
 else egrepv=$egrepv')'
 9 
 else egrepv=$egrepv')'
11 
fi
 10 
fi
12 
 
 11 
 
13 
egrep -v "$egrepv" $f1 > /tmp/${f1}-d.$$
 12 
egrep -v "$egrepv" $f1 > /tmp/${f1}-d.$$
14 
exitstatus=1
 - 
 
15 
(egrep -v "$egrepv" $f2 | diff -bw /tmp/${f1}-d.$$ -) && exitstatus=0
 13 
(egrep -v "$egrepv" $f2 | diff -bw /tmp/${f1}-d.$$ -) && exitstatus=0
16 
 
 14 
 
17 
rm /tmp/${f1}-d.$$
 15 
rm /tmp/${f1}-d.$$
18 
 
 16 
 
19 
exit $exitstatus
 17 
exit $exitstatus