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

-# -*- mode: perl; tabs: 8; indent-width: 4; show-tabs: yes; -*-
+########################################################################
-# Copyright 1995-2004 ERG Transit Systems, All Rights Reserved
+# Copyright (C) 1998-2011 Vix Technology, All rights reserved
+#
 # Module name   : buildlib.pl
 # Module type   : Makefile system
-# Compiler(s)   : ANSI C
+# Compiler(s)   : Perl
-# Environment(s): n/a
+# Environment(s): jats
+#
-# Description:
-#       This is the standard bootstrap script for sandboxs.
+# Description   : Process build.pl file and create the build environment
+#
-# Notes:
-#
-#                       *** DO NOT DETAB ***
-#
-#       Beware the use of space v's tab characters within the
+# Usage         : Refer to documentation at the end of the file
-#       makefile generation sessions.
-#
-#.........................................................................
+#
+#......................................................................#
 use strict;
 use warnings;
+use JatsError;
 use BuildVersion;
 use BuildName;
 use PackageEntry;
 use JatsEnv;
 use JatsSystem;
 our $Makelib                = "";
 our $GBE_CORE;                                  # Root of JATS
 our $InterfaceVersion;                          # Interface directory format version
 our $ScmInterface;                              # Interface directory
+our $ScmBuildFilter;                            # Build Filter when build was created
 my  $DeleteDPACKAGE         = 0;                # Must clobber DPACKAGE
 my  $build_source_pkg       = 0;                # Flag to build source package
 my  $opt_help               = 0;
     #   Define alias
+    #
     if ( $alias eq "GENERIC" )
+    {
-        Error( "BuildAlias() cannot create a alias named GENERIC" );
+        Error( "BuildAlias() cannot create an alias named GENERIC" );
+    }
     elsif ( $alias ne quotemeta( $alias ) )
+    {
         Warning( "BuildAlias() alias '$alias' contains invalid characters -- ignored" );
+    }
     $buildentry{NOT_DEFAULT} = $notdefault;
     $buildentry{PRODUCT} = $product;
     $buildentry{TARGET} = $target;
     $buildentry{BASE} = $target;
     $buildentry{USES} = [ @$pUses ] if $pUses;
+    foreach ( @$pArgs )
+    {
+        if ( m~^--Alias=(.+)~ ) {
-    $buildentry{ARGS} = [ @$pArgs ] if $pArgs;
+            push @{$buildentry{USERALIAS}}, split(',',$1);
+        }
+        else{
+            push @{$buildentry{ARGS}}, $_;
+        }
+    }
+    #
     #   Allow per-platform processing to be alter the basic information
     #   Special processing may be perform to extend the information
     #   Allows special processing to be enabled on a per-target basis
+    {
         HashJoin( \%BUILDALIAS_DELAY, ' ', $_, $platform )
             foreach ( ArrayList($pInfo->{ALIAS}) );
+    }
+    if ( $pInfo->{USERALIAS} )
+    {
+        HashJoin( \%BUILDALIAS_DELAY, ' ', $_, $platform )
+            foreach ( ArrayList($pInfo->{USERALIAS}) );
+    }
+    #
     #   Create a HARDWARE type alias if requested
     #   ie: SOLARIS_SPARC or SOLARIS_X86
+    #
     if ( $pInfo->{HARDWARE} )
 sub IncludePkg
