Forum OpenACS Q&A: Problem wiht tcl`s control structure

Hello.

I´m writing a procedure with a for loop inside an if sentence. This is an example:

ad_proc -public sgra::ruta_opcion {
predefinida
sugeridas
} {
} {
set predef [llength $predefinida]
set sug [llength $sugeridas]
if {$predef < $sug} {
for {set i 0} {$i < $sug} {incr i}
{ puts "predef $predef" }
} else {
puts "sugerida $sug"
}
puts $sugeridas
}

I have the error:

wrong # args: should be "for start test next command"

while compiling
"for {set i 0} {$i < $sug} {incr i} "
("if" then script line 2)
while compiling
"if {$predef < $sug} {
for {set i 0} {$i < $sug} {incr i}

How can I do? Thank you very much.

Irma,

Sorry, ignore my answer, I didn't read closely.

It works!
Really tricky. Thank you very much.

The way I think of it is that a newline ends a tcl command, except inside a pair of {}. So unless you are inside a {} pair, a newline will cause tcl to attempt parse the statement, whether it is complete or not.

Also you can of course escape the newline with a backslash to continue a line.