Diff
Not logged in

Differences From Artifact [f5539b2754]:

To Artifact [739b0bf27c]:


774
775
776
777
778
779
780

781
782

783
784
785
786
787
788
789
790
791
            "could not change branch: " $error]
      }
    }
  }

  #
  # NOTE: This procedure attempts to stage the specified package file using

  #       Fossil.  The fileName argument is the relative name of the file to
  #       be staged.  This procedure may raise script errors.

  #
  proc stageOnePackageFile { fileName } {
    variable checkoutDirectory
    variable fossilAddCommand

    verifyCheckoutDirectory

    if {[isEagle]} then {
      set fileName [::PackageRepository::formatExecArgument $fileName]







>
|
|
>

|







774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
            "could not change branch: " $error]
      }
    }
  }

  #
  # NOTE: This procedure attempts to stage the specified package file using
  #       Fossil.  The targetDirectory argument is the fully qualified path
  #       to the package platform directory.  The fileName argument is the
  #       relative name of the file to be staged.  This procedure may raise
  #       script errors.
  #
  proc stageOnePackageFile { targetDirectory fileName } {
    variable checkoutDirectory
    variable fossilAddCommand

    verifyCheckoutDirectory

    if {[isEagle]} then {
      set fileName [::PackageRepository::formatExecArgument $fileName]
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
      if {![::PackageRepository::createOpenPgpSignature \
          $checkoutFileName]} then {
        error [appendArgs \
            "could not stage file \"" $fileName \
            "\": OpenPGP signing failed"]
      }

      stageOnePackageFile $relativeFileName
      stageOnePackageFile [appendArgs $relativeFileName .asc]
    }
  }

  #
  # NOTE: This procedure attempts to commit the staged package files to the
  #       remote package file repository using Fossil.  The varName argument
  #       is the name of a scalar variable in the context of the immediate







|
|







852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
      if {![::PackageRepository::createOpenPgpSignature \
          $checkoutFileName]} then {
        error [appendArgs \
            "could not stage file \"" $fileName \
            "\": OpenPGP signing failed"]
      }

      stageOnePackageFile $targetDirectory $relativeFileName
      stageOnePackageFile $targetDirectory [appendArgs $relativeFileName .asc]
    }
  }

  #
  # NOTE: This procedure attempts to commit the staged package files to the
  #       remote package file repository using Fossil.  The varName argument
  #       is the name of a scalar variable in the context of the immediate