The R Project SVN R

Rev

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

Rev 32355 Rev 37490
Line 10... Line 10...
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 script to get rid of the startup message
14 
script='/^R : Copyright/,/quit R.$/{d;}'
 14 
script='/^R : Copyright/,/quit R.$/{d;}'
15 
## egrep pattern to get rid of some more???
 15 
## egrep pattern to get rid of some more
16 
pattern='(^Number of.*:|^Time |^Loading required package.*'
 16 
## <= 2.2.x was pattern='(^Number of.*:|^Time |^Loading required package.*'
- 
 
 17 
pattern='(^Time |^Loading required package.*'
17 
case "${ffile}" in
 18 
case "${ffile}" in
18 
  *primitive-funs*)
 19 
  *primitive-funs*)
19 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
 20 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
20 
    ;;
 21 
    ;;
21 
  *)
 22 
  *)