The R Project SVN R

Rev

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

Rev 43267 Rev 44137
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: 43267 $ ';
 40 
my $revision = ' $Rev: 44137 $ ';
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 72... Line 72...
72 
$ENV{"R_DEFAULT_PACKAGES"} = "";
 72 
$ENV{"R_DEFAULT_PACKAGES"} = "";
73 
 
 73 
 
74 
my $startdir = R_cwd();
 74 
my $startdir = R_cwd();
75 
my $R_platform = R_getenv("R_PLATFORM", "unknown-binary");
 75 
my $R_platform = R_getenv("R_PLATFORM", "unknown-binary");
76 
my $gzip = R_getenv("R_GZIPCMD", "gzip");
 76 
my $gzip = R_getenv("R_GZIPCMD", "gzip");
77 
## The tar.exe in Rtools has --force-local by default, but this
77 
## The tar.exe in Rtools has --force-local by default, but this
78 
## enables people to use Cygwin or MSYS tar.
78 
## enables people to use Cygwin or MSYS tar.
79 
my $tar_default = "tar";
 79 
my $tar_default = "tar";
80 
$tar_default = "tar --force-local" if $WINDOWS;
 80 
$tar_default = "tar --force-local" if $WINDOWS;
81 
my $tar = R_getenv("TAR", $tar_default);
 81 
my $tar = R_getenv("TAR", $tar_default);
82 
my $libdir = R_tempfile("Rinst");
 82 
my $libdir = R_tempfile("Rinst");
83 
 
 83 
 
Line 212... Line 212...
212 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /[Oo]ld$/);
 212 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /[Oo]ld$/);
213 
	print EXCLUDE "$File::Find::name\n" if /^GNUMakefile$/;
 213 
	print EXCLUDE "$File::Find::name\n" if /^GNUMakefile$/;
214 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^CVS$/);
 214 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^CVS$/);
215 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.svn$/);
 215 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.svn$/);
216 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.arch-ids$/);
 216 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.arch-ids$/);
- 
 
 217 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.bzr$/);
217 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.git$/);
 218 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.git$/);
218 
	## Windows DLL resource file
 219 
	## Windows DLL resource file
219 
	push(@exclude_patterns, "^src/" . $pkgname . "_res\\.rc");
 220 
	push(@exclude_patterns, "^src/" . $pkgname . "_res\\.rc");
220 
	my $filename = $File::Find::name;
 221 
	my $filename = $File::Find::name;
221 
	$filename =~ s/^[^\/]*\///;
 222 
	$filename =~ s/^[^\/]*\///;
Line 255... Line 256...
255 
    close(EXCLUDE);
 256 
    close(EXCLUDE);
256 
    unlink($exclude);
 257 
    unlink($exclude);
257 
    unlink($filepath);
 258 
    unlink($filepath);
258 
    ## Now correct the package name (PR#9266)
 259 
    ## Now correct the package name (PR#9266)
259 
    if($pkgname ne $intname) {
 260 
    if($pkgname ne $intname) {
260 
	rename $pkgname, $intname
261 
	rename $pkgname, $intname
261 
	    or die "Error: cannot rename directory to '$intname'\n";
 262 
	    or die "Error: cannot rename directory to '$intname'\n";
262 
	$pkgname = $intname;
 263 
	$pkgname = $intname;
263 
    }
 264 
    }
264 
    ## Fix up man, R, demo inst/doc directories (in each package for a bundle)
 265 
    ## Fix up man, R, demo inst/doc directories (in each package for a bundle)
265 
    sub find_invalid_files {
 266 
    sub find_invalid_files {