Overview
| Comment: | Cleanup around xvfs::argv |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
3cb72a0d204bf9406a3898fa8c5b24ed |
| User & Date: | rkeene on 2019-09-20 15:30:12 |
| Other Links: | manifest | tags |
Context
|
2019-09-20
| ||
| 15:36 | A bit of checks before defining types check-in: c57d8bead8 user: rkeene tags: trunk | |
| 15:30 | Cleanup around xvfs::argv check-in: 3cb72a0d20 user: rkeene tags: trunk | |
| 15:25 | Logical cleanup check-in: 12383d30b7 user: rkeene tags: trunk | |
Changes
Modified lib/xvfs/xvfs.tcl from [0faf814b45] to [03c3c7ca3b].
| ︙ | ︙ | |||
249 250 251 252 253 254 255 | ## 3. Start processing directory and producing initial output set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory] set ::xvfs::fsName $fsName set ::xvfs::rootDirectory $rootDirectory } | | > > | 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 |
## 3. Start processing directory and producing initial output
set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory]
set ::xvfs::fsName $fsName
set ::xvfs::rootDirectory $rootDirectory
}
proc ::xvfs::run {argv} {
uplevel #0 { package require minirivet }
set ::xvfs::argv $argv
::minirivet::parse [file join $::xvfs::_xvfsDir xvfs.c.rvt]
}
proc ::xvfs::setOutputChannel {channel} {
uplevel #0 { package require minirivet }
tailcall ::minirivet::setOutputChannel $channel
}
|
| ︙ | ︙ |
Modified xvfs-create from [934e8154c8] to [5ca0ed49a5].
| ︙ | ︙ | |||
46 47 48 49 50 51 52 |
package require xvfs
if {[info exists outputFile]} {
set fd [open $outputFile w]
::xvfs::setOutputChannel $fd
}
| < | | 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]
|
| ︙ | ︙ |