Diff

Differences From Artifact [33c288d7a2]:

To Artifact [59c0702767]:


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");
				}