summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2005-11-28 16:28:04 (GMT)
committerKevin B Kenny <kennykb@acm.org>2005-11-28 16:28:04 (GMT)
commitfa6db0334f465c0620416816afc6a8f1a52b7d00 (patch)
tree0cc359552aa2f496faa9e87f55c4dddfada8bfba
parent1f2642848c07487ab88ff382fe7a9a1031a98c29 (diff)
downloadtcl-fa6db0334f465c0620416816afc6a8f1a52b7d00.zip
tcl-fa6db0334f465c0620416816afc6a8f1a52b7d00.tar.gz
tcl-fa6db0334f465c0620416816afc6a8f1a52b7d00.tar.bz2
Updated tclZIC.tcl to be bignum-safe
-rw-r--r--ChangeLog2
-rwxr-xr-xtools/tclZIC.tcl11
2 files changed, 6 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index 9b93826..659c65e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,7 +3,7 @@
* tools/tclZIC.tcl (convertTimeOfDay): Corrected a typo that
caused wrong DST transitions in any time zone where the transition
is specified as local Standard Time (as opposed to wall-clock or
- UTC).
+ UTC). (Also updated the code to be bignum-safe.)
* tests/clock.test (clock-51.1): Added regression test for the
above.
* library/tzdata: Regenerated.
diff --git a/tools/tclZIC.tcl b/tools/tclZIC.tcl
index 5595264..9253686 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.6 2005/11/28 15:37:20 kennykb Exp $
+# RCS: @(#) $Id: tclZIC.tcl,v 1.7 2005/11/28 16:28:04 kennykb Exp $
#
#----------------------------------------------------------------------
@@ -44,10 +44,6 @@ set olsonFiles {
pacificnew southamerica systemv
}
-# Temporary scaffolding - load up the new 'clock' package.
-
-source [file join [file dirname [info script]] .. library clock.tcl]
-
# Define the year at which the DST information will stop.
set maxyear 2100
@@ -56,7 +52,7 @@ set maxyear 2100
set MAXWIDE [expr {wide(1)}]
while 1 {
- set next [expr {$MAXWIDE + $MAXWIDE + 1}]
+ set next [expr {wide($MAXWIDE + $MAXWIDE + 1)}]
if {$next < 0} {
break
}
@@ -1335,6 +1331,9 @@ proc writeLinks {outDir} {
#
#----------------------------------------------------------------------
+puts "Compiling time zones -- [clock format [clock seconds] \
+ -format {%x %X} -locale system]"
+
# Determine directories
lassign $argv inDir outDir