Artifact 4c3823a4cf59183408ff6026b6c8e5b3b03580561cf159220245300a7f1a696e:

• Executable file xvfs-create-synthetic — part of check-in [f4ea8e39b6] at 2019-09-20 16:55:42 on branch trunk — Also include a real file in the synthetic filesystem (user: rkeene, size: 620) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

set sourceDirectory [file dirname [file normalize [info script]]]
lappend auto_path [file join $sourceDirectory lib]
package require xvfs

proc ::xvfs::callback::setOutputFileName {args} {
	return "/"
}

proc ::xvfs::callback::addOutputFiles {fsName} {
	::xvfs::processFile $fsName "" "" {
		type directory
		children "foo"
	}
	::xvfs::processFile $fsName "" "foo" {
		type file
		fileContents "abc"
	}
	::xvfs::processFile $fsName "./xvfs-create-synthetic" "xvfs-create-synthetic" {
		type file
	}
	return [list "" "foo" "xvfs-create-synthetic"]
}

::xvfs::run --directory [pwd] --name synthetic