summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-11-02 15:16:35 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-11-02 15:16:35 (GMT)
commit79d364903305830d4089377396465a834754b329 (patch)
treeeca27358f4129e09dadb2d4613ae7766505961c2 /tools
parent86bd1359ad8004bb5152048c27cf0b7b68903db4 (diff)
downloadtcl-79d364903305830d4089377396465a834754b329.zip
tcl-79d364903305830d4089377396465a834754b329.tar.gz
tcl-79d364903305830d4089377396465a834754b329.tar.bz2
updates to Havana and Cuiaba time zones
Diffstat (limited to 'tools')
-rwxr-xr-xtools/tclZIC.tcl10
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/tclZIC.tcl b/tools/tclZIC.tcl
index 9ad1dd3..524eb74 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.2 2004/09/07 17:38:59 kennykb Exp $
+# RCS: @(#) $Id: tclZIC.tcl,v 1.3 2004/11/02 15:16:38 kennykb Exp $
#
#----------------------------------------------------------------------
@@ -963,7 +963,7 @@ proc applyRules { ruleSet year startSecs stdGMTOffset DSTOffset nextGMTOffset \
set untilJCD [eval $untilDaySpec]
set untilBaseSecs [expr {
wide(86400) * wide($untilJCD)
- - $::tcl::clock::PosixEpochAsJulianSeconds }]
+ - 210866803200 }]
set untilSecs [eval [linsert $untilTimeOfDay 0 convertTimeOfDay \
$untilBaseSecs $stdGMTOffset $DSTOffset]]
}
@@ -1048,7 +1048,7 @@ proc applyRules { ruleSet year startSecs stdGMTOffset DSTOffset nextGMTOffset \
set date [::tcl::clock::GetJulianDayFromEraYearMonthDay \
[dict create era CE year $year month 1 dayOfMonth 1]]
set startSecs [expr { [dict get $date julianDay] * wide(86400) \
- - $::tcl::clock::PosixEpochAsJulianSeconds }]
+ -210866803200 }]
set startSecs [expr { $startSecs - $stdGMTOffset - $DSTOffset }]
@@ -1145,7 +1145,7 @@ proc findEarliestRule { remainingRules year stdGMTOffset DSTOffset } {
set dayIn [eval $daySpecOn]
set secs [expr {
wide(86400) * wide($dayIn)
- - $::tcl::clock::PosixEpochAsJulianSeconds }]
+ -210866803200 }]
set secs [eval [linsert $timeAt 0 convertTimeOfDay \
$secs $stdGMTOffset $DSTOffset]]
if { $secs < $earliest } {
@@ -1275,7 +1275,7 @@ proc processTimeZone { zoneName zoneData } {
set startDay [eval $dayRule]
set secs [expr {
wide(86400) * wide($startDay)
- - $::tcl::clock::PosixEpochAsJulianSeconds}]
+ -210866803200}]
set secs [eval [linsert $timeOfDay 0 convertTimeOfDay \
$secs $stdGMTOffset $DSTOffset]]
}