Check-in [30ffb49c05]
Overview
Comment:Fixed bug in producing errors
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 30ffb49c05b3d9a4fa090d26a62ef2c5ba6b73778ce08d99a4e2069ae534149c
User & Date: rkeene on 2019-09-20 16:06:13
Other Links: manifest | tags
Context
2019-09-20
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
15:58
Allow the user to specify either the path to or the contents of "xvfs-core.h" check-in: 09e53d3c38 user: rkeene tags: trunk
Changes

Modified lib/xvfs/xvfs.tcl from [42bc5b4d63] to [9f5a2be874].

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