TCL ottenere il nome proc in cui sono

Question

Come sapere qual è il nome del proc in cui sono. Voglio dire che ho bisogno di questo:

proc nameOfTheProc {} { 

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

quindi voglio ottenere "nameOfTheProc" ma non hard-code. In modo che quando qualcuno cambierà il nome proc, funzionerà ancora correttamente.

Answer 1

È possibile utilizzare il comando info level per il vostro problema:

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]'" 
} 

Con l'interno info level si otterrà il livello di profondità chiamata di procedura nella quale sei quello esterno restituirà il nome della procedura. si.

Answer 2

Se il tuo Tcl 8.5 o successivo esegue il comando info frame restituirà un dict piuttosto che un elenco. Quindi modificare il codice come segue:

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

Answer 3

Il modo idiomatica giusta per ottenere ciò che è implicita nella sua domanda è quello di utilizzare return -code error $message come questo:

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

In questo modo il procedimento si comporterà esattamente in un il modo in cui i comandi Tcl vengono eseguiti quando non sono soddisfatti di ciò con cui sono stati chiamati: causerebbe un errore nel sito di chiamata.