+{
     my ($name, $pkg) = @_;
     my $file = "$pkg/incpkg";
-    Debug ("IncludePkg: $pkg" );
+    Debug ("IncludePkg: $name, $pkg" );
+    #
     #   Using a require will ensure that the package is only processed once
     #   even though the function user may be called multiple times.
     #   Also prevents recursion within included packages.
+    {
         Log( "WARNING .... Sandbox $path not available" );
+    }
     else
+    {
-        $path = Realpath( $path );
+        my @platforms;
-        if ( !defined($platform) || $platform eq "*" )
+        if ( !defined($platform) || $platform eq "*" ) {
-        {
-            foreach my $platform ( @BUILD_ACTIVEPLATFORMS )
+            @platforms = @BUILD_ACTIVEPLATFORMS;
-            {
+        } else {
-                LinkEntry( $platform, $path, $name, "!sandbox", 1, 1 );
+            @platforms = ExpandPlatforms( split( ',', $platform ) );
-            }
+        }
-        else
-        {
-            my(@platforms) = split( ',', $platform );
-            @platforms = ExpandPlatforms( @platforms );
+        $path = Realpath( $path );
+        IncludePkg ( $name, $path );
-            foreach my $platform ( @platforms )
+        foreach my $platform ( @platforms )
-            {
+        {
-                LinkEntry( $platform, $path, $name, "!sandbox", 1, 1 );
+            LinkEntry( $platform, $path, $name, "!sandbox", 1, 1 );
-            }
+        }
+    }
+}
     if ( $pkg )
+    {
+        #
         #   Generate package rules for each active platform
+        #
+        IncludePkg ( $name, $pkg );
-        foreach my $platform ( @BUILD_ACTIVEPLATFORMS )
+        foreach my $platform ( @BUILD_ACTIVEPLATFORMS, '--' )
+        {
             LinkEntry( $platform, $pkg, $name, $version, 0, $local );
+        }
+    }
+}
     #   independent of the toolset.
+    #
     #..
     $entry->ExamineToolPath();
     $entry->ExamineThxPath($platform);
-    IncludePkg ( $name, $pkg );
     $entry->Cleanup();                          # cleanup tables
+    #
     #   Add the package entry to the array of such entries for
     #   the current platform. Maintain the discovery order
         my $tstamp = -M "$Cwd/Makefile.gbe";
         push @build_warn, "Missing: Makefile.gbe" unless ( defined $tstamp );
         push @build_warn, "Modified build file ($ScmBuildSrc)" if ( $tstamp && $bstamp < $tstamp );
+        #
+        #   Ensure that the build filter has not changed
+        #   If the user has changed the buildfilter, then we need to
+        #   force a build.
+        #
+        #   The root Makefile.bge will have a $ScmBuildFilter entry
+        #
+        unless ( @build_warn )
+        {
+            use JatsMakeInfo;
+            ReadMakeInfo();
+                my $line = $::ScmBuildFilter || '';
+                $line =~ s~\s+~ ~g;
+                my $filter = $::GBE_BUILDFILTER;
+                $filter =~ s~\s+~ ~g;
+                if ( $line ne $filter )
+                {
+                    push @build_warn, "Build filter has changed";
+                    Verbose2 ("Buildfilter Test: Was:$line, Is:$::GBE_BUILDFILTER");
+                }
+        }
         if ( @build_warn )
+        {
-            Verbose ("Forcing Build", @build_warn );
+            Verbose ("Forcing Build.", @build_warn );
+        }
         else
+        {
             Verbose ("No build performed. Build files up to date");
             Log ("Build files up to date") if $::GBE_SANDBOX;
+#
 #   Close out the file
+#
     $fh->Close();
+}
 #-------------------------------------------------------------------------------
 # Function        : WriteParsedBuildConfig
+#
     -package       - Ignore packages that are not available and continue
     -forcebuildpkg - Treat LinkPkgArchive directives as BuildPkgArchive
                      Also suppress the use of symlinks so that the physical
                      file will be copied locally.
     -[no]force     - Force build even if build.pl is not newer
-                      Default: -force
+                     Default: -force
  Sticky settings:
     -all           - Build for all platforms ignoring GBE_BUILDFILTER
     -expert[=n]    - Relaxing dependency checks on the user makefiles
 =back
 =item B<-[no]force>
 The '-noforce' option will only perform a build, if the build.pl file
-has build.pl file has been modified since the last build.
+has been modified, or the buildfilter has changed, since the last build.
-The default operation will alwars force a build.
+The default operation will always force a build.
 =item B<-all>
 This option will cause the build process to generate makefiles for all
 possible build targets ignoring the use of GBE_BUILDFILTER.
 force the rebuild with the command 'jats rebuild'.
 This option should be used with care and with full knowledge of its impact.
 This option is sticky. Once used in a build it will be retained when makefiles
-are rebuilt. It will only be lost when the next 'jats build' is perfromed.
+are rebuilt. It will only be lost when the next 'jats build' is performed.
 The effect of the option can be changed when the makefiles are processed. This
 option simply sets the default' mode of operation.
 =item B<changelog>

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/buildlib.pl – Rev 361 → 363