Changeset 1108 for trunk/gui/apps/simsim.tcl
- Timestamp:
- Aug 11, 2008, 8:44:24 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/apps/simsim.tcl
r693 r1108 384 384 puts " --compare <path> - compare the results with the provided" 385 385 puts " run.xml file." 386 puts " --driver-only <fname> - only create the driver file, do not run" 386 387 puts " --help - print this help menu." 387 388 exit 0 … … 508 509 set intf "./tool.xml" 509 510 set cintf "" 510 set defaults false511 set defaults true 511 512 array set presets [] 512 513 set i 0 513 514 set oParams {} 515 set runapp true 516 set outf "driver.xml" 514 517 515 518 # parse command line arguments … … 546 549 printHelp 547 550 } 551 } elseif {("-do" == $opt) || ("--driver-only" == $opt)} { 552 set runapp false 553 if {[expr {$i + 1}] < $argc} { 554 incr i 555 set outf [lindex $argv $i] 556 } else { 557 printHelp 558 } 548 559 } elseif {("-h" == $opt) || ("--help" == $opt)} { 549 560 printHelp … … 581 592 # pick defaults $xmlobj $presets 582 593 # pick randoms $xmlobj $presets 594 595 # if driver only flag was given, write driver and exit. 596 if {$runapp == false} { 597 set fid [open $outf w] 598 puts $fid [$xmlobj xml] 599 close $fid 600 exit 0 601 } 583 602 584 603 set tool [Rappture::Tool ::#auto $xmlobj $installdir]
Note: See TracChangeset
for help on using the changeset viewer.