46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
package require xvfs
if {[info exists outputFile]} {
set fd [open $outputFile w]
::xvfs::setOutputChannel $fd
}
set ::xvfs::argv $argv
::xvfs::run
|
<
|
|
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
package require xvfs
if {[info exists outputFile]} {
set fd [open $outputFile w]
::xvfs::setOutputChannel $fd
}
::xvfs::run $argv
if {[info exists fd]} {
close $fd
}
}
"dump-tcl" {
set xvfs_tcl [file join $sourceDirectory lib xvfs xvfs.tcl]
|