The R Project SVN R

Rev

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

Rev 39809 Rev 40768
Line 11... Line 11...
11 
exitstatus=${3}
 11 
exitstatus=${3}
12 
 
 12 
 
13 
## sed scripts to get rid of the startup message
 13 
## sed scripts to get rid of the startup message
14 
scriptold='/^R : Copyright /,/quit R.$/{d;}'
 14 
scriptold='/^R : Copyright /,/quit R.$/{d;}'
15 
scriptnew='/^R version /,/quit R.$/{d;}'
 15 
scriptnew='/^R version /,/quit R.$/{d;}'
- 
 
 16 
s1="s/‘/'/g"
- 
 
 17 
s2="s/’/'/g"
16 
 
 18 
 
17 
## egrep pattern to get rid of some more
 19 
## egrep pattern to get rid of some more
18 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
 20 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
19 
pattern='(^Time |^Loading required package.*|^Package [A-Za-z][A-Za-z0-9]+ loaded'
 21 
pattern='(^Time |^Loading required package.*|^Package [A-Za-z][A-Za-z0-9]+ loaded'
20 
case "${ffile}" in
 22 
case "${ffile}" in
Line 38... Line 40...
38 
  fi
 40 
  fi
39 
fi
 41 
fi
40 
 
 42 
 
41 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
 43 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
42 
 
 44 
 
43 
sed -e "${scriptold}" -e "${scriptnew}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
 45 
sed -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
- 
 
 46 
## some packages ship .Rout.save with CRLF endings
44 
(sed -e "${scriptold}" -e "${scriptnew}" ${tfile} | \
 47 
(tr -d '\r' <  ${tfile} | sed -e "${scriptold}" -e "${scriptnew}" -e "${s1}" -e "${s2}" | \
45 
  ${EGREP} -v "${pattern}" | \
 48 
  ${EGREP} -v "${pattern}" | \
46 
  diff -bw ${tmpfile} - ) && exitstatus=0
 49 
  diff -bw ${tmpfile} - ) && exitstatus=0
47 
 
 50 
 
48 
rm -f ${tmpfile}
 51 
rm -f ${tmpfile}
49 
 
 52