From e8e954f6105c001bef0d51e5746b3802e306a43c Mon Sep 17 00:00:00 2001
From: Kevin B Kenny <kennykb@acm.org>
Date: Tue, 7 Sep 2004 17:38:55 +0000
Subject: * generic/tclTimer.c: Removed a premature optimisation that attempted
to store the assoc data in the client data; the optimisation caused a bug
that [after] would overwrite its imports. [Bug 1016167] * library/clock.tcl
(InitTZData, ClearCaches): Changed so that the in-memory time zone :UTC (and
its aliases) always gets reinitialised, in case tzdata is absent. [Bug
1019537, 1023779] * library/tzdata/*: Regenerated. * tests/clock.test
(clock-31.*, clock-39.1): Corrected a problem where the 'system' locale tests
fail on a non-English Windows machine. [Bug 1023761]. Added a test to make
sure that alias time zones load correctly. [Bug 1023779]. * tools/tclZIC.tcl
(writeLinks): Corrected a problem where alias time zone names were written
incorrectly, causing them to fail to load at run time. [Bug 1023779]. *
win/tclWinTime.c (Tcl_GetTime): Eliminated CPUID tests on Win64 - assuming
that HAL vendors now do a better job of keeping the performance counters
synchronized among CPU's. [Bug 1020445]
---
ChangeLog | 22 ++++++++++++++++++++++
generic/tclTimer.c | 23 ++++-------------------
library/clock.tcl | 24 ++++++++++++++----------
library/tzdata/America/Atka | 4 ++--
library/tzdata/America/Buenos_Aires | 4 ++--
library/tzdata/America/Catamarca | 4 ++--
library/tzdata/America/Cordoba | 4 ++--
library/tzdata/America/Ensenada | 4 ++--
library/tzdata/America/Fort_Wayne | 4 ++--
library/tzdata/America/Indiana/Indianapolis | 4 ++--
library/tzdata/America/Jujuy | 4 ++--
library/tzdata/America/Kentucky/Louisville | 4 ++--
library/tzdata/America/Knox_IN | 4 ++--
library/tzdata/America/Mendoza | 4 ++--
library/tzdata/America/Porto_Acre | 4 ++--
library/tzdata/America/Rosario | 4 ++--
library/tzdata/America/Shiprock | 4 ++--
library/tzdata/America/Virgin | 4 ++--
library/tzdata/Antarctica/South_Pole | 4 ++--
library/tzdata/Arctic/Longyearbyen | 4 ++--
library/tzdata/Asia/Ashkhabad | 4 ++--
library/tzdata/Asia/Chungking | 4 ++--
library/tzdata/Asia/Dacca | 4 ++--
library/tzdata/Asia/Istanbul | 4 ++--
library/tzdata/Asia/Macao | 4 ++--
library/tzdata/Asia/Tel_Aviv | 4 ++--
library/tzdata/Asia/Thimbu | 4 ++--
library/tzdata/Asia/Ujung_Pandang | 4 ++--
library/tzdata/Asia/Ulan_Bator | 4 ++--
library/tzdata/Atlantic/Jan_Mayen | 4 ++--
library/tzdata/Australia/ACT | 4 ++--
library/tzdata/Australia/Canberra | 4 ++--
library/tzdata/Australia/LHI | 4 ++--
library/tzdata/Australia/NSW | 4 ++--
library/tzdata/Australia/North | 4 ++--
library/tzdata/Australia/Queensland | 4 ++--
library/tzdata/Australia/South | 4 ++--
library/tzdata/Australia/Tasmania | 4 ++--
library/tzdata/Australia/Victoria | 4 ++--
library/tzdata/Australia/West | 4 ++--
library/tzdata/Australia/Yancowinna | 4 ++--
library/tzdata/Brazil/Acre | 4 ++--
library/tzdata/Brazil/DeNoronha | 4 ++--
library/tzdata/Brazil/East | 4 ++--
library/tzdata/Brazil/West | 4 ++--
library/tzdata/CST6CDT | 4 ++--
library/tzdata/Canada/Atlantic | 4 ++--
library/tzdata/Canada/Central | 4 ++--
library/tzdata/Canada/East-Saskatchewan | 4 ++--
library/tzdata/Canada/Eastern | 4 ++--
library/tzdata/Canada/Mountain | 4 ++--
library/tzdata/Canada/Newfoundland | 4 ++--
library/tzdata/Canada/Pacific | 4 ++--
library/tzdata/Canada/Saskatchewan | 4 ++--
library/tzdata/Canada/Yukon | 4 ++--
library/tzdata/Chile/Continental | 4 ++--
library/tzdata/Chile/EasterIsland | 4 ++--
library/tzdata/Cuba | 4 ++--
library/tzdata/EST | 4 ++--
library/tzdata/EST5EDT | 4 ++--
library/tzdata/Egypt | 4 ++--
library/tzdata/Eire | 4 ++--
library/tzdata/Etc/GMT+0 | 4 ++--
library/tzdata/Etc/GMT-0 | 4 ++--
library/tzdata/Etc/GMT0 | 4 ++--
library/tzdata/Etc/Greenwich | 4 ++--
library/tzdata/Etc/Universal | 4 ++--
library/tzdata/Etc/Zulu | 4 ++--
library/tzdata/Europe/Bratislava | 4 ++--
library/tzdata/Europe/Ljubljana | 4 ++--
library/tzdata/Europe/Mariehamn | 4 ++--
library/tzdata/Europe/Nicosia | 4 ++--
library/tzdata/Europe/San_Marino | 4 ++--
library/tzdata/Europe/Sarajevo | 4 ++--
library/tzdata/Europe/Skopje | 4 ++--
library/tzdata/Europe/Tiraspol | 4 ++--
library/tzdata/Europe/Vatican | 4 ++--
library/tzdata/Europe/Zagreb | 4 ++--
library/tzdata/GB | 4 ++--
library/tzdata/GB-Eire | 4 ++--
library/tzdata/GMT | 4 ++--
library/tzdata/GMT+0 | 4 ++--
library/tzdata/GMT-0 | 4 ++--
library/tzdata/GMT0 | 4 ++--
library/tzdata/Greenwich | 4 ++--
library/tzdata/HST | 4 ++--
library/tzdata/Hongkong | 4 ++--
library/tzdata/Iceland | 4 ++--
library/tzdata/Iran | 4 ++--
library/tzdata/Israel | 4 ++--
library/tzdata/Jamaica | 4 ++--
library/tzdata/Japan | 4 ++--
library/tzdata/Kwajalein | 4 ++--
library/tzdata/Libya | 4 ++--
library/tzdata/MST | 4 ++--
library/tzdata/MST7MDT | 4 ++--
library/tzdata/Mexico/BajaNorte | 4 ++--
library/tzdata/Mexico/BajaSur | 4 ++--
library/tzdata/Mexico/General | 4 ++--
library/tzdata/NZ | 4 ++--
library/tzdata/NZ-CHAT | 4 ++--
library/tzdata/Navajo | 4 ++--
library/tzdata/PRC | 4 ++--
library/tzdata/PST8PDT | 4 ++--
library/tzdata/Pacific/Samoa | 4 ++--
library/tzdata/Poland | 4 ++--
library/tzdata/Portugal | 4 ++--
library/tzdata/ROC | 4 ++--
library/tzdata/ROK | 4 ++--
library/tzdata/Singapore | 4 ++--
library/tzdata/SystemV/AST4 | 4 ++--
library/tzdata/SystemV/AST4ADT | 4 ++--
library/tzdata/SystemV/CST6 | 4 ++--
library/tzdata/SystemV/CST6CDT | 4 ++--
library/tzdata/SystemV/EST5 | 4 ++--
library/tzdata/SystemV/EST5EDT | 4 ++--
library/tzdata/SystemV/HST10 | 4 ++--
library/tzdata/SystemV/MST7 | 4 ++--
library/tzdata/SystemV/MST7MDT | 4 ++--
library/tzdata/SystemV/PST8 | 4 ++--
library/tzdata/SystemV/PST8PDT | 4 ++--
library/tzdata/SystemV/YST9 | 4 ++--
library/tzdata/SystemV/YST9YDT | 4 ++--
library/tzdata/Turkey | 4 ++--
library/tzdata/UCT | 4 ++--
library/tzdata/US/Alaska | 4 ++--
library/tzdata/US/Aleutian | 4 ++--
library/tzdata/US/Arizona | 4 ++--
library/tzdata/US/Central | 4 ++--
library/tzdata/US/East-Indiana | 4 ++--
library/tzdata/US/Eastern | 4 ++--
library/tzdata/US/Hawaii | 4 ++--
library/tzdata/US/Indiana-Starke | 4 ++--
library/tzdata/US/Michigan | 4 ++--
library/tzdata/US/Mountain | 4 ++--
library/tzdata/US/Pacific | 4 ++--
library/tzdata/US/Pacific-New | 4 ++--
library/tzdata/US/Samoa | 4 ++--
library/tzdata/UTC | 4 ++--
library/tzdata/Universal | 4 ++--
library/tzdata/W-SU | 4 ++--
library/tzdata/Zulu | 4 ++--
tests/clock.test | 29 ++++++++++++++++++++++-------
tools/tclZIC.tcl | 6 +++---
win/tclWinTime.c | 8 +++++++-
145 files changed, 350 insertions(+), 318 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7a75ed3..5499fa1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,25 @@
+2004-09-07 Kevin B. Kenny <kennykb@acm.org>
+
+ * generic/tclTimer.c: Removed a premature optimisation that
+ attempted to store the assoc data in the client data; the
+ optimisation caused a bug that [after] would overwrite
+ its imports. [Bug 1016167]
+ * library/clock.tcl (InitTZData, ClearCaches): Changed so that the
+ in-memory time zone :UTC (and its aliases) always gets
+ reinitialised, in case tzdata is absent. [Bug 1019537, 1023779]
+ * library/tzdata/*: Regenerated.
+ * tests/clock.test (clock-31.*, clock-39.1): Corrected a problem
+ where the 'system' locale tests fail on a non-English Windows
+ machine. [Bug 1023761]. Added a test to make sure that alias
+ time zones load correctly. [Bug 1023779].
+ * tools/tclZIC.tcl (writeLinks): Corrected a problem where
+ alias time zone names were written incorrectly, causing them
+ to fail to load at run time. [Bug 1023779].
+ * win/tclWinTime.c (Tcl_GetTime): Eliminated CPUID tests on
+ Win64 - assuming that HAL vendors now do a better job of
+ keeping the performance counters synchronized among CPU's.
+ [Bug 1020445]
+
2004-09-06 Donal K. Fellows <donal.k.fellows@man.ac.uk>
* doc/tclvars.n, doc/tcltest.n, doc/tclsh.1, doc/safe.n, doc/expr.n:
diff --git a/generic/tclTimer.c b/generic/tclTimer.c
index f7a3d46..f6c068c 100644
--- a/generic/tclTimer.c
+++ b/generic/tclTimer.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTimer.c,v 1.9 2004/08/25 22:21:34 dgp Exp $
+ * RCS: @(#) $Id: tclTimer.c,v 1.10 2004/09/07 17:38:56 kennykb Exp $
*/
#include "tclInt.h"
@@ -731,16 +731,14 @@ TclServiceIdle()
/* ARGSUSED */
int
Tcl_AfterObjCmd(clientData, interp, objc, objv)
- ClientData clientData; /* Points to the "tclAfter" assocData for
- * this interpreter, or NULL if the assocData
- * hasn't been created yet.*/
+ ClientData clientData; /* Unused */
Tcl_Interp *interp; /* Current interpreter. */
int objc; /* Number of arguments. */
Tcl_Obj *CONST objv[]; /* Argument objects. */
{
int ms;
AfterInfo *afterPtr;
- AfterAssocData *assocPtr = (AfterAssocData *) clientData;
+ AfterAssocData *assocPtr;
Tcl_CmdInfo cmdInfo;
int length;
char *argString;
@@ -764,26 +762,13 @@ Tcl_AfterObjCmd(clientData, interp, objc, objv)
* future.
*/
+ assocPtr = Tcl_GetAssocData( interp, "tclAfter", NULL );
if (assocPtr == NULL) {
- Tcl_Command token = Tcl_GetCommandFromObj(interp, objv[0]);
- Tcl_Command originalToken = TclGetOriginalCommand(token);
-
- if (originalToken != NULL) {
- token = originalToken;
- }
assocPtr = (AfterAssocData *) ckalloc(sizeof(AfterAssocData));
assocPtr->interp = interp;
assocPtr->firstAfterPtr = NULL;
Tcl_SetAssocData(interp, "tclAfter", AfterCleanupProc,
(ClientData) assocPtr);
- cmdInfo.proc = NULL;
- cmdInfo.clientData = (ClientData) NULL;
- cmdInfo.objProc = Tcl_AfterObjCmd;
- cmdInfo.objClientData = (ClientData) assocPtr;
- cmdInfo.deleteProc = NULL;
- cmdInfo.deleteData = (ClientData) assocPtr;
-
- Tcl_SetCommandInfoFromToken(token, &cmdInfo);
}
/*
diff --git a/library/clock.tcl b/library/clock.tcl
index 97e6e9d..1152576 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: clock.tcl,v 1.3 2004/08/19 18:55:09 kennykb Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.4 2004/09/07 17:38:56 kennykb Exp $
#
#----------------------------------------------------------------------
@@ -85,15 +85,19 @@ namespace eval ::tcl::clock {
# Define the Greenwich time zone
- variable TZData
- set TZData(:Etc/GMT) {
- {-9223372036854775808 0 0 GMT}
- }
- set TZData(:GMT) $TZData(:Etc/GMT)
- set TZData(:Etc/UTC) {
- {-9223372036854775808 0 0 UTC}
+ proc initTZData {} {
+ variable TZData
+ array unset TZData
+ set TZData(:Etc/GMT) {
+ {-9223372036854775808 0 0 GMT}
+ }
+ set TZData(:GMT) $TZData(:Etc/GMT)
+ set TZData(:Etc/UTC) {
+ {-9223372036854775808 0 0 UTC}
+ }
+ set TZData(:UTC) $TZData(:Etc/UTC)
}
- set TZData(:UTC) $TZData(:Etc/UTC)
+ initTZData
# Define the message catalog for the root locale.
@@ -4911,6 +4915,6 @@ proc ::tcl::clock::ClearCaches {} {
set LocaleNumeralCache {}
set McLoaded {}
catch {unset CachedSystemTimeZone}
- array unset TZData
+ initTZData
}
diff --git a/library/tzdata/America/Atka b/library/tzdata/America/Atka
index e216e75..935f4ec 100644
--- a/library/tzdata/America/Atka
+++ b/library/tzdata/America/Atka
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Adak)]} {
- loadTimeZoneFile America/Adak
+ LoadTimeZoneFile America/Adak
}
-set tzdata(:America/Atka) $TZData(:America/Adak)
+set TZData(:America/Atka) $TZData(:America/Adak)
diff --git a/library/tzdata/America/Buenos_Aires b/library/tzdata/America/Buenos_Aires
index 84686c6..039cb36 100644
--- a/library/tzdata/America/Buenos_Aires
+++ b/library/tzdata/America/Buenos_Aires
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Argentina/Buenos_Aires)]} {
- loadTimeZoneFile America/Argentina/Buenos_Aires
+ LoadTimeZoneFile America/Argentina/Buenos_Aires
}
-set tzdata(:America/Buenos_Aires) $TZData(:America/Argentina/Buenos_Aires)
+set TZData(:America/Buenos_Aires) $TZData(:America/Argentina/Buenos_Aires)
diff --git a/library/tzdata/America/Catamarca b/library/tzdata/America/Catamarca
index 238d63a..0ba0ef9 100644
--- a/library/tzdata/America/Catamarca
+++ b/library/tzdata/America/Catamarca
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Argentina/Catamarca)]} {
- loadTimeZoneFile America/Argentina/Catamarca
+ LoadTimeZoneFile America/Argentina/Catamarca
}
-set tzdata(:America/Catamarca) $TZData(:America/Argentina/Catamarca)
+set TZData(:America/Catamarca) $TZData(:America/Argentina/Catamarca)
diff --git a/library/tzdata/America/Cordoba b/library/tzdata/America/Cordoba
index 7f8b90e..e0160ae 100644
--- a/library/tzdata/America/Cordoba
+++ b/library/tzdata/America/Cordoba
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Argentina/Cordoba)]} {
- loadTimeZoneFile America/Argentina/Cordoba
+ LoadTimeZoneFile America/Argentina/Cordoba
}
-set tzdata(:America/Cordoba) $TZData(:America/Argentina/Cordoba)
+set TZData(:America/Cordoba) $TZData(:America/Argentina/Cordoba)
diff --git a/library/tzdata/America/Ensenada b/library/tzdata/America/Ensenada
index 1a69985..0ad1024 100644
--- a/library/tzdata/America/Ensenada
+++ b/library/tzdata/America/Ensenada
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Tijuana)]} {
- loadTimeZoneFile America/Tijuana
+ LoadTimeZoneFile America/Tijuana
}
-set tzdata(:America/Ensenada) $TZData(:America/Tijuana)
+set TZData(:America/Ensenada) $TZData(:America/Tijuana)
diff --git a/library/tzdata/America/Fort_Wayne b/library/tzdata/America/Fort_Wayne
index f1f99bb..a19a4dd 100644
--- a/library/tzdata/America/Fort_Wayne
+++ b/library/tzdata/America/Fort_Wayne
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Indianapolis)]} {
- loadTimeZoneFile America/Indianapolis
+ LoadTimeZoneFile America/Indianapolis
}
-set tzdata(:America/Fort_Wayne) $TZData(:America/Indianapolis)
+set TZData(:America/Fort_Wayne) $TZData(:America/Indianapolis)
diff --git a/library/tzdata/America/Indiana/Indianapolis b/library/tzdata/America/Indiana/Indianapolis
index ea28ff3..85da57e 100644
--- a/library/tzdata/America/Indiana/Indianapolis
+++ b/library/tzdata/America/Indiana/Indianapolis
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Indianapolis)]} {
- loadTimeZoneFile America/Indianapolis
+ LoadTimeZoneFile America/Indianapolis
}
-set tzdata(:America/Indiana/Indianapolis) $TZData(:America/Indianapolis)
+set TZData(:America/Indiana/Indianapolis) $TZData(:America/Indianapolis)
diff --git a/library/tzdata/America/Jujuy b/library/tzdata/America/Jujuy
index f2df5f5..f5d5e2d 100644
--- a/library/tzdata/America/Jujuy
+++ b/library/tzdata/America/Jujuy
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Argentina/Jujuy)]} {
- loadTimeZoneFile America/Argentina/Jujuy
+ LoadTimeZoneFile America/Argentina/Jujuy
}
-set tzdata(:America/Jujuy) $TZData(:America/Argentina/Jujuy)
+set TZData(:America/Jujuy) $TZData(:America/Argentina/Jujuy)
diff --git a/library/tzdata/America/Kentucky/Louisville b/library/tzdata/America/Kentucky/Louisville
index 601442d..41731ca 100644
--- a/library/tzdata/America/Kentucky/Louisville
+++ b/library/tzdata/America/Kentucky/Louisville
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Louisville)]} {
- loadTimeZoneFile America/Louisville
+ LoadTimeZoneFile America/Louisville
}
-set tzdata(:America/Kentucky/Louisville) $TZData(:America/Louisville)
+set TZData(:America/Kentucky/Louisville) $TZData(:America/Louisville)
diff --git a/library/tzdata/America/Knox_IN b/library/tzdata/America/Knox_IN
index 718d8e1..ed51a1b 100644
--- a/library/tzdata/America/Knox_IN
+++ b/library/tzdata/America/Knox_IN
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Indiana/Knox)]} {
- loadTimeZoneFile America/Indiana/Knox
+ LoadTimeZoneFile America/Indiana/Knox
}
-set tzdata(:America/Knox_IN) $TZData(:America/Indiana/Knox)
+set TZData(:America/Knox_IN) $TZData(:America/Indiana/Knox)
diff --git a/library/tzdata/America/Mendoza b/library/tzdata/America/Mendoza
index f198eac..bc65496 100644
--- a/library/tzdata/America/Mendoza
+++ b/library/tzdata/America/Mendoza
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Argentina/Mendoza)]} {
- loadTimeZoneFile America/Argentina/Mendoza
+ LoadTimeZoneFile America/Argentina/Mendoza
}
-set tzdata(:America/Mendoza) $TZData(:America/Argentina/Mendoza)
+set TZData(:America/Mendoza) $TZData(:America/Argentina/Mendoza)
diff --git a/library/tzdata/America/Porto_Acre b/library/tzdata/America/Porto_Acre
index ee22bfc..4df709b 100644
--- a/library/tzdata/America/Porto_Acre
+++ b/library/tzdata/America/Porto_Acre
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Rio_Branco)]} {
- loadTimeZoneFile America/Rio_Branco
+ LoadTimeZoneFile America/Rio_Branco
}
-set tzdata(:America/Porto_Acre) $TZData(:America/Rio_Branco)
+set TZData(:America/Porto_Acre) $TZData(:America/Rio_Branco)
diff --git a/library/tzdata/America/Rosario b/library/tzdata/America/Rosario
index ecc7c38..8b697c7 100644
--- a/library/tzdata/America/Rosario
+++ b/library/tzdata/America/Rosario
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Cordoba)]} {
- loadTimeZoneFile America/Cordoba
+ LoadTimeZoneFile America/Cordoba
}
-set tzdata(:America/Rosario) $TZData(:America/Cordoba)
+set TZData(:America/Rosario) $TZData(:America/Cordoba)
diff --git a/library/tzdata/America/Shiprock b/library/tzdata/America/Shiprock
index 5cb3c9e..9fb1aaf 100644
--- a/library/tzdata/America/Shiprock
+++ b/library/tzdata/America/Shiprock
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Denver)]} {
- loadTimeZoneFile America/Denver
+ LoadTimeZoneFile America/Denver
}
-set tzdata(:America/Shiprock) $TZData(:America/Denver)
+set TZData(:America/Shiprock) $TZData(:America/Denver)
diff --git a/library/tzdata/America/Virgin b/library/tzdata/America/Virgin
index 89dd8eb..60325c6 100644
--- a/library/tzdata/America/Virgin
+++ b/library/tzdata/America/Virgin
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/St_Thomas)]} {
- loadTimeZoneFile America/St_Thomas
+ LoadTimeZoneFile America/St_Thomas
}
-set tzdata(:America/Virgin) $TZData(:America/St_Thomas)
+set TZData(:America/Virgin) $TZData(:America/St_Thomas)
diff --git a/library/tzdata/Antarctica/South_Pole b/library/tzdata/Antarctica/South_Pole
index 08785da..08d94b7 100644
--- a/library/tzdata/Antarctica/South_Pole
+++ b/library/tzdata/Antarctica/South_Pole
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Antarctica/McMurdo)]} {
- loadTimeZoneFile Antarctica/McMurdo
+ LoadTimeZoneFile Antarctica/McMurdo
}
-set tzdata(:Antarctica/South_Pole) $TZData(:Antarctica/McMurdo)
+set TZData(:Antarctica/South_Pole) $TZData(:Antarctica/McMurdo)
diff --git a/library/tzdata/Arctic/Longyearbyen b/library/tzdata/Arctic/Longyearbyen
index eaae952..bf39e47 100644
--- a/library/tzdata/Arctic/Longyearbyen
+++ b/library/tzdata/Arctic/Longyearbyen
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Oslo)]} {
- loadTimeZoneFile Europe/Oslo
+ LoadTimeZoneFile Europe/Oslo
}
-set tzdata(:Arctic/Longyearbyen) $TZData(:Europe/Oslo)
+set TZData(:Arctic/Longyearbyen) $TZData(:Europe/Oslo)
diff --git a/library/tzdata/Asia/Ashkhabad b/library/tzdata/Asia/Ashkhabad
index 6e14446..0ac4bb1 100644
--- a/library/tzdata/Asia/Ashkhabad
+++ b/library/tzdata/Asia/Ashkhabad
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Ashgabat)]} {
- loadTimeZoneFile Asia/Ashgabat
+ LoadTimeZoneFile Asia/Ashgabat
}
-set tzdata(:Asia/Ashkhabad) $TZData(:Asia/Ashgabat)
+set TZData(:Asia/Ashkhabad) $TZData(:Asia/Ashgabat)
diff --git a/library/tzdata/Asia/Chungking b/library/tzdata/Asia/Chungking
index 1d249af..5b87fdd 100644
--- a/library/tzdata/Asia/Chungking
+++ b/library/tzdata/Asia/Chungking
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Chongqing)]} {
- loadTimeZoneFile Asia/Chongqing
+ LoadTimeZoneFile Asia/Chongqing
}
-set tzdata(:Asia/Chungking) $TZData(:Asia/Chongqing)
+set TZData(:Asia/Chungking) $TZData(:Asia/Chongqing)
diff --git a/library/tzdata/Asia/Dacca b/library/tzdata/Asia/Dacca
index 76ecb52..5fa5491 100644
--- a/library/tzdata/Asia/Dacca
+++ b/library/tzdata/Asia/Dacca
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Dhaka)]} {
- loadTimeZoneFile Asia/Dhaka
+ LoadTimeZoneFile Asia/Dhaka
}
-set tzdata(:Asia/Dacca) $TZData(:Asia/Dhaka)
+set TZData(:Asia/Dacca) $TZData(:Asia/Dhaka)
diff --git a/library/tzdata/Asia/Istanbul b/library/tzdata/Asia/Istanbul
index aa8922d..b949b20 100644
--- a/library/tzdata/Asia/Istanbul
+++ b/library/tzdata/Asia/Istanbul
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Istanbul)]} {
- loadTimeZoneFile Europe/Istanbul
+ LoadTimeZoneFile Europe/Istanbul
}
-set tzdata(:Asia/Istanbul) $TZData(:Europe/Istanbul)
+set TZData(:Asia/Istanbul) $TZData(:Europe/Istanbul)
diff --git a/library/tzdata/Asia/Macao b/library/tzdata/Asia/Macao
index b8f5eec..3147125 100644
--- a/library/tzdata/Asia/Macao
+++ b/library/tzdata/Asia/Macao
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Macau)]} {
- loadTimeZoneFile Asia/Macau
+ LoadTimeZoneFile Asia/Macau
}
-set tzdata(:Asia/Macao) $TZData(:Asia/Macau)
+set TZData(:Asia/Macao) $TZData(:Asia/Macau)
diff --git a/library/tzdata/Asia/Tel_Aviv b/library/tzdata/Asia/Tel_Aviv
index 37e5b93..6dc3efa 100644
--- a/library/tzdata/Asia/Tel_Aviv
+++ b/library/tzdata/Asia/Tel_Aviv
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Jerusalem)]} {
- loadTimeZoneFile Asia/Jerusalem
+ LoadTimeZoneFile Asia/Jerusalem
}
-set tzdata(:Asia/Tel_Aviv) $TZData(:Asia/Jerusalem)
+set TZData(:Asia/Tel_Aviv) $TZData(:Asia/Jerusalem)
diff --git a/library/tzdata/Asia/Thimbu b/library/tzdata/Asia/Thimbu
index e505aa6..3155865 100644
--- a/library/tzdata/Asia/Thimbu
+++ b/library/tzdata/Asia/Thimbu
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Thimphu)]} {
- loadTimeZoneFile Asia/Thimphu
+ LoadTimeZoneFile Asia/Thimphu
}
-set tzdata(:Asia/Thimbu) $TZData(:Asia/Thimphu)
+set TZData(:Asia/Thimbu) $TZData(:Asia/Thimphu)
diff --git a/library/tzdata/Asia/Ujung_Pandang b/library/tzdata/Asia/Ujung_Pandang
index 2a53cc2..e44970c 100644
--- a/library/tzdata/Asia/Ujung_Pandang
+++ b/library/tzdata/Asia/Ujung_Pandang
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Makassar)]} {
- loadTimeZoneFile Asia/Makassar
+ LoadTimeZoneFile Asia/Makassar
}
-set tzdata(:Asia/Ujung_Pandang) $TZData(:Asia/Makassar)
+set TZData(:Asia/Ujung_Pandang) $TZData(:Asia/Makassar)
diff --git a/library/tzdata/Asia/Ulan_Bator b/library/tzdata/Asia/Ulan_Bator
index dbb691a..1eee921 100644
--- a/library/tzdata/Asia/Ulan_Bator
+++ b/library/tzdata/Asia/Ulan_Bator
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Ulaanbaatar)]} {
- loadTimeZoneFile Asia/Ulaanbaatar
+ LoadTimeZoneFile Asia/Ulaanbaatar
}
-set tzdata(:Asia/Ulan_Bator) $TZData(:Asia/Ulaanbaatar)
+set TZData(:Asia/Ulan_Bator) $TZData(:Asia/Ulaanbaatar)
diff --git a/library/tzdata/Atlantic/Jan_Mayen b/library/tzdata/Atlantic/Jan_Mayen
index 259fb61..2f49f66 100644
--- a/library/tzdata/Atlantic/Jan_Mayen
+++ b/library/tzdata/Atlantic/Jan_Mayen
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Oslo)]} {
- loadTimeZoneFile Europe/Oslo
+ LoadTimeZoneFile Europe/Oslo
}
-set tzdata(:Atlantic/Jan_Mayen) $TZData(:Europe/Oslo)
+set TZData(:Atlantic/Jan_Mayen) $TZData(:Europe/Oslo)
diff --git a/library/tzdata/Australia/ACT b/library/tzdata/Australia/ACT
index 61c642f..fc1ff90 100644
--- a/library/tzdata/Australia/ACT
+++ b/library/tzdata/Australia/ACT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Sydney)]} {
- loadTimeZoneFile Australia/Sydney
+ LoadTimeZoneFile Australia/Sydney
}
-set tzdata(:Australia/ACT) $TZData(:Australia/Sydney)
+set TZData(:Australia/ACT) $TZData(:Australia/Sydney)
diff --git a/library/tzdata/Australia/Canberra b/library/tzdata/Australia/Canberra
index 5657852..e285d29 100644
--- a/library/tzdata/Australia/Canberra
+++ b/library/tzdata/Australia/Canberra
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Sydney)]} {
- loadTimeZoneFile Australia/Sydney
+ LoadTimeZoneFile Australia/Sydney
}
-set tzdata(:Australia/Canberra) $TZData(:Australia/Sydney)
+set TZData(:Australia/Canberra) $TZData(:Australia/Sydney)
diff --git a/library/tzdata/Australia/LHI b/library/tzdata/Australia/LHI
index df97cad..46fbef8 100644
--- a/library/tzdata/Australia/LHI
+++ b/library/tzdata/Australia/LHI
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Lord_Howe)]} {
- loadTimeZoneFile Australia/Lord_Howe
+ LoadTimeZoneFile Australia/Lord_Howe
}
-set tzdata(:Australia/LHI) $TZData(:Australia/Lord_Howe)
+set TZData(:Australia/LHI) $TZData(:Australia/Lord_Howe)
diff --git a/library/tzdata/Australia/NSW b/library/tzdata/Australia/NSW
index 6cea21d..f5b6d1c 100644
--- a/library/tzdata/Australia/NSW
+++ b/library/tzdata/Australia/NSW
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Sydney)]} {
- loadTimeZoneFile Australia/Sydney
+ LoadTimeZoneFile Australia/Sydney
}
-set tzdata(:Australia/NSW) $TZData(:Australia/Sydney)
+set TZData(:Australia/NSW) $TZData(:Australia/Sydney)
diff --git a/library/tzdata/Australia/North b/library/tzdata/Australia/North
index ddffd2b..1559bfaa 100644
--- a/library/tzdata/Australia/North
+++ b/library/tzdata/Australia/North
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Darwin)]} {
- loadTimeZoneFile Australia/Darwin
+ LoadTimeZoneFile Australia/Darwin
}
-set tzdata(:Australia/North) $TZData(:Australia/Darwin)
+set TZData(:Australia/North) $TZData(:Australia/Darwin)
diff --git a/library/tzdata/Australia/Queensland b/library/tzdata/Australia/Queensland
index 78614fe..4055cc3 100644
--- a/library/tzdata/Australia/Queensland
+++ b/library/tzdata/Australia/Queensland
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Brisbane)]} {
- loadTimeZoneFile Australia/Brisbane
+ LoadTimeZoneFile Australia/Brisbane
}
-set tzdata(:Australia/Queensland) $TZData(:Australia/Brisbane)
+set TZData(:Australia/Queensland) $TZData(:Australia/Brisbane)
diff --git a/library/tzdata/Australia/South b/library/tzdata/Australia/South
index 5a39e02..576a888 100644
--- a/library/tzdata/Australia/South
+++ b/library/tzdata/Australia/South
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Adelaide)]} {
- loadTimeZoneFile Australia/Adelaide
+ LoadTimeZoneFile Australia/Adelaide
}
-set tzdata(:Australia/South) $TZData(:Australia/Adelaide)
+set TZData(:Australia/South) $TZData(:Australia/Adelaide)
diff --git a/library/tzdata/Australia/Tasmania b/library/tzdata/Australia/Tasmania
index 04fd979..e5c686e 100644
--- a/library/tzdata/Australia/Tasmania
+++ b/library/tzdata/Australia/Tasmania
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Hobart)]} {
- loadTimeZoneFile Australia/Hobart
+ LoadTimeZoneFile Australia/Hobart
}
-set tzdata(:Australia/Tasmania) $TZData(:Australia/Hobart)
+set TZData(:Australia/Tasmania) $TZData(:Australia/Hobart)
diff --git a/library/tzdata/Australia/Victoria b/library/tzdata/Australia/Victoria
index ada266b..cabe455 100644
--- a/library/tzdata/Australia/Victoria
+++ b/library/tzdata/Australia/Victoria
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Melbourne)]} {
- loadTimeZoneFile Australia/Melbourne
+ LoadTimeZoneFile Australia/Melbourne
}
-set tzdata(:Australia/Victoria) $TZData(:Australia/Melbourne)
+set TZData(:Australia/Victoria) $TZData(:Australia/Melbourne)
diff --git a/library/tzdata/Australia/West b/library/tzdata/Australia/West
index 8327e10..2c4e736 100644
--- a/library/tzdata/Australia/West
+++ b/library/tzdata/Australia/West
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Perth)]} {
- loadTimeZoneFile Australia/Perth
+ LoadTimeZoneFile Australia/Perth
}
-set tzdata(:Australia/West) $TZData(:Australia/Perth)
+set TZData(:Australia/West) $TZData(:Australia/Perth)
diff --git a/library/tzdata/Australia/Yancowinna b/library/tzdata/Australia/Yancowinna
index 2c1af7f..38f8952 100644
--- a/library/tzdata/Australia/Yancowinna
+++ b/library/tzdata/Australia/Yancowinna
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Australia/Broken_Hill)]} {
- loadTimeZoneFile Australia/Broken_Hill
+ LoadTimeZoneFile Australia/Broken_Hill
}
-set tzdata(:Australia/Yancowinna) $TZData(:Australia/Broken_Hill)
+set TZData(:Australia/Yancowinna) $TZData(:Australia/Broken_Hill)
diff --git a/library/tzdata/Brazil/Acre b/library/tzdata/Brazil/Acre
index 012b25c..a01f883 100644
--- a/library/tzdata/Brazil/Acre
+++ b/library/tzdata/Brazil/Acre
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Porto_Acre)]} {
- loadTimeZoneFile America/Porto_Acre
+ LoadTimeZoneFile America/Porto_Acre
}
-set tzdata(:Brazil/Acre) $TZData(:America/Porto_Acre)
+set TZData(:Brazil/Acre) $TZData(:America/Porto_Acre)
diff --git a/library/tzdata/Brazil/DeNoronha b/library/tzdata/Brazil/DeNoronha
index 4678316..f900656 100644
--- a/library/tzdata/Brazil/DeNoronha
+++ b/library/tzdata/Brazil/DeNoronha
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Noronha)]} {
- loadTimeZoneFile America/Noronha
+ LoadTimeZoneFile America/Noronha
}
-set tzdata(:Brazil/DeNoronha) $TZData(:America/Noronha)
+set TZData(:Brazil/DeNoronha) $TZData(:America/Noronha)
diff --git a/library/tzdata/Brazil/East b/library/tzdata/Brazil/East
index 7fa21c1..f49e447 100644
--- a/library/tzdata/Brazil/East
+++ b/library/tzdata/Brazil/East
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Sao_Paulo)]} {
- loadTimeZoneFile America/Sao_Paulo
+ LoadTimeZoneFile America/Sao_Paulo
}
-set tzdata(:Brazil/East) $TZData(:America/Sao_Paulo)
+set TZData(:Brazil/East) $TZData(:America/Sao_Paulo)
diff --git a/library/tzdata/Brazil/West b/library/tzdata/Brazil/West
index e2bbabf..8d3386d 100644
--- a/library/tzdata/Brazil/West
+++ b/library/tzdata/Brazil/West
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Manaus)]} {
- loadTimeZoneFile America/Manaus
+ LoadTimeZoneFile America/Manaus
}
-set tzdata(:Brazil/West) $TZData(:America/Manaus)
+set TZData(:Brazil/West) $TZData(:America/Manaus)
diff --git a/library/tzdata/CST6CDT b/library/tzdata/CST6CDT
index 5d48f6d..4289205 100644
--- a/library/tzdata/CST6CDT
+++ b/library/tzdata/CST6CDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Chicago)]} {
- loadTimeZoneFile America/Chicago
+ LoadTimeZoneFile America/Chicago
}
-set tzdata(:CST6CDT) $TZData(:America/Chicago)
+set TZData(:CST6CDT) $TZData(:America/Chicago)
diff --git a/library/tzdata/Canada/Atlantic b/library/tzdata/Canada/Atlantic
index f117d29..62f7758 100644
--- a/library/tzdata/Canada/Atlantic
+++ b/library/tzdata/Canada/Atlantic
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Halifax)]} {
- loadTimeZoneFile America/Halifax
+ LoadTimeZoneFile America/Halifax
}
-set tzdata(:Canada/Atlantic) $TZData(:America/Halifax)
+set TZData(:Canada/Atlantic) $TZData(:America/Halifax)
diff --git a/library/tzdata/Canada/Central b/library/tzdata/Canada/Central
index d3bb162..50cdc1e 100644
--- a/library/tzdata/Canada/Central
+++ b/library/tzdata/Canada/Central
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Winnipeg)]} {
- loadTimeZoneFile America/Winnipeg
+ LoadTimeZoneFile America/Winnipeg
}
-set tzdata(:Canada/Central) $TZData(:America/Winnipeg)
+set TZData(:Canada/Central) $TZData(:America/Winnipeg)
diff --git a/library/tzdata/Canada/East-Saskatchewan b/library/tzdata/Canada/East-Saskatchewan
index 4fd4e24..06bab20 100644
--- a/library/tzdata/Canada/East-Saskatchewan
+++ b/library/tzdata/Canada/East-Saskatchewan
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Regina)]} {
- loadTimeZoneFile America/Regina
+ LoadTimeZoneFile America/Regina
}
-set tzdata(:Canada/East-Saskatchewan) $TZData(:America/Regina)
+set TZData(:Canada/East-Saskatchewan) $TZData(:America/Regina)
diff --git a/library/tzdata/Canada/Eastern b/library/tzdata/Canada/Eastern
index e660a78..5dfa611 100644
--- a/library/tzdata/Canada/Eastern
+++ b/library/tzdata/Canada/Eastern
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Toronto)]} {
- loadTimeZoneFile America/Toronto
+ LoadTimeZoneFile America/Toronto
}
-set tzdata(:Canada/Eastern) $TZData(:America/Toronto)
+set TZData(:Canada/Eastern) $TZData(:America/Toronto)
diff --git a/library/tzdata/Canada/Mountain b/library/tzdata/Canada/Mountain
index 69a6ab4..68e1961 100644
--- a/library/tzdata/Canada/Mountain
+++ b/library/tzdata/Canada/Mountain
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Edmonton)]} {
- loadTimeZoneFile America/Edmonton
+ LoadTimeZoneFile America/Edmonton
}
-set tzdata(:Canada/Mountain) $TZData(:America/Edmonton)
+set TZData(:Canada/Mountain) $TZData(:America/Edmonton)
diff --git a/library/tzdata/Canada/Newfoundland b/library/tzdata/Canada/Newfoundland
index 9f8b9fd..99395f2 100644
--- a/library/tzdata/Canada/Newfoundland
+++ b/library/tzdata/Canada/Newfoundland
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/St_Johns)]} {
- loadTimeZoneFile America/St_Johns
+ LoadTimeZoneFile America/St_Johns
}
-set tzdata(:Canada/Newfoundland) $TZData(:America/St_Johns)
+set TZData(:Canada/Newfoundland) $TZData(:America/St_Johns)
diff --git a/library/tzdata/Canada/Pacific b/library/tzdata/Canada/Pacific
index 3e09ebe..1677dc0 100644
--- a/library/tzdata/Canada/Pacific
+++ b/library/tzdata/Canada/Pacific
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Vancouver)]} {
- loadTimeZoneFile America/Vancouver
+ LoadTimeZoneFile America/Vancouver
}
-set tzdata(:Canada/Pacific) $TZData(:America/Vancouver)
+set TZData(:Canada/Pacific) $TZData(:America/Vancouver)
diff --git a/library/tzdata/Canada/Saskatchewan b/library/tzdata/Canada/Saskatchewan
index eb3ac84..20b82de 100644
--- a/library/tzdata/Canada/Saskatchewan
+++ b/library/tzdata/Canada/Saskatchewan
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Regina)]} {
- loadTimeZoneFile America/Regina
+ LoadTimeZoneFile America/Regina
}
-set tzdata(:Canada/Saskatchewan) $TZData(:America/Regina)
+set TZData(:Canada/Saskatchewan) $TZData(:America/Regina)
diff --git a/library/tzdata/Canada/Yukon b/library/tzdata/Canada/Yukon
index 2a93090..d806367 100644
--- a/library/tzdata/Canada/Yukon
+++ b/library/tzdata/Canada/Yukon
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Whitehorse)]} {
- loadTimeZoneFile America/Whitehorse
+ LoadTimeZoneFile America/Whitehorse
}
-set tzdata(:Canada/Yukon) $TZData(:America/Whitehorse)
+set TZData(:Canada/Yukon) $TZData(:America/Whitehorse)
diff --git a/library/tzdata/Chile/Continental b/library/tzdata/Chile/Continental
index 130839f..4c1b512 100644
--- a/library/tzdata/Chile/Continental
+++ b/library/tzdata/Chile/Continental
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Santiago)]} {
- loadTimeZoneFile America/Santiago
+ LoadTimeZoneFile America/Santiago
}
-set tzdata(:Chile/Continental) $TZData(:America/Santiago)
+set TZData(:Chile/Continental) $TZData(:America/Santiago)
diff --git a/library/tzdata/Chile/EasterIsland b/library/tzdata/Chile/EasterIsland
index 9648e0b..ee4cc00 100644
--- a/library/tzdata/Chile/EasterIsland
+++ b/library/tzdata/Chile/EasterIsland
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Easter)]} {
- loadTimeZoneFile Pacific/Easter
+ LoadTimeZoneFile Pacific/Easter
}
-set tzdata(:Chile/EasterIsland) $TZData(:Pacific/Easter)
+set TZData(:Chile/EasterIsland) $TZData(:Pacific/Easter)
diff --git a/library/tzdata/Cuba b/library/tzdata/Cuba
index 2eceba1..698d87e 100644
--- a/library/tzdata/Cuba
+++ b/library/tzdata/Cuba
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Havana)]} {
- loadTimeZoneFile America/Havana
+ LoadTimeZoneFile America/Havana
}
-set tzdata(:Cuba) $TZData(:America/Havana)
+set TZData(:Cuba) $TZData(:America/Havana)
diff --git a/library/tzdata/EST b/library/tzdata/EST
index 5dffcd0..db3ad99 100644
--- a/library/tzdata/EST
+++ b/library/tzdata/EST
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Indianapolis)]} {
- loadTimeZoneFile America/Indianapolis
+ LoadTimeZoneFile America/Indianapolis
}
-set tzdata(:EST) $TZData(:America/Indianapolis)
+set TZData(:EST) $TZData(:America/Indianapolis)
diff --git a/library/tzdata/EST5EDT b/library/tzdata/EST5EDT
index 84b903c..3e258c7 100644
--- a/library/tzdata/EST5EDT
+++ b/library/tzdata/EST5EDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/New_York)]} {
- loadTimeZoneFile America/New_York
+ LoadTimeZoneFile America/New_York
}
-set tzdata(:EST5EDT) $TZData(:America/New_York)
+set TZData(:EST5EDT) $TZData(:America/New_York)
diff --git a/library/tzdata/Egypt b/library/tzdata/Egypt
index 6fcdbb8..450e31c 100644
--- a/library/tzdata/Egypt
+++ b/library/tzdata/Egypt
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Africa/Cairo)]} {
- loadTimeZoneFile Africa/Cairo
+ LoadTimeZoneFile Africa/Cairo
}
-set tzdata(:Egypt) $TZData(:Africa/Cairo)
+set TZData(:Egypt) $TZData(:Africa/Cairo)
diff --git a/library/tzdata/Eire b/library/tzdata/Eire
index a40b498..a8e9b27 100644
--- a/library/tzdata/Eire
+++ b/library/tzdata/Eire
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Dublin)]} {
- loadTimeZoneFile Europe/Dublin
+ LoadTimeZoneFile Europe/Dublin
}
-set tzdata(:Eire) $TZData(:Europe/Dublin)
+set TZData(:Eire) $TZData(:Europe/Dublin)
diff --git a/library/tzdata/Etc/GMT+0 b/library/tzdata/Etc/GMT+0
index e489b6c..9da66e8 100644
--- a/library/tzdata/Etc/GMT+0
+++ b/library/tzdata/Etc/GMT+0
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT)]} {
- loadTimeZoneFile Etc/GMT
+ LoadTimeZoneFile Etc/GMT
}
-set tzdata(:Etc/GMT+0) $TZData(:Etc/GMT)
+set TZData(:Etc/GMT+0) $TZData(:Etc/GMT)
diff --git a/library/tzdata/Etc/GMT-0 b/library/tzdata/Etc/GMT-0
index 95e6d07..d048999 100644
--- a/library/tzdata/Etc/GMT-0
+++ b/library/tzdata/Etc/GMT-0
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT)]} {
- loadTimeZoneFile Etc/GMT
+ LoadTimeZoneFile Etc/GMT
}
-set tzdata(:Etc/GMT-0) $TZData(:Etc/GMT)
+set TZData(:Etc/GMT-0) $TZData(:Etc/GMT)
diff --git a/library/tzdata/Etc/GMT0 b/library/tzdata/Etc/GMT0
index c09f8a5..151327b 100644
--- a/library/tzdata/Etc/GMT0
+++ b/library/tzdata/Etc/GMT0
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT)]} {
- loadTimeZoneFile Etc/GMT
+ LoadTimeZoneFile Etc/GMT
}
-set tzdata(:Etc/GMT0) $TZData(:Etc/GMT)
+set TZData(:Etc/GMT0) $TZData(:Etc/GMT)
diff --git a/library/tzdata/Etc/Greenwich b/library/tzdata/Etc/Greenwich
index 2993a95..a729073 100644
--- a/library/tzdata/Etc/Greenwich
+++ b/library/tzdata/Etc/Greenwich
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT)]} {
- loadTimeZoneFile Etc/GMT
+ LoadTimeZoneFile Etc/GMT
}
-set tzdata(:Etc/Greenwich) $TZData(:Etc/GMT)
+set TZData(:Etc/Greenwich) $TZData(:Etc/GMT)
diff --git a/library/tzdata/Etc/Universal b/library/tzdata/Etc/Universal
index 8b3ad0d..cf2fa3a 100644
--- a/library/tzdata/Etc/Universal
+++ b/library/tzdata/Etc/Universal
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/UTC)]} {
- loadTimeZoneFile Etc/UTC
+ LoadTimeZoneFile Etc/UTC
}
-set tzdata(:Etc/Universal) $TZData(:Etc/UTC)
+set TZData(:Etc/Universal) $TZData(:Etc/UTC)
diff --git a/library/tzdata/Etc/Zulu b/library/tzdata/Etc/Zulu
index 5c2db5f..a4b35da 100644
--- a/library/tzdata/Etc/Zulu
+++ b/library/tzdata/Etc/Zulu
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/UTC)]} {
- loadTimeZoneFile Etc/UTC
+ LoadTimeZoneFile Etc/UTC
}
-set tzdata(:Etc/Zulu) $TZData(:Etc/UTC)
+set TZData(:Etc/Zulu) $TZData(:Etc/UTC)
diff --git a/library/tzdata/Europe/Bratislava b/library/tzdata/Europe/Bratislava
index c706cb4..3c9754d 100644
--- a/library/tzdata/Europe/Bratislava
+++ b/library/tzdata/Europe/Bratislava
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Prague)]} {
- loadTimeZoneFile Europe/Prague
+ LoadTimeZoneFile Europe/Prague
}
-set tzdata(:Europe/Bratislava) $TZData(:Europe/Prague)
+set TZData(:Europe/Bratislava) $TZData(:Europe/Prague)
diff --git a/library/tzdata/Europe/Ljubljana b/library/tzdata/Europe/Ljubljana
index cda35ff..9861926 100644
--- a/library/tzdata/Europe/Ljubljana
+++ b/library/tzdata/Europe/Ljubljana
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Belgrade)]} {
- loadTimeZoneFile Europe/Belgrade
+ LoadTimeZoneFile Europe/Belgrade
}
-set tzdata(:Europe/Ljubljana) $TZData(:Europe/Belgrade)
+set TZData(:Europe/Ljubljana) $TZData(:Europe/Belgrade)
diff --git a/library/tzdata/Europe/Mariehamn b/library/tzdata/Europe/Mariehamn
index 1da96cf..9eed274 100644
--- a/library/tzdata/Europe/Mariehamn
+++ b/library/tzdata/Europe/Mariehamn
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Helsinki)]} {
- loadTimeZoneFile Europe/Helsinki
+ LoadTimeZoneFile Europe/Helsinki
}
-set tzdata(:Europe/Mariehamn) $TZData(:Europe/Helsinki)
+set TZData(:Europe/Mariehamn) $TZData(:Europe/Helsinki)
diff --git a/library/tzdata/Europe/Nicosia b/library/tzdata/Europe/Nicosia
index b5a0851..6d6de81 100644
--- a/library/tzdata/Europe/Nicosia
+++ b/library/tzdata/Europe/Nicosia
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Nicosia)]} {
- loadTimeZoneFile Asia/Nicosia
+ LoadTimeZoneFile Asia/Nicosia
}
-set tzdata(:Europe/Nicosia) $TZData(:Asia/Nicosia)
+set TZData(:Europe/Nicosia) $TZData(:Asia/Nicosia)
diff --git a/library/tzdata/Europe/San_Marino b/library/tzdata/Europe/San_Marino
index de12abe..704c8ea 100644
--- a/library/tzdata/Europe/San_Marino
+++ b/library/tzdata/Europe/San_Marino
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Rome)]} {
- loadTimeZoneFile Europe/Rome
+ LoadTimeZoneFile Europe/Rome
}
-set tzdata(:Europe/San_Marino) $TZData(:Europe/Rome)
+set TZData(:Europe/San_Marino) $TZData(:Europe/Rome)
diff --git a/library/tzdata/Europe/Sarajevo b/library/tzdata/Europe/Sarajevo
index 3fe0317..a76d730 100644
--- a/library/tzdata/Europe/Sarajevo
+++ b/library/tzdata/Europe/Sarajevo
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Belgrade)]} {
- loadTimeZoneFile Europe/Belgrade
+ LoadTimeZoneFile Europe/Belgrade
}
-set tzdata(:Europe/Sarajevo) $TZData(:Europe/Belgrade)
+set TZData(:Europe/Sarajevo) $TZData(:Europe/Belgrade)
diff --git a/library/tzdata/Europe/Skopje b/library/tzdata/Europe/Skopje
index d5f6294..c3fd3a3 100644
--- a/library/tzdata/Europe/Skopje
+++ b/library/tzdata/Europe/Skopje
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Belgrade)]} {
- loadTimeZoneFile Europe/Belgrade
+ LoadTimeZoneFile Europe/Belgrade
}
-set tzdata(:Europe/Skopje) $TZData(:Europe/Belgrade)
+set TZData(:Europe/Skopje) $TZData(:Europe/Belgrade)
diff --git a/library/tzdata/Europe/Tiraspol b/library/tzdata/Europe/Tiraspol
index 3b65891..4c8b21b 100644
--- a/library/tzdata/Europe/Tiraspol
+++ b/library/tzdata/Europe/Tiraspol
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Chisinau)]} {
- loadTimeZoneFile Europe/Chisinau
+ LoadTimeZoneFile Europe/Chisinau
}
-set tzdata(:Europe/Tiraspol) $TZData(:Europe/Chisinau)
+set TZData(:Europe/Tiraspol) $TZData(:Europe/Chisinau)
diff --git a/library/tzdata/Europe/Vatican b/library/tzdata/Europe/Vatican
index be72780..1c0bc07 100644
--- a/library/tzdata/Europe/Vatican
+++ b/library/tzdata/Europe/Vatican
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Rome)]} {
- loadTimeZoneFile Europe/Rome
+ LoadTimeZoneFile Europe/Rome
}
-set tzdata(:Europe/Vatican) $TZData(:Europe/Rome)
+set TZData(:Europe/Vatican) $TZData(:Europe/Rome)
diff --git a/library/tzdata/Europe/Zagreb b/library/tzdata/Europe/Zagreb
index 4712a69..a1d3fe6 100644
--- a/library/tzdata/Europe/Zagreb
+++ b/library/tzdata/Europe/Zagreb
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Belgrade)]} {
- loadTimeZoneFile Europe/Belgrade
+ LoadTimeZoneFile Europe/Belgrade
}
-set tzdata(:Europe/Zagreb) $TZData(:Europe/Belgrade)
+set TZData(:Europe/Zagreb) $TZData(:Europe/Belgrade)
diff --git a/library/tzdata/GB b/library/tzdata/GB
index a332520..1b439d4 100644
--- a/library/tzdata/GB
+++ b/library/tzdata/GB
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/London)]} {
- loadTimeZoneFile Europe/London
+ LoadTimeZoneFile Europe/London
}
-set tzdata(:GB) $TZData(:Europe/London)
+set TZData(:GB) $TZData(:Europe/London)
diff --git a/library/tzdata/GB-Eire b/library/tzdata/GB-Eire
index 23b86c8..c02060f 100644
--- a/library/tzdata/GB-Eire
+++ b/library/tzdata/GB-Eire
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/London)]} {
- loadTimeZoneFile Europe/London
+ LoadTimeZoneFile Europe/London
}
-set tzdata(:GB-Eire) $TZData(:Europe/London)
+set TZData(:GB-Eire) $TZData(:Europe/London)
diff --git a/library/tzdata/GMT b/library/tzdata/GMT
index 9c205fe..bab25c1 100644
--- a/library/tzdata/GMT
+++ b/library/tzdata/GMT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT)]} {
- loadTimeZoneFile Etc/GMT
+ LoadTimeZoneFile Etc/GMT
}
-set tzdata(:GMT) $TZData(:Etc/GMT)
+set TZData(:GMT) $TZData(:Etc/GMT)
diff --git a/library/tzdata/GMT+0 b/library/tzdata/GMT+0
index 165cd43..65e2ee1 100644
--- a/library/tzdata/GMT+0
+++ b/library/tzdata/GMT+0
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT+0)]} {
- loadTimeZoneFile Etc/GMT+0
+ LoadTimeZoneFile Etc/GMT+0
}
-set tzdata(:GMT+0) $TZData(:Etc/GMT+0)
+set TZData(:GMT+0) $TZData(:Etc/GMT+0)
diff --git a/library/tzdata/GMT-0 b/library/tzdata/GMT-0
index d96aa6d..663dc3e 100644
--- a/library/tzdata/GMT-0
+++ b/library/tzdata/GMT-0
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT-0)]} {
- loadTimeZoneFile Etc/GMT-0
+ LoadTimeZoneFile Etc/GMT-0
}
-set tzdata(:GMT-0) $TZData(:Etc/GMT-0)
+set TZData(:GMT-0) $TZData(:Etc/GMT-0)
diff --git a/library/tzdata/GMT0 b/library/tzdata/GMT0
index 4a9ed19..e037cd6 100644
--- a/library/tzdata/GMT0
+++ b/library/tzdata/GMT0
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/GMT0)]} {
- loadTimeZoneFile Etc/GMT0
+ LoadTimeZoneFile Etc/GMT0
}
-set tzdata(:GMT0) $TZData(:Etc/GMT0)
+set TZData(:GMT0) $TZData(:Etc/GMT0)
diff --git a/library/tzdata/Greenwich b/library/tzdata/Greenwich
index a688aa0..a8cc50b 100644
--- a/library/tzdata/Greenwich
+++ b/library/tzdata/Greenwich
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/Greenwich)]} {
- loadTimeZoneFile Etc/Greenwich
+ LoadTimeZoneFile Etc/Greenwich
}
-set tzdata(:Greenwich) $TZData(:Etc/Greenwich)
+set TZData(:Greenwich) $TZData(:Etc/Greenwich)
diff --git a/library/tzdata/HST b/library/tzdata/HST
index e496174..a80218e 100644
--- a/library/tzdata/HST
+++ b/library/tzdata/HST
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Honolulu)]} {
- loadTimeZoneFile Pacific/Honolulu
+ LoadTimeZoneFile Pacific/Honolulu
}
-set tzdata(:HST) $TZData(:Pacific/Honolulu)
+set TZData(:HST) $TZData(:Pacific/Honolulu)
diff --git a/library/tzdata/Hongkong b/library/tzdata/Hongkong
index 2525ed8..b0bae23 100644
--- a/library/tzdata/Hongkong
+++ b/library/tzdata/Hongkong
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Hong_Kong)]} {
- loadTimeZoneFile Asia/Hong_Kong
+ LoadTimeZoneFile Asia/Hong_Kong
}
-set tzdata(:Hongkong) $TZData(:Asia/Hong_Kong)
+set TZData(:Hongkong) $TZData(:Asia/Hong_Kong)
diff --git a/library/tzdata/Iceland b/library/tzdata/Iceland
index 75b146c..9e4665a 100644
--- a/library/tzdata/Iceland
+++ b/library/tzdata/Iceland
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Atlantic/Reykjavik)]} {
- loadTimeZoneFile Atlantic/Reykjavik
+ LoadTimeZoneFile Atlantic/Reykjavik
}
-set tzdata(:Iceland) $TZData(:Atlantic/Reykjavik)
+set TZData(:Iceland) $TZData(:Atlantic/Reykjavik)
diff --git a/library/tzdata/Iran b/library/tzdata/Iran
index c14cbd4..5ddaec3 100644
--- a/library/tzdata/Iran
+++ b/library/tzdata/Iran
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Tehran)]} {
- loadTimeZoneFile Asia/Tehran
+ LoadTimeZoneFile Asia/Tehran
}
-set tzdata(:Iran) $TZData(:Asia/Tehran)
+set TZData(:Iran) $TZData(:Asia/Tehran)
diff --git a/library/tzdata/Israel b/library/tzdata/Israel
index e2ba284..80b4a87 100644
--- a/library/tzdata/Israel
+++ b/library/tzdata/Israel
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Jerusalem)]} {
- loadTimeZoneFile Asia/Jerusalem
+ LoadTimeZoneFile Asia/Jerusalem
}
-set tzdata(:Israel) $TZData(:Asia/Jerusalem)
+set TZData(:Israel) $TZData(:Asia/Jerusalem)
diff --git a/library/tzdata/Jamaica b/library/tzdata/Jamaica
index ab2d38d..b1d450a 100644
--- a/library/tzdata/Jamaica
+++ b/library/tzdata/Jamaica
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Jamaica)]} {
- loadTimeZoneFile America/Jamaica
+ LoadTimeZoneFile America/Jamaica
}
-set tzdata(:Jamaica) $TZData(:America/Jamaica)
+set TZData(:Jamaica) $TZData(:America/Jamaica)
diff --git a/library/tzdata/Japan b/library/tzdata/Japan
index a5a2f20..5c7651e 100644
--- a/library/tzdata/Japan
+++ b/library/tzdata/Japan
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Tokyo)]} {
- loadTimeZoneFile Asia/Tokyo
+ LoadTimeZoneFile Asia/Tokyo
}
-set tzdata(:Japan) $TZData(:Asia/Tokyo)
+set TZData(:Japan) $TZData(:Asia/Tokyo)
diff --git a/library/tzdata/Kwajalein b/library/tzdata/Kwajalein
index 9c51ef7..7dc2e0a 100644
--- a/library/tzdata/Kwajalein
+++ b/library/tzdata/Kwajalein
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Kwajalein)]} {
- loadTimeZoneFile Pacific/Kwajalein
+ LoadTimeZoneFile Pacific/Kwajalein
}
-set tzdata(:Kwajalein) $TZData(:Pacific/Kwajalein)
+set TZData(:Kwajalein) $TZData(:Pacific/Kwajalein)
diff --git a/library/tzdata/Libya b/library/tzdata/Libya
index 1950b75..b125101 100644
--- a/library/tzdata/Libya
+++ b/library/tzdata/Libya
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Africa/Tripoli)]} {
- loadTimeZoneFile Africa/Tripoli
+ LoadTimeZoneFile Africa/Tripoli
}
-set tzdata(:Libya) $TZData(:Africa/Tripoli)
+set TZData(:Libya) $TZData(:Africa/Tripoli)
diff --git a/library/tzdata/MST b/library/tzdata/MST
index 4abedf6..fbaf29c 100644
--- a/library/tzdata/MST
+++ b/library/tzdata/MST
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Phoenix)]} {
- loadTimeZoneFile America/Phoenix
+ LoadTimeZoneFile America/Phoenix
}
-set tzdata(:MST) $TZData(:America/Phoenix)
+set TZData(:MST) $TZData(:America/Phoenix)
diff --git a/library/tzdata/MST7MDT b/library/tzdata/MST7MDT
index 3bd768b..c14a860 100644
--- a/library/tzdata/MST7MDT
+++ b/library/tzdata/MST7MDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Denver)]} {
- loadTimeZoneFile America/Denver
+ LoadTimeZoneFile America/Denver
}
-set tzdata(:MST7MDT) $TZData(:America/Denver)
+set TZData(:MST7MDT) $TZData(:America/Denver)
diff --git a/library/tzdata/Mexico/BajaNorte b/library/tzdata/Mexico/BajaNorte
index d433e0b..ca7724d 100644
--- a/library/tzdata/Mexico/BajaNorte
+++ b/library/tzdata/Mexico/BajaNorte
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Tijuana)]} {
- loadTimeZoneFile America/Tijuana
+ LoadTimeZoneFile America/Tijuana
}
-set tzdata(:Mexico/BajaNorte) $TZData(:America/Tijuana)
+set TZData(:Mexico/BajaNorte) $TZData(:America/Tijuana)
diff --git a/library/tzdata/Mexico/BajaSur b/library/tzdata/Mexico/BajaSur
index 9341763..7dedbc6 100644
--- a/library/tzdata/Mexico/BajaSur
+++ b/library/tzdata/Mexico/BajaSur
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Mazatlan)]} {
- loadTimeZoneFile America/Mazatlan
+ LoadTimeZoneFile America/Mazatlan
}
-set tzdata(:Mexico/BajaSur) $TZData(:America/Mazatlan)
+set TZData(:Mexico/BajaSur) $TZData(:America/Mazatlan)
diff --git a/library/tzdata/Mexico/General b/library/tzdata/Mexico/General
index 7307435..3d07654 100644
--- a/library/tzdata/Mexico/General
+++ b/library/tzdata/Mexico/General
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Mexico_City)]} {
- loadTimeZoneFile America/Mexico_City
+ LoadTimeZoneFile America/Mexico_City
}
-set tzdata(:Mexico/General) $TZData(:America/Mexico_City)
+set TZData(:Mexico/General) $TZData(:America/Mexico_City)
diff --git a/library/tzdata/NZ b/library/tzdata/NZ
index ed40555..03963e3 100644
--- a/library/tzdata/NZ
+++ b/library/tzdata/NZ
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Auckland)]} {
- loadTimeZoneFile Pacific/Auckland
+ LoadTimeZoneFile Pacific/Auckland
}
-set tzdata(:NZ) $TZData(:Pacific/Auckland)
+set TZData(:NZ) $TZData(:Pacific/Auckland)
diff --git a/library/tzdata/NZ-CHAT b/library/tzdata/NZ-CHAT
index 980e16b..842c028 100644
--- a/library/tzdata/NZ-CHAT
+++ b/library/tzdata/NZ-CHAT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Chatham)]} {
- loadTimeZoneFile Pacific/Chatham
+ LoadTimeZoneFile Pacific/Chatham
}
-set tzdata(:NZ-CHAT) $TZData(:Pacific/Chatham)
+set TZData(:NZ-CHAT) $TZData(:Pacific/Chatham)
diff --git a/library/tzdata/Navajo b/library/tzdata/Navajo
index 4301bc5..ea7e89a 100644
--- a/library/tzdata/Navajo
+++ b/library/tzdata/Navajo
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Shiprock)]} {
- loadTimeZoneFile America/Shiprock
+ LoadTimeZoneFile America/Shiprock
}
-set tzdata(:Navajo) $TZData(:America/Shiprock)
+set TZData(:Navajo) $TZData(:America/Shiprock)
diff --git a/library/tzdata/PRC b/library/tzdata/PRC
index f784a31..c9ebc77 100644
--- a/library/tzdata/PRC
+++ b/library/tzdata/PRC
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Shanghai)]} {
- loadTimeZoneFile Asia/Shanghai
+ LoadTimeZoneFile Asia/Shanghai
}
-set tzdata(:PRC) $TZData(:Asia/Shanghai)
+set TZData(:PRC) $TZData(:Asia/Shanghai)
diff --git a/library/tzdata/PST8PDT b/library/tzdata/PST8PDT
index d38bad0..cc5b487 100644
--- a/library/tzdata/PST8PDT
+++ b/library/tzdata/PST8PDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Los_Angeles)]} {
- loadTimeZoneFile America/Los_Angeles
+ LoadTimeZoneFile America/Los_Angeles
}
-set tzdata(:PST8PDT) $TZData(:America/Los_Angeles)
+set TZData(:PST8PDT) $TZData(:America/Los_Angeles)
diff --git a/library/tzdata/Pacific/Samoa b/library/tzdata/Pacific/Samoa
index 43aae76..1863e5e 100644
--- a/library/tzdata/Pacific/Samoa
+++ b/library/tzdata/Pacific/Samoa
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Pago_Pago)]} {
- loadTimeZoneFile Pacific/Pago_Pago
+ LoadTimeZoneFile Pacific/Pago_Pago
}
-set tzdata(:Pacific/Samoa) $TZData(:Pacific/Pago_Pago)
+set TZData(:Pacific/Samoa) $TZData(:Pacific/Pago_Pago)
diff --git a/library/tzdata/Poland b/library/tzdata/Poland
index 8a522b1..8352200 100644
--- a/library/tzdata/Poland
+++ b/library/tzdata/Poland
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Warsaw)]} {
- loadTimeZoneFile Europe/Warsaw
+ LoadTimeZoneFile Europe/Warsaw
}
-set tzdata(:Poland) $TZData(:Europe/Warsaw)
+set TZData(:Poland) $TZData(:Europe/Warsaw)
diff --git a/library/tzdata/Portugal b/library/tzdata/Portugal
index 83f54c5..607b287 100644
--- a/library/tzdata/Portugal
+++ b/library/tzdata/Portugal
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Lisbon)]} {
- loadTimeZoneFile Europe/Lisbon
+ LoadTimeZoneFile Europe/Lisbon
}
-set tzdata(:Portugal) $TZData(:Europe/Lisbon)
+set TZData(:Portugal) $TZData(:Europe/Lisbon)
diff --git a/library/tzdata/ROC b/library/tzdata/ROC
index 589826d..bbbd899 100644
--- a/library/tzdata/ROC
+++ b/library/tzdata/ROC
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Taipei)]} {
- loadTimeZoneFile Asia/Taipei
+ LoadTimeZoneFile Asia/Taipei
}
-set tzdata(:ROC) $TZData(:Asia/Taipei)
+set TZData(:ROC) $TZData(:Asia/Taipei)
diff --git a/library/tzdata/ROK b/library/tzdata/ROK
index ee10fd1..ffeb05a 100644
--- a/library/tzdata/ROK
+++ b/library/tzdata/ROK
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Seoul)]} {
- loadTimeZoneFile Asia/Seoul
+ LoadTimeZoneFile Asia/Seoul
}
-set tzdata(:ROK) $TZData(:Asia/Seoul)
+set TZData(:ROK) $TZData(:Asia/Seoul)
diff --git a/library/tzdata/Singapore b/library/tzdata/Singapore
index ad8dbaa..c9d3748 100644
--- a/library/tzdata/Singapore
+++ b/library/tzdata/Singapore
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Asia/Singapore)]} {
- loadTimeZoneFile Asia/Singapore
+ LoadTimeZoneFile Asia/Singapore
}
-set tzdata(:Singapore) $TZData(:Asia/Singapore)
+set TZData(:Singapore) $TZData(:Asia/Singapore)
diff --git a/library/tzdata/SystemV/AST4 b/library/tzdata/SystemV/AST4
index 68c16ca..eced0d2 100644
--- a/library/tzdata/SystemV/AST4
+++ b/library/tzdata/SystemV/AST4
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Puerto_Rico)]} {
- loadTimeZoneFile America/Puerto_Rico
+ LoadTimeZoneFile America/Puerto_Rico
}
-set tzdata(:SystemV/AST4) $TZData(:America/Puerto_Rico)
+set TZData(:SystemV/AST4) $TZData(:America/Puerto_Rico)
diff --git a/library/tzdata/SystemV/AST4ADT b/library/tzdata/SystemV/AST4ADT
index 135525a..c24308f 100644
--- a/library/tzdata/SystemV/AST4ADT
+++ b/library/tzdata/SystemV/AST4ADT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Halifax)]} {
- loadTimeZoneFile America/Halifax
+ LoadTimeZoneFile America/Halifax
}
-set tzdata(:SystemV/AST4ADT) $TZData(:America/Halifax)
+set TZData(:SystemV/AST4ADT) $TZData(:America/Halifax)
diff --git a/library/tzdata/SystemV/CST6 b/library/tzdata/SystemV/CST6
index 65c8323..d46c015 100644
--- a/library/tzdata/SystemV/CST6
+++ b/library/tzdata/SystemV/CST6
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Regina)]} {
- loadTimeZoneFile America/Regina
+ LoadTimeZoneFile America/Regina
}
-set tzdata(:SystemV/CST6) $TZData(:America/Regina)
+set TZData(:SystemV/CST6) $TZData(:America/Regina)
diff --git a/library/tzdata/SystemV/CST6CDT b/library/tzdata/SystemV/CST6CDT
index de8e2eb..234af89 100644
--- a/library/tzdata/SystemV/CST6CDT
+++ b/library/tzdata/SystemV/CST6CDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Chicago)]} {
- loadTimeZoneFile America/Chicago
+ LoadTimeZoneFile America/Chicago
}
-set tzdata(:SystemV/CST6CDT) $TZData(:America/Chicago)
+set TZData(:SystemV/CST6CDT) $TZData(:America/Chicago)
diff --git a/library/tzdata/SystemV/EST5 b/library/tzdata/SystemV/EST5
index b2e6844..52818c1 100644
--- a/library/tzdata/SystemV/EST5
+++ b/library/tzdata/SystemV/EST5
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Indianapolis)]} {
- loadTimeZoneFile America/Indianapolis
+ LoadTimeZoneFile America/Indianapolis
}
-set tzdata(:SystemV/EST5) $TZData(:America/Indianapolis)
+set TZData(:SystemV/EST5) $TZData(:America/Indianapolis)
diff --git a/library/tzdata/SystemV/EST5EDT b/library/tzdata/SystemV/EST5EDT
index 8cc725e..6cf2743 100644
--- a/library/tzdata/SystemV/EST5EDT
+++ b/library/tzdata/SystemV/EST5EDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/New_York)]} {
- loadTimeZoneFile America/New_York
+ LoadTimeZoneFile America/New_York
}
-set tzdata(:SystemV/EST5EDT) $TZData(:America/New_York)
+set TZData(:SystemV/EST5EDT) $TZData(:America/New_York)
diff --git a/library/tzdata/SystemV/HST10 b/library/tzdata/SystemV/HST10
index f9df247..a4316af 100644
--- a/library/tzdata/SystemV/HST10
+++ b/library/tzdata/SystemV/HST10
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Honolulu)]} {
- loadTimeZoneFile Pacific/Honolulu
+ LoadTimeZoneFile Pacific/Honolulu
}
-set tzdata(:SystemV/HST10) $TZData(:Pacific/Honolulu)
+set TZData(:SystemV/HST10) $TZData(:Pacific/Honolulu)
diff --git a/library/tzdata/SystemV/MST7 b/library/tzdata/SystemV/MST7
index a257d4c..e67a781 100644
--- a/library/tzdata/SystemV/MST7
+++ b/library/tzdata/SystemV/MST7
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Phoenix)]} {
- loadTimeZoneFile America/Phoenix
+ LoadTimeZoneFile America/Phoenix
}
-set tzdata(:SystemV/MST7) $TZData(:America/Phoenix)
+set TZData(:SystemV/MST7) $TZData(:America/Phoenix)
diff --git a/library/tzdata/SystemV/MST7MDT b/library/tzdata/SystemV/MST7MDT
index 390fb67..fda5bf1 100644
--- a/library/tzdata/SystemV/MST7MDT
+++ b/library/tzdata/SystemV/MST7MDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Denver)]} {
- loadTimeZoneFile America/Denver
+ LoadTimeZoneFile America/Denver
}
-set tzdata(:SystemV/MST7MDT) $TZData(:America/Denver)
+set TZData(:SystemV/MST7MDT) $TZData(:America/Denver)
diff --git a/library/tzdata/SystemV/PST8 b/library/tzdata/SystemV/PST8
index a53b91f..8e30bb8 100644
--- a/library/tzdata/SystemV/PST8
+++ b/library/tzdata/SystemV/PST8
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Pitcairn)]} {
- loadTimeZoneFile Pacific/Pitcairn
+ LoadTimeZoneFile Pacific/Pitcairn
}
-set tzdata(:SystemV/PST8) $TZData(:Pacific/Pitcairn)
+set TZData(:SystemV/PST8) $TZData(:Pacific/Pitcairn)
diff --git a/library/tzdata/SystemV/PST8PDT b/library/tzdata/SystemV/PST8PDT
index b039ce5..8281a9a 100644
--- a/library/tzdata/SystemV/PST8PDT
+++ b/library/tzdata/SystemV/PST8PDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Los_Angeles)]} {
- loadTimeZoneFile America/Los_Angeles
+ LoadTimeZoneFile America/Los_Angeles
}
-set tzdata(:SystemV/PST8PDT) $TZData(:America/Los_Angeles)
+set TZData(:SystemV/PST8PDT) $TZData(:America/Los_Angeles)
diff --git a/library/tzdata/SystemV/YST9 b/library/tzdata/SystemV/YST9
index c7b9229..32d3717 100644
--- a/library/tzdata/SystemV/YST9
+++ b/library/tzdata/SystemV/YST9
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Gambier)]} {
- loadTimeZoneFile Pacific/Gambier
+ LoadTimeZoneFile Pacific/Gambier
}
-set tzdata(:SystemV/YST9) $TZData(:Pacific/Gambier)
+set TZData(:SystemV/YST9) $TZData(:Pacific/Gambier)
diff --git a/library/tzdata/SystemV/YST9YDT b/library/tzdata/SystemV/YST9YDT
index 69e63fe..fba405f 100644
--- a/library/tzdata/SystemV/YST9YDT
+++ b/library/tzdata/SystemV/YST9YDT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Anchorage)]} {
- loadTimeZoneFile America/Anchorage
+ LoadTimeZoneFile America/Anchorage
}
-set tzdata(:SystemV/YST9YDT) $TZData(:America/Anchorage)
+set TZData(:SystemV/YST9YDT) $TZData(:America/Anchorage)
diff --git a/library/tzdata/Turkey b/library/tzdata/Turkey
index 878cad7..42c21aa 100644
--- a/library/tzdata/Turkey
+++ b/library/tzdata/Turkey
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Istanbul)]} {
- loadTimeZoneFile Europe/Istanbul
+ LoadTimeZoneFile Europe/Istanbul
}
-set tzdata(:Turkey) $TZData(:Europe/Istanbul)
+set TZData(:Turkey) $TZData(:Europe/Istanbul)
diff --git a/library/tzdata/UCT b/library/tzdata/UCT
index fdd3ba5..93613f8 100644
--- a/library/tzdata/UCT
+++ b/library/tzdata/UCT
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/UCT)]} {
- loadTimeZoneFile Etc/UCT
+ LoadTimeZoneFile Etc/UCT
}
-set tzdata(:UCT) $TZData(:Etc/UCT)
+set TZData(:UCT) $TZData(:Etc/UCT)
diff --git a/library/tzdata/US/Alaska b/library/tzdata/US/Alaska
index f6f71e4..3d5f3f1 100644
--- a/library/tzdata/US/Alaska
+++ b/library/tzdata/US/Alaska
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Anchorage)]} {
- loadTimeZoneFile America/Anchorage
+ LoadTimeZoneFile America/Anchorage
}
-set tzdata(:US/Alaska) $TZData(:America/Anchorage)
+set TZData(:US/Alaska) $TZData(:America/Anchorage)
diff --git a/library/tzdata/US/Aleutian b/library/tzdata/US/Aleutian
index ac96131..edd69ab 100644
--- a/library/tzdata/US/Aleutian
+++ b/library/tzdata/US/Aleutian
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Adak)]} {
- loadTimeZoneFile America/Adak
+ LoadTimeZoneFile America/Adak
}
-set tzdata(:US/Aleutian) $TZData(:America/Adak)
+set TZData(:US/Aleutian) $TZData(:America/Adak)
diff --git a/library/tzdata/US/Arizona b/library/tzdata/US/Arizona
index a8f2d26..ac79efb 100644
--- a/library/tzdata/US/Arizona
+++ b/library/tzdata/US/Arizona
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Phoenix)]} {
- loadTimeZoneFile America/Phoenix
+ LoadTimeZoneFile America/Phoenix
}
-set tzdata(:US/Arizona) $TZData(:America/Phoenix)
+set TZData(:US/Arizona) $TZData(:America/Phoenix)
diff --git a/library/tzdata/US/Central b/library/tzdata/US/Central
index 33b4c69..8aed5de 100644
--- a/library/tzdata/US/Central
+++ b/library/tzdata/US/Central
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Chicago)]} {
- loadTimeZoneFile America/Chicago
+ LoadTimeZoneFile America/Chicago
}
-set tzdata(:US/Central) $TZData(:America/Chicago)
+set TZData(:US/Central) $TZData(:America/Chicago)
diff --git a/library/tzdata/US/East-Indiana b/library/tzdata/US/East-Indiana
index 0229dce..3a14fc8 100644
--- a/library/tzdata/US/East-Indiana
+++ b/library/tzdata/US/East-Indiana
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Indianapolis)]} {
- loadTimeZoneFile America/Indianapolis
+ LoadTimeZoneFile America/Indianapolis
}
-set tzdata(:US/East-Indiana) $TZData(:America/Indianapolis)
+set TZData(:US/East-Indiana) $TZData(:America/Indianapolis)
diff --git a/library/tzdata/US/Eastern b/library/tzdata/US/Eastern
index a2be246..c891b87 100644
--- a/library/tzdata/US/Eastern
+++ b/library/tzdata/US/Eastern
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/New_York)]} {
- loadTimeZoneFile America/New_York
+ LoadTimeZoneFile America/New_York
}
-set tzdata(:US/Eastern) $TZData(:America/New_York)
+set TZData(:US/Eastern) $TZData(:America/New_York)
diff --git a/library/tzdata/US/Hawaii b/library/tzdata/US/Hawaii
index 5a8f4d9..c326e28 100644
--- a/library/tzdata/US/Hawaii
+++ b/library/tzdata/US/Hawaii
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Honolulu)]} {
- loadTimeZoneFile Pacific/Honolulu
+ LoadTimeZoneFile Pacific/Honolulu
}
-set tzdata(:US/Hawaii) $TZData(:Pacific/Honolulu)
+set TZData(:US/Hawaii) $TZData(:Pacific/Honolulu)
diff --git a/library/tzdata/US/Indiana-Starke b/library/tzdata/US/Indiana-Starke
index 31dd58a..3a784a3 100644
--- a/library/tzdata/US/Indiana-Starke
+++ b/library/tzdata/US/Indiana-Starke
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Indiana/Knox)]} {
- loadTimeZoneFile America/Indiana/Knox
+ LoadTimeZoneFile America/Indiana/Knox
}
-set tzdata(:US/Indiana-Starke) $TZData(:America/Indiana/Knox)
+set TZData(:US/Indiana-Starke) $TZData(:America/Indiana/Knox)
diff --git a/library/tzdata/US/Michigan b/library/tzdata/US/Michigan
index 9c88470..9137090 100644
--- a/library/tzdata/US/Michigan
+++ b/library/tzdata/US/Michigan
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Detroit)]} {
- loadTimeZoneFile America/Detroit
+ LoadTimeZoneFile America/Detroit
}
-set tzdata(:US/Michigan) $TZData(:America/Detroit)
+set TZData(:US/Michigan) $TZData(:America/Detroit)
diff --git a/library/tzdata/US/Mountain b/library/tzdata/US/Mountain
index 5494b15..b965c02 100644
--- a/library/tzdata/US/Mountain
+++ b/library/tzdata/US/Mountain
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Denver)]} {
- loadTimeZoneFile America/Denver
+ LoadTimeZoneFile America/Denver
}
-set tzdata(:US/Mountain) $TZData(:America/Denver)
+set TZData(:US/Mountain) $TZData(:America/Denver)
diff --git a/library/tzdata/US/Pacific b/library/tzdata/US/Pacific
index 08d9c14..28db81d 100644
--- a/library/tzdata/US/Pacific
+++ b/library/tzdata/US/Pacific
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Los_Angeles)]} {
- loadTimeZoneFile America/Los_Angeles
+ LoadTimeZoneFile America/Los_Angeles
}
-set tzdata(:US/Pacific) $TZData(:America/Los_Angeles)
+set TZData(:US/Pacific) $TZData(:America/Los_Angeles)
diff --git a/library/tzdata/US/Pacific-New b/library/tzdata/US/Pacific-New
index 1af8a89..e4c1397 100644
--- a/library/tzdata/US/Pacific-New
+++ b/library/tzdata/US/Pacific-New
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(America/Los_Angeles)]} {
- loadTimeZoneFile America/Los_Angeles
+ LoadTimeZoneFile America/Los_Angeles
}
-set tzdata(:US/Pacific-New) $TZData(:America/Los_Angeles)
+set TZData(:US/Pacific-New) $TZData(:America/Los_Angeles)
diff --git a/library/tzdata/US/Samoa b/library/tzdata/US/Samoa
index fb2329c..e58c5d4 100644
--- a/library/tzdata/US/Samoa
+++ b/library/tzdata/US/Samoa
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Pacific/Pago_Pago)]} {
- loadTimeZoneFile Pacific/Pago_Pago
+ LoadTimeZoneFile Pacific/Pago_Pago
}
-set tzdata(:US/Samoa) $TZData(:Pacific/Pago_Pago)
+set TZData(:US/Samoa) $TZData(:Pacific/Pago_Pago)
diff --git a/library/tzdata/UTC b/library/tzdata/UTC
index cb4626b..b7da512 100644
--- a/library/tzdata/UTC
+++ b/library/tzdata/UTC
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/UTC)]} {
- loadTimeZoneFile Etc/UTC
+ LoadTimeZoneFile Etc/UTC
}
-set tzdata(:UTC) $TZData(:Etc/UTC)
+set TZData(:UTC) $TZData(:Etc/UTC)
diff --git a/library/tzdata/Universal b/library/tzdata/Universal
index 66dcc1f..3859f3a 100644
--- a/library/tzdata/Universal
+++ b/library/tzdata/Universal
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/Universal)]} {
- loadTimeZoneFile Etc/Universal
+ LoadTimeZoneFile Etc/Universal
}
-set tzdata(:Universal) $TZData(:Etc/Universal)
+set TZData(:Universal) $TZData(:Etc/Universal)
diff --git a/library/tzdata/W-SU b/library/tzdata/W-SU
index d559861..98fa96b 100644
--- a/library/tzdata/W-SU
+++ b/library/tzdata/W-SU
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Europe/Moscow)]} {
- loadTimeZoneFile Europe/Moscow
+ LoadTimeZoneFile Europe/Moscow
}
-set tzdata(:W-SU) $TZData(:Europe/Moscow)
+set TZData(:W-SU) $TZData(:Europe/Moscow)
diff --git a/library/tzdata/Zulu b/library/tzdata/Zulu
index 5455b57..e878dca 100644
--- a/library/tzdata/Zulu
+++ b/library/tzdata/Zulu
@@ -1,5 +1,5 @@
# created by ../tools/tclZIC.tcl - do not edit
if {![info exists TZData(Etc/Zulu)]} {
- loadTimeZoneFile Etc/Zulu
+ LoadTimeZoneFile Etc/Zulu
}
-set tzdata(:Zulu) $TZData(:Etc/Zulu)
+set TZData(:Zulu) $TZData(:Etc/Zulu)
diff --git a/tests/clock.test b/tests/clock.test
index c97848a..0fa42b6 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: clock.test,v 1.39 2004/08/21 18:03:07 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.40 2004/09/07 17:38:59 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -34684,7 +34684,9 @@ test clock-31.1 {system locale} \
}
::tcl::clock::ClearCaches
} \
- -result {01-Jan-1970}
+ -result [clock format 0 -timezone :UTC -locale current \
+ -format {%d-%b-%Y}]
+
test clock-31.2 {system locale} \
-constraints win \
-setup {
@@ -34702,7 +34704,9 @@ test clock-31.2 {system locale} \
}
::tcl::clock::ClearCaches
} \
- -result {the 01' day of January 1970}
+ -result [clock format 0 -timezone :UTC -locale current \
+ -format {the %d' day of %B %Y}]
+
test clock-31.3 {system locale} \
-constraints win \
-setup {
@@ -34720,7 +34724,9 @@ test clock-31.3 {system locale} \
}
::tcl::clock::ClearCaches
} \
- -result {12:00:00 AM}
+ -result [clock format 0 -timezone :UTC -locale current \
+ -format {%l:%M:%S %p}]
+
test clock-31.4 {system locale} \
-constraints win \
-setup {
@@ -34738,7 +34744,9 @@ test clock-31.4 {system locale} \
}
::tcl::clock::ClearCaches
} \
- -result {31-Dec-1969}
+ -result [clock format 0 -locale current -timezone EST5 \
+ -format {%d-%b-%Y}]
+
test clock-31.5 {system locale} \
-constraints win \
-setup {
@@ -34756,7 +34764,9 @@ test clock-31.5 {system locale} \
}
::tcl::clock::ClearCaches
} \
- -result {the 31' day of December 1969}
+ -result [clock format 0 -locale current -timezone EST5 \
+ -format {the %d' day of %B %Y}]
+
test clock-31.6 {system locale} \
-constraints win \
-setup {
@@ -34774,7 +34784,8 @@ test clock-31.6 {system locale} \
}
::tcl::clock::ClearCaches
} \
- -result { 7:00:00 PM EST}
+ -result [clock format 0 -locale current -timezone EST5 \
+ -format {%l:%M:%S %p %Z}]
test clock-32.1 {scan/format across the Gregorian change} {
set problems {}
@@ -35221,6 +35232,10 @@ test clock-38.1 {regression - convertUTCToLocalViaC - east of Greenwich} \
} \
-result {01:00:00}
+test clock-39.1 {regression - synonym timezones} {
+ clock format 0 -format {%H:%M:%S} -timezone :US/Eastern
+} {19:00:00}
+
# cleanup
namespace delete ::testClock
diff --git a/tools/tclZIC.tcl b/tools/tclZIC.tcl
index e6bbb5a..9ad1dd3 100755
--- a/tools/tclZIC.tcl
+++ b/tools/tclZIC.tcl
@@ -29,7 +29,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: tclZIC.tcl,v 1.1 2004/08/18 19:59:09 kennykb Exp $
+# RCS: @(#) $Id: tclZIC.tcl,v 1.2 2004/09/07 17:38:59 kennykb Exp $
#
#----------------------------------------------------------------------
@@ -1383,9 +1383,9 @@ proc writeLinks { outDir } {
# Create code for the synonym
set linkTo $links($zoneName)
- set sourceCmd "\n [list loadTimeZoneFile $linkTo]\n"
+ set sourceCmd "\n [list LoadTimeZoneFile $linkTo]\n"
set ifCmd [list if "!\[info exists TZData($linkTo)\]" $sourceCmd]
- set setCmd "set tzdata(:$zoneName) \$TZData(:$linkTo)"
+ set setCmd "set TZData(:$zoneName) \$TZData(:$linkTo)"
# Write the file
diff --git a/win/tclWinTime.c b/win/tclWinTime.c
index 2fc9ea0..48460bb 100644
--- a/win/tclWinTime.c
+++ b/win/tclWinTime.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinTime.c,v 1.27 2004/06/05 17:31:08 kennykb Exp $
+ * RCS: @(#) $Id: tclWinTime.c,v 1.28 2004/09/07 17:39:00 kennykb Exp $
*/
#include "tclInt.h"
@@ -300,8 +300,13 @@ Tcl_GetTime(timePtr)
* appears to fiddle with the definition of the perf counter
* frequency (perhaps in an attempt to calibrate the clock?)
* we use the latter rule rather than an exact match.
+ *
+ * We also assume (perhaps questionably) that the vendors
+ * have gotten their act together on Win64, so bypass all
+ * this rubbish on that platform.
*/
+#if !defined(_WIN64)
if ( timeInfo.perfCounterAvailable
/* The following lines would do an exact match on
* crystal frequency:
@@ -341,6 +346,7 @@ Tcl_GetTime(timePtr)
}
}
+#endif /* above code is Win32 only */
/*
* If the performance counter is available, start a thread to
--
cgit v0.12