Subversion Repositories DevTools

Rev

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

Rev 6198 Rev 6204
Line 8328... Line 8328...
8328
{
8328
{
8329
    my( $platform_spec ) = @_;
8329
    my( $platform_spec ) = @_;
8330
    my( @platforms, $scmplatform, $platform );
8330
    my( @platforms, $scmplatform, $platform );
8331
    my( %arguments, @args );
8331
    my( %arguments, @args );
8332
    my @plist;
8332
    my @plist;
-
 
8333
    Debug( " ActivePlatform(@_)" );
8333
 
8334
 
8334
    #
8335
    #
8335
    #   Short circuit check
8336
    #   Short circuit check
8336
    #       '*' is used so often that it pays to check it first
8337
    #       '*' is used so often that it pays to check it first
8337
    #
8338
    #
Line 8479... Line 8480...
8479
    #       Process additive rules before removal rules
8480
    #       Process additive rules before removal rules
8480
    #       If there are no additive rules, then assume all protaforms
8481
    #       If there are no additive rules, then assume all protaforms
8481
    #
8482
    #
8482
    my %calcList;
8483
    my %calcList;
8483
    @add = @::BUILDPLATFORMS unless @add;
8484
    @add = @::BUILDPLATFORMS unless @add;
8484
    $calcList{$_} = 1 foreach (@add);
8485
    $calcList{uc $_} = 1 foreach (@add);
8485
    delete $calcList{$_} foreach (@remove);
8486
    delete $calcList{uc $_} foreach (@remove);
8486
#DebugDumpData("Add", \@add);
8487
#DebugDumpData("Add", \@add);
8487
#DebugDumpData("Remove", \@remove);
8488
#DebugDumpData("Remove", \@remove);
8488
#DebugDumpData("calcList", \%calcList);
8489
#DebugDumpData("calcList", \%calcList);
8489
 
8490
 
8490
    #
8491
    #