xvfs-create-random at [c8a4c9f28e]

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


#! /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