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" );