dateAndTimeNow

    "return an array filled with date and time"

    ^ Array with:(Date today) with:(Time now)

     Time dateAndTimeNow

fromSeconds:seconds

    "return an instance that is constructed from seconds.

     This method is only allowed for second values as returned by

     getSeconds, possibly adding/subtracting to that. Never

     depend on any specific interpretation of the seconds."

   ^ self basicNew setSeconds:seconds

     Time fromSeconds:0             should return midnight

     AbsoluteTime fromSeconds:0     on UNIX: returns 1st. Jan 1970

				    on others: dont know

    "

!

now

    "return an instance of myself representing this moment"

    ^ self basicNew fromOSTime:(OperatingSystem getTimeParts)

     AbsoluteTime now   

     Time now   

    "

! !

!AbstractTime class methodsFor:'ST-80 compatibility'!

totalSeconds

    "returns an internal second clock. Dont interpret the returned

     value - if at all, use it to compute time deltas, by subtracting

     returned values."

    ^ self secondClock

!AbstractTime class methodsFor:'queries'!

millisecondClockValue

    "return the millisecond clock - since this one overruns

     regularly, use the value only for short timing deltas.

     Also remember that it wraps when compares these values."

    ^ OperatingSystem getMillisecondTime.

    "

     Time millisecondClockValue 

    "

secondClock

    "return seconds of now - for GNU-ST compatibility"

    ^ OperatingSystem getTime

    "

     AbstractTime secondClock    

    "

! !

!AbstractTime class methodsFor:'timing evaluations'!

millisecondsToRun:aBlock

    "evaluate the argument, aBlock; return the number of milliseconds it took"

    |startTime endTime|

    startTime := self millisecondClockValue.

    aBlock value.

    endTime := self millisecondClockValue.

    ^ endTime - startTime

    "

     Time millisecondsToRun:[100 factorial]  

    "

secondsToRun:aBlock

    "evaluate the argument, aBlock; return the number of seconds it took"

    |startTime endTime|

    startTime := self secondClock.

    aBlock value.

    endTime := self secondClock.

    ^ endTime - startTime

    "

     Time secondsToRun:[1000 factorial]  

    "

addHours:numberOfHours

    "return a new instance of myself, numberOfHours afterwards."

    ^ self addSeconds:(numberOfHours * (60 * 60))

     t := AbsoluteTime now.

     t printNL.

     (t addHours:50) printNL

addSeconds:numberOfSeconds

    "return a new instance of myself, numberOfSeconds afterwards."

    ^ self species basicNew setSeconds:(self getSeconds + numberOfSeconds)

    "

     |t|

     t := AbsoluteTime now. t printNL. (t addSeconds:50) printNL.

     t := Time now. t printNL. (t addSeconds:50) printNL

    "

!

addTime:timeAmount

    "return a new instance of myself, timeAmount seconds afterwards.

     AddTime is a bad name - it does not add a time, but expects

     a number. Use any of addSeconds/addHours etc."

    ^ self species basicNew setSeconds:(self getSeconds + timeAmount)

!

subtractHours:numberOfHours

    "return a new instance of myself, numberOfHours before."

    ^ self subtractSeconds:(numberOfHours * (60 * 60))

     (t subtractHours:50) printNL

subtractSeconds:numberOfSeconds

    "return a new instance of myself, numberOfSeconds before."

    ^ self species basicNew setSeconds:(self getSeconds - numberOfSeconds)

     (t subtractSeconds:50) printNL

!AbstractTime methodsFor:'private'!

fromOSTime:timeParts

    "set my time, from operatingSystems time parts"

    ^ self fromOSTimeLow:(timeParts at:1) and:(timeParts at:2)

fromOSTimeTimeLow:lowTime and:hiTime

    "set my time, from operatingSystems time parts.

     Since I am abstract (not knowing how the time is actually

     represented), this must be done by a concrete class."

    ^ self subclassResponsibility

!

getSeconds

    "get the seconds.

     Since I am abstract (not knowing how the time is actually

     represented), this must be done by a concrete class."

    ^ self subclassResponsibility

!

setSeconds:secs

    "set the seconds.

     Since I am abstract (not knowing how the time is actually

     represented), this must be done by a concrete class."

    ^ self subclassResponsibility

!AbstractTime class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.8 1995-12-07 21:31:40 cg Exp $'