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] "::"]