Differences From Artifact [167b5c2af0]:

• File library/clock.tcl — part of check-in [91d49f1279] at 2021-02-22 15:39:59 on branch sebres-8-6-clock-speedup-cr2 — Better solution for msvc OPTS=static,msvcrt regression: On win32 we cannot thrust the getenv() function, so use _wgetenv() (user: jan.nijtmans size: 60288) [more...]

To Artifact [336bedbbc8]:

• File library/clock.tcl — part of check-in [1ea9fc6200] at 2024-03-12 01:33:38 on branch sebres-8-6-clock-speedup-cr2 — consider TZ-epoch in base-cache (ensure cache of base is correct for :localtime if TZ changing) (user: sebres size: 60180)

964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981

	variable TimeZoneBad
	if { [dict exists $TimeZoneBad $timezone] } {
	    return -code error \
		-errorcode [list CLOCK badTimeZone $timezone] \
		"time zone \"$timezone\" not found"
	}
	variable MINWIDE
	if { $timezone eq {:localtime} } {
	    # Nothing to do, we'll convert using the localtime function

	} elseif {
	    [regexp {^([-+])(\d\d)(?::?(\d\d)(?::?(\d\d))?)?} $timezone \
		    -> s hh mm ss]
	} then {
	    # Make a fixed offset

	    ::scan $hh %d hh
	    if { $mm eq {} } {

<
<
<
|

964
965
966
967
968
969
970



971
972
973
974
975
976
977
978

	variable TimeZoneBad
	if { [dict exists $TimeZoneBad $timezone] } {
	    return -code error \
		-errorcode [list CLOCK badTimeZone $timezone] \
		"time zone \"$timezone\" not found"
	}
	variable MINWIDE



	if {
	    [regexp {^([-+])(\d\d)(?::?(\d\d)(?::?(\d\d))?)?} $timezone \
		    -> s hh mm ss]
	} then {
	    # Make a fixed offset

	    ::scan $hh %d hh
	    if { $mm eq {} } {