tcl - 你能在 proc 中获取 "proc name"吗？

Question

在 proc 中，您可以获得 proc 名称(无需对其进行硬编码)吗？例如

proc my_proc { some_arg } {
    puts "entering proc [some way of getting proc name]"
}

Answer 1

当然可以!

使用 info level 命令:

proc my_proc { some_arg } {
    puts "entering proc [lindex [info level 0] 0]"
}

你会得到你想要的

entering proc my_proc

另一种方法是使用 info frame ，它提供包含其他信息的字典，并读取 proc 键:

proc my_proc { some_arg } {
    puts "entering proc [dict get [info frame 0] proc]"
}

这一次，您将获得完全限定的 proc 名称:

entering proc ::my_proc