Lines of xvfs-create from check-in f09ab16ca1 that are changed by the sequence of edits moving toward check-in 7664854ef9:

                         1: #! /usr/bin/env tclsh
                         2: 
                         3: set sourceDirectory [file dirname [file normalize [info script]]]
                         4: 
                         5: lappend auto_path [file join $sourceDirectory lib]
                         6: 
                         7: set template [file join $sourceDirectory xvfs.c.rvt]
                         8: 
                         9: package require minirivet
                        10: 
                        11: set mode "run"
                        12: if {[lindex $argv 0] == "--dump-tcl"} {
                        13: 	set mode "dump-tcl"
                        14: }
                        15: 
                        16: switch -- $mode {
                        17: 	"run" {
                        18: 		::minirivet::parse $template
                        19: 	}
                        20: 	"dump-tcl" {
                        21: 		set xvfs_tcl [file join $sourceDirectory lib xvfs xvfs.tcl]
                        22: 
                        23: 		puts "#! /usr/bin/env tclsh"
                        24: 		puts ""
                        25: 		puts [read [open $xvfs_tcl]]
                        26: 		puts ""
f09ab16ca1 2019-05-08   27: 		puts [::minirivet::parseStringToCode [read [open $template]]]
                        28: 	}
                        29: 	default {
                        30: 		puts stderr "error: Invalid mode: $mode"
                        31: 		exit 1
                        32: 	}
                        33: }