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

+#
 our $ScmBuildlib            = 0;
 our $ScmBuildSrc            = "";
 our $CmdSwitch              = "";
-our $CmdParm                = "";
 our $Clobber                = 0;
 our $Archive                = 0;
 our $Interface              = 0;
 our $RootOnly               = 0;
 our $Perms                  = 0;
 our $Expert                 = 0;
 our $All                    = 0;
 our $Nolog                  = 0;
 our $Cache                  = 0;
-our $FullJats               = 0;
 our $NoPackageError         = 0;
 our $ForceBuildPkg          = 0;
 our $Srcdir                 = "";               # default source root
+our $ForceBuild             = 1;
 #.. Public symbols, referenced by many build.pl implementations
+#
 our $BUILDPREVIOUSVERSION   = "0.0.0";          # BuildPreviousVersion()
 our @BUILDPLATFORMS         = ();               # BuildPlatforms()
 our $BUILDPHASE             = 0;                # In Build Phase
 our @CLOBBERDIRS            = ();               # Directories to clobber
 our @CLOBBERFILES           = ();               # Files to clobber
 our %BUILD_KNOWNFILES       = ();               # Files that will be known
-our $Makelib                = "";
 our $GBE_CORE;                                  # Root of JATS
-our $MAKELIB_PL;                                # Name of the makelib file
 our $InterfaceVersion;                          # Interface directory format version
 our $ScmInterface;                              # Interface directory
 sub BuildLibInit
