The R Project SVN R

Rev

Rev 47147 | Rev 47442 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 47147 Rev 47149
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: 47147 $ ';
 40 
my $revision = ' $Rev: 47149 $ ';
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 552... Line 552...
552 
	if($WINDOWS) {
 552 
	if($WINDOWS) {
553 
	    ## A Windows Makefile.win might use
 553 
	    ## A Windows Makefile.win might use
554 
	    ## $(RHOME)/src/gnuwin32/MkRules.
 554 
	    ## $(RHOME)/src/gnuwin32/MkRules.
555 
	    $ENV{RHOME} = $ENV{R_HOME};
 555 
	    $ENV{RHOME} = $ENV{R_HOME};
556 
	    if(-r "Makefile.win") {
 556 
	    if(-r "Makefile.win") {
- 
 
 557 
		## FIXME: why not use 'Makefile' if Makefile.win does not exist?
557 
		R_system("${R::Vars::MAKE} -f Makefile.win clean");
 558 
		R_system("${R::Vars::MAKE} -f Makefile.win clean");
558 
	    } else {
 559 
	    } else {
559 
		## FIXME: there need not be a 'clean' target.
 - 
 
560 
		## FIXME: why not use 'Makevars' if Makevars.win does not exist?
 - 
 
561 
		if(-r "Makevars.win") {
 560 
		if(-r "Makevars.win") {
- 
 
 561 
		    my $makefiles = " -f " .
- 
 
 562 
			&shell_quote_file_path(&file_path(${R::Vars::R_HOME},
- 
 
 563 
							  "share", "make",
- 
 
 564 
							  "clean.mk"));
- 
 
 565 
		    $makefiles .= " -f Makevars.win";
562 
		    R_system("${R::Vars::MAKE} -f Makevars.win clean");
 566 
		    R_system("${R::Vars::MAKE} $makefiles clean");
- 
 
 567 
		} elsif (-r "Makevars") {
- 
 
 568 
		    my $makefiles = " -f " .
- 
 
 569 
			&shell_quote_file_path(&file_path(${R::Vars::R_HOME},
- 
 
 570 
							  "share", "make",
- 
 
 571 
							  "clean.mk"));
- 
 
 572 
		    $makefiles .= " -f Makevars";
- 
 
 573 
		    R_system("${R::Vars::MAKE} $makefiles clean");
563 
		}
 574 
		}
564 
		foreach my $file (<*.o $pkgname.a $pkgname.dll $pkgname.def>) {
 575 
		foreach my $file (<*.o $pkgname.a $pkgname.dll $pkgname.def>) {
565 
		    unlink($file);
 576 
		    unlink($file);
566 
		}
 577 
		}
567 
		rmtree("_libs") if (-d "_libs");
 578 
		rmtree("_libs") if (-d "_libs");