| 61 |
|
use Tool; |
| 62 |
|
# This hash defines which Document Elements we can use |
| 63 |
|
my $SupportedTags={ |
| 64 |
+ |
'Use' => \&OutToMakefile, |
| 65 |
+ |
'Use_StartTag' => \&Use_start, |
| 66 |
+ |
'External' => \&OutToMakefile, |
| 67 |
+ |
'External_StartTag' => \&External_StartTag, |
| 68 |
|
'none' => 'none', |
| 69 |
|
'export' => \&OutToMakefile, |
| 70 |
|
'export_StartTag' => \&export_start, |
| 75 |
|
use Utilities::Switcher; |
| 76 |
|
$switchex=Switcher->new($SupportedTags, $filename); |
| 77 |
|
$switchex->{Strict_no_cr}='no'; |
| 78 |
+ |
push @switchstack, $switchex; |
| 79 |
|
$switchex->parse(); # sort out supported tags |
| 80 |
+ |
pop @switchstack; |
| 81 |
+ |
$switchex=$switchstack[$#switchstack]; # Make sure we can Use multiply |
| 82 |
|
} |
| 83 |
|
|
| 84 |
|
sub initialterms() { |
