39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
}
return [join $output "\n"]
}
switch -- $mode {
"run" {
if {[info exists outputFile]} {
set fd [open $outputFile w]
::minirivet::setOutputChannel $fd
}
package require xvfs
set ::xvfs::argv $argv
::xvfs::run
if {[info exists fd]} {
close $fd
}
}
|
>
>
|
<
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
}
return [join $output "\n"]
}
switch -- $mode {
"run" {
package require xvfs
if {[info exists outputFile]} {
set fd [open $outputFile w]
::xvfs::setOutputChannel $fd
}
set ::xvfs::argv $argv
::xvfs::run
if {[info exists fd]} {
close $fd
}
}
|