WebSVN – DevTools – Diff – /core_devl/branches/dpurdie_devl/TOOLS/buildlib.pl

 our %PKGRULES               = ();               # Package include and link rules
 our @BUILDTOOLS             = ();               # Extended tool path
 our $BUILDPHASE             = 0;                # In Build Phase
 our @CLOBBERDIRS            = ();               # Directories to clobber
 our @REMOVEDIRS             = ();               # Directories to remove - if empty
-our @CLOBBERFILES           = ();               # Files to clobber
 our %BUILD_KNOWNFILES       = ();               # Files that will be known
 our $Makelib                = "";
 our $GBE_CORE;                                  # Root of JATS
 our $InterfaceVersion;                          # Interface directory format version
 our $ScmRoot;                                   # Package Root
 our $ScmInterface;                              # Interface directory
 our $ScmBuildFilter;                            # Build Filter when build was created
+our $NoBuild                = 0;                # Dummy Build under ABT only
 my  $DeleteDPACKAGE         = 0;                # Must clobber DPACKAGE
 my  $build_source_pkg       = 0;                # Flag to build source package
 my  $opt_help               = 0;
+    #
     #   Clobber processing done after values have been accumulated
     #   as they may be used later
+    #
-    push @CLOBBERFILES, 'build.log';
-    push @CLOBBERFILES, 'ChangeLog', 'ChangeLog.bak' if ( $ScmHost eq "Unix" );
     return if ( $Clobber );
+    ToolsetFile('build.log');
+    ToolsetFile('ChangeLog', 'ChangeLog.bak') if ( $ScmHost eq "Unix" );
+    #
     #   Determine type of sandbox
+    #
     $sandbox_exact = ( -f $::GBE_DPKG_SBOX . '/.exact' )
         if ( $::GBE_DPKG_SBOX );
     Log( "Platforms .. " . PrintPlatforms(\@BUILDPLATFORMS, $sep) );
+    #
     #   Generate a list of platforms that are completely unknown to JATS
-    #   May be the result of a user type or a guess
+    #   May be the result of a user typo or a guess
+    #
     if ( @BUILD_BADNAME )
+    {
         Log( "Unknown Pl . " . PrintPlatforms(\@BUILD_BADNAME, $sep) );
          Warning ("The following platform names are not known to JATS", "@BUILD_BADNAME");
+    #
     #   Generate a list of active platforms
     #   Ensure that there are some active platforms
+    #
     GeneratePlatformList();
+    unless( @BUILD_ACTIVEPLATFORMS )
+    {
+        if (defined($::GBE_ABT)) {
+            # Build filter on this machine prevents the package building
+            # On a Build System this is not an error
+            #   Create a dummy platform called NOBUILD
+            #   Do not populate the interface directory with package data
+            #   Flag for jmake to do very little
+            #
+            CreateBuildPlatformEntry('Internal', 0, undef, 'NOBUILD');
+            $IgnorePkgs = 1;
+            $NoBuild = 1;
+            Log( "Build for .. ". PrintPlatforms(['NOBUILD - GBE_BUILDFILTER prevents any targets being built'], $sep));
+        } else {
-    Error( "GBE_BUILDFILTER prevents any targets being built" )
+            Error( "GBE_BUILDFILTER prevents any targets being built" );
-        unless( @BUILD_ACTIVEPLATFORMS );
+        }
+    }
+    else
+    {
-    Log( "Build for .. ". PrintPlatforms(\@BUILD_ACTIVEPLATFORMS, $sep));
+        Log( "Build for .. ". PrintPlatforms(\@BUILD_ACTIVEPLATFORMS, $sep));
+    }
+    #
     #   Generate an error if nothing can be done because the GBE_PLATFORM
     #   masks any useful operation.
+    #
             LinkEntry( $platform, $pkg, $name, $version, 0, $local );
+        }
+    }
+}
-sub LinkClean
-{
-    if ( $BUILDINTERFACE )
-    {                                           # only once
-        # remove generated images
-        Debug( "LinkClean" );
-        foreach my $platform ( @BUILDPLATFORMS )
-        {
-            RmDirTree( "$BUILDINTERFACE/$platform.rul" );
-        }
-    }
-}
 #-------------------------------------------------------------------------------
 # Function        : PackageLocate
+#
 # Description     : Locate a package
 #                   Once located a package will be processed for each
         unlink "$BUILDINTERFACE/Dpackage.cfg";
+    }
     if ( $Clobber )                             # clobber mode ?
