Subversion Repositories DevTools

Rev

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

Rev 7300 Rev 7310
Line 8401... Line 8401...
8401
    #   Platform specified may be an Alias
8401
    #   Platform specified may be an Alias
8402
    #   Perform alias expansion
8402
    #   Perform alias expansion
8403
    #
8403
    #
8404
    @platforms = ExpandPlatforms( @platforms );         # aliasing
8404
    @platforms = ExpandPlatforms( @platforms );         # aliasing
8405
    Debug3( " ActivePlatform(@_)" );
8405
    Debug3( " ActivePlatform(@_)" );
8406
#    Debug0( " Platforms(@platforms)", "PLIST(@plist)" );
8406
#    Debug0( " Platforms(@platforms)" );
8407
 
8407
 
8408
#.. Arguments
8408
#.. Arguments
8409
#   At this point we have a list of platforms and arguments
8409
#   At this point we have a list of platforms and arguments
8410
#   Build up a hash of arguments for each platform being parsed
8410
#   Build up a hash of arguments for each platform being parsed
8411
#   Multiple arguments can follow a platform name
8411
#   Multiple arguments can follow a platform name
Line 8434... Line 8434...
8434
        }
8434
        }
8435
    }
8435
    }
8436
 
8436
 
8437
#.. Scan the expression
8437
#.. Scan the expression
8438
#
8438
#
8439
    $scmplatform = uc( $ScmPlatform );          # current platform
8439
    $scmplatform = uc( $ScmPlatform );              # current platform
8440
    my @add;
8440
    my @add;
8441
    my @remove;
8441
    my @remove;
8442
    foreach ( @plist ) {
8442
    foreach ( @plist ) {
8443
        my $platform = uc( Trim( $_ ) );           # trim white and convert case
8443
        my $platform = uc( Trim( $_ ) );            # trim white and convert case
8444
        my $pname = $platform;
8444
        my $pname = $platform;
8445
        my $invert = 0;
8445
        my $invert = 0;
8446
        if (substr($platform, 0, 1) eq '!') {
8446
        if (substr($platform, 0, 1) eq '!') {
8447
            $invert = 1;
8447
            $invert = 1;
8448
            $pname = substr($platform, 1)
8448
            $pname = substr($platform, 1)
Line 8488... Line 8488...
8488
#DebugDumpData("calcList", \%calcList);
8488
#DebugDumpData("calcList", \%calcList);
8489
 
8489
 
8490
    #
8490
    #
8491
    #   If the current build target is left in the platform list, then we are building for it
8491
    #   If the current build target is left in the platform list, then we are building for it
8492
    #   
8492
    #   
8493
    if (exists $calcList{$ScmPlatform}) {
8493
    if (exists $calcList{$scmplatform}) {
8494
        Debug3( " ActivePlatform(@_ == $ScmPlatform) = TRUE" );
8494
        Debug3( " ActivePlatform(@_ == $ScmPlatform) = TRUE" );
8495
        return 1;
8495
        return 1;
8496
    }
8496
    }
8497
 
8497
 
8498
    Debug3( " ActivePlatform(@_ == $ScmPlatform) = FALSE" );
8498
    Debug3( " ActivePlatform(@_ == $ScmPlatform) = FALSE" );