namespaces - 在 Tcl 中查找命名空间的所有过程

Question

让我们说我有一个命名空间。我想找到所有的命名空间过程。
例如，
让我们说我有这个代码:

namespace eval foo { 
   proc me {} { puts "yey!" }
   proc moo {} { puts "ney!" }
}
puts [ getAllNamespaceProcs foo ] ; # getAllNamespaceProcs is what I do not know how to do

这应该产生:

> { me moo }

谢谢。

Answer 1

info procs命令可以被告知要查找的命名空间:

info procs ::foo::*

这将产生 ::foo::me ::foo::moo (或者反过来； lsort 如果你关心的话)，如果你想得到你提到的结果，你可以过滤它(例如，用 lmap 和 namespace tail )。