Subversion Repositories DevTools

Rev

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

Rev 273 Rev 277
Line 7602... Line 7602...
7602
#                       PlatformName
7602
#                       PlatformName
7603
#                       AliasName
7603
#                       AliasName
7604
#                       TargetName,--Target
7604
#                       TargetName,--Target
7605
#                       --Project=ProjectName
7605
#                       --Project=ProjectName
7606
#                       --Defined=SomeValue
7606
#                       --Defined=SomeValue
-
 
7607
#                       --MachType=SomeValue
7607
#
7608
#
7608
#                   Each can be prefxied with a '!' to negate the test
7609
#                   Each can be prefxied with a '!' to negate the test
7609
#
7610
#
7610
#                   Valid options are:
7611
#                   Valid options are:
7611
#                       --Target        - indicates that the platform is a 'target'
7612
#                       --Target        - indicates that the platform is a 'target'
Line 7642... Line 7643...
7642
        if ( m~^(!?)--Project=(.+)~ ) {
7643
        if ( m~^(!?)--Project=(.+)~ ) {
7643
            my $result = ActiveProject( $2);
7644
            my $result = ActiveProject( $2);
7644
            $result = $result ? 1 : 0;
7645
            $result = $result ? 1 : 0;
7645
            push @plist, "$1$result";
7646
            push @plist, "$1$result";
7646
            next;
7647
            next;
7647
        }
7648
 
7648
        elsif ( m~^(!?)--Defined=(.+)~ ) {
7649
        } elsif ( m~^(!?)--Defined=(.+)~ ) {
7649
            my $result = 0;
7650
            my $result = 0;
7650
            no strict 'refs';
7651
            no strict 'refs';
7651
            $result = 1 if ( defined( $$2 ) || defined( @$2 ) );
7652
            $result = 1 if ( defined( $$2 ) || defined( @$2 ) );
7652
            use strict 'refs';
7653
            use strict 'refs';
7653
 
7654
 
7654
            $result = $result ? 1 : 0;
7655
            $result = $result ? 1 : 0;
7655
            push @plist, "$1$result";
7656
            push @plist, "$1$result";
7656
            next;
7657
            next;
-
 
7658
 
-
 
7659
        } elsif ( m~^(!?)--MachType=(.+)~ ) {
-
 
7660
            my $result = ( uc($2) eq uc($::GBE_MACHTYPE) );
-
 
7661
            $result = $result ? 1 : 0;
-
 
7662
            push @plist, "$1$result";
-
 
7663
            next;
7657
        }
7664
        }
7658
 
7665
 
7659
        #
7666
        #
7660
        #   Must be a platform argument
7667
        #   Must be a platform argument
7661
        #   Add to a list
7668
        #   Add to a list