12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
}
proc ::vfs::kitdll::Unmount {local} {
vfs::filesystem unmount $local
}
# Implementation
## I/O Handlers (pass to appropriate hashkey)
namespace eval ::vfs::kitdll::data {}
proc ::vfs::kitdll::data::getChildren args {
set hashkey [lindex $args 0]
set cmd "::vfs::kitdll::data::${hashkey}::getChildren"
set cmd [linsert $args 0 $cmd]
eval $cmd
}
proc ::vfs::kitdll::data::getMetadata args {
set hashkey [lindex $args 0]
set cmd "::vfs::kitdll::data::${hashkey}::getMetadata"
set cmd [linsert $args 0 $cmd]
eval $cmd
}
proc ::vfs::kitdll::data::getData args {
set hashkey [lindex $args 0]
set cmd "::vfs::kitdll::data::${hashkey}::getData"
set cmd [linsert $args 0 $cmd]
eval $cmd
}
## VFS and Chan I/O
### Dispatchers
proc ::vfs::kitdll::vfshandler {hashkey subcmd args} {
set cmd $args
set cmd [linsert $cmd 0 "::vfs::kitdll::vfsop_${subcmd}" $hashkey]
return [eval $cmd]
|
299
300
301
302
303
304
305
306
|
328
329
330
331
332
333
334
335
|
-
+
|
}
proc ::vfs::kitdll::vfsop_utime {} {
vfs::filesystem posixerror $::vfs::posix(EROFS)
}
package provide vfs::kitdll 1.0
::vfs::kitdll::Mount vfs_kitdll_data /tmp
::vfs::kitdll::Mount tcl /tmp
|