Changeset 1108 for trunk/gui

Timestamp:

Aug 11, 2008, 8:44:24 PM (16 years ago)

Author:

dkearney

Message:

adding --driver-only flag to simsim so we have an easy way to create driver files.

File:

• trunk/gui/apps/simsim.tcl (modified) (4 diffs)

trunk/gui/apps/simsim.tcl

@@ -384 +384 @@
     puts " --compare <path>      - compare the results with the provided"
     puts "                         run.xml file."
+    puts " --driver-only <fname> - only create the driver file, do not run"
     puts " --help                - print this help menu."
     exit 0
@@ -508 +509 @@
 set intf "./tool.xml"
 set cintf ""
-set defaults false
+set defaults true
 array set presets []
 set i 0
 set oParams {}
+set runapp true
+set outf "driver.xml"
 
 # parse command line arguments
@@ -546 +549 @@
             printHelp
         }
+    } elseif {("-do" == $opt) || ("--driver-only" == $opt)} {
+        set runapp false
+        if {[expr {$i + 1}] < $argc} {
+            incr i
+            set outf [lindex $argv $i]
+        } else {
+            printHelp
+        }
     } elseif {("-h" == $opt) || ("--help" == $opt)} {
         printHelp
@@ -581 +592 @@
 # pick defaults $xmlobj $presets
 # pick randoms $xmlobj $presets
+
+# if driver only flag was given, write driver and exit.
+if {$runapp == false} {
+    set fid [open $outf w]
+    puts $fid [$xmlobj xml]
+    close $fid
+    exit 0
+}
 
 set tool [Rappture::Tool ::#auto $xmlobj $installdir]