17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
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
|
+
+
+
+
+
+
+
+
-
+
+
+
|
fileContents "abc"
}
dict set ::myOwnVFS "xvfs-create-synthetic" {
type file
}
proc ::xvfs::callback::addOutputFiles {fsName} {
for {set i 0} {$i < 100000} {incr i} {
set filename [expr rand()]
::xvfs::processFile $fsName "" $filename [dict create type file fileContents [expr rand()]]
lappend retval $filename
}
dict set ::myOwnVFS "" children [list foo xvfs-create-synthetic {*}$retval]
dict for {outputName fileContentsDict} $::myOwnVFS {
set inputFile $outputName
if {[dict exists $fileContentsDict inputFile]} {
set inputFile [dict get $fileContentsDict inputFile]
}
::xvfs::processFile $fsName $inputFile $outputName $fileContentsDict
}
return [dict keys $::myOwnVFS]
lappend retval {*}[dict keys $::myOwnVFS]
return $retval
}
::xvfs::run --directory [pwd] --name synthetic
|