Lines Matching refs:ns
120 # This is what requires '[ns current]' as context.
144 proc ::namespacex::hook::Get {ns} {
145 return [namespace eval $ns { namespace unknown }]
148 proc ::namespacex::hook::Set {ns handler} {
149 #puts UH|SET|$ns|<<$handler>>
151 namespace eval $ns [list namespace unknown $handler]
186 proc ::namespacex::info::allvars {ns} {
187 if {![string match {::*} $ns]} { set ns ::$ns }
188 ::set result [::info vars ${ns}::*]
189 foreach cns [allchildren $ns] {
192 return [Strip $ns $result]
195 proc ::namespacex::info::allchildren {ns} {
196 if {![string match {::*} $ns]} { set ns ::$ns }
198 foreach cns [::namespace children $ns] {
205 proc ::namespacex::info::vars {ns {pattern *}} {
206 return [Strip $ns [::info vars ${ns}::$pattern]]
209 proc ::namespacex::info::Strip {ns itemlist} {
210 set n [string length $ns]
211 if {![string match {::*} $ns]} {
227 proc ::namespacex::state::drop {ns} {
228 if {![string match {::*} $ns]} { ::set ns ::$ns }
229 namespace eval $ns [list ::unset {*}[::namespacex info allvars $ns]]
233 proc ::namespacex::state::get {ns} {
234 if {![string match {::*} $ns]} { ::set ns ::$ns }
236 foreach v [::namespacex info allvars $ns] {
237 namespace upvar $ns $v value
243 proc ::namespacex::state::set {ns state} {
244 if {![string match {::*} $ns]} { ::set ns ::$ns }
246 namespace eval $ns [list ::unset {*}[::namespacex info allvars $ns]]
247 namespace eval $ns [list variable {*}$state]