Updated 2018-08-24 15:03:24 by pooryorick

Created by CecilWesterhof.

I wrote some proc's to wait until a certain moment, or get the ticks to wait to a certain moment. They can be used to wait in a script, or used with the event loop.

First the proc to wait to a certain minute.

Often you want to do something every minute, or every five minutes, or every 15 minutes, or ...

For this I wrote the following proc:
# Waits until minutes is a multiply of INTERVAL
# 60 % INTERVAL should be 0
proc waitMinutes {interval} {
    if {[expr {(60 % $interval) != 0}]} {
        error "[getProcName]: 60 is not a multiply of $interval"
    }
    after [getWaitMinutesTicks $interval]
}

This function waits until the start of the next multiply of interval minutes. For example when using an interval of fifth-teen it waits until the start of the 0, 15, 30 or 45 minute.

I have a similar function that waits for seconds:
# Waits until seconds is a multiply of INTERVAL
# 3600 % INTERVAL should be 0
proc waitSeconds {interval} {
    if {[expr {(3600 % $interval) != 0}]} {
        error "[getProcName]: 3600 is not a multiply of $interval"
    }
    after [getWaitSecondsTicks $interval]
}

For these two proc's I need two other procs:
# Get ticks to wait until minutes is a multiply of INTERVAL
# 60 % INTERVAL should be 0
proc getWaitMinutesTicks {interval} {
    if {[expr {(60 % $interval) != 0}]} {
        error "[getProcName]: 60 is not a multiply of $interval"
    }
    getWaitSecondsTicks [expr {$interval * 60}]
}

# Get ticks to wait until seconds is a multiply of INTERVAL
# 3600 % INTERVAL should be 0
proc getWaitSecondsTicks {interval} {
    if {[expr {(3600 % $interval) != 0}]} {
        error "[getProcName]: 3600 is not a multiply of $interval"
    }
    set secondsInHour [expr {[clock seconds] % 3600}]
    set secondsToWait [expr {$interval - ($secondsInHour % $interval)}]
    expr {1000 * $secondsToWait}
}

When I want to wait for the start of the next minute, I use:
waitMinutes 1

When I want to use it with an event loop, I do something like:
proc storeCPUTemp {} {
    storeMessage cpu-temp [getCPUTemp]
    after [getWaitMinutesTicks $::intervalCPU]  storeCPUTemp
}

When the proc's are called with the wrong parameter, they generate an error and use getProcName: GetProcName/GetScriptName.

If you find them useful and are going to use them: let me know.

As always: comments, tips and questions are appreciated.