| 3 |
|
# Interface |
| 4 |
|
# --------- |
| 5 |
|
# new(ConfigArea) : A new BuildSetup |
| 6 |
< |
# BuildSetup(directory,targets) : prepare the ground for a build and build |
| 6 |
> |
# BuildDir(directory,targets) : prepare the ground for a build and build |
| 7 |
|
# getclass(directory) : return (Class, ClassDir, BuildFileobject) |
| 8 |
|
# associated with directory |
| 9 |
|
# setup(dir) |
| 13 |
|
use Utilities::Verbose; |
| 14 |
|
use Utilities::SCRAMUtils; |
| 15 |
|
use BuildSystem::BuildFile; |
| 16 |
+ |
use BuildSystem::DateStampRecord; |
| 17 |
|
use Utilities::AddDir; |
| 18 |
|
@ISA=qw(Utilities::Verbose); |
| 19 |
|
|
| 25 |
|
$self->{toolbox}=$self->{area}->toolbox(); |
| 26 |
|
$self->{projconfigdir}=$self->{area}->configurationdir(); |
| 27 |
|
$self->{localtop}=$self->{area}->location(); |
| 28 |
+ |
$self->{releasearea}=$self->{area}->linkarea(); |
| 29 |
+ |
if ( ! defined $self->{releasearea} ) { |
| 30 |
+ |
$self->{releasearea}=$self->{area}; |
| 31 |
+ |
} |
| 32 |
+ |
$self->{releasetop}=$self->{releasearea}->location(); |
| 33 |
|
$self->{buildfilename}="BuildFile"; |
| 34 |
|
$self->_configurationsetup(); |
| 35 |
|
return $self; |
| 39 |
|
my $self=shift; |
| 40 |
|
my $outfile=shift; |
| 41 |
|
|
| 42 |
< |
# -- specifiy these files for dependency information |
| 42 |
> |
# -- specify these files for dependency information |
| 43 |
|
my $depfile=$self->{projconfigdir}."/External_Dependencies"; |
| 44 |
|
|
| 45 |
|
# -- get list of dependent files |
| 127 |
|
my $classbf=BuildSystem::BuildFile->new($self->{area}); |
| 128 |
|
undef $ENV{LatestBuildFile}; # gets set by BuildFile |
| 129 |
|
$classbf->GenerateMakefile($classbuildfile, $classmakefile); |
| 124 |
– |
undef $ENV{LatestBuildFile}; # we dont want this included in the |
| 125 |
– |
# hierarchy |
| 130 |
|
} |
| 131 |
|
} |
| 132 |
|
else { |
| 140 |
|
} |
| 141 |
|
# -- set LatestBuildFile |
| 142 |
|
if ( $bf->buildfile() ne "" ) { |
| 143 |
< |
$ENV{LatestBuildFile}=$bf->buildfile(); |
| 143 |
> |
$ENV{LatestBuildFile}=$bf->makefile(); |
| 144 |
|
} |
| 145 |
|
else { |
| 146 |
< |
$ENV{LatestBuildFile}=$self->{topbf}->buildfile(); |
| 146 |
> |
$ENV{LatestBuildFile}=$self->{topbf}->makefile(); |
| 147 |
|
} |
| 148 |
|
|
| 149 |
|
return ($Class,$ClassDir,$classmakefile); |
| 173 |
|
my @Targets=@_; |
| 174 |
|
my $DefaultBuildFile=""; |
| 175 |
|
|
| 172 |
– |
# -- Create working directory |
| 173 |
– |
my $workdir=$self->{workdir}."/".$THISDIR; |
| 174 |
– |
chdir $self->{localtop}; |
| 175 |
– |
AddDir::adddir($workdir); |
| 176 |
– |
$ENV{workdir}=$workdir; |
| 177 |
– |
my $fullworkdir=$self->{localtop}."/".$ENV{workdir}; |
| 178 |
– |
chdir $fullworkdir || die "Unable to enter working directory $!"; |
| 176 |
|
|
| 177 |
< |
# -- setup Class specifics |
| 177 |
> |
# -- Setup Class specifics |
| 178 |
|
($Class,$ClassDir,$classmakefile)=$self->classsetup($THISDIR); |
| 179 |
|
$ENV{classmakefile}=$classmakefile; |
| 180 |
|
$ENV{Class}=$Class; |
| 181 |
|
$ENV{ClassDir}=$ClassDir; |
| 182 |
|
$DefaultBuildFile=$ENV{classmakefile}; |
| 183 |
|
$ENV{DefaultBuildFile}=$DefaultBuildFile; |
| 187 |
– |
|
| 184 |
|
|
| 185 |
+ |
# -- Create working directory |
| 186 |
+ |
my $workdir=$self->{workdir}."/".$ClassDir; |
| 187 |
+ |
chdir $self->{localtop}; |
| 188 |
+ |
AddDir::adddir($workdir); |
| 189 |
+ |
$ENV{workdir}=$workdir; |
| 190 |
+ |
my $fullworkdir=$self->{localtop}."/".$ENV{workdir}; |
| 191 |
+ |
chdir $fullworkdir || die "Unable to enter working directory $!"; |
| 192 |
+ |
|
| 193 |
|
# -- Set up some other useful variables for the Build |
| 194 |
|
# set variables listing directories/files available |
| 195 |
|
my $fh=FileHandle->new(); |
| 196 |
< |
opendir $fh, "$self->{localtop}/$THISDIR"; |
| 196 |
> |
opendir $fh, "$self->{localtop}/$ClassDir"; |
| 197 |
|
my @allfiles= grep !/^\.\.?$/, readdir $fh; |
| 198 |
|
undef $fh; |
| 199 |
|
foreach $file ( @allfiles ) { |
| 200 |
< |
if ( -d "$self->{localtop}/$THISDIR/$file" ) { |
| 200 |
> |
if ( -d "$self->{localtop}/$ClassDir/$file" ) { |
| 201 |
|
$ENV{SCRAM_AVAILDIRS}=$ENV{SCRAM_AVAILDIRS}." ".$file; |
| 202 |
|
} |
| 203 |
|
else { |
| 229 |
|
|
| 230 |
|
$ENV{DefaultMakefile}="$ENV{TOOL_HOME}/basics.mk"; |
| 231 |
|
|
| 232 |
+ |
|
| 233 |
|
$SCRAM_GROUPSDIR=$self->{localtop}."/".$self->{projconfigdir}."/groups.mk"; |
| 234 |
|
if ( -f $SCRAM_GROUPSDIR ) { |
| 235 |
|
$ENV{SCRAM_GROUPSDIR}=$SCRAM_GROUPSDIR; |
| 237 |
|
|
| 238 |
|
# Do a datestamp check so that make will build files that have changed |
| 239 |
|
# rather than just those which are older than their dependencies |
| 240 |
+ |
$self->_checkdatestampindir($ClassDir); |
| 241 |
+ |
|
| 242 |
+ |
# -- call the block building method |
| 243 |
+ |
#$report=$bs->build(@Targets); |
| 244 |
+ |
|
| 245 |
+ |
|
| 246 |
|
# The main build here |
| 247 |
< |
$rv=system("gmake","--no-print-directory","-r","-k","-f","$ENV{DefaultMakefile}","-I$ENV{TOOL_HOME}",datestamp_config); |
| 237 |
< |
$rv=system("gmake","--no-print-directory","-r","-k","-f","$ENV{DefaultMakefile}","-I$ENV{TOOL_HOME}",datestamp, @Targets); |
| 247 |
> |
$rv=system("gmake","--no-print-directory","-r","-k","-f","$ENV{DefaultMakefile}","-I$ENV{TOOL_HOME}", @Targets); |
| 248 |
|
return $rv/256; # return the exit status of gmake |
| 249 |
+ |
|
| 250 |
+ |
} |
| 251 |
+ |
|
| 252 |
+ |
sub BuildIt { |
| 253 |
+ |
my $self=shift; |
| 254 |
+ |
my $dir=shift; |
| 255 |
+ |
|
| 256 |
+ |
# -- get the building block for the directory |
| 257 |
+ |
my $block=$self->_getdirblock($dir); |
| 258 |
+ |
|
| 259 |
+ |
# -- is there a class block associated with the directory? |
| 260 |
+ |
my ($class)=getclass($dir); |
| 261 |
+ |
my $classblock=$self->_getclassblock($class); |
| 262 |
+ |
|
| 263 |
+ |
# -- Search for Blocks up to tree root |
| 264 |
+ |
my @dirblocks=(); |
| 265 |
+ |
my @dirs=split /\//, $dir; |
| 266 |
+ |
my $fulldir=""; |
| 267 |
+ |
foreach $dire ( "/",@dirs ) { |
| 268 |
+ |
$fulldir=$fulldir."/".$dire; # root is // |
| 269 |
+ |
my $block=$self->_getdirblock($fulldir); |
| 270 |
+ |
last if $block->ignore(); # we dont need to go futher |
| 271 |
+ |
push @dirblocks, $block; |
| 272 |
+ |
} |
| 273 |
+ |
foreach $block ( $classblock, @dirblocks ) { |
| 274 |
+ |
# -- merge class blocks together |
| 275 |
+ |
foreach $name ( $block->classes() ) { |
| 276 |
+ |
$object->merge(); |
| 277 |
+ |
} |
| 278 |
+ |
foreach $classinst ( $block->classinst() ) { |
| 279 |
+ |
$types{$classinst->id()}=$class->newinst(); |
| 280 |
+ |
foreach $element ( $classinst ) { |
| 281 |
+ |
$types{$classinst->id()}->setelement($element, |
| 282 |
+ |
$classinst->value($element)); |
| 283 |
+ |
} |
| 284 |
+ |
} |
| 285 |
+ |
} |
| 286 |
+ |
|
| 287 |
+ |
# -- call the builder |
| 288 |
+ |
|
| 289 |
+ |
} |
| 290 |
+ |
|
| 291 |
+ |
sub _getdirblock { |
| 292 |
+ |
my $self=shift; |
| 293 |
+ |
my $dir=shift; |
| 294 |
+ |
|
| 295 |
+ |
if ( ! defined $self->{blocks}{$dir} ) { |
| 296 |
+ |
|
| 297 |
+ |
# -- get a buildfile and do a block parse |
| 298 |
+ |
my $bf=$self->_startbuildfile($dir); |
| 299 |
+ |
$bf->blockparse($self->{blocks}{$dir}); |
| 300 |
+ |
|
| 301 |
+ |
} |
| 302 |
+ |
return $self->{blocks}{$dir}; |
| 303 |
|
} |
| 304 |
|
|
| 305 |
|
sub getclass { |
| 328 |
|
else { |
| 329 |
|
# -- sort it out from classpath directives |
| 330 |
|
foreach $BlockClassA ( @{$self->{LoBCA}} ) { |
| 331 |
< |
foreach $elem ( @$BlockClassA ) { |
| 331 |
> |
next if ( $#{$BlockClassA} < $i ); |
| 332 |
> |
$elem=${$BlockClassA}[$i]; |
| 333 |
|
if ( $elem=~/^$DIRA[$i]\+/ ) { |
| 334 |
|
$elem=~s/^$DIRA[$i]//; |
| 335 |
|
} |
| 336 |
+ |
#print $elem." ".$DIRA[$i]."\n"; |
| 337 |
|
if ( $elem=~/^\+/ ) { |
| 338 |
|
($Class=$elem)=~s/^\+//; |
| 339 |
|
$ClassDir=$thispath; |
| 340 |
|
} |
| 341 |
< |
} |
| 341 |
> |
#} |
| 342 |
|
} |
| 343 |
|
} |
| 344 |
|
} |
| 351 |
|
$ClassDir="."; |
| 352 |
|
} |
| 353 |
|
|
| 354 |
< |
# -- retunrs |
| 354 |
> |
# -- returns |
| 355 |
|
($ClassDir_c=$ClassDir)=~s/^\.\///; |
| 356 |
|
return ( $Class, $ClassDir_c, $self->{pathbf}{$ClassDir}); |
| 357 |
|
} |
| 372 |
|
$bf->ParseBuildFile($self->{localtop}, $classdir, |
| 373 |
|
$self->{buildfilename}); |
| 374 |
|
} |
| 375 |
< |
elsif ( -e $ENV{RELEASETOP}."/".$thisfile ) { |
| 376 |
< |
$bf->buildfile("$ENV{RELEASETOP}/$thisfile"); |
| 377 |
< |
$bf->ParseBuildFile($ENV{RELEASETOP}, $classdir, |
| 378 |
< |
$slef->{buildfilename}); |
| 375 |
> |
elsif ( -e $self->{releasetop}."/".$thisfile ) { |
| 376 |
> |
$bf->buildfile($self->{releasetop}."/".$thisfile); |
| 377 |
> |
$bf->ParseBuildFile($self->{releasetop}, $classdir, |
| 378 |
> |
$self->{buildfilename}); |
| 379 |
|
} |
| 380 |
|
return $bf; |
| 381 |
|
} |
| 386 |
|
# -- Analyse project buildfile if it exists |
| 387 |
|
$self->{topbf}=BuildSystem::BuildFile->new($self->{area}); |
| 388 |
|
|
| 323 |
– |
# -- generate top level makefile |
| 389 |
|
$self->{topbf}->buildfile($self->{localtop}."/".$self->{projconfigdir} |
| 390 |
|
."/".$self->{buildfilename}); |
| 391 |
+ |
# -- generate top level makefile |
| 392 |
+ |
$self->verbose("Generating Top Level BuildFile"); |
| 393 |
|
$self->{topbf}->ParseBuildFile($self->{localtop}, |
| 394 |
|
$self->{projconfigdir},$self->{buildfilename}); |
| 395 |
|
|
| 400 |
|
} |
| 401 |
|
|
| 402 |
|
} |
| 403 |
+ |
|
| 404 |
+ |
sub _checkdatestampindir { |
| 405 |
+ |
my $self=shift; |
| 406 |
+ |
my $dir=shift; |
| 407 |
+ |
|
| 408 |
+ |
# -- get all local .ds files |
| 409 |
+ |
my $fh=FileHandle->new(); |
| 410 |
+ |
my $ldir=$self->{localtop}."/".$self->{workdir}."/".$dir; |
| 411 |
+ |
opendir $fh, $ldir; |
| 412 |
+ |
my @dsfiles= grep /^.*\.ds$/, readdir $fh; |
| 413 |
+ |
$fh->close(); |
| 414 |
+ |
|
| 415 |
+ |
# -- copy across ds files from releasetop if not existing locally |
| 416 |
+ |
if ( $#dsfiles < 0 ) { |
| 417 |
+ |
# -- get all releasetop .ds files |
| 418 |
+ |
my $rdir=$self->{releasetop}."/".$self->{workdir}."/".$dir; |
| 419 |
+ |
opendir $fh, $rdir; |
| 420 |
+ |
my @releasedsfiles= grep /^.*\.ds$/, readdir $fh; |
| 421 |
+ |
foreach $file ( @releasedsfiles ) { |
| 422 |
+ |
use File::Copy; |
| 423 |
+ |
copy($rdir."/".$file,$ldir."/".$file); |
| 424 |
+ |
} |
| 425 |
+ |
$fh->close(); |
| 426 |
+ |
@dsfiles=@releasedsfiles; |
| 427 |
+ |
} |
| 428 |
+ |
|
| 429 |
+ |
# -- process ds files |
| 430 |
+ |
my $file; |
| 431 |
+ |
foreach $datafile ( @dsfiles ) { |
| 432 |
+ |
my $ds=BuildSystem::DateStampRecord->new($datafile); |
| 433 |
+ |
my $needsupdate; |
| 434 |
+ |
my $productfile=$ds->product(); |
| 435 |
+ |
my (%files,%moddate); |
| 436 |
+ |
|
| 437 |
+ |
# now get dates in our dependency list |
| 438 |
+ |
my @datedfiles=$ds->dated(); |
| 439 |
+ |
if ( $#datedfiles >= 0 ) { |
| 440 |
+ |
$needsupdate=1; |
| 441 |
+ |
$date=$datedfiles[0][1]-1; |
| 442 |
+ |
} |
| 443 |
+ |
else { |
| 444 |
+ |
# -- extra checks for local replacement of files |
| 445 |
+ |
foreach $file ( $ds->contents() ) { |
| 446 |
+ |
# -- only check files |
| 447 |
+ |
if ( -f $file ) { |
| 448 |
+ |
$files{$file}=$ds->filedate($file); |
| 449 |
+ |
# -- check to see if we have a new local copy |
| 450 |
+ |
if ( ($file=~/\Q$self->{releasetop}\E/) && |
| 451 |
+ |
($self->{releasetop} ne $self->{localtop}) ) { |
| 452 |
+ |
($tempfile=$file)=~s/\Q$self->{releasetop}\E/$self->{localtop}/; |
| 453 |
+ |
if ( -f $tempfile ) { |
| 454 |
+ |
$files{$tempfile}=$files{$file}; |
| 455 |
+ |
$file=$tempfile; |
| 456 |
+ |
} |
| 457 |
+ |
} |
| 458 |
+ |
$moddate{$file}=(stat($file))[9]; |
| 459 |
+ |
if ( $moddate{$file} != $files{$file} ) { |
| 460 |
+ |
$self->verbose($file." changed"); |
| 461 |
+ |
$date=$moddate{$file}-1; |
| 462 |
+ |
$needsupdate=1; |
| 463 |
+ |
} |
| 464 |
+ |
} |
| 465 |
+ |
} |
| 466 |
+ |
} |
| 467 |
+ |
# time stamp the product file to be older than the dependencies |
| 468 |
+ |
if ( $needsupdate == 1 ) { # touch file into the past |
| 469 |
+ |
my $newproductfile; |
| 470 |
+ |
if ( $productfile!~/\Q$self->{localtop}\E/ ) { |
| 471 |
+ |
if ( $productfile=~/\Q$self->{releasetop}\E/ ) { |
| 472 |
+ |
($newproductfile=$productfile)=~ |
| 473 |
+ |
s/\Q$self->{releasetop}\E/$self->{localtop}/; |
| 474 |
+ |
$self->verbose("Copying $productfile to $newproductfile"); |
| 475 |
+ |
copy($productfile,$newproductfile); |
| 476 |
+ |
} |
| 477 |
+ |
else { # assume no path to worry about |
| 478 |
+ |
$newproductfile=$self->{localtop}."/".$ENV{workdir}. |
| 479 |
+ |
"/".$productfile; |
| 480 |
+ |
# -- make a local copy of the product file if not already here |
| 481 |
+ |
my $oldproductfile=$self->{releasetop}."/".$ENV{workdir}. |
| 482 |
+ |
"/".$productfile; |
| 483 |
+ |
if ( ! -f $newproductfile ) { |
| 484 |
+ |
if ( -f $oldproductfile ) { |
| 485 |
+ |
$self->verbose("Copying $oldproductfile to $newproductfile"); |
| 486 |
+ |
copy($oldproductfile,$newproductfile); |
| 487 |
+ |
} |
| 488 |
+ |
} |
| 489 |
+ |
} |
| 490 |
+ |
} |
| 491 |
+ |
else { |
| 492 |
+ |
$newproductfile=$productfile; |
| 493 |
+ |
} |
| 494 |
+ |
if ( -f $newproductfile ) { |
| 495 |
+ |
$self->verbose("Blasting $newproductfile to the past ($date)"); |
| 496 |
+ |
# If the (local) productfile exists - make it older |
| 497 |
+ |
utime($date,$date,$newproductfile); |
| 498 |
+ |
} |
| 499 |
+ |
else { |
| 500 |
+ |
$self->verbose("SomeThing Wrong(?) with $newproductfile\n". |
| 501 |
+ |
"RELEASETOP=".$self->{releasetop}."\n". |
| 502 |
+ |
"LOCALTOP=".$self->{localtop}."\n". |
| 503 |
+ |
"workdir=".$ENV{workdir}); |
| 504 |
+ |
} |
| 505 |
+ |
} |
| 506 |
+ |
else { |
| 507 |
+ |
$self->verbose("No need to touch $productfile"); |
| 508 |
+ |
} |
| 509 |
+ |
} |
| 510 |
+ |
undef $fh; |
| 511 |
+ |
} |
