Artifact 1c76b0e90dc3c88dfe6fa529d52f78cc8198039eb5b4e5c28435548507a83663:

• Executable file xvfs-create-random — part of check-in [c8a4c9f28e] at 2019-09-20 17:10:44 on branch trunk — Added a script that uses a random filename for every input file (user: rkeene, size: 423) [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 {file workingDirectory inputFile outputDirectory outputFile} {
	if {$outputFile eq ""} {
		return $outputFile
	}

	set outputFile [expr rand()]

	return $outputFile
}

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