arrêter tcl procédure de fonctionner plus régulièrement qu'une fois toutes les 2 minutes, peu importe combien de fois il est appelé

Question

J'ai un morceau de code qui a une procédure, je veux seulement que le proc se déclenche, au plus toutes les 2 minutes. S'il s'est déclenché au cours des 2 dernières minutes, il devrait simplement quitter. Actuellement, il a un petit délai avant de s'exécuter (après 5000), mais ce que cela semble faire, est de mettre en file d'attente toutes les autres demandes d'exécution qui ont eu lieu au repos (5 secondes), puis de pummel les commandes en file d'attente dans une vague d'activité.

Évidemment, cela manque une partie importante, mais
j'ai envisagé de faire quelque chose avec des variables telles que:

#gets current time since epoch as var0 
set timer0 clock format [clock seconds] -format %s 
#gets current time since epoch as var1 
set timer1 clock format [clock seconds] -format %s 
#calculates elapsed time since epoch in seconds, converts seconds to minutes 
set split [ expr (($timer0 - $timer1)/60)/60 ] 
if { $split > 2 } { 
    my_proc $maybe_1var $maybe_2vars $maybe_3vars 
} else { 
    exit super gracefully 
} 

Je peux fournir des extraits de mon code actuel si vous le souhaitez. Ce n'est pas aussi élégant que ce que j'imagine, et je ne suis pas sûr qu'il existe de meilleures façons de le faire dans Tcl.

Answer 1

Une solution possible:

set lastExecuted "" 

proc foo {} { 
    global lastExecuted 
    set currentTimestamp [clock scan seconds] 
    if {$lastExecuted != "" && ($currentTimestamp - $lastExecuted) > 120} { 
     exit 
    } 
    set lastExecuted $currentTimestamp 
    # continue execution 
}