The R Project SVN R

Rev

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

Rev 47442 Rev 52193
Line 1... Line 1...
1 
#! @PERL@
 1 
#! @PERL@
2 
#
 2 
#
3 
# ${R_HOME}/bin/Sd2Rd for converting S documentation to Rd format
 3 
# ${R_HOME}/bin/Sd2Rd for converting S documentation to Rd format
4 
 
 4 
 
5 
# Copyright (C) 1997-2001 The R Core Development Team
 5 
# Copyright (C) 1997-2007 The R Core Development Team
6 
#
 6 
#
7 
# This document is free software; you can redistribute it and/or modify
 7 
# This document is free software; you can redistribute it and/or modify
8 
# it under the terms of the GNU General Public License as published by
 8 
# it under the terms of the GNU General Public License as published by
9 
# the Free Software Foundation; either version 2, or (at your option)
 9 
# the Free Software Foundation; either version 2, or (at your option)
10 
# any later version.
 10 
# any later version.
Line 16... Line 16...
16 
#
 16 
#
17 
# A copy of the GNU General Public License is available at
 17 
# A copy of the GNU General Public License is available at
18 
# http://www.r-project.org/Licenses/
 18 
# http://www.r-project.org/Licenses/
19 
 
 19 
 
20 
use Getopt::Long;
 20 
use Getopt::Long;
21 
use R::Utils;
 - 
 
22 
 
 21 
 
- 
 
 22 
sub R_version {
- 
 
 23 
    my ($name, $version) = @_;
- 
 
 24 
    my $RV = $ENV{"R_VERSION"};
- 
 
 25 
 
- 
 
 26 
    print <<END;
- 
 
 27 
$name: $RV (r$version)
- 
 
 28 
 
- 
 
 29 
Copyright (C) 1997-2007 R Core Development Team.
- 
 
 30 
This is free software; see the GNU General Public Licence version 2
- 
 
 31 
or later for copying conditions.  There is NO warranty.
- 
 
 32 
END
- 
 
 33 
    exit 0;
- 
 
 34 
}
- 
 
 35 
 
23 
my $revision = ' $Rev: 47442 $ ';
 36 
my $revision = ' $Rev: 52193 $ ';
24 
my $version;
 37 
my $version;
25 
my $name;
 38 
my $name;
26 
 
 39 
 
27 
$revision =~ / ([\d\.]*) /;
 40 
$revision =~ / ([\d\.]*) /;
28 
$version = $1;
 41 
$version = $1;