13 |
|
require 5.004; |
14 |
|
use Exporter; |
15 |
|
use BuildSystem::XMLTagUtils; |
16 |
+ |
use BuildSystem::BuildDataUtils; |
17 |
|
use ActiveDoc::SimpleXMLDoc; |
18 |
|
|
19 |
< |
@ISA=qw(Exporter); |
19 |
> |
@ISA=qw(Exporter BuildSystem::BuildDataUtils); |
20 |
|
@EXPORT_OK=qw( ); |
21 |
|
|
22 |
|
# |
70 |
|
0); |
71 |
|
|
72 |
|
$self->{simplexmldoc}->registerTag("builder", |
73 |
< |
"include", |
73 |
> |
"include_path", |
74 |
|
\&BuildSystem::XMLTagUtils::includetaghandler, |
75 |
|
[ "path" ], |
76 |
|
0); |
190 |
|
delete $self->{simplexmldoc}; |
191 |
|
} |
192 |
|
|
193 |
+ |
sub parsebranchfiles() |
194 |
+ |
{ |
195 |
+ |
my $self=shift; |
196 |
+ |
my ($filenames)=@_; # array ref |
197 |
+ |
# Now just run parse(), with only one file as arg: |
198 |
+ |
my $file = $filenames->[0]; |
199 |
+ |
$self->parse($file); |
200 |
+ |
} |
201 |
+ |
|
202 |
|
sub pushlevel |
203 |
|
{ |
204 |
|
my $self = shift; |