Overview
| Comment: | Made wrappers around minirivet for some XVFS calls |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
d36db7c01b0755f9544b80da4a9df2bb |
| User & Date: | rkeene on 2019-09-20 15:22:58 |
| Other Links: | manifest | tags |
Context
|
2019-09-20
| ||
| 15:25 | Logical cleanup check-in: 12383d30b7 user: rkeene tags: trunk | |
| 15:22 | Made wrappers around minirivet for some XVFS calls check-in: d36db7c01b user: rkeene tags: trunk | |
| 15:18 | Improved how the XVFS package finds its source files check-in: 2b7fa3a8fa user: rkeene tags: trunk | |
Changes
Modified lib/xvfs/xvfs.tcl from [53029d2552] to [4523133852].
| ︙ | ︙ | |||
246 247 248 249 250 251 252 253 254 255 |
set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory]
set ::xvfs::fsName $fsName
set ::xvfs::rootDirectory $rootDirectory
}
proc ::xvfs::run {} {
::minirivet::parse [file join $::xvfs::_xvfsDir xvfs.c.rvt]
}
| > > > > | > > > > > > | 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 |
set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory]
set ::xvfs::fsName $fsName
set ::xvfs::rootDirectory $rootDirectory
}
proc ::xvfs::run {} {
uplevel #0 { package require minirivet }
::minirivet::parse [file join $::xvfs::_xvfsDir xvfs.c.rvt]
}
proc ::xvfs::setOutputChannel {channel} {
uplevel #0 { package require minirivet }
tailcall ::minirivet::setOutputChannel $channel
}
proc ::xvfs::setOutputVariable {variable} {
uplevel #0 { package require minirivet }
tailcall ::minirivet::setOutputVariable $variable
}
package provide xvfs 1
|
Modified xvfs-create from [ef2102737b] to [934e8154c8].
| ︙ | ︙ | |||
39 40 41 42 43 44 45 46 47 |
}
return [join $output "\n"]
}
switch -- $mode {
"run" {
if {[info exists outputFile]} {
set fd [open $outputFile w]
| > > | < | 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
}
}
|
| ︙ | ︙ |