Zurückspringen zu einem anderen Tcl-Stack-Frame

Question

Gibt es eine einfache Möglichkeit, den Stack in Tcl auszuwickeln? Ich habe dieses merkwürdige Problem, wo ich buchstäblich zu einem bestimmten Stapelrahmen zurückkommen muss. Ich kann alle Rahmeninformationen unter Verwendung des Befehls info erhalten, aber um tatsächlich zu einem bestimmten Rahmen zu gelangen, muss ich einige lokale Variablen in jeder Prozedur einstellen und sie entsprechend prüfen. Ich habe mich gefragt, ob es einen leichteren Weg gibt.

Answer 1

Wenn Sie Code erhalten müssen, um eine nicht-lokale Rückkehr (dh mehrere Ebenen zurückspringen) zu tun, Sie können dies tun, von 8,5 ab mit der -level Option return . Siehe dieses Beispiel:

Dies funktioniert, indem Sie eine besondere Art von Ausnahme werfen; Die Details sind ziemlich versteckt. Alternativ können Sie auch try und throw verwenden, wenn Sie 8.6 oder eine skriptgesteuerte Implementierung von ihnen haben (siehe Tcler's Wiki für Tcl-Code, der bei der Erörterung des Codes in 8.6 verwendet wurde).

Bei älteren Versionen Tcl, der einfachste Mechanismus ist return -code 42 zu verwenden und einige Codes in Position zu setzen Stapel zu catch die benutzerdefinierten Ausnahme und bestimmen, ob es die Magie Wert (42 hier, sondern das Ergebnis sein wird von die catch) und reagieren entsprechend. Dies kann sehr effektiv sein, ist aber auch unordentlich. Deshalb gibt Ihnen ab 8.5 Werkzeuge, die einfacher zu bedienen sind.

Answer 2

Kurze Antwort ist, dass Sie wahrscheinlich besser Ihr Design überdenken würden.

Längere Antwort ist, dass die einzige wirkliche Möglichkeit (ich kann daran denken), dies zu tun, ist es, einen Fehler zu werfen und es auf dem Niveau zu fangen, auf dem Sie es stoppen müssen. Anders als natürlich, die weniger flammen-würdige Art, Variablen den ganzen Call Stack hinauf zu prüfen. Die Verwendung von Fehlern für den Kontrollfluss ist jedoch ... schlechte Form.

Answer 3

Wenn Sie bereit sind, modern zu sein, können Coroutinen (verfügbar in 8.6) Ihre Anforderungen erfüllen.

Sonst könnten Sie versuchen, die Ebene der Routine zu notieren, zu der Sie gelangen müssen, wenn Sie dort sind (dh eine globale Variable auf [info level] setzen), und dann im tieferen proc, [ uplevel] zu diesem absoluten Stack-Frame. So etwas wie

proc need-to-be-here {} { 
    set ::myframe [info level] 
    deeper-calls 
} 

proc deepest-call {} { 
    uplevel #$::myframe {what I need to do} 
} 

(ungetestet)