The R Project SVN R

Rev

Rev 47522 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 47522 Rev 47774
Line 1... Line 1...
1 
#!@R_SHELL@
 1 
#!@R_SHELL@
2 
##
 2 
##
3 
## Rdiff -- diff 'without R version'
 3 
## Rdiff -- diff 'without R version'
4 
 
 4 
 
5 
revision='$Rev: 47522 $'
 5 
revision='$Rev: 47774 $'
6 
version=`set - ${revision}; echo ${2}`
 6 
version=`set - ${revision}; echo ${2}`
7 
version="R output diff: ${R_VERSION} (r${version})
 7 
version="R output diff: ${R_VERSION} (r${version})
8 
 
 8 
 
9 
Copyright (C) 2000-2008 The R Core Development Team.
 9 
Copyright (C) 2000-2008 The R Core Development Team.
10 
This is free software; see the GNU General Public License version 2
 10 
This is free software; see the GNU General Public License version 2
Line 47... Line 47...
47 
## turn UTF-8 directional single quotes into ASCII quote
 47 
## turn UTF-8 directional single quotes into ASCII quote
48 
s1="s/‘/'/g"
 48 
s1="s/‘/'/g"
49 
s2="s/’/'/g"
 49 
s2="s/’/'/g"
50 
 
 50 
 
51 
## egrep pattern to get rid of some more
 51 
## egrep pattern to get rid of some more
52 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
 - 
 
53 
pattern='(^Time |^Loading required package.*|^Package [A-Za-z][A-Za-z0-9]+ loaded'
 52 
pattern='(^Time |^Loading required package.*|^Package [A-Za-z][A-Za-z0-9]+ loaded|^<(environment|promise|pointer): )'
54 
case "${ffile}" in
 - 
 
55 
  *primitive-funs*)
 - 
 
56 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
 - 
 
57 
    ;;
 - 
 
58 
  *)
 - 
 
59 
    pattern=${pattern}'|^<(environment|promise|pointer): )'
 - 
 
60 
    ;;
 - 
 
61 
esac
 - 
 
62 
 
 53 
 
63 
if test ${ffile} = '-' ; then
 54 
if test ${ffile} = '-' ; then
64 
  ffile=''
 55 
  ffile=''
65 
  bfile=''
 56 
  bfile=''
66 
else
 57 
else