The R Project SVN R

Rev

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

Rev 11515 Rev 11684
Line 25... Line 25...
25 
 
 25 
 
26 
use Getopt::Long;
 26 
use Getopt::Long;
27 
use R::Rdconv;
 27 
use R::Rdconv;
28 
use R::Utils;
 28 
use R::Utils;
29 
 
 29 
 
30 
my $revision = ' $Revision: 1.18 $ ';
 30 
my $revision = ' $Revision: 1.19 $ ';
31 
my $version;
 31 
my $version;
32 
my $name;
 32 
my $name;
33 
 
 33 
 
34 
$revision =~ / ([\d\.]*) /;
 34 
$revision =~ / ([\d\.]*) /;
35 
$version = $1;
 35 
$version = $1;
Line 74... Line 74...
74 
 
 74 
 
75 
$OSdir = $opt_os if $opt_os;
 75 
$OSdir = $opt_os if $opt_os;
76 
$out = 0;
 76 
$out = 0;
77 
if(defined $opt_o) {
 77 
if(defined $opt_o) {
78 
    if(length($opt_o)) { $out = $opt_o; }
 78 
    if(length($opt_o)) { $out = $opt_o; }
79 
    else { $out = $ARGV[0]; $out =~ s/.Rd$//; }
 79 
    else { $out = $ARGV[0]; $out =~ s/.Rd$//i; }
80 
}
 80 
}
81 
$out = 0 if $out eq "-";
 81 
$out = 0 if $out eq "-";
82 
 
 82 
 
83 
usage() if $opt_help;
 83 
usage() if $opt_help;
84 
 
 84