- Timestamp:
- Jun 25, 2015 12:30:17 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/apps/execute.tcl
r5663 r5736 32 32 Rappture::resources::load 33 33 34 # Parse command line options 35 # ---------------------------------------------------------------------- 36 Rappture::getopts argv params { 37 value -tool "" 38 value -status "" 39 value -output "" 40 value -cleanup no 41 } 42 34 43 # load the XML info in the driver file 35 44 if {[catch {Rappture::library $driverxml} result]} { … … 41 50 42 51 # If tool.xml is not specified, try to find it the way Rappture would. 52 if {$params(-tool) ne ""} { 53 set toolxml $params(-tool) 54 } 43 55 if {$toolxml eq ""} { 44 56 if {[file isfile tool.xml]} { … … 120 132 } 121 133 122 # Parse command line options to see134 # Apply effects of all other command line options 123 135 # ---------------------------------------------------------------------- 124 Rappture::getopts argv params {125 value -status ""126 value -output ""127 value -cleanup no128 }129 130 136 if {$params(-status) ne ""} { 131 137 set LogFid [open $params(-status) w]
Note: See TracChangeset
for help on using the changeset viewer.