how do I do loops

[tom^]

Wanted to execute some statements in a proc a certain number of times until a max counter is reached. What am I missing in the following because it only loops once only and I wanted to execute some statements 5 times.

proc loop
set countbeg 0
set countmax 5

while { $countbeg < $countmax } {
incr countbeg
statements to execute...
}

Thanks tom^

[Petersen]

looks fine to me. Maybe an error or a break statement is dropping it out of the loop...

[Wcc]

It would probably save code to use a for loop:

Code: Select all

proc loop {} {
  for {set i 0} {$i < 5} {incr i} { 
    statements to execute
  } 
}