52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
set fd [open $outputFile w]
::xvfs::setOutputChannel $fd
}
if {[info exists headerFile]} {
::xvfs::staticIncludeHeader $headerFile
}
::xvfs::run $argv
if {[info exists fd]} {
close $fd
}
}
"dump-tcl" {
set xvfs_tcl [file join $sourceDirectory lib xvfs xvfs.tcl]
|
|
|
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
set fd [open $outputFile w]
::xvfs::setOutputChannel $fd
}
if {[info exists headerFile]} {
::xvfs::staticIncludeHeader $headerFile
}
::xvfs::run {*}$argv
if {[info exists fd]} {
close $fd
}
}
"dump-tcl" {
set xvfs_tcl [file join $sourceDirectory lib xvfs xvfs.tcl]
|