Getting the FQN of a caller command
Posted to
tcl
by kostix at Fri Dec 01 19:20:29 GMT 2006
view raw
proc
get_caller {{level 1}} {
if
{[
info
level] < 3} {
return
{}
}
else
{
incr
level
uplevel
$level
{
namespace
which -command [
lindex
[
info
level 0] 0]}
}
}
Recent Posts
tcl by oldlaptop
2 days ago
tcl by mookie
8 days ago
tcl by dandyn
15 days ago
tcl by Bradipo
15 days ago
tcl by Bradipo
15 days ago
tcl by oldlaptop
40 days ago
tcl by oldlaptop
40 days ago
tcl by mookie
45 days ago
tcl by mookie
45 days ago
tcl by georgtree
46 days ago
Submit
New paste
Documentation
From Jabber