Check-in [f00fb82c93]
Overview
Comment:Added alpha build of Tcl 8.7
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f00fb82c93ffef2c6ffa35b7315a229d98b9023a
User & Date: rkeene on 2021-09-30 12:17:07
Other Links: manifest | tags
Context
2021-09-30
12:21
Add Ruby Lane JSON package check-in: e9f4a45835 user: rkeene tags: trunk
12:17
Added alpha build of Tcl 8.7 check-in: f00fb82c93 user: rkeene tags: trunk
2021-03-01
21:14
Log start time in build log check-in: bbd6cdfd3c user: rkeene tags: trunk
Changes

Modified build/web/kitcreator.vfs/index.rvt from [33c288d7a2] to [59c0702767].

18
19
20
21
22
23
24




25
26
27
28
29
30
31

	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]} {







>
>
>
>







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
	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_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"







>







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








>
>
>







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