xvfs-create-random at [5b3a8701d2]

File xvfs-create-random artifact 1c76b0e90d part of check-in 5b3a8701d2


#! /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 {file workingDirectory inputFile outputDirectory outputFile} {
	if {$outputFile eq ""} {
		return $outputFile
	}

	set outputFile [expr rand()]

	return $outputFile
}

::xvfs::run --directory [pwd]/example --name random