WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/makelib.pl2

 #                       PlatformName
 #                       AliasName
 #                       TargetName,--Target
 #                       --Project=ProjectName
 #                       --Defined=SomeValue
+#                       --MachType=SomeValue
+#
 #                   Each can be prefxied with a '!' to negate the test
+#
 #                   Valid options are:
 #                       --Target        - indicates that the platform is a 'target'
         if ( m~^(!?)--Project=(.+)~ ) {
             my $result = ActiveProject( $2);
             $result = $result ? 1 : 0;
             push @plist, "$1$result";
             next;
-        }
-        elsif ( m~^(!?)--Defined=(.+)~ ) {
+        } elsif ( m~^(!?)--Defined=(.+)~ ) {
             my $result = 0;
             no strict 'refs';
             $result = 1 if ( defined( $$2 ) || defined( @$2 ) );
             use strict 'refs';
             $result = $result ? 1 : 0;
             push @plist, "$1$result";
             next;
+        } elsif ( m~^(!?)--MachType=(.+)~ ) {
+            my $result = ( uc($2) eq uc($::GBE_MACHTYPE) );
+            $result = $result ? 1 : 0;
+            push @plist, "$1$result";
+            next;
+        }
+        #
         #   Must be a platform argument
         #   Add to a list

Subversion Repositories DevTools