Overview
| Comment: | Logical cleanup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
12383d30b7a5fc9238ab4a1349d59aa4 |
| User & Date: | rkeene on 2019-09-20 15:25:04 |
| Other Links: | manifest | tags |
Context
|
2019-09-20
| ||
| 15:30 | Cleanup around xvfs::argv check-in: 3cb72a0d20 user: rkeene tags: trunk | |
| 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 | |
Changes
Modified lib/xvfs/xvfs.tcl from [4523133852] to [0faf814b45].
1 2 3 4 5 6 7 8 |
#! /usr/bin/env tclsh
namespace eval ::xvfs {}
set ::xvfs::_xvfsDir [file dirname [info script]]
# Functions
proc ::xvfs::_emitLine {line} {
| > | > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
#! /usr/bin/env tclsh
namespace eval ::xvfs {}
set ::xvfs::_xvfsDir [file dirname [info script]]
# Functions
proc ::xvfs::_emitLine {line} {
if {[info command ::minirivet::_emitOutput] ne ""} {
::minirivet::_emitOutput "${line}\n"
} else {
puts $line
}
}
proc ::xvfs::printHelp {channel {errors ""}} {
if {[llength $errors] != 0} {
foreach error $errors {
puts $channel "error: $error"
}
|
| ︙ | ︙ |