| 2 |
|
# |
| 3 |
|
# Interface |
| 4 |
|
# --------- |
| 5 |
< |
# new() : A new BuildSetup |
| 5 |
> |
# new(toolbox) : A new BuildSetup |
| 6 |
|
# BuildSetup(directory,targets) : prepare the ground for a build and build |
| 7 |
|
# getclass(directory) : return (Class, ClassDir, BuildFileobject) |
| 8 |
|
# associated with directory |
| 20 |
|
my $class=shift; |
| 21 |
|
my $self={}; |
| 22 |
|
bless $self,$class; |
| 23 |
< |
$self->init(); |
| 23 |
> |
$self->{toolbox}=shift; |
| 24 |
> |
#$self->init(); |
| 25 |
|
return $self; |
| 26 |
|
} |
| 27 |
|
|
| 28 |
|
sub init { |
| 29 |
|
my $self=shift; |
| 30 |
< |
$self->{toolbox}=BuildSystem::ToolBox->new(); |
| 30 |
> |
$self->{toolbox}=BuildSystem::ToolBox->new($ENV{LOCALTOP}); |
| 31 |
|
} |
| 32 |
|
|
| 33 |
|
sub _generateexternals { |
| 40 |
|
# -- get list of dependent files |
| 41 |
|
my $datadir=$ENV{LOCALTOP}."/.SCRAM/".$ENV{SCRAM_ARCH}; |
| 42 |
|
$fdir=FileHandle->new(); |
| 43 |
< |
opendir $fdir, $datadir or die |
| 43 |
< |
"unable to access $datadir $!\n"; |
| 43 |
> |
opendir $fdir, $datadir; |
| 44 |
|
my @depfiles=grep !/^\.\.?$/, readdir $fdir; |
| 45 |
|
undef $fdir; |
| 46 |
|
for (my $i=0; $i<=$#depfiles; $i++ ) { |
| 66 |
|
# -- externals |
| 67 |
|
@deps=$toolobj->getfeature("_externals"); |
| 68 |
|
foreach $d ( @deps ) { |
| 69 |
+ |
$d=~tr[A-Z][a-z]; |
| 70 |
|
print $fout "ifdef ".$tool."_V_".$version."\n $d=true\nendif\n"; |
| 71 |
|
} |
| 72 |
|
# -- tool info |
