Posted to tcl by evilotto at Thu Nov 19 19:38:01 GMT 2009view raw

  1. ::foreach _cmnd [::info commands [::namespace current]::*] {
  2. ::if {[::namespace ensemble exists $_cmnd]} {
  3. ::array set _cfg [::namespace ensemble configure $_cmnd]
  4. ::set _enns $_cfg(-namespace)
  5. ::unset _cfg(-namespace)
  6. ::set _encmd [::list namespace ensemble create -command $_cmnd {*}[::array get _cfg]]
  7. ::append _ensembles [::list namespace eval $_enns $_encmd] \n
  8. }
  9. }
  10.