diff options
Diffstat (limited to 'tools')
| -rwxr-xr-x | tools/tclZIC.tcl | 10 |
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]] } |