Tcl名称空间重命名以避免冲突

Question

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

rename gk ""

这里gk是命名空间

Answer 1

我不知道如何重命名现有的命名空间。删除命名空间：

namespace delete namespace_name

作为此调用的结果，将删除命名空间中的所有子名称空间，proc，vars。

Answer 2

使用此proc重命名任何给定的名称空间：

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