TCL erhalte den proc-Namen, in dem ich bin

Question

Wie man weiß, was der Name des Proc ist, in dem ich bin. Ich meine, ich brauche das:

proc nameOfTheProc {} { 

    #a lot of code here 
    puts "ERROR: You are using 'nameOfTheProc' proc wrongly" 
} 

so möchte ich "NameOfTheProc" aber nicht hard-code erhalten. Wenn jemand den Namen des Procs ändert, funktioniert es immer noch korrekt.

Answer 1

Sie können den info level Befehl für Ihr Problem:

proc nameOfTheProc {} { 

    #a lot of code here 
    puts "ERROR: You are using '[lindex [info level [info level]] 0]' proc wrongly" 
    puts "INFO: You specified the arguments: '[lrange [info level [info level]] 1 end]'" 
} 

Mit den inneren info level werden Sie den Pegel der Prozeduraufruf Tiefe erhalten Sie befinden sich in dem Außen wird man den Namen des Verfahrens zurück. selbst.

Answer 2

Wenn Ihr Tcl 8.5 oder später ausgeführt wird, gibt der Befehl info frame ein Diktat statt einer Liste zurück. So ändern Sie den Code wie folgt:

proc nameOfTheProc {} { 
    puts "This is [dict get [info frame [info frame]] proc]" 
} 

Answer 3

Der korrekte idiomatische Weg zu erreichen, was ist implizierte in Ihrer Frage return -code error $message wie folgt zu verwenden:

proc nameOfTheProc {} { 
    #a lot of code here 
    return -code error "Wrong sequence of blorbs passed" 
} 

Auf diese Weise Ihre Prozedur genau in einem verhaltenen Weg Lager Tcl-Befehle tun, wenn sie nicht mit dem zufrieden sind, mit dem sie aufgerufen wurden: es würde einen Fehler an der Aufruf-Website verursachen.