124 |
|
$fullfilename=$filename; |
125 |
|
} |
126 |
|
$self->{path}=$path; |
127 |
– |
#print "Processing $fullfilename\n"; |
127 |
|
$numbins=0; |
128 |
|
$self->{envnum}=0; |
129 |
|
$self->{envlevel}=0; |
132 |
|
$self->{switch}=$self->_initswitcher(); |
133 |
|
$self->{switch}->filetoparse($fullfilename); |
134 |
|
|
135 |
< |
# $self->{switch}->{Strict_no_cr}='no'; |
137 |
< |
#open a temporary gnumakefile to store output. |
135 |
> |
# open a temporary gnumakefile to store output. |
136 |
|
use Utilities::AddDir; |
137 |
|
AddDir::adddir("$ENV{LOCALTOP}/$ENV{INTwork}/$self->{path}"); |
138 |
|
my $fh=FileHandle->new(); |
144 |
|
if ( -e $ENV{LatestBuildFile} ) { |
145 |
|
print GNUmakefile "include $ENV{LatestBuildFile}\n"; |
146 |
|
} |
147 |
< |
# print "writing to :\n". |
150 |
< |
# "$ENV{LOCALTOP}/$ENV{INTwork}/$self->{path}/BuildFile.mk\n"; |
147 |
> |
|
148 |
|
$ENV{LatestBuildFile}="$ENV{LOCALTOP}/$ENV{INTwork}/".$self->{path}."/BuildFile.mk"; |
149 |
|
$self->{switch}->parse("makebuild"); # sort out supported tags |
150 |
|
if ( $numbins > 0 ) { |
199 |
|
\&export_end_export,$self); |
200 |
|
$self->_commontags($switchex,"export"); |
201 |
|
$switchex->allowgroup("__export","export"); |
205 |
– |
# $switchex->{Strict_no_cr}='no'; |
202 |
|
$self->{switch}=$switchex; |
203 |
|
$switchex->parse("export"); # sort out supported tags |
204 |
|
} |
280 |
|
} |
281 |
|
else { |
282 |
|
$self->{switch}->parseerror("No name specified for build product"); |
287 |
– |
#$name="\$(buildname)"; |
283 |
|
} |
284 |
|
|
285 |
|
# -- check we have a lookup for the class type |
319 |
|
my $dirname=$$hashref{'class'}."_".$type."_".$name; |
320 |
|
my $here="$ENV{LOCALTOP}/$ENV{INTwork}/".$self->{path}."/".$dirname; |
321 |
|
my $makefile=$here."/BuildFile.mk"; |
327 |
– |
# AddDir::adddir($here); |
322 |
|
|
323 |
|
# -- create link targets to the directory |
324 |
|
push @targets, $dirname; |
350 |
|
} |
351 |
|
print $fh "\tfi\n"; |
352 |
|
print $fh "\n"; |
359 |
– |
# print $typefile "$name :\n"; |
360 |
– |
# print $typefile "\t\$(_quietbuild_)"; |
361 |
– |
# print $typefile $mapper->template($$hashref{'class'},$type)."\n"; |
362 |
– |
# print $typefile "\t\$(_quietstamp_)"; |
363 |
– |
# print $typefile "\$(SCRAMPERL) \$(SCRAM_HOME)/src/scramdatestamp \$@.ds \$@ \$^\n"; |
353 |
|
|
354 |
|
# -- cleaning targets |
355 |
|
push @targets, "clean_$dirname"; |