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