165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
set outputFile [file join $outputDirectory [encoding convertto utf-8 $file]]
unset -nocomplain fileInfo
catch {
file lstat $inputFile fileInfo
}
if {![info exists fileInfo]} {
::xvfs::_emitLine stderr "warning: Unable to access $inputFile, skipping"
}
lappend children [file tail $file]
if {$fileInfo(type) eq "directory"} {
lappend subDirectories $outputFile
continue
|
|
|
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
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"
}
lappend children [file tail $file]
if {$fileInfo(type) eq "directory"} {
lappend subDirectories $outputFile
continue
|