adapt tclZIC.tcl to new C API and update to tzdata2005p

2 files changed, 14 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index 5460ec1..0ccb35b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2005-12-05  Kevin B. Kenny  <kennykb@acm.org>
+
+	* tools/tclZIC.tcl: Updated to reflect changes in calling sequence
+	when GetJulianDateFromEraYearMonthDay moved to C.
+	* library/tzdata: Regenerated from Olson's tzdata2005p.tar.gz -
+	the 'systemv' changes appear not to affect Tcl's processing of the
+	dates.
+	
 2005-12-05  Daniel Steffen  <das@users.sourceforge.net>
 
 	* unix/configure.in: move check for fts API to configure.in and run it
diff --git a/tools/tclZIC.tcl b/tools/tclZIC.tcl
index 9253686..5fd861f 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.7 2005/11/28 16:28:04 kennykb Exp $
+# RCS: @(#) $Id: tclZIC.tcl,v 1.8 2005/12/05 20:40:42 kennykb Exp $
 #
 #----------------------------------------------------------------------
 
@@ -398,7 +398,8 @@ proc parseON {on} {
 
 proc onDayOfMonth {day year month} {
     set date [::tcl::clock::GetJulianDayFromEraYearMonthDay \
-	    [dict create era CE year $year month $month dayOfMonth $day]]
+	    [dict create era CE year $year month $month dayOfMonth $day] \
+		 2361222]
     return [dict get $date julianDay]
 }
 
@@ -431,7 +432,7 @@ proc onDayOfMonth {day year month} {
 
 proc onWeekdayInMonth {dayOfWeek relation dayOfMonth year month} {
     set date [::tcl::clock::GetJulianDayFromEraYearMonthDay [dict create \
-	    era CE year $year month $month dayOfMonth $dayOfMonth]]
+	    era CE year $year month $month dayOfMonth $dayOfMonth] 2361222]
     switch -exact -- $relation {
 	<= {
 	    return [::tcl::clock::WeekdayOnOrBefore $dayOfWeek \
@@ -469,7 +470,7 @@ proc onLastWeekdayInMonth {dayOfWeek year month} {
     # Find day 0 of the following month, which is the last day of
     # the current month.  Yes, it works to ask for day 0 of month 13!
     set date [::tcl::clock::GetJulianDayFromEraYearMonthDay [dict create \
-	    era CE year $year month $month dayOfMonth 0]]
+	    era CE year $year month $month dayOfMonth 0] 2361222]
     return [::tcl::clock::WeekdayOnOrBefore $dayOfWeek \
 	    [dict get $date julianDay]]
 }
@@ -986,7 +987,7 @@ proc applyRules {ruleSet year startSecs stdGMTOffset DSTOffset nextGMTOffset
 
 	incr year
 	set date [::tcl::clock::GetJulianDayFromEraYearMonthDay \
-		[dict create era CE year $year month 1 dayOfMonth 1]]
+		[dict create era CE year $year month 1 dayOfMonth 1] 2361222]
 	set startSecs [expr {
 	    [dict get $date julianDay] * wide(86400) - 210866803200 
 		- $stdGMTOffset - $DSTOffset