TCL: Return to a higher level?

Question

How can I return from a proc to a higher context?
For example: If proc X called another proc Y which called a third proc Z - is there a way to return from Z directly back to X ?

Answer 1

From 8.5 onwards, yes. The return command has a -level option which is used to do just that:

return -level 2 $someValue

Thus, for example:

proc X {} {
    puts "X - in"
    Y
    puts "X - out"
}
proc Y {} {
    puts "Y - in"
    Z
    puts "Y - out"
}
proc Z {} {
    puts "Z - in"
    return -level 2 "some value"
    puts "Z - out"
}
X

produces this output:

X - in
Y - in
Z - in
X - out

Note that doing this reduces the reusability of Z, but that's your business.