+{
 #.. Set environment
+#
-    EnvImport( "GBE_VERSION" );
+    EnvImport( 'GBE_VERSION' );
-    EnvImport( "GBE_BIN" );
+    EnvImport( 'GBE_BIN' );
-    EnvImport( "GBE_CORE" );
+    EnvImport( 'GBE_CORE' );
-    EnvImport( "GBE_PERL" );
+    EnvImport( 'GBE_PERL' );
-    EnvImport( "GBE_TOOLS" );
+    EnvImport( 'GBE_TOOLS' );
-    EnvImport( "GBE_CONFIG" );
+    EnvImport( 'GBE_CONFIG' );
-    EnvImport( "GBE_DPKG" );
+    EnvImport( 'GBE_DPKG' );
-    EnvImport( "GBE_MACHTYPE" );
+    EnvImport( 'GBE_MACHTYPE' );
-    EnvImport( "USER" );
+    EnvImport( 'USER' );
-    EnvImport( "GBE_HOSTNAME");
+    EnvImport( 'GBE_HOSTNAME');
-    EnvImport( "GBE_DRV" )
+    EnvImport( 'GBE_DRV' )
-        if ( $ScmHost ne "Unix" );            # DOS or WIN special
+        if ( $ScmHost ne 'Unix' );            # DOS or WIN special
     EnvImportOptional ( 'GBE_DPKG_STORE','' );
     EnvImportOptional ( 'GBE_DPKG_CACHE','' );
     EnvImportOptional ( 'GBE_DPKG_LOCAL','' );
     EnvImportOptional ( 'GBE_DPKG_SBOX' ,'' );
     EnvImportOptional ( 'GBE_ABT' );                # optional ABT flags
 #.. Common stuff
+#
     require "$::GBE_TOOLS/common.pl";
-    CommonInit( "buildlib" );
+    CommonInit( 'buildlib' );
     Debug( "Version:   $BuildVersion" );
     Require( "$::GBE_CONFIG/PLATFORM", "PLATFORM_CFG.PM"  );
 #.. Parse command line
+#
     $ScmBuildSrc = $0;                          # Name of the build file
-    ($Cwd, $Makelib) = @ARGV;
+    $Cwd = shift @ARGV;
     $Cwd =~ tr~\\/~/~s;;                        # Need / in path, Remove doubles
-    Debug( "Host:      $ScmHost" );
-    Debug( "Cwd:       $Cwd" );
-    Debug( "Makelib:   $Makelib" );
-    Debug( "BuildFile: $ScmBuildSrc" );
     Verbose ("Command Line: @ARGV");
     my $result = GetOptions( "help|h:+"      => \$opt_help,
                              "man:3"         => \$opt_help,
                              "debug:+"       => \$::ScmDebug,
                              "verbose:+"     => \$::ScmVerbose,
                              "expert:1"      => \$Expert,
                              "all"           => \$All,
                              "nolog"         => \$Nolog,
-                             "cache+"        => \$Cache,
+                             "cache:+"       => \$Cache,
-                             "project"       => \$FullJats,
                              "package"       => \$NoPackageError,
                              "forcebuildpkg" => \$ForceBuildPkg,
+                             "force!"        => \$ForceBuild,
                              );
     Usage() if ( $opt_help || !$result );
+    Debug( "Host:          ", $ScmHost );
+    Debug( "Cwd:           ", $Cwd );
+    Debug( "BuildFile:     ", $ScmBuildSrc );
-    Debug( "Debug:         $::ScmDebug" );
+    Debug( "Debug:         ", $::ScmDebug );
-    Debug( "Verbose:       $::ScmVerbose" );
+    Debug( "Verbose:       ", $::ScmVerbose );
-    Debug( "Expert:        $Expert" );
+    Debug( "Expert:        ", $Expert );
-    Debug( "All:           $All" );
+    Debug( "All:           ", $All );
-    Debug( "Nolog:         $Nolog" );
+    Debug( "Nolog:         ", $Nolog );
-    Debug( "Cache:         $Cache" );
+    Debug( "Cache:         ", $Cache );
-    Debug( "project:       $FullJats" );
+    Debug( "package:       ", $NoPackageError );
-    Debug( "package:       $NoPackageError" );
+    Debug( "ForcePkg  :    ", $ForceBuildPkg );
-    Debug( "Force  :       $ForceBuildPkg" );
+    Debug( "ForceBuild :   ", $ForceBuild );
 #.. Command
+#
-    my $argc = 2;
-    $CmdSwitch = $ARGV[ $argc++ ] if ($argc <= $#ARGV);
+    $CmdSwitch = shift @ARGV;
-    $CmdParm = $ARGV[ $argc++ ] if ($argc <= $#ARGV);
+    Debug( "CmdSwitch:     ", $CmdSwitch );
+    if ( $CmdSwitch )
+    {
-    Debug( "CmdSwitch: $CmdSwitch" );
+        if ( $CmdSwitch eq "interface" ) {
-    Debug( "CmdParm:   $CmdParm" );
+            $Interface      = 1;
-    if ( $argc <= $#ARGV && $ARGV[ $argc ] ne "" ) {
+        } elsif ( $CmdSwitch eq "rootonly" ) {
-        Usage( "(E) unexpected argument \"$ARGV[ $argc ]\"" );
+            $RootOnly       = 1;
-    }
-    if ( $CmdSwitch eq "interface" ) {
+        } elsif ( $CmdSwitch eq "clobber" ) {
-        $Interface      = 1;
+            $Clobber        = 1;
-    } elsif ( $CmdSwitch eq "rootonly" ) {
+        } elsif ( $CmdSwitch eq "help" || $CmdSwitch eq "usage" ) {
-        $RootOnly       = 1;
+            $opt_help = 1;
+            Usage();
-    } elsif ( $CmdSwitch eq "clobber" ) {
+        } elsif ( $CmdSwitch eq "changelog" ) {
+            if ( -d "CVS" )                         # CVS support subdir
+            {
+                System( "$::GBE_PERL $::GBE_TOOLS/cvs2cl.pl --tags --branches --revisions --day-of-week" )
+            }
-        $Clobber        = 1;
+            exit(1);
+        } else {
-    } elsif ( $CmdSwitch eq "help" || $CmdSwitch eq "usage" ) {
+            Usage( "(E) build. Unknown command \"$CmdSwitch\"" );
-        $opt_help = 1;
+        }
-        Usage();
+    }
+    #
+    #   If in -noforce, then check to see if we really need
+    #   to force a build. Primarily used within a sandbox to
+    #   see if any work needs to be done
+    #
-    } elsif ( $CmdSwitch eq "changelog" ) {
+    if ( ! $ForceBuild && !$Clobber )
+    {
+        my @build_warn;
+        my $bstamp = -M "$Cwd/$ScmBuildSrc";
+        my $tstamp = -M "$Cwd/Makefile.gbe";
-        if ( -d "CVS" )                         # CVS support subdir
+        push @build_warn, "Missing: Makefile.gbe" unless ( defined $tstamp );
+        push @build_warn, "Modified build file ($ScmBuildSrc)" if ( $tstamp && $bstamp < $tstamp );
+        if ( @build_warn )
+        {
+            Verbose ("Forcing Build", @build_warn );
+        }
+        else
+        {
-            System( "$::GBE_PERL $::GBE_TOOLS/cvs2cl.pl --tags --branches --revisions --day-of-week" )
+            Verbose ("No build performed. Build files up to date");
+            exit 0;
+        }
-        exit(1);
-    } elsif ( $CmdSwitch ne "" ) {
-        Usage( "(E) unknown switch \"$CmdSwitch\"" );
+    }
+    #
     #   Must inform makelib that its running under buildlib
+    #
 #-------------------------------------------------------------------------------
 # Function        : Log
+#
 # Description     : Internal function to generate a log file of the build process
-#                   The function will print its argumenst tot he screen and a log file
+#                   The function will print its argumenst to the screen and a log file
+#
 # Inputs          : Arguments will be printed
+#
 # Returns         : Nothing
+#
         if ( !defined($platform) || $platform eq "*" )
+        {
             foreach my $platform ( @BUILD_ACTIVEPLATFORMS )
+            {
-                LinkEntry( $platform, $path, $name, "!sandbox", 1 );
+                LinkEntry( $platform, $path, $name, "!sandbox", 1, 1 );
+            }
+        }
         else
+        {
             my(@platforms) = split( ',', $platform );
             @platforms = ExpandPlatforms( @platforms );
             foreach my $platform ( @platforms )
+            {
-                LinkEntry( $platform, $path, $name, "!sandbox", 1 );
+                LinkEntry( $platform, $path, $name, "!sandbox", 1, 1 );
+            }
+        }
+    }
+}
+    }
     if ( $Cache && $::GBE_DPKG_CACHE )
+    {
         my $mode = ($Cache > 1) ? "-refresh" : "";
-        Log( "LinkPkgArchive . $name ($version) Update Cache" );
+        Log( "LinkPkgArchive .. $name ($version) Update Cache" );
         System('--NoExit', "$::GBE_PERL $::GBE_TOOLS/cache_dpkg.pl $mode -quiet $name/$version" );
+    }
+    #
     #   Locate the package ONCE
+    #
-    Log( "LinkPkgArchive . $name ($version)" );
+    Log( "LinkPkgArchive .. $name ($version)" );
     my ($pkg, $local ) = PackageLocate( $name, $version );
     if ( $pkg )
+    {
+        #
         #   Generate package rules for each active platform
+        #
         foreach my $platform ( @BUILD_ACTIVEPLATFORMS )
+        {
-            LinkEntry( $platform, $pkg, $name, $version, 0 );
+            LinkEntry( $platform, $pkg, $name, $version, 0, $local );
+        }
+    }
+}
 sub LinkClean
         #       current_<USER_NAME>
         #   This is an old mechanism whose use should not be encouraged
