| 2 |
|
# |
| 3 |
|
# Interface |
| 4 |
|
# --------- |
| 5 |
< |
# new(toolbox) |
| 5 |
> |
# new(ConfigArea) |
| 6 |
|
# ParseBuildFile($base,$path,$file) |
| 7 |
|
# ParseBuildFileExport(filename) |
| 8 |
|
# BlockClassPath() : Return the class path |
| 21 |
|
my $class=shift; |
| 22 |
|
my $self={}; |
| 23 |
|
bless $self, $class; |
| 24 |
< |
$self->{toolbox}=shift; |
| 24 |
> |
$self->{area}=shift; |
| 25 |
> |
$self->{toolbox}=$self->{area}->toolbox(); |
| 26 |
|
$self->{Arch}=1; |
| 27 |
|
push @{$self->{ARCHBLOCK}}, $self->{Arch}; |
| 28 |
|
return $self; |
| 170 |
|
sub ParseBuildFile_Export { |
| 171 |
|
my $self=shift; |
| 172 |
|
my $filename=shift; |
| 173 |
< |
my $bf=BuildSystem::BuildFile->new($self->{toolbox}); |
| 173 |
> |
my $bf=BuildSystem::BuildFile->new($self->{area}); |
| 174 |
|
if ( defined $self->{remoteproject} ) { |
| 175 |
|
$bf->{remoteproject}=$self->{remoteproject}; |
| 176 |
|
} |
