1
2
3
4
5
6
7
8
9
10
11
|
#! /usr/bin/env tclsh
namespace eval ::xvfs {}
# Functions
proc ::xvfs::_emitLine {line} {
::minirivet::_emitOutput "${line}\n"
}
proc ::xvfs::printHelp {channel {errors ""}} {
if {[llength $errors] != 0} {
|
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#! /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} {
|
242
243
244
245
246
247
248
249
250
|
## 3. Start processing directory and producing initial output
set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory]
set ::xvfs::fsName $fsName
set ::xvfs::rootDirectory $rootDirectory
}
package provide xvfs 1
|
>
>
>
>
>
|
244
245
246
247
248
249
250
251
252
253
254
255
256
257
|
## 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 {} {
::minirivet::parse [file join $::xvfs::_xvfsDir xvfs.c.rvt]
}
package provide xvfs 1
|