| ︙ | | |
588
589
590
591
592
593
594
595
596
597
598
599
600
601
|
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
|
+
+
+
|
#
proc getCheckoutDirectory {} {
variable fossilInfoCommand
variable fossilInfoLocalRootPattern
variable scriptDirectory
if {[isEagle]} then {
set scriptDirectory [::PackageRepository::formatExecArgument \
$scriptDirectory]
if {[catch {
eval exec -nocarriagereturns -stdout output -stderr error \
[subst $fossilInfoCommand]
} result] == 0} then {
set result [appendArgs $output $error]
} else {
return false
|
| ︙ | | |
649
650
651
652
653
654
655
656
657
658
659
660
661
662
|
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
|
+
+
+
|
variable checkoutDirectory
variable fossilChangesCommand
variable fossilChangesPattern
verifyCheckoutDirectory
if {[isEagle]} then {
set checkoutDirectory [::PackageRepository::formatExecArgument \
$checkoutDirectory]
if {[catch {
eval exec -nocarriagereturns -stdout output -stderr error \
[subst $fossilChangesCommand]
} result] == 0} then {
set result [appendArgs $output $error]
} else {
return false
|
| ︙ | | |
685
686
687
688
689
690
691
692
693
694
695
696
697
698
|
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
|
+
+
+
|
proc verifyThisIsTheCorrectProject {} {
variable fossilInfoCommand
variable fossilInfoProjectCodePattern
variable projectCode
variable scriptDirectory
if {[isEagle]} then {
set scriptDirectory [::PackageRepository::formatExecArgument \
$scriptDirectory]
if {[catch {
eval exec -nocarriagereturns -stdout output -stderr error \
[subst $fossilInfoCommand]
} result] == 0} then {
set result [appendArgs $output $error]
} else {
return false
|
| ︙ | | |
720
721
722
723
724
725
726
727
728
729
730
731
732
733
|
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
|
+
+
+
|
#
proc verifyThisIsTheCorrectBranch {} {
variable fossilInfoCommand
variable fossilInfoTagsPattern
variable scriptDirectory
if {[isEagle]} then {
set scriptDirectory [::PackageRepository::formatExecArgument \
$scriptDirectory]
if {[catch {
eval exec -nocarriagereturns -stdout output -stderr error \
[subst $fossilInfoCommand]
} result] == 0} then {
set result [appendArgs $output $error]
} else {
return false
|
| ︙ | | |
756
757
758
759
760
761
762
763
764
765
766
767
768
769
|
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
|
+
+
+
|
proc changeToTheCorrectBranch {} {
variable checkoutDirectory
variable fossilUpdateCommand
verifyCheckoutDirectory
if {[isEagle]} then {
set checkoutDirectory [::PackageRepository::formatExecArgument \
$checkoutDirectory]
if {[catch {
eval exec -success Success [subst $fossilUpdateCommand]
} error]} then {
error [appendArgs \
"could not change branch: " $error]
}
} else {
|
| ︙ | | |
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
|
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
|
-
+
+
-
+
-
|
# 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
verifyCheckoutDirectory
$targetDirectory]
if {[isEagle]} then {
|
| ︙ | | |
878
879
880
881
882
883
884
885
886
887
888
889
890
891
|
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
|
+
+
+
+
+
+
|
set branch [appendArgs pkg_ $package _ $patchLevel]
set comment [appendArgs \
"Add package " $package " v" $patchLevel " for " $language \
" v" $version .]
if {[isEagle]} then {
set checkoutDirectory [::PackageRepository::formatExecArgument \
$checkoutDirectory]
set branch [::PackageRepository::formatExecArgument $branch]
set comment [::PackageRepository::formatExecArgument $comment]
if {[catch {
eval exec -nocarriagereturns -stdout output -stderr error \
[subst $fossilCommitCommand]
} result] == 0} then {
set result [appendArgs $output $error]
} else {
return false
|
| ︙ | | |
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
|
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
|
+
+
|
variable argumentData
variable widgets
object load -import System.Windows.Forms
set form [object create -alias Form]
set widgets(0) $form
$form Text "Package Uploader Client"
###########################################################################
set widgets(1) [object create -alias Label]
$widgets(1) Name lblApiKey
$widgets(1) Text "API Key"
|
| ︙ | | |
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
|
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
|
+
+
+
|
variable widgets
package require Tk
catch {console show}
catch {wm withdraw .}; set toplevel [toplevel .uploader]
set widgets(toplevel) $toplevel
wm title $toplevel "Package Uploader Client"
wm minsize $toplevel 250 0
###########################################################################
set widgets(label,apiKey) [label [appendArgs \
$toplevel .l_apiKey] -text "API Key"]
###########################################################################
|
| ︙ | | |
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
|
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
|
-
+
+
+
+
+
|
pack $widgets(label,apiKey) $widgets(entry,apiKey) \
$widgets(label,package) $widgets(entry,package) \
$widgets(label,patchLevel) $widgets(entry,patchLevel) \
$widgets(label,language) $widgets(entry,language) \
$widgets(label,version) $widgets(entry,version) \
$widgets(label,platform) $widgets(entry,platform) \
$widgets(label,fileNames) $widgets(listbox,fileNames) \
$widgets(button,submit) $widgets(button,clear)
$widgets(button,submit) $widgets(button,clear) \
-expand true -fill both
pack $widgets(button,submit) $widgets(button,clear) \
-anchor e -expand false -fill none
}
#
# NOTE: Figure out the fully qualified path to the current script file.
# If necessary, add it to the auto-path for the interpreter. The
# necessary supporting packages (i.e. the Package Repository and
# other support packages) that are assumed to exist in the same
|
| ︙ | | |