Getting the FQN of a caller command

Posted to tcl by kostix at Fri Dec 01 19:20:29 GMT 2006view raw

proc get_caller {{level 1}} {
if {[info level] < 3} {
return {}
} else {
incr level
uplevel $level {namespace which -command [lindex [info level 0] 0]}
}
}