"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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' }"

AbstractTime subclass:#Time

	instanceVariableNames:'timeEncoding'

	classVariableNames:''

	poolDictionaries:''

	category:'Magnitude-Time'

!

!Time class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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

"

    Instances of time represent a particular time-of-day.

    Since they only store hours, minutes and seconds within a day,

    they cannot be used to compare times across midnight 

    (i.e. they should not be used as timeStamps).

    Use instances of Timestamp (and read the comment there) to do this.

    Time now returns the time in the local timezone.

    Use Time utcNow to get the time in the UTC zone.

    Note: time was changed recently to keep the number of milliseconds since midnight.

          However, all existing instance creators so far only create time instances with 0-millis.

          I.e. Time now still returns a time with second precision.

          This may change in the future.

          It is not done currently, to remain backward compatible, as users may get confused

          to see t1 > t2 although they print the same (as long as the printed representation does not

          include the milli seconds).

          A change of the default printformat on the other side is not done now, as it may

          affect many existing applications.

          Any application which needs the millisecond precision time should call the new

            Time nowWithMilliseconds.

    Examples:

        |t|

        t := Time now.

        Transcript showCR:t.

        |t1 t2|

        t1 := Time now.

        (Delay forSeconds:10) wait.

        t2 := Time now.

        t2 - t1   

    [author:]

        Claus Gittinger

    [see also:]

        Date Timestamp AbstractTime OperatingSystem

        Filename

"

! !

!Time class methodsFor:'instance creation'!

fromString: aString

    ^ self readFrom: (ReadStream on: aString).

    "Modified (format): / 20-08-2011 / 16:46:39 / cg"

!

hour:h minute:m

    "compatibility"

    ^ self hours:h minutes:m seconds:0

    "

     Time hour:2 minute:33 

    "

!

hour:h minute:m second:s

    "compatibility"

    ^ self hours:h minutes:m seconds:s

    "

     Time hour:2 minute:33 second:0 

    "

!

hour:h minutes:m seconds:s

    "return an instance of Time representing the given time.

     See also Time now / Date today / Timestamp now.

     Obsolete: please use #hours:minutes:seconds:"

    <resource:#obsolete>

    self obsoleteMethodWarning:'use #hours:minutes:seconds:'.

    ^ self hours:h minutes:m seconds:s

    "

     Time hours:2 minutes:33 seconds:0 

     Time hours:0 minutes:0 seconds:0 

     Time hours:24 minutes:0 seconds:0 

     Time hours23 minutes:59 seconds:59 

    "

    "Modified: 19.4.1996 / 15:32:40 / cg"

!

hours:h minutes:m seconds:s

    "return an instance of Time representing the given time.

     See also Time now / Date today / Timestamp now."

    ^ self basicNew setHours:h minutes:m seconds:s

    "

     Time hours:2 minutes:33 seconds:0 

     Time hours:0 minutes:0 seconds:0 

     Time hours:24 minutes:0 seconds:0 

     Time hours:23 minutes:59 seconds:59 

    "

    "Modified: 19.4.1996 / 15:32:40 / cg"

!

hours:h minutes:m seconds:s milliseconds:ms

    "return an instance of Time representing the given time.

     See also Time now / Date today / Timestamp now."

    ^ self basicNew setHours:h minutes:m seconds:s milliseconds:ms

    "

     Time hours:2 minutes:33 seconds:0 

     Time hours:0 minutes:0 seconds:0 

     Time hours:24 minutes:0 seconds:0 

     Time hours:23 minutes:59 seconds:59 

    "

    "Modified: 19.4.1996 / 15:32:40 / cg"

!

midnight

    "Answer a new instance at midnight."

    ^ self fromSeconds: 0

    "

     Time midnight

    "

!

noon

    "Answer a new instance at noon."

    ^ self fromSeconds: 43200 "12*60*60"

    "

     Time noon

    "

!

