diff options
145 files changed, 350 insertions, 318 deletions
@@ -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..1559bfa 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 |