| 46 |
|
$fout->open(">".$outfile) or die "Unable to open $outfile for output". |
| 47 |
|
$!."\n"; |
| 48 |
|
|
| 49 |
– |
# -- cludge in the dependencies - need to go via toolbox really |
| 50 |
– |
my $fh=FileHandle->new(); |
| 51 |
– |
open ($fh, "<$clientreq" ); |
| 52 |
– |
while( <$fh> ) { |
| 53 |
– |
print $fout $_; |
| 54 |
– |
} |
| 55 |
– |
undef $fh; |
| 56 |
– |
|
| 49 |
|
# -- print out tool/ version info |
| 50 |
|
my ($tool,$toolobj,$f,$val,$version); |
| 51 |
|
foreach $toolpair ( $self->{toolbox}->tools() ) { |
| 52 |
|
$tool=$$toolpair[0]; |
| 53 |
|
$version=$$toolpair[1]; |
| 54 |
+ |
# default versions |
| 55 |
|
print $fout "ifdef $tool\n".$tool."_V_".$version."=true\nendif\n"; |
| 56 |
|
$toolobj=$self->{toolbox}->gettool($tool,$version); |
| 57 |
+ |
# -- externals |
| 58 |
+ |
@deps=$toolobj->getfeature("_externals"); |
| 59 |
+ |
foreach $d ( @deps ) { |
| 60 |
+ |
print $fout "ifdef ".$tool."_V_".$version."\n $d=true\nendif\n"; |
| 61 |
+ |
} |
| 62 |
+ |
# -- tool info |
| 63 |
|
print $fout "ifdef ".$tool."_V_".$version."\n"; |
| 64 |
|
foreach $f ( $toolobj->features() ) { |
| 65 |
|
foreach $val ( $toolobj->getfeature($f) ) { |
