The R Project SVN R

Rev

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

Rev 48194 Rev 48203
Line 35... Line 35...
35 
use Text::Wrap;
 35 
use Text::Wrap;
36 
 
 36 
 
37 
## Don't buffer output.
 37 
## Don't buffer output.
38 
$| = 1;
 38 
$| = 1;
39 
 
 39 
 
40 
my $revision = ' $Rev: 48194 $ ';
 40 
my $revision = ' $Rev: 48203 $ ';
41 
my $version;
 41 
my $version;
42 
my $name;
 42 
my $name;
43 
$revision =~ / ([\d\.]*) /;
 43 
$revision =~ / ([\d\.]*) /;
44 
$version = $1;
 44 
$version = $1;
45 
($name = $0) =~ s|.*/||;
 45 
($name = $0) =~ s|.*/||;
Line 451... Line 451...
451 
    my $fh = new IO::File($dpath, "w")
 451 
    my $fh = new IO::File($dpath, "w")
452 
	or die "Error: cannot open file '$dpath' for writing\n";
 452 
	or die "Error: cannot open file '$dpath' for writing\n";
453 
    ## Do not keep previous build stamps.
 453 
    ## Do not keep previous build stamps.
454 
    @lines = grep(!/^Packaged:/, @lines);
 454 
    @lines = grep(!/^Packaged:/, @lines);
455 
    $fh->print(join("\n", @lines), "\n");
 455 
    $fh->print(join("\n", @lines), "\n");
456 
    $fh->print("Packaged: ",
 456 
    my @dt = R_runR("cat(format(Sys.time(), '', tz='UTC', usetz=TRUE))",
457 
	       scalar(gmtime()), " UTC; ",
 457 
		    "--vanilla --slave", "R_DEFAULT_PACKAGES=NULL");
458 
	       $user_name, "\n");
 458 
    $fh->print("Packaged: ", @dt, "; ", $user_name, "\n");
459 
    $fh->close();
 459 
    $fh->close();
460 
}
 460 
}
461 
 
 461 
 
462
462
463 
sub prepare_pkg {
 463 
sub prepare_pkg {