Lines Matching refs:ns
2 package provide vfs::ns 0.5.1
12 namespace eval vfs::ns {}
14 proc vfs::ns::Mount {ns local} {
15 if {![namespace exists ::$ns]} {
18 ::vfs::log "ns $ns mounted at $local"
19 vfs::filesystem mount $local [list vfs::ns::handler $ns]
20 vfs::RegisterMount $local [list vfs::ns::Unmount]
24 proc vfs::ns::Unmount {local} {
28 proc vfs::ns::handler {ns cmd root relative actualpath args} {
31 eval [list $cmd $ns $relative $actualpath] $args
33 eval [list $cmd $ns $relative] $args
40 proc vfs::ns::stat {ns name} {
42 if {[namespace exists ::${ns}::${name}]} {
46 } elseif {[llength [info procs ::${ns}::${name}]]} {
53 proc vfs::ns::access {ns name mode} {
55 if {[namespace exists ::${ns}::${name}]} {
57 } elseif {[llength [info procs ::${ns}::${name}]]} {
67 proc vfs::ns::exists {ns name} {
68 if {[namespace exists ::${ns}::${name}]} {
70 } elseif {[llength [info procs ::${ns}::${name}]]} {
77 proc vfs::ns::open {ns name mode permissions} {
88 puts -nonewline $nfd [_generate ::${ns}::${name}]
99 proc vfs::ns::_generate {p} {
112 proc vfs::ns::matchindirectory {ns path actualpath pattern type} {
116 set ns ::[string trim $ns :]
117 set nspath ${ns}::${path}
145 regsub "^(::)?${ns}(::)?${path}(::)?" $r $actualpath rr
153 proc vfs::ns::createdirectory {ns name} {
155 namespace eval ::${ns}::${name} {}
158 proc vfs::ns::removedirectory {ns name recursive} {
160 namespace delete ::${ns}::${name}
163 proc vfs::ns::deletefile {ns name} {
165 rename ::${ns}::${name} {}
168 proc vfs::ns::fileattributes {ns name args} {
180 ::info args ::${ns}::${name}
183 ::info body ::${ns}::${name}
203 proc vfs::ns::utime {what name actime mtime} {