Lines of xvfs-create-synthetic from check-in c8742de968 that are changed by the sequence of edits moving toward check-in f4ea8e39b6:

                         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: proc ::xvfs::callback::addOutputFiles {fsName} {
                        12: 	::xvfs::processFile $fsName "" "" {
                        13: 		type directory
                        14: 		children "foo"
                        15: 	}
                        16: 	::xvfs::processFile $fsName "" "foo" {
                        17: 		type file
                        18: 		fileContents "abc"
                        19: 	}
c8742de968 2019-09-20   20: 	return [list "" "foo"]
                        21: }
                        22: 
                        23: ::xvfs::run --directory [pwd] --name synthetic