Posted to tcl by evilotto at Thu Nov 19 19:38:01 GMT 2009view raw
- ::foreach _cmnd [::info commands [::namespace current]::*] {
- ::if {[::namespace ensemble exists $_cmnd]} {
- ::array set _cfg [::namespace ensemble configure $_cmnd]
- ::set _enns $_cfg(-namespace)
- ::unset _cfg(-namespace)
- ::set _encmd [::list namespace ensemble create -command $_cmnd {*}[::array get _cfg]]
- ::append _ensembles [::list namespace eval $_enns $_encmd] \n
- }
- }