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 |
44 |
< |
"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 |