The R Project SVN R

Rev

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

Rev 7556 Rev 7644
Line 22... Line 22...
22 
 
 22 
 
23 
use File::Basename;
 23 
use File::Basename;
24 
use Cwd;
 24 
use Cwd;
25 
use Getopt::Long;
 25 
use Getopt::Long;
26 
 
 26 
 
27 
my $revision = ' $Revision: 1.21 $ ';
 27 
my $revision = ' $Revision: 1.22 $ ';
28 
my $version;
 28 
my $version;
29 
my $name;
 29 
my $name;
30 
 
 30 
 
31 
$revision =~ / ([\d\.]*) /;
 31 
$revision =~ / ([\d\.]*) /;
32 
$version = $1;
 32 
$version = $1;
Line 216... Line 216...
216 
    @destdir = sort(readdir(dest));
 216 
    @destdir = sort(readdir(dest));
217 
    closedir dest;
 217 
    closedir dest;
218 
    foreach $destfile (@destdir) {
 218 
    foreach $destfile (@destdir) {
219 
	$destfilebase = basename($destfile, (".tex"));
 219 
	$destfilebase = basename($destfile, (".tex"));
220 
	if($destfile eq "." || $destfile eq "..") { next; }
 220 
	if($destfile eq "." || $destfile eq "..") { next; }
221 
#	print "$dest/html/$destfile\n" unless defined $manfiles{$destfilebase};
 221 
#	print "$dest/latex/$destfile\n" unless defined $manfiles{$destfilebase};
222 
	unlink "$dest/html/$destfile" unless defined $manfiles{$destfilebase};
 222 
	unlink "$dest/latex/$destfile" unless defined $manfiles{$destfilebase};
223 
    }
 223 
    }
224 
}
 224 
}
225 
if($opt_example){
 225 
if($opt_example){
226 
    my @destdir;
 226 
    my @destdir;
227 
    opendir dest,  "$dest/R-ex";
 227 
    opendir dest,  "$dest/R-ex";
228 
    @destdir = sort(readdir(dest));
 228 
    @destdir = sort(readdir(dest));
229 
    closedir dest;
 229 
    closedir dest;
230 
    foreach $destfile (@destdir) {
 230 
    foreach $destfile (@destdir) {
231 
	$destfilebase = basename($destfile, (".R"));
 231 
	$destfilebase = basename($destfile, (".R"));
232 
	if($destfile eq "." || $destfile eq "..") { next; }
 232 
	if($destfile eq "." || $destfile eq "..") { next; }
233 
#	print "$dest/html/$destfile\n" unless defined $manfiles{$destfilebase};
 233 
#	print "$dest/R-ex/$destfile\n" unless defined $manfiles{$destfilebase};
234 
	unlink "$dest/html/$destfile" unless defined $manfiles{$destfilebase};
 234 
	unlink "$dest/R-ex/$destfile" unless defined $manfiles{$destfilebase};
235 
    }
 235 
    }
236 
}
 236 
}
237 
 
 237 
 
238 
sub version {
 238 
sub version {
239 
  print STDERR <<END;
 239 
  print STDERR <<END;