class: UtcTimestamp
added: #setOSTimeFromYear:month:day:hour:minute:second:millisecond:
removed: #year:month:day:hour:minute:second:millisecond:
changed: #timeInfo
instance creation refactored and fixed for timestamps before 1970
--- a/UtcTimestamp.st Thu Nov 06 16:15:52 2014 +0100
+++ b/UtcTimestamp.st Thu Nov 06 16:48:24 2014 +0100
@@ -62,6 +62,13 @@
!UtcTimestamp methodsFor:'accessing'!
timeInfo
+ osTime < 0 ifTrue:[
+ self halt:'timestamp out of OS range'.
+ "/ TODO:
+ "/ get timeInfo of epoche,
+ "/ manually adjust d.m.y and h.m.s from the negative osTime.
+ ].
+
^ OperatingSystem computeUTCTimeAndDateFrom:osTime
!
@@ -85,14 +92,10 @@
!UtcTimestamp methodsFor:'initialization'!
-year:y month:m day:d hour:h minute:min second:s millisecond:millis
+setOSTimeFromYear:y month:m day:d hour:h minute:min second:s millisecond:millis
osTime := OperatingSystem
- computeOSTimeFromUTCYear:y
- month:m
- day:d
- hour:h
- minute:min
- second:s
+ computeOSTimeFromUTCYear:y month:m day:d
+ hour:h minute:min second:s
millisecond:millis
"
@@ -120,6 +123,6 @@
!UtcTimestamp class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.6 2014-07-09 16:20:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.7 2014-11-06 15:48:24 cg Exp $'
! !