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