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-7-a5-rc"} {
return [versionEncoded "8.6.254"]
}
if {$versionString eq "core-8-7a3"} {
return [versionEncoded "8.6.253"]
}
foreach element [lrange [split $versionString .] 0 2] {
if {![string is integer -strict $element]} {
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
+
|
set tcl_versions(8.6.10) 8.6.10
set tcl_versions(8.6.11) 8.6.11
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_versions(fossil_core-8-7-a5-rc) "Tcl 8.7a5"
set tcl_version_list [lsort -dictionary [array names tcl_versions]]
# Platforms
set platforms(android-arm) "Android/ARM"
set platforms(freebsd-amd64) "FreeBSD/amd64"
set platforms(hpux-hppa64) "HP-UX/PA-RISC 2.0"
set platforms(aix-ppc) "AIX/POWER"
|
526
527
528
529
530
531
532
533
534
535
536
537
538
539
|
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
|
+
+
+
|
return(versionEncoded("255.255.255"));
}
if (versionString === "core-8-7a3") {
return(versionEncoded("8.6.253"));
}
if (versionString === "core-8-7-a5-rc") {
return(versionEncoded("8.6.254"));
}
try {
versionString.split(".").slice(0, 3).forEach(function(element) {
element = parseInt(element);
if (isNaN(element)) {
throw new Error("Invalid version string");
}
|