TCL uzyskać nazwę proc, w którym jestem

Question

Jak się dowiedzieć, jaka jest nazwa proc, w którym jestem. Mam na myśli, że potrzebuję tego:

proc nameOfTheProc {} { 

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

więc chcę uzyskać "nameOfTheProc", ale nie na sztywno. Tak więc, gdy ktoś zmieni nazwę proc, nadal będzie działał poprawnie.

Answer 1

Można użyć komendy info level do problemu:

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

z wewnętrzną info level dostaniesz poziom głębokości wywołanie procedury jesteś obecnie w Zewnętrzna jeden zwróci nazwę procedury. samo.

Answer 2

Jeśli używasz Tcl w wersji 8.5 lub nowszej, komenda info frame zwróci polecenie, a nie listę. Tak zmodyfikować kod w następujący sposób:

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

Answer 3

Prawidłowe idiomatyczne sposobem osiągnięcia co domniemanych w swoim pytaniu jest użycie return -code error $message takiego:

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

ten sposób Państwa procedura będzie zachowywał się dokładnie w sposób sposób, w jaki komendy Tcl działają, gdy nie są zadowoleni z tego, z czym zostały wywołane: spowodowałoby to błąd w witrynie połączenia.