readFrom:aStringOrStream onError:exceptionBlock

    "return a new Time, reading a printed representation from aStream.

     If no am/pm follows the time, the string is interpreted as 

     either 24 hour format or being am."

    ^ [

        |str hour min sec peekC millis|

        str := aStringOrStream readStream.

        hour := Integer readFrom:str.

        (hour between:0 and:24) ifFalse:[^ exceptionBlock value].

        min := 0.

        sec := 0.

        millis := 0.

        str atEnd ifFalse:[

            peekC := str peek.

            (peekC == $:) ifTrue:[

                str next.

                min := Integer readFrom:str.

                (min between:0 and:59) ifFalse:[^ exceptionBlock value].

                (str peek == $:) ifTrue:[

                    str next.

                    sec := Integer readFrom:str.

                    (sec between:0 and:59) ifFalse:[^ exceptionBlock value].

                    (str peek == $.) ifTrue:[

                        str next.

                        millis := (Fraction readDecimalFractionFrom:str onError:[^ exceptionBlock value]) * 1000 asInteger.

                    ].

                ].

                peekC := str peek.

            ].

            [peekC == Character space] whileTrue:[str next. peekC := str peek].

            (peekC == $p or:[peekC == $P]) ifTrue:[

                str next.

                (str peek == $m or:[str peek == $M]) ifTrue:[

                    str next

                ].

                (hour <= 0 or:[hour > 12]) ifTrue:[^ exceptionBlock value].

                "pm"

                hour ~~ 12 ifTrue:[

                    hour := hour + 12

                ].

                peekC := str peek

            ] ifFalse:[

                (peekC == $a or:[peekC == $A]) ifTrue:[

                    str next.

                    (str peek == $m or:[str peek == $M]) ifTrue:[

                        str next

                    ].

                    hour == 12 ifTrue:[

                        hour := 0.

                    ].

                    hour > 12 ifTrue:[^ exceptionBlock value].

                    peekC := str peek

                ] ifFalse:[

                    "/ cg: dont be too picky here - we do not care, what comes after the

                    "/ time string. (Needed to be able to read rfc822 strings where a timezone

                    "/ follows (-/+0700 GMT, for example)

"/                    peekC notNil ifTrue:[

"/                        peekC isSeparator ifFalse:[^ exceptionBlock value].

"/                    ]

                ].

            ]

        ].

        self basicNew setHours:hour minutes:min seconds:sec milliseconds:millis

    ] on:Error do:exceptionBlock.

    "

     Time readFrom:'0:00'     

     Time readFrom:'2:00'     

     Time readFrom:'12:00'    

     Time readFrom:'14:00'    

     Time readFrom:'23:00'    

     Time readFrom:'24:00'    

     Time readFrom:'2:30 am'    

     Time readFrom:'2:30 pm'    

     Time readFrom:'14'    

     Time readFrom:'2 am'    

     Time readFrom:'2 pm'    

     Time readFrom:'12:05 pm'    

     Time readFrom:'12:06 am'    

     Time readFrom:'18:22:00'    

     Time readFrom:'14:00:11'    

     Time readFrom:'7:00:11'     

     Time readFrom:'24:00:00'     

     Time readFrom:'0:00:00'     

     Time readFrom:'12:00:00'     

     Time readFrom:'0:00:00'     

     Time readFrom:'6:22:00 pm'   

     Time readFrom:'2:00:11 pm'  

     Time readFrom:'7:00:11 am'  

     Time readFrom:'12:00:00 am'  

     Time readFrom:'0:00:00 am'  

     Time readFrom:'24:00:00 am'  

     Time readFrom:'12:00:00 pm'  

     Time readFrom:'0:00:00 pm' onError:'invalid'

     Time readFrom:'24:00:00 pm'  

     Time readFrom:'13:00:00.5'    

     Time readFrom:'13:00:00.123'    

     Time readFrom:'1:00:00.123 pm'  

    "

    "Modified: 8.10.1996 / 19:32:11 / cg"

!

utcNow

    "return an instance of myself representing this moment."

    ^ self basicNew fromUtcOSTime:(OperatingSystem getOSTime)

    "

     Timestamp now   

     Timestamp utcNow

     Time now   

     Time utcNow   

    "

    "Modified: 1.7.1996 / 15:20:10 / cg"

! !

!Time class methodsFor:'format strings'!

