The R Project SVN R

Rev

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

Rev 46832 Rev 47467
Line 1... Line 1...
1 
#!@R_SHELL@
 1 
#!@R_SHELL@
2 
##
 2 
##
3 
## Rdiff -- diff 'without R version'
 3 
## Rdiff -- diff 'without R version'
4 
 
 4 
 
- 
 
 5 
revision='$Rev$'
- 
 
 6 
version=`set - ${revision}; echo ${2}`
- 
 
 7 
version="R output diff r${version}
- 
 
 8 
 
5 
## Copyright (C) 2000-2008 The R Core Development Team.
 9 
Copyright (C) 2000-2008 The R Core Development Team.
6 
## This is free software; see the GNU General Public License version 2
 10 
This is free software; see the GNU General Public License version 2
7 
## or later for copying conditions.  There is NO warranty.
 11 
or later for copying conditions.  There is NO warranty."
8 
 
 12 
 
9 
## Usage:
 13 
usage="
10 
##   R CMD Rdiff from-file to-file exitstatus
 14 
Usage: R CMD Rdiff FROM-FILE TO-FILE EXITSTATUS
- 
 
 15 
 
- 
 
 16 
Diff R output files FROM-FILE and TO-FILE discarding the R startup message,
11 
## where from-file equal to '-' means STDIN
 17 
where FROM-FILE equal to '-' means stdin.
- 
 
 18 
 
- 
 
 19 
Options:
- 
 
 20 
  -h, --help     print this help message and exit
- 
 
 21 
  -v, --version  print version info and exit
- 
 
 22 
 
- 
 
 23 
Report bugs to <r-bugs@r-project.org>."
- 
 
 24 
 
- 
 
 25 
if test "${#}" -le 1; then
- 
 
 26 
  case "${1}" in
- 
 
 27 
    -h | --help) echo "${usage}"; exit 0 ;;
- 
 
 28 
    -v | --version) echo "${version}"; exit 0 ;;
- 
 
 29 
    *) echo "${usage}"; exit 1 ;;
- 
 
 30 
  esac
- 
 
 31 
fi
12 
 
 32 
 
13 
ffile=${1}
 33 
ffile=${1}
14 
tfile=${2}
 34 
tfile=${2}
15 
exitstatus=${3}
 35 
exitstatus=${3}
16 
 
 36