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.