Tcl 从原始命令中查找重命名的命令

是否有任何tcl函数/proc/api可以用来获取所有重命名的命令

我的意思是：

假设有人在包含的文件中的某个位置写入以下语句：

rename -force command tmp_command

在这一行之后，没有“command”命令，而“tmp_command”是新命令

---

如果我需要的地方只有“command”名称，我如何才能重命名命令“tmp_command”。

Tcl不记得它为您所做的重命名，但您可以通过跟踪对

rename

的调用（在左侧，这样您就可以只跟踪成功的调用）来创建自己的命令：

---

警告：这不会跟踪所有命令的删除。

传统上，您是通过覆盖

重命名来实现的，但是跟踪更优雅、更容易。
trace add execution rename leave rememberRename
proc rememberRename {cmd code args} { # see the docs for the full list of callback arguments
    if {$code == 0} {
        lappend ::renames [lrange $cmd 1 end]
    }
}

# demo code
proc foo x y
rename foo bar
rename bar grill
rename grill foo
puts $renames
# {foo bar} {bar grill} {grill foo}