| 4 |
|
@ISA = qw(Exporter); |
| 5 |
|
@EXPORT = qw(CheckBuildFile ParseBuildFile @BlockClassA $DefaultBuildFile); |
| 6 |
|
|
| 7 |
– |
BEGIN { |
| 8 |
– |
use ToolBox; |
| 9 |
– |
$buildfile="BuildFile"; |
| 10 |
– |
$toolbox=ToolBox->new(); |
| 11 |
– |
$Arch=1; |
| 12 |
– |
push @ARCHBLOCK, $Arch; |
| 13 |
– |
} |
| 7 |
|
|
| 8 |
|
#Parse the BuildFile |
| 9 |
|
sub ParseBuildFile { |
| 32 |
|
'lib_StartTag' => \&lib_start, |
| 33 |
|
'lib_EndTag' => 'none' |
| 34 |
|
}; |
| 35 |
< |
use Utilities::Switcher; |
| 35 |
> |
use ActiveDoc::Switcher; |
| 36 |
|
$switch=Switcher->new($SupportedTags, $fullfilename); |
| 37 |
|
$switch->{Strict_no_cr}='no'; |
| 38 |
|
#open a temporary gnumakefile to store output. |
| 51 |
|
|
| 52 |
|
sub ParseBuildFile_Export { |
| 53 |
|
my $filename=shift; |
| 54 |
< |
use Tool; |
| 54 |
> |
#use Tool; |
| 55 |
|
# This hash defines which Document Elements we can use |
| 56 |
|
my $SupportedTags={ |
| 57 |
|
'Use' => \&OutToMakefile, |
| 65 |
|
'lib_StartTag' => \&lib_start_export, |
| 66 |
|
'lib' => 'none' |
| 67 |
|
}; |
| 68 |
< |
use Utilities::Switcher; |
| 68 |
> |
use ActiveDoc::Switcher; |
| 69 |
|
$switchex=Switcher->new($SupportedTags, $filename); |
| 70 |
|
$switchex->{Strict_no_cr}='no'; |
| 71 |
|
push @switchstack, $switchex; |
| 293 |
|
|
| 294 |
|
sub export_start { |
| 295 |
|
#Set up a toolfile object |
| 296 |
< |
$exporttool=Tool->new(); |
| 296 |
> |
# $exporttool=Tool->new(); |
| 297 |
|
} |
| 298 |
|
|
| 299 |
|
sub export_end { |
