| 7 |
|
# |
| 8 |
|
# Interface |
| 9 |
|
# --------- |
| 10 |
< |
# new(ConfigArea) : A new Build object |
| 10 |
> |
# new(ConfigArea) : A new Build object |
| 11 |
|
# build(dir,[@targets]) : Build relevant target for a given directory |
| 12 |
|
# dir relative to top. Returns a BuildReport |
| 13 |
|
|
| 14 |
|
package BuildSystem::Build; |
| 15 |
|
use BuildSystem::BuildReport; |
| 16 |
+ |
use BuildSystem::BuildSetup; |
| 17 |
|
use Utilities::Verbose; |
| 18 |
|
require 5.004; |
| 19 |
|
@ISA=qw(Utilities::Verbose); |
| 25 |
|
$self->{area}=shift; |
| 26 |
|
$self->{area}->copyenv(\%ENV); |
| 27 |
|
$ENV{LOCALTOP}=$self->{area}->location(); |
| 28 |
+ |
|
| 29 |
+ |
# -- set RELEASTOP |
| 30 |
+ |
my $rarea=$self->{area}->linkarea(); |
| 31 |
+ |
if ( ! defined $rarea ) { |
| 32 |
+ |
$ENV{RELEASETOP}=$ENV{LOCALTOP}; |
| 33 |
+ |
} |
| 34 |
+ |
else { |
| 35 |
+ |
$ENV{RELEASETOP}=$rarea->location(); |
| 36 |
+ |
} |
| 37 |
+ |
|
| 38 |
|
$self->verbose("LOCALTOP=".$ENV{LOCALTOP}); |
| 39 |
+ |
$self->verbose("RELEASETOP=".$ENV{RELEASETOP}); |
| 40 |
|
return $self; |
| 41 |
|
} |
| 42 |
|
|
