| 68 |
|
$switch->newparse($parse); |
| 69 |
|
$switch->addignoretags($parse); |
| 70 |
|
$switch->addtag($parse,"BuildParam", \&BuildBlock_start, $self); |
| 71 |
+ |
$switch->filetoparse($self->buildfile()); |
| 72 |
|
|
| 73 |
|
# -- parse away |
| 74 |
< |
$self->{switch}->parse("block"); |
| 74 |
> |
$self->{switch}=$switch; |
| 75 |
> |
$switch->parse("block"); |
| 76 |
|
} |
| 77 |
|
|
| 78 |
|
sub Parsetofh { |
| 352 |
|
|
| 353 |
|
if ( $self->{Arch} ) { |
| 354 |
|
|
| 353 |
– |
|
| 355 |
|
# -- get any objects that match |
| 356 |
|
my $inheritobj=$self->{block}->getobj($blockobjid); |
| 357 |
|
|
| 426 |
|
# -- construct the targets in the top makefile |
| 427 |
|
$self->_generatedefaulttargets($fh,$$hashref{'class'},@deftypes); |
| 428 |
|
$self->_generatetypetargets($fh,$$hashref{'class'},$buildname,@types); |
| 428 |
– |
|
| 429 |
|
} |
| 430 |
|
} |
| 431 |
|
|