+        #
         #..
         if ( $version eq "!current" )
+        {
-        {                                       # 'current' user
+            Error ("Use of !version is not allowed in ABT build")
-            EnvImport( "USER" );
+                if ( $::GBE_ABT );
-            $pkg = "$dpkg/$name/current";       # default
+            $pkg = "$dpkg/$name/current";       # current
             $pkg = "$dpkg/$name/current.lnk"
                 if ( -e "$dpkg/$name/current.lnk" );
-                                                # USER specific
+                                                # USER specific current
+            EnvImport( "USER" );
             $pkg = "$dpkg/$name/current_$::USER"
                 if ( -e "$dpkg/$name/current_$::USER" );
             $pkg = "$dpkg/$name/current_$::USER.lnk"
                 if ( -e "$dpkg/$name/current_$::USER.lnk" );
+        }
         else
         {                                       # standard
             $pkg = "$dpkg/$name/$version";
             $pkg = "$dpkg/$name/$version.lnk"
                 if ( -e "$dpkg/$name/$version.lnk" );
+        }
+        #
 # Inputs          : platform being processed
 #                   path to the package
 #                   name of the package
 #                   version of the package
 #                   sandbox support (non-zero)
+#                   local package
+#
 sub LinkEntry
+{
-    my( $platform, $pkg, $name, $version, $sandbox ) = @_;
+    my( $platform, $pkg, $name, $version, $sandbox, $local ) = @_;
     my( $entry );
     #   Create entry record
+    #
     #..
-    $entry = PackageEntry::New( $pkg, $name, $version, $sandbox, 'link' );
+    $entry = PackageEntry::New( $pkg, $name, $version, $sandbox, 'link', $local );
     #   Populate includes:
+    #
     #   - include/$platform                 (eg include/solaris)
     #   - inc/$platform                     (eg inc/solaris)
     if ( $pkg )
+    {
+        #
         #   Create a Package Entry
+        #
-        my $entry = PackageEntry::New( $pkg, $name, $version, 0, 'build' );
+        my $entry = PackageEntry::New( $pkg, $name, $version, 0, 'build', $local );
+        #
         #   Determine if the package needs to be installed:
         #       If the package is a 'local' package then force transfer
         #       If the user has specified --cache then force transfer
+                #
                 #   If forcing a BuildPkg, then don't use symlinks
                 #   to files in dpkg_archive
+                #
-                my $opts = "";
+                my @opts;
-                $opts = "--NoSymlinks" if ( $ForceBuildPkg );
+                push @opts, "--NoSymlinks" if ( $ForceBuildPkg );
+                push @opts, "--AllowOverWrite" if ( $local );
+                #
                 #   Determine all the Platforms, Products and Targets
                 #   that need to be installed
+                #
                 my $arglist = GenerateInstallArgumentList();
-                System( "cd $pkg; $::GBE_PERL $::GBE_TOOLS/installpkg.pl $Cwd/$BUILDINTERFACE $Cwd $opts $arglist");
+                System( "cd $pkg; $::GBE_PERL $::GBE_TOOLS/installpkg.pl $Cwd/$BUILDINTERFACE $Cwd @opts $arglist");
                 Error( "Package installation error" ) if ( $? != 0 );
+            }
             elsif ( -e "$pkg/InstallPkg.sh" )
+            {
                 System( "(cd $pkg; ./InstallPkg.sh $Cwd/$BUILDINTERFACE $Cwd)" );
 #                   Don't know what it was meant to do
 #                   Unfortunately it is present in a lot of build.pl files
+#
 #                   Not well supported on all machine types
+#
-# Inputs          : $BuildFilename          - Root of output filename
+# Inputs          : None that are used
-#                   $BuildDir               - Path of subdir to tar
-#
-#                   Also uses the undocumented: GBE_SNAPSHOT_DIR
+#
-# Returns         : Does not return
+# Returns         : Undefined
-#                   Once invoked this function will exit the build
+#
 sub BuildReleaseFile
+{
-    my ( $BuildFilename, $BuildDir ) = @_;
-    my ( $SnapDir );
-    # Check if archive requested...
-    #
-    return unless ( $CmdSwitch eq "archive" );
-    # Build the release archive file...
-    #
-    $SnapDir = "$ENV{ \"GBE_SNAPSHOT_DIR\" }/";
-    $SnapDir = "" unless ($SnapDir ne "/");
-    Log( "Creating release archive: $SnapDir$BuildFilename.tgz of $Cwd/$BuildDir/" );
-    # GNU tar and zip the build directory NOT following links...
-    #
-    System( "$::GBE_BIN/tar czf $SnapDir$BuildFilename.tgz $BuildDir" );
-    Error( "To extract use: $::GBE_BIN/tar xvzf $BuildFilename.tgz" );
+}
 #-------------------------------------------------------------------------------
 # Function        : BuildSnapshot
+#
 # Function        : BuildAccessPerms
+#
 # Description     : Check if access/permissions setting requested...
 #                   Legacy
+#
-# Inputs          : None
+#                   Don't know what it was meant to do
+#                   Unfortunately it is present in a lot of build.pl files
+#
+# Inputs          : None that are used
+#
-# Returns         :
+# Returns         : Undefined
+#
 sub BuildAccessPerms
+{
-    my( $PermsFilename );
-    return unless ( $CmdSwitch eq "perms" );
-    # Set the build access permissions from the shell script...
-    $PermsFilename = $CmdParm;
-    if ( -e $PermsFilename )
-    {
-        Log( "Setting build access permissions from $PermsFilename..." );
-        System( "su root -c \"sh $PermsFilename\"" );
-    }
-    else
-    {
-        Log( "ERROR: Could not find file to set the access permissions: $PermsFilename" );
-    }
-    die "\n";
+}
 sub BuildSetenv
+{
     #       the following substitutions are done.
+    #
     @ARGV = ();
     $0 = "makefile.pl ";
     push @ARGV, "$Cwd";                         # current working directory
-    push @ARGV, "$::MAKELIB_PL";                # makelib.pl image
+    push @ARGV, "$::GBE_TOOLS/makelib.pl";     # makelib.pl image
     push @ARGV, "--interface=$BUILDINTERFACE"
         if ($BUILDINTERFACE);
     Debug( "ARGV:      @ARGV" );
         next if ( $symname =~ m/^ENV$/  );              # Don't keep the user ENV
         next if ( $symname =~ m/^INC$/  );              # Don't keep the INC paths
         next if ( $symname =~ m/^DEFINES/  );           # Don't keep
         next if ( $symname =~ m/^TOOLSETRULES/  );      # Don't keep
+        no strict 'vars';
         local *sym = $main::{$symname};
-        $cf_build_info{"\$$symname"} =  $::sym if defined $::sym;
+        $cf_build_info{"\$$symname"} =  $sym if defined $sym;
-        $cf_build_info{"\@$symname"} = \@::sym if defined @::sym;
+        $cf_build_info{"\@$symname"} = \@sym if defined @sym;
-        $cf_build_info{"\%$symname"} = \%::sym if defined %::sym;
+        $cf_build_info{"\%$symname"} = \%sym if defined %sym;
+        use strict 'vars';
+    }
+    #
     #   Dump out the configuration information
+    #
      [perl buildlib.pl [options] PWD [command]]
  Options:
-    --help          - Display terse usage
+    -help          - Display terse usage
-    --help --help   - Display verbose usage
+    -help -help   - Display verbose usage
-    --man           - Display internal manual
+    -man           - Display internal manual
-    --verbose[=n]   - Set level of progress verbosity
+    -verbose[=n]   - Set level of progress verbosity
-    --debug[=n]     - Set the debug level
+    -debug[=n]     - Set the debug level
-    --nolog         - Do not generate/update Changelog
+    -nolog         - Do not generate/update Changelog
-    --cache         - Cache packages in the local dpkg_package cache
+    -cache         - Cache packages in the local dpkg_package cache
-    --cache --cache - Forced refresh dependent packages in the local cache
+    -cache -cache - Forced refresh dependent packages in the local cache
-    --project       - Generate support files for external tools
-    --package       - Ignore packages that are not available and continue
+    -package       - Ignore packages that are not available and continue
-    --forcebuildpkg - Treat LinkPkgArchive directives as BuildPkgArchive
+    -forcebuildpkg - Treat LinkPkgArchive directives as BuildPkgArchive
                       Also suppress the use of symlinks so that the phsical
                       file will be copied locally.
+    -[no]force     - Force build even if build.pl is not newer
+                      Default: -force
  Sticky settings:
-    --all           - Build for all platforms ignoring GBE_BUILDFILTER
+    -all           - Build for all platforms ignoring GBE_BUILDFILTER
-    --expert[=n]    - Relaxing dependency checks on the user makefiles
+    -expert[=n]    - Relaxing dependency checks on the user makefiles
  Commands:
     changelog       - Only update ChangeLog.
     interface       - Only (re)build the interface tree, including ChangeLog.
     rootonly        - Only (re)build the root directory.
 =head1 OPTIONS
 =over 8
-=item B<--help>
+=item B<-help>
 Print a brief help message and exits.
 =item B<-help -help>
 =item B<-man>
 Prints the manual page and exits.
-=item B<--verbose[=n]>
+=item B<-verbose[=n]>
 Increases program output.
 If an argument is provided, then it will be used to set the level, otherwise the
 existing level will be incremented. This option may be specified multiple times.
 progress information.
 If an argument is provided, then it will be used to set the level, otherwise the
 existing level will be incremented. This option may be specified multiple times.
-=item B<--nolog>
+=item B<-nolog>
 Do not generate or update the ChangeLog maintained when a CVS directory is detected
 in the build directory.
-=item B<--cache>
+=item B<-cache>
 This option will cause dependent packages to be cached in the local
 dpkg_archive cache.
 If the option is used twice then the packages will be forcibly refreshed.
-=item B<--project>
-This option is used to indicate that the build.pl is being processed by a full
-JATS environment and not by any pre-existing mechanism.
-This option will prevent the generation of configuration batch files that are
-not required by the full environment.
-=item B<--package>
+=item B<-package>
 This option will cause the build process to ignore packages that cannot be
 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<--forcebuildpkg>
+=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
 machine, the files will be copied and not referenced with a soft link.
 =item * Local modification of files for test/debug/development
 =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.
+The default operation will alwars force a build.
-=item B<--all>
+=item B<-all>
 This option will cause the build process to generate makefiles for all
 possible build targets ignoring the use of GBE_BUILDFILTER.
 This option is sticky. Once used in a build it will be retained when makefiles
 are rebuilt.
-=item B<--expert[=n]>
+=item B<-expert[=n]>
 This option causes the generation of makefiles with relaxed dependancy checks.
 If an argument is provided, then it will be used to set the level, otherwise a
 level of '1' will be set.
 This perl library (buildlib.pl) is not designed to be invoked directly by the
 user. It should be invoked through a 'build.pl' file. Moreover, for historical
 reasons, the build.pl is not easily invoked. It is best to only invoke the
 'build' process via the JATS wrapper scripts : jats.bat or jats.sh.
-The build.pl file must be invoked with two fixed arguments, followed by user
+The build.pl file must be invoked with one fixed arguments, followed by user
 options and subcommands
 =over 8
 =item   1 The current working directory
 This could have been derived directly by the program, rather than having it
 passed in.
-=item   2 The absolute path to buildlib.pl (this library)
-In practice this value is not used, but is provided for historical reasons.
-=item   3 Options and commands may follow the first two mandatory arguments.
+=item   2 Options and commands may follow the first two mandatory arguments.
 =back
 The build.pl file must 'require' the buildlib.pl and makelib.pl. The preferred
 code is:

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/buildlib.pl – Rev 325 → 331