Overview
| Comment: | Added example of a synthetic filesystem creation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
c8742de9686562645793993188a8ac5f |
| User & Date: | rkeene on 2019-09-20 16:39:35 |
| Other Links: | manifest | tags |
Context
|
2019-09-20
| ||
| 16:55 | Also include a real file in the synthetic filesystem check-in: f4ea8e39b6 user: rkeene tags: trunk | |
| 16:39 | Added example of a synthetic filesystem creation check-in: c8742de968 user: rkeene tags: trunk | |
| 16:39 | Cleanup to callbacks check-in: e592c85e70 user: rkeene tags: trunk | |
Changes
Added xvfs-create-synthetic version [2b5ddbc377].
> > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
#! /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
|