WebSVN – DevTools – Diff – /core_devl/branches/gitBuilder/TOOLS/jats_sandbox.pl

 use Pod::Usage;                             # required for help support
 use Getopt::Long qw(:config require_order); # Stop on non-option
 use Digest;
 use JSON;
 my $VERSION = "1.0.0";                      # Update this
 my $SCANDEPTH = 3;                          # Almost a constant
+#
 #   Options
+#
 #   Globals
+#
 my @stopped = ();                               # Stopped entries
-my %packages;                                   # Hash of packages
-my @build_order = ();                           # Build Ordered list of packages
+my @build_order = ();                           # Build Ordered list of entries
 my %extern_deps;                                # Hash of external dependencies
+my %packages;                                   # Hash of packages
 my $currentPkgTag;                              # Tag of the current package - if any
 my $scanDepth;                                  # Depth for build file scan
 my $maxDname = 0;                               # Pretty display
+#
+#
 #   Reconfigure the options parser to allow subcommands to parse options
+#
 Getopt::Long::Configure('permute');
+#   Flag to subcommands that the build is occuring within a SANDBOX
+#   Example usage: Prevent gradle subproject inclusion
+$ENV{'GBE_SANDBOX_BUILD'} = 1;
+#
 #   Parse the user command and decide what to do
+#
 #   Remove user command from the command line. This will leave command options
 #   in @ARGV so that they can be parsed by the subcommand.
 #-------------------------------------------------------------------------------
 # Function        : errorBuild
+#
 # Description     : Mark the package as having a build error
-#                   This inofrmation will be used in determining build info
+#                   This information will be used in determining build info
+#
 # Inputs          : Mode -: Error, 1:UnError
 #                   User commaand line
+#
 # Returns         : Nothing
                 #   Scan the build files and extract dependancy information
+                #
                 my $bscanner = BuildFileScanner( $pname, 'build.pl',
                                                          '--LocateAll',
                                                          '--LimitDepth=' . $scanDepth,
-                                                         '--ScanDependencies' );
+                                                         '--ScanDependencies',
+                                                         '--Stop' );
                 unless ($bscanner->setLocation($_)) {
                     Verbose("Build file missing: Force full scan");
                     @build_list = ();
                     last;
+                }
             #   Scan the build files and extract dependancy information
+            #
             my $bscanner = BuildFileScanner( $pname, 'build.pl',
                                                      '--LocateAll',
                                                      '--LimitDepth=' . $scanDepth,
-                                                     '--ScanDependencies' );
+                                                     '--ScanDependencies',
+                                                     '--Stop' );
             $bscanner->scan();
             my @blist = $bscanner->getInfo();
             unless ($quiet) {
                 Warning ("Package does not have build files: $pname") unless ( @blist );
                 Warning ("Package has multiple build files: $pname") if ( $#blist > 0 );
+    #
     #   Set the initial filter list
     #   This will have been parsed by JATS before we get here
+    #
-    @filter_list = split( /[,\s]+/, join(',', $GBE_BUILDFILTER));
+    UniquePush (\@filter_list, split( /[,\s]+/, join(',', $GBE_BUILDFILTER)));
+    #
     #   Extract options for the jats extract utility
+    #
     foreach ( @cmd_opts )
+    }
+    #
     #   Display the results to the user
+    #
+    @filter_list = sort @filter_list;
     Message('BuildFilter:', @filter_list);
+    #
     #   Write out a new file
+    #
     if ($modified)
+    {
+        Error ("Command must be executed from within a Sandbox") unless ( $GBE_SANDBOX );
         FileCreate($filterFile, @filter_list);
+    }
+    #
     # This command does not return
+            }
         } else {
             $data[8] = 0;               # atime - will change
             $data[12] = '-';            # blocks - seen to change for unknown reasons
+            for my $ii ( 0 .. $#data) {
+                unless (defined $data[$ii]) {
+                    $data[$ii] = 'xx';
+                }
+            }
             $text = "$item : @data";
+        }
         $genPkgFingerPrintCount++;
         $genPkgFingerPrintSha1->add($text);
 #Debug0("genPkgFingerPrint: $text, ", $genPkgFingerPrintSha1->clone->hexdigest() );
 This option allow the error to be reported as a warning or to be ignored altogether. The named package will be
 excluded from the build set.
 Valid values for 'mode' are: error, report and ignore.  The default mode is 'error'.
+One workaround is to use a 'stop' file. Any directory that contains 'stop' file will not be scanned for
+build files. If a 'stop' file is added then it may defeat caching of build information. The information will
+need to be refreshed with the '--rescan' option. The 'stop' file should not be version controlled.
 =back
 =head1 DESCRIPTION
 This program is the primary tool for the maintenance of Development Sandboxes.
     -verbose[=n]            - Verbose operation
     -[no]force              - Force creation of nested sandbox
 =head2 OPTIONS
-The 'create' command takes the following options.
+The 'create' command takes the following options:
 =item -[no]force
 Normally a sandbox should not be created within another sandbox.
 =back
 =for comment ==================================================================
+The build infomation display will show the state of each package as a cryptic set of four characters within square brackets.
+The first character may be one of:
+=over 8
+=item S - Build is being skipped
+=item s - Build is being suppressed
+=item blank - Build is active
+=back
+The second character may be one of:
+=over 8
+=item * - This is the current package
+=item B - Has been build
+=item - - A 'noBuild'. Will not be built due to build filters
+=back
+The third character may be one of:
+=over 8
+=item E - The package only exists in dpkg_archive
+=item L - The package has been built and exists within the sandbox
+=item M - The package has been built and exists in both the sandbox and dpkg_archive
+=back
+The fourth character may be one of (requires the -fingerprint option):
+=over 8
+=item G - A good fingerprint
+=item B - A bad fingerprint. Files in the package have been modified since the last build.
+=item blank - The package has not been built and no fingerprint has been calculated.
+=back
 =head1 Buildfilter
 =head2 NAME
 Display and Modify Sandbox buildfilter

Subversion Repositories DevTools

(root)/core_devl/branches/gitBuilder/TOOLS/jats_sandbox.pl – Rev 7322 → 7323