The R Project SVN R

#!/bin/sh

#! /bin/sh

# Diff  ``without R version''; f1="-" means STDIN

## Diff  ``without R version''

f1=${1}

ffile=${1}

f2=${2}

tfile=${2}

egrepv='(^Version|^Number of.*:|^Type|^R : Copyright|^Time '

pattern='(^Number of.*:|^Time '

if test -n "`echo $f1 | grep primitive-funs`"; then

if test -n "`echo ${ffile} | grep primitive-funs`"; then

  egrepv=${egrepv}'|^\[1\] [19][0-9][0-9])'

  pattern=${pattern}'|^\[1\] [19][0-9][0-9])'

  egrepv=${egrepv}')'

  pattern=${pattern}')'

tmpfile=${TMPDIR:-/tmp}/${f1}-d.${$}

tmpfile=${TMPDIR-/tmp}/${ffile}-d.${$}

(if test x${f1} = x-

if test ${ffile} = '-' ; then 

 then	cat - | egrep -v "${egrepv}"

sed -e "${script}" ${ffile} | egrep -v "${pattern}" > ${tmpfile}

 else		egrep -v "${egrepv}" ${f1}

(sed -e "${script}" ${tfile} | \

 fi) > ${tmpfile}

  egrep -v "${pattern}" | \

(egrep -v "${egrepv}" ${f2} | diff -bw ${tmpfile} - ) && exitstatus=0

  diff -bw ${tmpfile} - ) && exitstatus=0