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].
<<categories>>Utilities