+    {
+        #
+        #   Read in toolset files - a list of files collected during
-        if ( -e "Makefile.gbe" )
+        #   previous builds
-        {
+        #
+        ToolsetFile();
+        #
-            JatsTool ( 'jmake.pl', 'unmakefiles');
+        #   Unmake all the makefiles
+        #   No longer needed as we track the file that are created
+        #
-            unlink "Makefile.gbe";
+        #if ( -e "Makefile.gbe" )
+        #{
+        #    JatsTool ( 'jmake.pl', 'unmakefiles');
-        }
+        #}
+        #
+        #   Delete my own configuration files
+        #
         DeleteCfg();
-        LinkClean();
+        #
         #   JATS creates a 'pkg' directory for the target package
+        #
         push @CLOBBERDIRS, "pkg";
+            {
                 rmdir ( $dir ); # Only if empty
+            }
+        }
-        foreach my $file ( @CLOBBERFILES )
+        if ( exists $::GBE_TOOLSETFiles{Files} )
+        {
-            if ( -f $file )
+            foreach my $file (keys $::GBE_TOOLSETFiles{Files})
+            {
+                if ( -f $file )
+                {
-                RmDirTree ( $file );
+                    RmDirTree ( $file );
+                }
+            }
+        }
+        #
         #   DPACKAGE may be a user file, Only delete it if we created it
     #.. Build support files
+    #
     DeleteCfg();
     BuildConfig();
-    LinkClean();                                # clean previous images
     BuildSharedLibFiles();
     WriteParsedBuildConfig();
     BuildPackageLink();
     BuildSandboxData();
+    NoBuildMarker();
+    #
     #  ONLY (re)building interface dir
+    #
     return
+    #
     $ScmBuildlib = 0;                           # clear Buildlib flag for 'makelib.pl'
     RootMakefile();                             # inform 'makelib.pl'
     MakeLibInit();                              # run initialisation
     #.. Register subdir(s)
+    #
     UniquePush (\@BUILDSUBDIRS, $Srcdir );
     SubDir( @BUILDSUBDIRS );
     Platform( @BUILD_ACTIVEPLATFORMS );
+#
 # Returns         :
+#
 sub BuildDescpkg
+{
-    StartBuildPhase();                          # Starting the build phase. No more data collection
+    StartBuildPhase();                      # Starting the build phase. No more data collection
+    return if ( $Clobber );                 # clobber mode ?
+    #
     #   Store the files location for use at runtime
     #   It will be a file that is 'known' to JATS
+    #
-    my $pkgfile = BuildAddKnownFile ( $Srcdir, 'descpkg' );
+    my $pkgfile = BuildAddKnownFile ( $NoBuild ? $Cwd : $Srcdir, 'descpkg' );
-    return if ( $Clobber );                 # clobber mode ?
     my @desc;
     push @desc, "Package Name:  $BUILDNAME_PACKAGE";
     push @desc, "Version:       $BUILDVERSION";
     push @desc, "Released By:   $::USER";
     FileCreate ($pkgfile, \@desc );
+}
 #-------------------------------------------------------------------------------
+# Function        : NoBuildMarker
+#
+# Description     : Maintain the nobuild marker
+#                   This is file placed in the interface directory simply
+#                   to indicate to the 'create_dpkg' utility that this build
+#                   does not do anything useful.
+#
+#                   It will only be used on a build machine by the buid daemon
+#
+#                   Its not placed in the interface directory as it would be
+#                   harder for create_dpkg to find it.
+#
+# Inputs          : None
+# Globals         : $NoBuild, $Clobber
+#
+# Returns         : Nothing
+#
+sub NoBuildMarker
+{
+    return if ( $Clobber );
+    # Always delete the file - in case we toggle build forms
+    #
+    my $markerFile = BuildAddKnownFile( $Cwd, 'noBuild.gbe');
+    unlink($markerFile);
+    TouchFile($markerFile)
+        if ($NoBuild);
+}
+#-------------------------------------------------------------------------------
 # Function        : BuildIncpkg
+#
 # Description     : Create a package inclusion file
+#
 # Inputs          :
 \$ScmDeploymentPatch            = \"$DEPLOY_PATCH\";
 \$ScmSrcDir                     = \"$Srcdir\";
 \$ScmBuildSrc                   = \"$ScmBuildSrc\";
 \$ScmExpert                     = \"$Expert\";
 \$ScmAll                        = \"$All\";
+\$ScmNoBuild                    = \"$NoBuild\";
 ");
 #.. Alias
+#
     $fh->DumpData(
     my ($path, $file, $noadd) = @_;
     $path .= '/'. $file;
     $path =~ tr~/~/~s;
     $BUILD_KNOWNFILES {$file} = $path
         unless ( defined($noadd) && $noadd);
-    push @CLOBBERFILES, $path;
     ToolsetFile( $path )
         unless ($Clobber);
     return $path;
+}

Subversion Repositories DevTools

(root)/core_devl/branches/dpurdie_devl/TOOLS/buildlib.pl – Rev 3965 → 4001