Tcl catch pour afficher le nom de la procédure

Question

Disons que j'ai plusieurs appels de procédure dans un bloc catch. Y at-il un moyen d'afficher laquelle de ces procédures a déclenché une exception, après l'avoir interceptée?

Answer 1

Si vous regardez dans la variable globale errorInfo, vous verrez une trace de pile qui contient les informations que vous voulez. Vous pouvez également obtenir cette information en ajoutant un argument variable supplémentaire à l'appel catch après errMsg, dans lequel sera écrit un dictionnaire incluant la trace d'informations d'erreur ainsi que d'autres éléments (par exemple, le code d'exception lisible par ordinateur).

---

[EDIT]: Dans Tcl 8.6, le dictionnaire d'options d'exception a un élément -errorstack qui contient une description de ce qui est appelé. Voici une session interactive qui montre ceci:

% proc foo {x} {error $x} 
% proc bar c {catch {puts a;foo $c} a b;return $b} 
% bar d 
a 
-code 1 -level 0 -errorstack {INNER {returnImm d {}} CALL {foo d} CALL {bar d}} -errorcode NONE -errorinfo {d 
    while executing 
"error $x" 
    (procedure "foo" line 1) 
    invoked from within 
"foo $c"} -errorline 1 

La pile d'erreur comporte des paires d'éléments pour diverses choses, mais les principaux sont ceux de type CALL, où le deuxième élément de chaque paire est la liste des arguments qui ont été utilisé pour faire l'appel. Il pourrait être possible de s'en servir pour obtenir le nom. (Le type INNER fait référence à l'état d'exécution du moteur de code d'octet Tcl, et je ne sais pas s'il existe d'autres types.)