Overview
| Comment: | Added support for user-defined file name remapping and exclusion |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
0e8537c65f95a50f853e9b1242709eed |
| User & Date: | rkeene on 2019-09-20 16:10:54 |
| Other Links: | manifest | tags |
Context
|
2019-09-20
| ||
| 16:11 | Also give the callback the bare file name check-in: ed3da129b8 user: rkeene tags: trunk | |
| 16:10 | Added support for user-defined file name remapping and exclusion check-in: 0e8537c65f user: rkeene tags: trunk | |
| 16:06 | Fixed bug in producing errors check-in: 30ffb49c05 user: rkeene tags: trunk | |
Changes
Modified lib/xvfs/xvfs.tcl from [9f5a2be874] to [335b9042ac].
1 2 3 4 5 6 7 8 9 10 |
#! /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"
| > | 1 2 3 4 5 6 7 8 9 10 11 |
#! /usr/bin/env tclsh
namespace eval ::xvfs {}
namespace eval ::xvfs::callback {}
set ::xvfs::_xvfsDir [file dirname [info script]]
# Functions
proc ::xvfs::_emitLine {line} {
if {[info command ::minirivet::_emitOutput] ne ""} {
::minirivet::_emitOutput "${line}\n"
|
| ︙ | ︙ | |||
159 160 161 162 163 164 165 166 167 168 169 170 171 172 |
foreach file [glob -nocomplain -tails -directory $workingDirectory *] {
if {$file in {. ..}} {
continue
}
set inputFile [file join $workingDirectory $file]
set outputFile [file join $outputDirectory [encoding convertto utf-8 $file]]
unset -nocomplain fileInfo
catch {
file lstat $inputFile fileInfo
}
if {![info exists fileInfo]} {
puts stderr "warning: Unable to access $inputFile, skipping"
| > > > > > > > | 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 |
foreach file [glob -nocomplain -tails -directory $workingDirectory *] {
if {$file in {. ..}} {
continue
}
set inputFile [file join $workingDirectory $file]
set outputFile [file join $outputDirectory [encoding convertto utf-8 $file]]
if {[info command ::xvfs::callback::setOutputFileName] ne ""} {
set outputFile [::xvfs::callback::setOutputFileName $workingDirectory $inputFile $outputDirectory $outputFile]
if {$outputFile eq ""} {
continue
}
}
unset -nocomplain fileInfo
catch {
file lstat $inputFile fileInfo
}
if {![info exists fileInfo]} {
puts stderr "warning: Unable to access $inputFile, skipping"
|
| ︙ | ︙ |