WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/buildlib.pl

 our @BUILDTOOLS             = ();               # Extended tool path
 our $BUILDPHASE             = 0;                # In Build Phase
 our @CLOBBERDIRS            = ();               # Directories to clobber
 our @REMOVEDIRS             = ();               # Directories to remove - if empty
 our %BUILD_KNOWNFILES       = ();               # Files that will be known
+our @BUILDEXCLUDE           = ();               # Platforms to be excluded
 our $Makelib                = "";
 our $GBE_CORE;                                  # Root of JATS
 our $InterfaceVersion;                          # Interface directory format version
 our $ScmRoot;                                   # Package Root
     HashJoin( \%BUILDPLATFORMARGS, $;, $platform, @arguments )
         if ( $platform );
+}
 #-------------------------------------------------------------------------------
+# Function        : BuildExclude
+#
+# Description     : Allow specific platforms to be excluded from the Build
+#                   Intended use:
+#                       Allow the use if a platform alias, but not all elements of it
+#                       ie: Use DEVLINUX, but not ARM9TDMI as we no longer support it
+#                           in this version.
+#                   Multiple BuildExclude directives are allowed
+#                   Order or location is not important
+#
+# Inputs          : Platforms names and options
+#                   Format:
+#                       --PLATFORM=xxxxx    (Marginal use)
+#                       --PRODUCT=yyyy      (Not very useful)
+#                       --TARGET=zzzz       (Default)
+#                       zzzz                (Same as --TARGET=ZZZZ)
+#
+#
+# Returns         : Nothing
+#
+sub BuildExclude
+{
+    my( @arguments ) = @_;
+    Debug( "BuildExclude(@arguments)" );
+    Error( "BuildExclude must appear before BuildName()..." )
+        if ( $BUILDNAME ne "" );
+    #
+    #   Simply save the arguments for later
+    #   Allow multiple specs in the one definition
+    #
+    foreach ( @arguments)
+    {
+        UniquePush (\@BUILDEXCLUDE, split(/\s*,\s*/,$_));
+    }
+}
+#-------------------------------------------------------------------------------
 # Function        : BuildName
+#
 # Description     : Defines the package name and version
+#
 # Inputs          : build arguments
     Log( "TOOLS ...... $::GBE_TOOLS" );
     Log( "CONFIG ..... $::GBE_CONFIG" );
     Log( "MACHTYPE ... $::GBE_MACHTYPE" );
     Log( "PLATFORM ... " . PrintList([split(' ', $::GBE_PLATFORM)], $sep) )    if defined ($::GBE_PLATFORM);
+    Log( "EXCLUDE .... " . PrintList([@BUILDEXCLUDE], $sep) )    if defined (@BUILDEXCLUDE);
     Log( "BUILDFILTER. " . PrintList([split(' ', $::GBE_BUILDFILTER)], $sep) ) if defined ($::GBE_BUILDFILTER);
     Log( "DPKG_STORE.. $::GBE_DPKG_STORE" );
     Log( "DPKG ....... $::GBE_DPKG" );
     Log( "DPKG_REPLI . $::GBE_DPKG_REPLICA" );
 # Function        : GeneratePlatformList
+#
 # Description     : Return a list of platforms that should particiate in this
 #                   build. This is a function of
 #                       1) Platforms defined in the build.pl file
+#                       2) Platforms excluded in the build.pl file
-#                       2) User filter defined in GBE_BUILDFILTER
+#                       3) User filter defined in GBE_BUILDFILTER
+#
 #                   The primary use of this function is to limit the creation
 #                   of makefiles to those that have supported compilers on
 #                   the underlying machine.
+#
+#
 #                   Where OPTION may be one of
 #                       --PLATFORM
 #                       --PRODUCT
 #                       --TARGET
+#                   For a BuildProduct( AA,BB,CC)
+#                       Product     - AA
+#                       Targets     - BB, CC
+#                       Platforms   - AA_BB, AA_CC
+#
 #                   Special cases
 #                   1) If GBE_BUILDFILTER is empty, then all available platforms are used
 #                      The global $All is set, then all available platforms are used
 #                   2) If the first word of GBE_BUILDFILTER is a negative filter,
+        }
         Debug( "GeneratePlatformList: Filter:$platform_filter" );
+        #
         #   Detect the special cases
-        #       1) No user definition - assume all platforms
+        #       1) No user definition
         #       2) First word contains a subtractive element
+        #   And assume all platforms
+        #
         my (@filter) = split( ' ', $platform_filter );
         if ( !scalar @filter || $filter[0] =~ m/^$/ || $filter[0] =~ m/!/ )
+        {
             %result = %{$part_to_platform{'PLATFORM'}}
                 if exists $part_to_platform{'PLATFORM'} ;
+        }
 #DebugDumpData( "PartToPlatform", \%part_to_platform );
+        #
         #   Process each element in the user filter list
         #   Expand platforms into known aliases
                 print "GBE_BUILDFILTER filter term not understood: $word\n";
+            }
+        }
+        #
+        #   Process BuildExclude
+        #   A list of
+        #
+        for my $word (@BUILDEXCLUDE)
+        {
+            my $platform;
+            Error('BuildExclude: Unknown option: ' . $word) if ($word =~ m~^-~);
+            Error('BuildExclude: Invalid format: ' . $word) if ($word =~ m~^!~);
+            #
+            #   Remove items from the result
+            #
+            my $table = "TARGET";
+            my $plist = $part_to_platform{$table}{$word};
+            Warning('BuildExclude: Unknown target:' . $word ) unless $plist;
+            for ( @{$plist})
+            {
+                delete $result{$_};
+            }
+        }
+        #
         #   Return an array of platforms to process
+        #
         @BUILD_ACTIVEPLATFORMS = sort keys %result;
+        #

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/buildlib.pl – Rev 5429 → 5679