Subversion Repositories DevTools

Rev

Rev 299 | Rev 4728 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 299 Rev 369
Line 311... Line 311...
311 
            $code .= "# line 1 " . $file . "\n";    # name the image
 311 
            $code .= "# line 1 " . $file . "\n";    # name the image
312 
            while (<CFGFILE>) {
 312 
            while (<CFGFILE>) {
313 
                $code .= $_;                        # slurp text
 313 
                $code .= $_;                        # slurp text
314 
            }
 314 
            }
315 
            close (CFGFILE);
 315 
            close (CFGFILE);
- 
 
 316 
 
- 
 
 317 
            #
- 
 
 318 
            #   Add the file to the makefile dependency list
- 
 
 319 
            #   Really only needed if being sourced from within a sandbox
- 
 
 320 
            #
- 
 
 321 
            push (@::ScmDepends, $file);
316 
        }
 322 
        }
317 
    }
 323 
    }
318 
 
 324 
 
319 
    #
 325 
    #
320 
    #   Evaluate the code
 326 
    #   Evaluate the code
Line 350... Line 356...
350 
}
 356 
}
351 
 
 357 
 
352 
###############################################################################
 358 
###############################################################################
353 
#   DPACKAGE Interface
 359 
#   DPACKAGE Interface
354 
#
 360 
#
355 
#       PackageLoad     Load the DPACKAGES for soecified platform(s).
 361 
#       PackageLoad     Load the DPACKAGES for specified platform(s).
356 
#
 362 
#
357 
#       PackageDirs     Retrieve the search path for package configuration.
 363 
#       PackageDirs     Retrieve the search path for package configuration.
358 
#
 364 
#
359 
#       LibUsing        Processing Using(XXX) library recipes
 365 
#       LibUsing        Processing Using(XXX) library recipes
360 
#
 366 
#
Line 432... Line 438...
432 
sub PackageLoad
 438 
sub PackageLoad
433 
{
 439 
{
434 
    my ($platform) = @_;
 440 
    my ($platform) = @_;
435 
    ::Debug ("PackageLoad", @_);
 441 
    ::Debug ("PackageLoad", @_);
436 
 
 442 
 
437 
    return if ( !defined(%::ScmBuildPkgRules) );# configuration available
 443 
    return if ( !(%::ScmBuildPkgRules) );# configuration available
438 
 
 444 
 
439 
    my $pPlatform = $::ScmBuildPkgRules{$platform};
 445 
    my $pPlatform = $::ScmBuildPkgRules{$platform};
440 
    foreach my $package ( @{$pPlatform} )
 446 
    foreach my $package ( @{$pPlatform} )
441 
    {
 447 
    {
442 
        if ( defined( $package->{'CFGDIR'} ) )
 448 
        if ( defined( $package->{'CFGDIR'} ) )
Line 454... Line 460...
454 
                my $dpackage = "DPACKAGE" . $ext;
 460 
                my $dpackage = "DPACKAGE" . $ext;
455 
                ::Debug( "Examine $dir/$dpackage" );
 461 
                ::Debug( "Examine $dir/$dpackage" );
456 
                if ( -e "$dir/$dpackage" )
 462 
                if ( -e "$dir/$dpackage" )
457 
                {                                   # .. load interface
 463 
                {                                   # .. load interface
458 
                    ::Debug( "Loading $dir/$dpackage ($package->{'NAME'}) ..." );
 464 
                    ::Debug( "Loading $dir/$dpackage ($package->{'NAME'}) ..." );
459 
 
 - 
 
460 
                    MakeIf::Load( $dir, $dpackage, $package->{'NAME'}, $package->{'ROOT'}, $package->{'DPROJ'} );
 465 
                    MakeIf::Load( $dir, $dpackage, $package->{'NAME'}, $package->{'ROOT'}, $package->{'DPROJ'} );
461 
                    last;
 466 
                    last;
462 
                }
 467 
                }
463 
            }
 468 
            }
464 
        }
 469 
        }
Line 481... Line 486...
481 
#
 486 
#
482 
sub PackageDirs
 487 
sub PackageDirs
483 
{
 488 
{
484 
    my ($dirs, @platforms) = @_;
 489 
    my ($dirs, @platforms) = @_;
485 
 
 490 
 
486 
    if ( defined(%::ScmBuildPkgRules) )
 491 
    if ( (%::ScmBuildPkgRules) )
487 
    {
 492 
    {
488 
        for my $platform (@platforms)
 493 
        for my $platform (@platforms)
489 
        {
 494 
        {
490 
            my $pPlatform = $::ScmBuildPkgRules{$platform};
 495 
            my $pPlatform = $::ScmBuildPkgRules{$platform};
491 
 
 496