c8742de968 2019-09-20 rkeene: #! /usr/bin/env tclsh
c8742de968 2019-09-20 rkeene:
c8742de968 2019-09-20 rkeene: set sourceDirectory [file dirname [file normalize [info script]]]
c8742de968 2019-09-20 rkeene: lappend auto_path [file join $sourceDirectory lib]
c8742de968 2019-09-20 rkeene: package require xvfs
c8742de968 2019-09-20 rkeene:
c8742de968 2019-09-20 rkeene: proc ::xvfs::callback::setOutputFileName {args} {
c8742de968 2019-09-20 rkeene: return "/"
c8742de968 2019-09-20 rkeene: }
c8742de968 2019-09-20 rkeene:
c8742de968 2019-09-20 rkeene: proc ::xvfs::callback::addOutputFiles {fsName} {
c8742de968 2019-09-20 rkeene: ::xvfs::processFile $fsName "" "" {
c8742de968 2019-09-20 rkeene: type directory
c8742de968 2019-09-20 rkeene: children "foo"
c8742de968 2019-09-20 rkeene: }
c8742de968 2019-09-20 rkeene: ::xvfs::processFile $fsName "" "foo" {
c8742de968 2019-09-20 rkeene: type file
c8742de968 2019-09-20 rkeene: fileContents "abc"
c8742de968 2019-09-20 rkeene: }
c8742de968 2019-09-20 rkeene: return [list "" "foo"]
c8742de968 2019-09-20 rkeene: }
c8742de968 2019-09-20 rkeene:
c8742de968 2019-09-20 rkeene: ::xvfs::run --directory [pwd] --name synthetic