1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#! /usr/bin/env tclsh
namespace eval ::xvfs {}
set ::xvfs::_xvfsDir [file dirname [info script]]
# Functions
proc ::xvfs::_emitLine {line} {
::minirivet::_emitOutput "${line}\n"
}
proc ::xvfs::printHelp {channel {errors ""}} {
if {[llength $errors] != 0} {
foreach error $errors {
puts $channel "error: $error"
}
|
>
|
>
>
>
|
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"
}
|