The R Project SVN R

Rev

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

Rev 37742 Rev 37820
Line 8... Line 8...
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 scripts to get rid of the startup message
14 
script='/^R \(version\|: Copyright\) /,/quit R.$/{d;}'
 14 
scriptold='/^R : Copyright /,/quit R.$/{d;}'
- 
 
 15 
scriptnew='/^R version /,/quit R.$/{d;}'
15 
 
 16 
 
16 
## egrep pattern to get rid of some more
 17 
## egrep pattern to get rid of some more
17 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
 18 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
18 
pattern='(^Time |^Loading required package.*'
 19 
pattern='(^Time |^Loading required package.*'
19 
case "${ffile}" in
 20 
case "${ffile}" in
Line 37... Line 38...
37 
  fi
 38 
  fi
38 
fi
 39 
fi
39 
 
 40 
 
40 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
 41 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
41 
 
 42 
 
42 
sed -e "${script}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
 43 
sed -e "${scriptold}" -e "${scriptnew}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
43 
(sed -e "${script}" ${tfile} | \
 44 
(sed -e "${scriptold}" -e "${scriptnew}" ${tfile} | \
44 
  ${EGREP} -v "${pattern}" | \
 45 
  ${EGREP} -v "${pattern}" | \
45 
  diff -bw ${tmpfile} - ) && exitstatus=0
 46 
  diff -bw ${tmpfile} - ) && exitstatus=0
46 
 
 47 
 
47 
rm -f ${tmpfile}
 48 
rm -f ${tmpfile}
48 
 
 49