The R Project SVN R

Rev

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

Rev 11358 Rev 11384
Line 6... Line 6...
6 
ffile=${1}
 6 
ffile=${1}
7 
tfile=${2}
 7 
tfile=${2}
8 
exitstatus=${3}
 8 
exitstatus=${3}
9 
 
 9 
 
10 
## sed script to get rid of the startup message
 10 
## sed script to get rid of the startup message
11 
script='/^R : Copyright/,/quit R.$/{d;}; p'
 11 
script='/^R : Copyright/,/quit R.$/{d;}'
12 
## egrep pattern to get rid of some more???
 12 
## egrep pattern to get rid of some more???
13 
pattern='(^Number of.*:|^Time '
 13 
pattern='(^Number of.*:|^Time '
14 
if test -n "`echo ${ffile} | grep primitive-funs`"; then
 14 
if test -n "`echo ${ffile} | grep primitive-funs`"; then
15 
  pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
 15 
  pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
16 
else
 16 
else