| ︙ | | |
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
+
+
+
+
|
proc versionEncoded {versionString} {
set output 0
if {$versionString eq "trunk"} {
return [versionEncoded "255.255.255"]
}
if {$versionString eq "core-8-7a3"} {
return [versionEncoded "8.6.253"]
}
foreach element [lrange [split $versionString .] 0 2] {
if {![string is integer -strict $element]} {
return "\"$versionString\""
}
set output [expr {($output << 8) | $element}]
|
| ︙ | | |
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
+
+
+
-
+
-
|
set tcl_versions(8.6.4) 8.6.4
set tcl_versions(8.6.5) 8.6.5
set tcl_versions(8.6.6) 8.6.6
set tcl_versions(8.6.7) 8.6.7
set tcl_versions(8.6.8) 8.6.8
set tcl_versions(8.6.9) 8.6.9
set tcl_versions(8.6.10) 8.6.10
set tcl_version_list [lsort -dictionary [array names tcl_versions]]
set tcl_version_selected [lindex $tcl_version_list end]
set tcl_versions(fossil_trunk) "Fossil Trunk Tip"
set tcl_versions(fossil_core-8-7a3) "Tcl 8.7a3"
set tcl_version_list [lsort -dictionary [array names tcl_versions]]
set tcl_version_selected [lindex $tcl_version_list end-1]
|
| ︙ | | |
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
+
|
set packages(tdom) "tDOM"
set packages(tuapi) "Tcl UNIX API"
set packages(lmdb) "LMDB"
set packages(tclcurl) "cURL"
set packages(duktape) "Duktape"
set packages(tclpkcs11) "TclPKCS#11 (pki::pkcs11)"
set packages(tcllux) "TclLuX (Tcl UNIX Utilities)"
set packages(critcl) "critcl"
set options_info(threaded) "Kit: Threaded"
set options_info(kitdll) "Kit: Build Library (KitDLL)"
set options_info(debug) "Kit: Debugging Build"
set options_info(dynamictk) "Kit: Always link Tk dynamically (if Tk is built)"
set options_info(minbuild) "Kit: \"Minimal\" build (remove extra packages shipped as part of Tcl and reduce encodings)"
set options_info(staticlibssl) "TLS: Statically link to LibSSL"
|
| ︙ | | |
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
+
|
kitcreator_version <0.9.0 {package_tcc4tcl}
kitcreator_version <0.9.2 {package_tcllib package_tclx package_udp package_yajltcl}
kitcreator_version <0.9.3 {package_nsf}
kitcreator_version <0.10.0 {package_tdom package_tuapi}
kitcreator_version <0.11.0 {package_lmdb}
kitcreator_version <0.11.1 {package_tclcurl package_duktape}
kitcreator_version <0.12.0 {package_tclpkcs11 package_tcllux}
kitcreator_version <trunk {package_critcl}
}
set specific {
platform win32 file icon {Kit Icon}
platform win32 text description {Description}
platform win64 file icon {Kit Icon}
platform win64 text description {Description}
|
| ︙ | | |
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
|
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
|
-
-
+
+
|
break
}
}
# Resolve version numbers to checkin IDs
## XXX: TODO
set cache_tcl_version $build_tcl_version
if {$build_tcl_version == "fossil_trunk"} {
set cache_tcl_version [clock format [clock seconds] -format {%Y%m%d}]
if {[string match "fossil_*" $build_tcl_version]} {
set cache_tcl_version "${build_tcl_version}_[clock format [clock seconds] -format {%Y%m%d}]"
}
set cache_kitcreator_version $build_kitcreator_version
if {$build_kitcreator_version == "trunk"} {
set cache_kitcreator_version [clock format [clock seconds] -format {%Y%m%d}]
}
|
| ︙ | | |
512
513
514
515
516
517
518
519
520
521
522
523
524
525
|
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
|
+
+
+
+
|
function versionEncoded(versionString) {
var output = 0;
if (versionString === "trunk") {
return(versionEncoded("255.255.255"));
}
if (versionString === "core-8-7a3") {
return(versionEncoded("8.6.253"));
}
try {
versionString.split(".").slice(0, 3).forEach(function(element) {
element = parseInt(element);
if (isNaN(element)) {
throw new Error("Invalid version string");
}
|
| ︙ | | |