* Purpose: Progress meter for Tcl scripts
I am creating this page because I don't find one like it but certainly there should be an interest. While the below example works somewhat, I am sure that the more experienced coders can come up with better.
The "spinner" component spins upon each loop providing an indication that the program is working, while the percent meter indicates the entire progress of work being done.
set p(cnt) 1
set spincnt 0
array set spinner {
0 "/" 1 "-" 2 "\\" 3 "|"
4 "/" 5 "-" 6 "\\" 7 "|"
}
proc progressMeter {total} {
global p spincnt spinner
puts -nonewline stdout " \[00%\]\b\b\b\b\b\b"; flush stdout
for {set i 0} {$i < $total} {incr i} {
if {$spincnt == 7} {
set spincnt 0
} else {
incr spincnt
}
if {$p(cnt) < 10} {
set percent ".0$p(cnt)"
} else {
set percent ".$p(cnt)"
}
puts -nonewline stdout " $spinner($spincnt)\b\b\b"; flush stdout
if {$i >= [expr $total * $percent]} {
incr p(cnt)
set pout [string map {"." ""} $p(cnt)]
puts -nonewline stdout " $spinner($spincnt)\[$pout%\]\b\b\b\b\b\b\b\b"
flush stdout
}
# your code goes here rather than the delay
after 100
}
puts stdout "\b\bDone! "; flush stdout
return
}
# arbitrary starter
progressMeter 220