如何列出TCL實例中的所有名稱空間？

Question

如何列出在tclsh實例中加載的所有名稱空間？

Chenz

Answer 1

嘗試運行從這個進程內的TCLer的Wiki

proc listns {{parentns ::}} { 
     set result [list] 
     foreach ns [namespace children $parentns] { 
       eval lappend result [listns $ns] 
       lappend result $ns 
     } 
     return $result 
    } 

當我運行它，我得到以下的輸出：

% listns 
::platform ::activestate::teapot::link ::activestate::teapot ::activestate ::tcl 
::clock ::tcl::info ::tcl::dict ::tcl::tm ::tcl::mathop ::tcl::unsupported ::tcl 
::mathfunc ::tcl::chan ::tcl::string ::tcl 
% 

因此，讓所有的命名空間，只需要這樣做：

set all_namespaces [concat [listns] "::"]