Lines of xvfs-create-synthetic from check-in fc90ef3457 that are changed by the sequence of edits moving toward check-in 9f07de5ec5:

                         1: #! /usr/bin/env tclsh
                         2: 
                         3: set sourceDirectory [file dirname [file normalize [info script]]]
                         4: lappend auto_path [file join $sourceDirectory lib]
                         5: package require xvfs
                         6: 
                         7: proc ::xvfs::callback::setOutputFileName {args} {
                         8: 	return "/"
                         9: }
                        10: 
                        11: dict set ::myOwnVFS "" {
                        12: 	type directory
                        13: 	children {foo xvfs-create-synthetic}
                        14: }
                        15: dict set ::myOwnVFS "foo" {
                        16: 	type file
                        17: 	fileContents "abc"
                        18: }
                        19: dict set ::myOwnVFS "xvfs-create-synthetic" {
                        20: 	type file
                        21: }
                        22: 
                        23: proc ::xvfs::callback::addOutputFiles {fsName} {
                        24: 	dict for {outputName fileContentsDict} $::myOwnVFS {
                        25: 		set inputFile $outputName
                        26: 		if {[dict exists $fileContentsDict inputFile]} {
                        27: 			set inputFile [dict get $fileContentsDict inputFile]
                        28: 		}
                        29: 		::xvfs::processFile $fsName $inputFile $outputName $fileContentsDict
                        30: 	}
fc90ef3457 2019-09-20   31: 	return [dict keys $::myOwnVFS]
                        32: }
                        33: 
                        34: ::xvfs::run --directory [pwd] --name synthetic