Artifact 2b5ddbc37703cb6ed8a3c160efa7e3a35c89c425ba735745ec5b01f1d03e6b0b:

• Executable file xvfs-create-synthetic — part of check-in [c8742de968] at 2019-09-20 16:39:35 on branch trunk — Added example of a synthetic filesystem creation (user: rkeene, size: 500) [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"
	}
	return [list "" "foo"]
}

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