namespaces - Tcl 命名空间重命名以避免冲突

Question

我想在 tcl 中重命名或删除命名空间，谁能告诉我该怎么做？

rename gk ""

这里 gk 是命名空间

Answer 1

我不知道重命名现有命名空间的任何方法。要删除命名空间：

namespace delete namespace_name

命名空间内的所有子命名空间、proc、vars 都将作为此调用的结果被删除。

Answer 2

使用此过程重命名任何给定的命名空间：

proc renameNameSpace {oldNameSpace newNameSpace} {
    foreach proc [info procs ::${oldNameSpace}::*] {
        rename $proc ::${newNameSpace}::[lindex [split $proc ::] end]
    }
}