The R Project SVN R

Rev

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

Rev 28275 Rev 28277
Line 24... Line 24...
24 
use Getopt::Long;
 24 
use Getopt::Long;
25 
use R::Dcf;
 25 
use R::Dcf;
26 
use R::Utils;
 26 
use R::Utils;
27 
 
 27 
 
28 
 
 28 
 
29 
my $revision = ' $Revision: 1.39 $ ';
 29 
my $revision = ' $Revision: 1.40 $ ';
30 
my $version;
 30 
my $version;
31 
my $name;
 31 
my $name;
32 
$revision =~ / ([\d\.]*) /;
 32 
$revision =~ / ([\d\.]*) /;
33 
$version = $1;
 33 
$version = $1;
34 
($name = $0) =~ s|.*/||;
 34 
($name = $0) =~ s|.*/||;
Line 80... Line 80...
80 
    } else {
 80 
    } else {
81 
	die "ERROR: invalid --docs value `$opt_docs'\n";
 81 
	die "ERROR: invalid --docs value `$opt_docs'\n";
82 
    }
 82 
    }
83 
}
 83 
}
84 
 
 84 
 
- 
 
 85 
if((-e "$R_HOME/doc/html/R.css") && !(-e "$library/R.css")) {
- 
 
 86 
    printf "installing R.css in $library\n";
- 
 
 87 
    system("cp $R_HOME/doc/html/R.css $library/R.css");
- 
 
 88 
}
- 
 
 89 
 
85 
## this is the main loop over all packages to be installed
 90 
## this is the main loop over all packages to be installed
86 
my $pkg;
 91 
my $pkg;
87 
foreach $pkg (@ARGV){
 92 
foreach $pkg (@ARGV){
88 
    # remove misguided trailing separator (/ or \)
 93 
    # remove misguided trailing separator (/ or \)
89 
    $pkg =~ s/\/$//; $pkg =~ s/\\$//;
 94 
    $pkg =~ s/\/$//; $pkg =~ s/\\$//;
Line 248... Line 253...
248 
    }
 253 
    }
249 
    print("\n");
 254 
    print("\n");
250 
    if(!$res) {print("\* DONE");}
 255 
    if(!$res) {print("\* DONE");}
251 
}
 256 
}
252 
 
 257 
 
253 
if((-e "$R_HOME/doc/html/R.css") && !(-e "$library/R.css")) {
 - 
 
254 
    printf "installing R.css in $library\n";
 - 
 
255 
    system("cp $R_HOME/doc/html/R.css $library/R.css");
 - 
 
256 
}
 258 
 
257 
 
 259 
 
258 
sub usage {
 260 
sub usage {
259 
    print STDERR <<END;
 261 
    print STDERR <<END;
260 
Usage: Rcmd $name [options] pkgs
 262 
Usage: Rcmd $name [options] pkgs
261 
 
 263