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

 our $Cache                  = 0;
 our $NoPackageError         = 0;
 our $ForceBuildPkg          = 0;
 our $Srcdir                 = "";               # default source root
 our $ForceBuild             = 1;
+our $IgnorePkgs             = 0;
 #.. Public symbols, referenced by many build.pl implementations
+#
 our $BUILDPREVIOUSVERSION   = "0.0.0";          # BuildPreviousVersion()
 our @BUILDPLATFORMS         = ();               # BuildPlatforms()
                              "expert:1"      => \$Expert,
                              "all"           => \$All,
                              "nolog"         => \$Nolog,
                              "cache:+"       => \$Cache,
                              "package"       => \$NoPackageError,
+                             "nopackages"    => \$IgnorePkgs,
                              "forcebuildpkg" => \$ForceBuildPkg,
                              "force!"        => \$ForceBuild,
                              );
     Usage() if ( $opt_help || !$result );
     Debug( "Nolog:         ", $Nolog );
     Debug( "Cache:         ", $Cache );
     Debug( "package:       ", $NoPackageError );
     Debug( "ForcePkg  :    ", $ForceBuildPkg );
     Debug( "ForceBuild :   ", $ForceBuild );
+    Debug( "$IgnorePkgs :  ", $IgnorePkgs );
 #.. Command
+#
-    $CmdSwitch = shift @ARGV;
+    $CmdSwitch = lc shift @ARGV;
     Debug( "CmdSwitch:     ", $CmdSwitch );
     if ( $CmdSwitch )
+    {
         if ( $CmdSwitch eq "interface" ) {
 sub LinkSandbox
+{
     my( $name, $path, $platform ) = @_;
     return if ( $Clobber );                     # clobber mode ?
     Warning ("LinkSandbox() This directive is being deprecated.");       #Dec-2011
     Error ("LinkSandbox() expects three arguments:  @_")
         unless ( $#_ == 2 );
     Debug( "Package:   $name" );
     Debug( "Version:   $path" );
     DataDirective("LinkSandbox");               # This directive allowed here
+    if ( $IgnorePkgs )
+    {
+        Log( "LinkSandbox. $name ($path) - Ignored" );
+        return;
+    }
+#
 #   If GBE_BUILDFILTER exists, Import 'user' platform
 #   specification and filter against the BUILD_ACTIVEPLATFORMS.
+#
     Log( "LinkSandbox. $name ($path)" );
     Debug( "Name:      $name" );
     Debug( "Version:   $version" );
     DataDirective("LinkPkgArchive");            # This directive allowed here
+    if ( $IgnorePkgs )
+    {
+        Log( "LinkPkgArchive .. $name ($version) - Ignored" );
+        return;
+    }
+    #
     #   Ensure that we have do not have multiple definitions
+    #
     if ( PackageEntry::Exists( $name, $version ) )
+    {
             close( LNKFILE );
             $pkg = '' unless ( $pkg );
             $pkg =~ s~\s+$~~;;
             $pkg =~ s~^GBE_SANDBOX/~$::GBE_SANDBOX/~;
+            unless ( -d $pkg )
+            {
-            Error ("Broken link: $pkg",
+                Error ("Broken link: $pkg",
-                   "Source link: $link_src",
+                       "Source link: $link_src",
-                   "Try deleting the .lnk file" ) unless ( -d $pkg );
+                       "Try deleting the .lnk file" ) unless ( $NoPackageError );
+                Warning ("Package not available. Broken link: $pkg");
+            }
+        }
         Debug( "           searching $pkg" );
         #   Does the package directory exist?
     Debug( "Name:      $name" );
     Debug( "Version:   $version" );
     DataDirective("BuildPkgArchive");           # This directive allowed here
+    if ( $IgnorePkgs )
+    {
+        Log( "BuildPkgArchive . $name ($version) - Ignored" );
+        return;
+    }
+    #
     #   Ensure that we have do not have multiple definitions
+    #
     if ( PackageEntry::Exists( $name, $version ) )
+    {
     -debug[=n]     - Set the debug level
     -nolog         - Do not generate/update Changelog
     -cache         - Cache packages in the local dpkg_package cache
     -cache -cache  - Forced refresh dependent packages in the local cache
     -package       - Ignore packages that are not available and continue
+    -nopackages    - Ignore package processing directives
     -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
     -all           - Build for all platforms ignoring GBE_BUILDFILTER
     -expert[=n]    - Relaxing dependency checks on the user makefiles
  Commands:
     changelog      - Only update ChangeLog.
+    clobber        - Remove generated build system (eg Makefiles).
     interface      - Only (re)build the interface tree, including ChangeLog.
     rootonly       - Only (re)build the root directory.
-    clobber        - Remove generated build system (eg Makefiles).
 =head1 OPTIONS
 =over 8
 located. The package build may fail at a later stage.
 This option is used by the Auto Build Tool to handle packages that may not be
 needed in all builds.
+=item B<-nopackage>
+This options will cause all the directives that process external packages to be
+ignored.
+This directive has limited use. It can be used in conjunction with the
+'interface' build command in order to create Version Information files in a
+sandbox where the required packages do not yet exist.
 =item B<-forcebuildpkg>
 This option will force LinkPkgArchive directives to be treated as
 BuildPkgArchive directives. The result is that the 'interface' directory will be
 populated with the contents of all dependent packages. Moreover, on a Unix

Subversion Repositories DevTools

(root)/core_devl/branches/dpurdie_devl/TOOLS/buildlib.pl – Rev 391 → 2085