| 1 |
– |
#!/usr/local/bin/perl5 |
| 2 |
– |
# |
| 3 |
– |
|
| 1 |
|
package BuildFile; |
| 2 |
+ |
require 5.001; |
| 3 |
|
require Exporter; |
| 4 |
|
@ISA = qw(Exporter); |
| 5 |
|
@EXPORT = qw(CheckBuildFile ParseBuildFile @BlockClassA $DefaultBuildFile); |
| 34 |
|
'ClassPath' => \&OutToMakefile, |
| 35 |
|
'ClassPath_StartTag' => \&setBlockClassPath |
| 36 |
|
}; |
| 37 |
< |
use Switcher; |
| 37 |
> |
use Utilities::Switcher; |
| 38 |
|
$switch=Switcher->new($SupportedTags, $fullfilename); |
| 39 |
|
$switch->{Strict_no_cr}='no'; |
| 40 |
|
#open a temporary gnumakefile to store output. |
| 41 |
< |
use AddDir; |
| 42 |
< |
adddir("$ENV{LOCALTOP}/$ENV{INTwork}/${path}"); |
| 41 |
> |
use Utilities::AddDir; |
| 42 |
> |
AddDir::adddir("$ENV{LOCALTOP}/$ENV{INTwork}/${path}"); |
| 43 |
|
open ( GNUmakefile, ">$ENV{LOCALTOP}/$ENV{INTwork}/${path}/BuildFile.mk") or die 'Unable to open /$ENV{INTwork}/${path}/BuildFile.mk $!\n'; |
| 44 |
|
if ( -e $ENV{LatestBuildFile} ) { |
| 45 |
|
print GNUmakefile "include $ENV{LatestBuildFile}\n"; |
| 161 |
|
my @vars=@_; |
| 162 |
|
my $hashref; |
| 163 |
|
my $filename; |
| 164 |
< |
use SCRAMUtils; |
| 164 |
> |
use Utilities::SCRAMUtils; |
| 165 |
|
|
| 166 |
|
$hashref=$switch->SetupValueHash(\@vars); |
| 167 |
|
$switch->checkparam($hashref, $name, "name"); |
