From fa6db0334f465c0620416816afc6a8f1a52b7d00 Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Mon, 28 Nov 2005 16:28:04 +0000 Subject: Updated tclZIC.tcl to be bignum-safe --- ChangeLog | 2 +- tools/tclZIC.tcl | 11 +++++------ 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 -- cgit v0.12