#OTHER by cg
class: MiniLogger class
changed: #basicLog:severity:facility:originator:attachment:
"{ Encoding: utf8 }"
"
COPYRIGHT (c) 2014 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libbasic' }"
"{ NameSpace: Smalltalk }"
Timestamp subclass:#TZTimestamp
instanceVariableNames:'utcOffset'
classVariableNames:''
poolDictionaries:''
category:'Magnitude-Time'
!
!TZTimestamp class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2014 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
documentation
"
This class represents time values in milliSeconds starting some time in the past,
which were created in another (explicit) timezone.
Internally, they keep the milliseconds based on UTC time (just like the other timestamps),
so the time values can be compared easily.
However, when printed, the original timezone information is taken into account.
Also Note:
On UNIX, osTime can only hold dates between 1970-01-01T00:00:00Z and 2038-01-19T00:00:00Z
However, timestamp instances can hold negative osTime values (which are timestamps
before 1.1.1970 and greater than 4294967295 (2^32-1) for timestamps after 2038-01-19.
[example:]
the current time as local time:
Transcript showCR:Timestamp now
the current time as utc time:
Transcript showCR:UtcTimestamp now.
same:
Transcript showCR:Timestamp now asUtcTimestamp.
the current time in NewYork:
Transcript showCR:( Timestamp now asTZTimestamp:(Timestamp utcOffsetFrom:'EST') )
same
Transcript showCR:( Timestamp now asTZTimestampInZone:'EST' )
same
Transcript showCR:( Timestamp now asTZTimestamp:(5*3600) )
what is the current time in Berlin:
Transcript showCR:( Timestamp now asTZTimestampInZone:'MEZ' )
and the date:
Transcript showCR:( Timestamp now asTZTimestampInZone:'MEZ' ) asDate
and the date in Tokio:
Transcript showCR:( Timestamp now asTZTimestampInZone:'JST' ) asDate
and the date in Hawai:
Transcript showCR:( Timestamp now asTZTimestampInZone:'HAST' ) asDate
and the date in NewYork:
Transcript showCR:( Timestamp now asTZTimestampInZone:'EST' ) asDate
[author:]
Claus Gittinger
[See also:]
Timestamp UtcTimestamp Time Date
"
! !
!TZTimestamp class methodsFor:'instance creation'!
fromDate:aDate andTime:aTime utcOffset:utcOffsetSeconds
"return an instance of the receiver,
initialized from a time and a date object.
Both date and time are assumed to be the utcOffset's local time.
See also `Timestamp now' and other protocol inherited
from my superclass."
^ (self
UTCYear:aDate year
month:aDate month
day:aDate day
hour:aTime hours
minute:aTime minutes
second:(aTime seconds + utcOffsetSeconds)
millisecond:aTime milliseconds)
utcOffset:utcOffsetSeconds
"
Timestamp fromDate:(Date today) andTime:(Time now)
Timestamp fromDate:(Date today) andTime:(Time nowWithMilliseconds)
TZTimestamp fromDate:(Date today) andTime:(Time now) utcOffset:3600
Timestamp fromDate:(Date today plusDays:1) andTime:(Time now)
Timestamp now
"
! !
!TZTimestamp methodsFor:'accessing'!
isLocalTimestamp
"return true, if I am a local timestamp (i.e. with no TZ info)"
^ false
"Modified (comment): / 24-05-2018 / 17:29:26 / Claus Gittinger"
!
timeInfo
"fake it. Convert to utc, ask OS for the info, then convert back.
This is returns wrong info for weekday and we have to compensate again.
Also, it (currently) only works for timestamps after the epoch"
|ti|
"/ utcOffset negative: east of GMT
ti := OperatingSystem computeUTCTimeAndDateFrom:(osTime - ((utcOffset ? 0) * 1000)).
ti utcOffset:(utcOffset ? 0).
^ ti
!
utcOffset
"return the difference between UTC (Greenwich Mean Time) and the local time in seconds.
If daylight saving time applies to ourself, take that into account.
Add utcOffset to convert from local time to UTC time.
Subtract utcOffset to convert from UTC time to local time.
If utcOffset is negative, the local timezone is east of Greenwich.
If utcOffset is positive, the local timezone is west of Greenwich."
^ utcOffset ? 0
!
utcOffset:secondsOrTimeDuration
"set the difference between UTC (Greenwich Mean Time) and the local time in seconds.
If daylight saving time applies to ourself, take that into account.
Add utcOffset to convert from local time to UTC time.
Subtract utcOffset to convert from UTC time to local time.
If utcOffset is negative, the local timezone is east of Greenwich.
If utcOffset is positive, the local timezone is west of Greenwich."
utcOffset := secondsOrTimeDuration asInteger.
"Modified: / 20-11-2014 / 13:05:48 / sr"
"Modified (format): / 26-05-2019 / 12:09:21 / Claus Gittinger"
! !
!TZTimestamp methodsFor:'converting'!
asLocalTimestamp
"return a local timestamp, representing the same time as the receiver"
^ Timestamp fromOSTime:osTime.
!
asTZTimestamp:utcOffsetArg
"return a timestamp in a given timezone, representing the same time as the receiver"
utcOffset = utcOffsetArg ifTrue:[
^ self.
].
^ super asTZTimestamp:utcOffsetArg
"what is the time now in NewYork?
Timestamp now asTZTimestamp:(Timestamp utcOffsetFrom:'EST')
what is the time now in Stuttgart?
Timestamp now asTZTimestamp:(Timestamp utcOffsetFrom:'MEZ')
"
! !
!TZTimestamp methodsFor:'private'!
speciesNew
^ self species basicNew
utcOffset:(utcOffset ? 0);
yourself
!
storeStringClass
"my storeString will ask Timestamp to read the instance"
^ Timestamp
! !
!TZTimestamp methodsFor:'testing'!
isTZTimestamp
"return true, if I am a timestamp with TZ info"
^ true
"Created: / 24-05-2018 / 17:30:38 / Claus Gittinger"
! !
!TZTimestamp class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !