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

 ########################################################################
 # Copyright ( C ) 2008 ERG Limited, All rights reserved
+#
-# Module name   : jats_save_build.pl
+# Module name   : jats_svnasave_build.pl
-# Module type   : Makefile system
+# Module type   : JATS Utility
-# Compiler(s)   : n/a
+# Compiler(s)   : Perl
 # Environment(s): jats
+#
 # Description   : Build Daemon Support Utility
 #                 This utility will:
 #                   +   Assume the CWD is the root-dir of a package
 #                       within a versioned control view
 #                   +   Determine a suitable label for the package
 #                   +   Save the build file in the view
 #                   +   Label the resultant view
+#
-# Note          : Intended to be backward compatible wth old (simple)
-#                 functionality.
-#
 # Usage:        : See POD at end of this file
+#
-#                 Preferred (new) usage:
-#
 #               jats etool  jats_save_build
 #                   -infile     auto.xml/auto.pl
 #                   -outfile    xxxdepends.xml/build.pl
 #                   -pname      package_name
 #                   -pversion   package_version
 my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug
 my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose
 my $opt_infile  = "auto.pl";
 my $opt_ofile = "build.pl";
 my $opt_help = 0;
-my $opt_label;
 my $opt_branch_default = "AutoBuilder";
 my $opt_branch;
 my $opt_newbranch;
 my $opt_infofile;
 my $opt_pname;
                 "manual:3"      => \$opt_help,              # flag
                 "verbose:+"     => \$opt_verbose,           # flag
                 "outfile=s"     => \$opt_ofile,             # string
                 "infile=s"      => \$opt_infile,            # string
-                "label=s"       => \$opt_label,             # string
                 "branch=s"      => \$opt_branch,            # string
                 "newbranch"     => \$opt_newbranch,         # string
                 "infofile=s"    => \$opt_infofile,          # string
                 "pname=s"       => \$opt_pname,             # string
+#
 ErrorConfig( 'name'    =>'ABTSAVE',
              'verbose' => $opt_verbose,
              'on_exit' => \&display_error_list
            );
 Error ("Input and output file are the same: $opt_infile" )
     if ( $opt_infile eq $opt_ofile );
 Error ("Must provide a branch when usng newbranch option")
     if ( $opt_newbranch && ! $opt_branch );
 $opt_branch = $opt_branch_default
     unless ( $opt_branch );
-#
-#   If $opt_label has been provided, then operate in a backwardly
-#   compatible manner. Only perform the build file save. Do not perform
-#   any of the advanced label operations.
-#
-unless ( $opt_label )
-{
-    Error ("Package Name not provided")
+Error ("Package Name not provided")
-        unless ( $opt_pname );
+    unless ( $opt_pname );
-    Error ("Package Version not provided")
-        unless ( $opt_pversion );
-    Warning("Path to info file not provided")
+Error ("Package Version not provided")
-        unless ( $opt_infofile );
+    unless ( $opt_pversion );
-    unlink ($opt_infofile) if $opt_infofile;
-}
-else
-{
-    #
-    #   Ensure none of the 'new' options are used
-    #
-    Error ("Option not compatible with -label: locatepkg")
-        if ( $opt_locate );
-    Error ("Option not compatible with -label: wiplabel")
+Warning("Path to info file not provided")
-        if ( $opt_wiplabel );
+    unless ( $opt_infofile );
-    Error ("Option not compatible with -label: infofile")
-        if ( $opt_infofile );
+unlink ($opt_infofile) if $opt_infofile;
-}
+#
 #   Locate the build directory and chdir to that directory
+#
 locate_build_directory();
 # Function        : determine_package_label
+#
 # Description     : Determine the label that is to be applied to the package
 #                   There are several cases to consider
 #                       1) Compatability mode: User provides label
-#                       2) WIP Mode. Determine name of label to ise in rename
+#                       2) WIP Mode. Determine name of label to use in rename
 #                       3) Create a new label
+#
 # Inputs          : Globals
+#
 # Returns         : Globals
 #                       $pkg_label
+#
 sub determine_package_label
+{
-    #
-    #   Compatability mode
-    #
-    if ( $opt_label )
-    {
-        $pkg_label = $opt_label;
-        return;
-    }
+    #
     #   Determine the desired label for the package
     #   This is a function of the package name and the package version
     #   The two are joined with a '.'
+    #
+#
 # Returns         :
+#
 sub label_build_view
+{
-    #
-    #   In compatability mode - do nothing
-    #
-    return if ( $opt_label );
     if ( $opt_wiplabel )
+    {
         Verbose ("Rename label: From $opt_wiplabel to $tag_label");
+        SystemConfig ( ExitOnError => 2);
         JatsCmd( 'label', '-unlock', $opt_wiplabel, '-rename', $tag_label, '-lock' );
+    }
     else
+    {
         Verbose ("Apply new label to package: $tag_label");
         chdir ( $base_dir ) || Error ("Cannot chdir to vob base", $base_dir);
+        #
         #   Label the entire (static) view
+        #   Handle errors as error exit will clean up
+        #
-        JatsCmd( 'label', '-label', $tag_label, '-replace', '-lock' );
+        my $rv =JatsCmd( 'label', '-label', $tag_label, '-replace', '-lock' );
+        Error ("Failed to label all files in view")
+            if ( $rv );
+    }
+    #
     #   Write the label out to the specified file so that the user
     #   can do something with it
+}
 #-------------------------------------------------------------------------------
 # Function        : display_error_list
+#
-# Description     : Display the error list
+# Description     : Display the error list and clean up
 #                   This function is registered as an Error callback function
 #                   it will be called on error exit
+#
 # Inputs          :
+#
+{
     foreach ( @error_list )
+    {
         print "$_\n";
+    }
+    #
+    #   Perform cleanup
+    #       Delete the label if created it anyway (which we did)
+    #       This leaves checked in build file on branch (live with it)
+    #
+    JatsCmd( 'label', '-delete', $tag_label )
+        if ($label_created);
+}
 #-------------------------------------------------------------------------------
 #   Documentation
+#
     -help -help         - Detailed help message
     -man[=n]            - Full documentation
     -verbose[=n]        - Verbose operation
     -infile=xxx         - Input file (auto.pl)
     -outfile=xxx        - Output file (build.pl)
-    -label xxx          - Label the new file (Compatability Mode)
     -branch=xxx         - Branch to create (AutoBuilder)
     -newbranch          - Force file to be on a new (project) branch
     -infofile=path      - Save label information in 'path'
     -pname=name         - Name of the package
     -pversion=text      - Package version
 will be checked in to version-control. Data from from file specifies with '-
 infile' will be used to update the file.
 The default file name is 'build.pl'.
-=item B<-label=xxxx>
-This option is provided for backward compatability. If present then much of the
-functionality of this utility will be supressed. The utility will only check-
-in the modified build files. It will not:
-=over 8
-=item   Locate the build files
-=item   Determine an available label
-=item   Create the label
-=item   Label the view
-=item   Rename the WIP label
-=item   Generate the information file
-=back
 =item B<-branch=xxxx>
 This options specifies the root name of the target branch that will be sued to
 contain the checked-in build file. If the branch does not exist it will be
 created.

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats_save_build.pl @ 311 – Rev 267 → 309