Differences From Artifact [9f5a2be874]:
- File lib/xvfs/xvfs.tcl — part of check-in [30ffb49c05] at 2019-09-20 16:06:13 on branch trunk — Fixed bug in producing errors (user: rkeene, size: 6560) [annotate] [blame] [check-ins using]
To Artifact [335b9042ac]:
- File lib/xvfs/xvfs.tcl — part of check-in [0e8537c65f] at 2019-09-20 16:10:54 on branch trunk — Added support for user-defined file name remapping and exclusion (user: rkeene, size: 6826) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 10 | 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 | 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"
|
| ︙ |