Origin for each line in xvfs-create-random from check-in c8a4c9f28e:

c8a4c9f28e 2019-09-20    1: #! /usr/bin/env tclsh
c8a4c9f28e 2019-09-20    2: 
c8a4c9f28e 2019-09-20    3: set sourceDirectory [file dirname [file normalize [info script]]]
c8a4c9f28e 2019-09-20    4: lappend auto_path [file join $sourceDirectory lib]
c8a4c9f28e 2019-09-20    5: package require xvfs
c8a4c9f28e 2019-09-20    6: 
c8a4c9f28e 2019-09-20    7: proc ::xvfs::callback::setOutputFileName {file workingDirectory inputFile outputDirectory outputFile} {
c8a4c9f28e 2019-09-20    8: 	if {$outputFile eq ""} {
c8a4c9f28e 2019-09-20    9: 		return $outputFile
c8a4c9f28e 2019-09-20   10: 	}
c8a4c9f28e 2019-09-20   11: 
c8a4c9f28e 2019-09-20   12: 	set outputFile [expr rand()]
c8a4c9f28e 2019-09-20   13: 
c8a4c9f28e 2019-09-20   14: 	return $outputFile
c8a4c9f28e 2019-09-20   15: }
c8a4c9f28e 2019-09-20   16: 
c8a4c9f28e 2019-09-20   17: ::xvfs::run --directory [pwd]/example --name random