summaryrefslogtreecommitdiffstats
path: root/library/clock.tcl
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-11-03 23:00:17 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-11-03 23:00:17 (GMT)
commit255377e6f84e88f6ac12761c636205f757e9cae1 (patch)
treec728110270c864eb5dd5c70abc97ab38894c2db8 /library/clock.tcl
parent67f304de025068d52dc6ca3e327c5ba7ca8c010a (diff)
downloadtcl-255377e6f84e88f6ac12761c636205f757e9cae1.zip
tcl-255377e6f84e88f6ac12761c636205f757e9cae1.tar.gz
tcl-255377e6f84e88f6ac12761c636205f757e9cae1.tar.bz2
remove knownBugs from clock tests by fixing them
Diffstat (limited to 'library/clock.tcl')
-rw-r--r--library/clock.tcl12
1 files changed, 9 insertions, 3 deletions
diff --git a/library/clock.tcl b/library/clock.tcl
index 0f91cca..d65723b 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: clock.tcl,v 1.10 2004/10/26 02:08:38 kennykb Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.11 2004/11/03 23:00:22 kennykb Exp $
#
#----------------------------------------------------------------------
@@ -1275,7 +1275,14 @@ proc ::tcl::clock::FreeScan { string base timezone locale } {
set date [GetJulianDayFromEraYearMonthDay $date[set date {}]]
if { $parseTime ne {} } {
dict set date secondOfDay $parseTime
+ } elseif { [llength $parseWeekday] != 0
+ || [llength $parseOrdinalMonth] != 0
+ || ( [llength $parseRel] != 0
+ && ( [lindex $parseRel 0] != 0
+ || [lindex $parseRel 1] != 0 ) ) } {
+ dict set date secondOfDay 0
}
+
dict set date localSeconds \
[expr { -210866803200
+ ( 86400 * wide([dict get $date julianDay]) )
@@ -1284,7 +1291,6 @@ proc ::tcl::clock::FreeScan { string base timezone locale } {
set date [ConvertLocalToUTC $date[set date {}]]
set seconds [dict get $date seconds]
-
# Do relative times
if { [llength $parseRel] > 0 } {
@@ -1292,7 +1298,7 @@ proc ::tcl::clock::FreeScan { string base timezone locale } {
set seconds [add $seconds \
$relMonth months $relDay days $relSecond seconds \
-timezone $timezone -locale $locale]
- }
+ }
# Do relative weekday