defaultFormatString

    LanguageTerritory == #us ifTrue:[

        ^ self formatString12us

    ] ifFalse:[

        ^ self formatString24

    ]

    "Created: / 16-01-2011 / 11:23:36 / cg"

!

defaultFormatStringWithMilliseconds

    LanguageTerritory == #us ifTrue:[

        ^ self formatStringWithMilliseconds12us

    ] ifFalse:[

        ^ self formatStringWithMilliseconds24

    ]

!

formatString12us

    "return the format string used to format US times (and other areas)"

    ^ '%u:%m:%s %A'

!

formatString24

    "return the format string used to format non US times"

    ^ '%h:%m:%s'

!

formatStringWithMilliseconds12us

    "return the format string used to format US times (and other areas)"

    ^ '%u:%m:%s.%i %A'

!

formatStringWithMilliseconds24

    "return the format string used to format non US times"

    ^ '%h:%m:%s.%i'

! !

!Time methodsFor:'Compatibility-Backward'!

asMilliSeconds

    <resource: #obsolete>

    "return the number of milliseconds elapsed since midnight"

    ^ self asMilliseconds

    "

     Time now asMilliSeconds

     (TimeDuration days:1) asMilliSeconds 

     (TimeDuration hours:1) asMilliSeconds 

    "

    "Created: / 05-09-2011 / 10:40:15 / cg"

! !

!Time methodsFor:'Compatibility-Squeak'!

intervalString

    "Treat the time as a difference.  

     Give it in hours and minutes with two digits of accuracy."

    |hours minutes seconds hh mm ss s|

    hours := self hours.

    minutes := self minutes.

    seconds := self seconds.

    hours = 0   

        ifTrue: [hh := ''] 

        ifFalse: [

            hh := hours printString, ' hour'.

            hours > 1 ifTrue:[

                hh := hh , 's'

            ]

        ].

    minutes = 0 

        ifTrue: [mm := ''] 

        ifFalse: [

            mm := minutes printString, ' minute'.

            minutes > 1 ifTrue:[

                mm := mm , 's'

            ]

        ].

    seconds = 0 

        ifTrue: [ss := ''] 

        ifFalse: [

            ss := seconds printString, ' second'.

            seconds > 1 ifTrue:[

                ss := ss , 's'

            ]

        ].

    "/ do not show seconds, if hours are there

    hh size > 0 ifTrue: [ss := ''].

    s := hh.

    mm notEmpty ifTrue:[

        s notEmpty ifTrue:[

            s := s , ' '

        ].

        s := s , mm.

    ].

    ss notEmpty ifTrue:[

        s notEmpty ifTrue:[

            s := s , ' '

        ].

        s := s , ss

    ].

    ^ s

    "

     (Time fromSeconds:3600) intervalString     

     (Time fromSeconds:3605) intervalString    

     (Time fromSeconds:3700) intervalString    

     (Time fromSeconds:5) intervalString       

     (Time fromSeconds:65) intervalString      

    "

!

print24:prnt24FormatBoolean on:aStream

    "print me either US or 24hr format on a stream"

    ^ self print24:prnt24FormatBoolean showSeconds:true on:aStream

    "

     Time now print24:true on:Transcript. Transcript cr.

     Time now print24:false on:Transcript. Transcript cr.

    "

!

print24:prnt24Format showSeconds:doSeconds on:aStream

    "print me either US or 24hr format, optionally with

     seconds on a stream"

    |format|

    prnt24Format ifTrue:[

        doSeconds ifTrue:[

            format := '%h:%m:%s'

        ] ifFalse:[

            format := '%h:%m'

        ].

    ] ifFalse:[

        "/ US format

        doSeconds ifTrue:[

            format := '%u:%m:%s %a'

        ] ifFalse:[

            format := '%u:%m %a'

        ].

    ].

    ^ self

        printOn:aStream 

        format:format.

    "

     Time now print24:true showSeconds:true on:Transcript. Transcript cr.

     Time now print24:false showSeconds:true on:Transcript. Transcript cr.

     Time now print24:true showSeconds:false on:Transcript. Transcript cr.

     Time now print24:false showSeconds:false on:Transcript. Transcript cr.

    "

! !

!Time methodsFor:'accessing'!

hours