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

c8a4c9f28e 2019-09-20        rkeene: #! /usr/bin/env tclsh
c8a4c9f28e 2019-09-20        rkeene: 
c8a4c9f28e 2019-09-20        rkeene: set sourceDirectory [file dirname [file normalize [info script]]]
c8a4c9f28e 2019-09-20        rkeene: lappend auto_path [file join $sourceDirectory lib]
c8a4c9f28e 2019-09-20        rkeene: package require xvfs
c8a4c9f28e 2019-09-20        rkeene: 
c8a4c9f28e 2019-09-20        rkeene: proc ::xvfs::callback::setOutputFileName {file workingDirectory inputFile outputDirectory outputFile} {
c8a4c9f28e 2019-09-20        rkeene: 	if {$outputFile eq ""} {
c8a4c9f28e 2019-09-20        rkeene: 		return $outputFile
c8a4c9f28e 2019-09-20        rkeene: 	}
c8a4c9f28e 2019-09-20        rkeene: 
c8a4c9f28e 2019-09-20        rkeene: 	set outputFile [expr rand()]
c8a4c9f28e 2019-09-20        rkeene: 
c8a4c9f28e 2019-09-20        rkeene: 	return $outputFile
c8a4c9f28e 2019-09-20        rkeene: }
c8a4c9f28e 2019-09-20        rkeene: 
c8a4c9f28e 2019-09-20        rkeene: ::xvfs::run --directory [pwd]/example --name random