Changeset 4834 for trunk/gui/apps/launcher.tcl

Timestamp:

Dec 10, 2014 10:37:54 AM (9 years ago)

Author:

mmc

Message:

Added support for "rappture -execute" option, so that we can execute
the run for a given driver file without involving the GUI. This is
useful for the instant-on caching function, and also for a web services
interface that could be used to launch runs without the GUI.

File:

• trunk/gui/apps/launcher.tcl (modified) (3 diffs)

trunk/gui/apps/launcher.tcl

@@ -12 +12 @@
 #    rappture -builder ?-tool <toolfile>?
 #    rappture -tester ?-tool <toolfile>? ?-testdir <directory>?
+#    rappture -execute driver.xml ?-tool <toolfile>?
 #
 #  The default option is "-run", which brings up the GUI used to
@@ -53 +54 @@
                 set reqpkgs Tk
             }
+            -execute {
+                # for web services and simulation cache -- don't load Tk
+                set reqpkgs ""
+                if {[llength $argv] < 1} {
+                    puts stderr "error: missing driver.xml file for -execute option"
+                    exit 1
+                }
+                set driverxml [lindex $argv 0]
+                set argv [lrange $argv 1 end]
+
+                if {![file readable $driverxml]} {
+                    puts stderr "error: driver file \"$driverxml\" not found"
+                    exit 1
+                }
+
+                set dir [file dirname [info script]]
+                set mainscript [file join $dir execute.tcl]
+            }
             -tool {
                 set toolxml [lindex $argv 0]
@@ -89 +108 @@
                 puts stderr "  rappture -builder ?-tool toolFile?"
                 puts stderr "  rappture -tester ?-auto? ?-tool toolFile? ?-testdir directory?"
+                puts stderr "  rappture -execute driver.xml ?-tool toolFile?"
                 exit 1
             }