Created by CecilWesterhof.
I often want to know the name of the proc, or the name of the script. For this I wrote the following procs:
proc getProcName {} {
set currentProc [info level 0]
set callingProc [info level 1]
# When not called from a proc, callingProc is the same as currentProc
if {${currentProc} eq ${callingProc}} {
error [format "ERROR: %s not called from a proc" ${currentProc}]
}
return [lindex ${callingProc} 0]
}
proc getScriptName {} {
file tail ${::argv0}
}As always: comments, tips and questions are appreciated.
KPV Also checkout out List the call stack.