"

 COPYRIGHT (c) 1993 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.

"

Object subclass:#Delay

	instanceVariableNames:'millisecondDelta resumtionTime delaySemaphore'

	classVariableNames:''

	poolDictionaries:''

	category:'Kernel-Processes'

!

!Delay class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 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 Delay are used to suspend the execution of a process 

    (i.e. thread) for some time interval. 

    Delays can be created either for some time-interval (seconds or milliseconds), 

    or for delaying until a specific time has reached.

    Once created, a delay is waited upon with Delay>>wait.

    Notice: due to delays (both within unix AND within Smalltalk itself,

    the resumtion time will ALWAYS be after the actual delay time.

    (i.e. a Delay for n-millis will actually suspend for more than n milliseconds)

    Warning: currently, the implementation does not support delays longer than

    a system specific maximum - future versions may remove this limitation.

    For now, do not use delays longer than the value returned by

        OperatingSystem maximumMillisecondTimeDelta

    Also notice: the clock resolution of the operatingSystem is usually limited

    (1/100, 1/60, 1/50, or even 1/20 of a second). Thus very small delays will

    delay for at least this minimum time interval. See examples.

    [see also:]

        Semaphore Process ProcessorScheduler

        Time AbsoluteTime OperatingSystem

        (Using delay in ``Working with time, delays and interrupts'': programming/timing.html#DELAY)

    [author:]

        Claus Gittinger

"

!

examples 

"

    Check your systems resolution with:

    (make certain, that no other timed processes are running in the background when doing this)

                                                                        [exBegin]

        |d t1 t2 res|

        Processor activeProcess priority:24.

        t1 := Time millisecondClockValue.

        d := Delay forMilliseconds:1.

        100 timesRepeat:[d wait].

        t2 := Time millisecondClockValue.

        res := (OperatingSystem millisecondTimeDeltaBetween:t2 and:t1) // 100.

        Transcript show:'minimum delta is about '; show:res; showCR:' milliseconds'.

        Processor activeProcess priority:8.

                                                                        [exEnd]

    examples:

    delaying for some time-delta:

    (notice: you cannot use this without time-errors in a loop,

     more than 5 seconds have passed)

            |d|

            d := Delay forMilliseconds:500.

            10 timesRepeat:[d wait]

    prove:

                                                                    [exBegin]

            |d t1 t2 deltaT|

            d := Delay forMilliseconds:500.

            t1 := Time millisecondClockValue.

            20 timesRepeat:[

                d wait

            ].

            t2 := Time millisecondClockValue.

            deltaT := OperatingSystem millisecondTimeDeltaBetween:t2 and:t1.

            Transcript show:'average delay: '; show:deltaT // 20; showCR:' milliseconds'

                                                                    [exEnd]

    delaying until a specific time is reached:

    (this can be used to fix the above problem)

                                                                    [exBegin]

            |now then t1 t2 deltaT|

            t1 := Time millisecondClockValue.

            now := Time millisecondClockValue.

            20 timesRepeat:[

                then := OperatingSystem millisecondTimeAdd:now and:500.

                (Delay untilMilliseconds:then) wait.

                now := then

            ].

            t2 := Time millisecondClockValue.

            deltaT := OperatingSystem millisecondTimeDeltaBetween:t2 and:t1.

            Transcript show:'average delay: '; show:deltaT // 20; showCR:' milliseconds'

                                                                    [exEnd]

    instead of recreating new delays all over, 

    you can also reuse it (but that does not make a bit difference ;-):

                                                                    [exBegin]

            |d now then t1 t2 deltaT|

            t1 := Time millisecondClockValue.

            now := Time millisecondClockValue.

            d := Delay new.

            10 timesRepeat:[

                then := OperatingSystem millisecondTimeAdd:now and:1000.

                d resumtionTime:then.

                d wait.

                now := then

            ].

            t2 := Time millisecondClockValue.

            deltaT := OperatingSystem millisecondTimeDeltaBetween:t2 and:t1.

            Transcript show:'average delay: '; show:deltaT // 10; showCR:' milliseconds'

                                                                    [exEnd]

"

! !

!Delay class methodsFor:'instance creation'!

forMilliseconds:aNumber

    "return a new Delay object for delaying aNumber milliseconds"

    ^ self new delay:aNumber

!

forSeconds:aNumber

    "return a new Delay object for delaying aNumber seconds"

    ^ self new delay:(aNumber * 1000) rounded

!

until:anAbsoluteTime

    "return a new Delay object, that will delay the active process

     until the system has reached the time represented by the argument.

     BUG:

	due to the limited range of the millisecondTimer, this can 

	(currently) not be used for long delays. The maximum supported

	delay is returned by OperatingSystem>>maximumMillisecondTimeDelta."

    |numberOfSeconds|

    numberOfSeconds := anAbsoluteTime getSeconds - AbsoluteTime now getSeconds.

    ^ self new delay:numberOfSeconds * 1000

!

untilMilliseconds:aMillisecondTime

    "return a new Delay object, that will delay the active process

     until the systems millisecond time has reached aMillisecondTime.

    "

    ^ self new resumtionTime:aMillisecondTime

! !

!Delay class methodsFor:'queries'!

millisecondClockValue

    "for ST-80 compatibility"

    ^ Time millisecondClockValue

! !

!Delay class methodsFor:'waiting'!

waitForMilliseconds:aNumber

    "wait for the given number of milliseconds.

     This is a combined instance creation & wait."

    ^ (self forMilliseconds:aNumber) wait

!

waitForSeconds:aNumber

    "wait for the given number of seconds.

     This is a combined instance creation & wait."

    ^ (self forSeconds:aNumber) wait

! !

!Delay methodsFor:'accessing'!

delay:aNumber

    "set the millisecond delta"

    millisecondDelta := aNumber.

    delaySemaphore := Semaphore new.

!

delaySemaphore

    "return the semaphore used to resume the waiting process"

    ^ delaySemaphore

!

resumtionTime:aMillisecondTime

    "set the resumtion time"

    resumtionTime := aMillisecondTime.

    delaySemaphore := Semaphore new.

! !

!Delay methodsFor:'delaying'!

wait

    "suspend the current process until either the relative time delta

     has passed (if millisecondDelta is non-nil), or the absolute millisecondTime

     has been reached (if resumtionTime non-nil)."

    Processor activeProcess state:#timeWait.

    [

        millisecondDelta notNil ifTrue:[

            Processor signal:delaySemaphore afterMilliseconds:millisecondDelta.

        ] ifFalse:[

            Processor signal:delaySemaphore atMilliseconds:resumtionTime.

        ].

        delaySemaphore wait.

    ] valueUninterruptably

    "

     '1' printNewline.

     (Delay forSeconds:10) wait.

     '2' printNewline

    "

    "Modified: 28.2.1996 / 21:39:26 / cg"

! !

!Delay methodsFor:'early signalling'!

resume

    "resume the waiter, even if the delay-time has not yet passed."

    [

        Processor disableSemaphore:delaySemaphore.

        delaySemaphore signal.

    ] valueUninterruptably

    "Modified: 28.2.1996 / 21:40:27 / cg"

! !

!Delay class methodsFor:'documentation'!

version

! !