774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
|
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
# Fossil. The fileName argument is the relative name of the file to
# be staged. This procedure may raise script errors.
# 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 { fileName } {
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
|
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 $relativeFileName
stageOnePackageFile [appendArgs $relativeFileName .asc]
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
|