The R Project SVN R

Rev

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

Rev 23041 Rev 32349
Line 19... Line 19...
19 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
 19 
    pattern=${pattern}'|^\[1\] [19][0-9][0-9])'
20 
    ;;
 20 
    ;;
21 
  *)
 21 
  *)
22 
    pattern=${pattern}'|^<environment)'
 22 
    pattern=${pattern}'|^<environment)'
23 
    ;;
 23 
    ;;
24 
esac
24 
esac
25 
 
 25 
 
26 
tmpfile=${TMPDIR-/tmp}/${ffile}-d.${$}
 - 
 
27 
 
 - 
 
28 
if test ${ffile} = '-' ; then
26 
if test ${ffile} = '-' ; then
29 
  ffile=''
 27 
  ffile=''
- 
 
 28 
  bfile=''
- 
 
 29 
else
- 
 
 30 
  if test -f ${ffile} ; then
- 
 
 31 
      bfile=`basename "${ffile}"`
- 
 
 32 
  else
- 
 
 33 
      echo "no valid file ${ffile}"
- 
 
 34 
      exit 1
- 
 
 35 
  fi
30 
fi
 36 
fi
31 
 
 37 
 
- 
 
 38 
tmpfile=${TMPDIR-/tmp}/${bfile}-d.${$}
- 
 
 39 
 
32 
sed -e "${script}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
 40 
sed -e "${script}" ${ffile} | ${EGREP} -v "${pattern}" > ${tmpfile}
33 
(sed -e "${script}" ${tfile} | \
 41 
(sed -e "${script}" ${tfile} | \
34 
  ${EGREP} -v "${pattern}" | \
 42 
  ${EGREP} -v "${pattern}" | \
35 
  diff -bw ${tmpfile} - ) && exitstatus=0
 43 
  diff -bw ${tmpfile} - ) && exitstatus=0
36 
 
 44