Changeset 500 for trunk/gui/scripts
- Timestamp:
- Aug 7, 2006, 8:46:23 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/tool.tcl
r413 r500 135 135 regsub -all @tool $cmd $_installdir cmd 136 136 regsub -all @driver $cmd $file cmd 137 regsub -all {\\} $cmd {\\\\} cmd 138 set cmd [string trimleft $cmd " "] 137 139 138 140 # starting job... 139 141 Rappture::rusage mark 140 142 143 if {0 == [string compare -nocase -length 5 $cmd "ECHO "] } { 144 set status 0; 145 set job(output) [string range $cmd 5 end] 146 } else { 141 147 set status [catch {eval blt::bgexec \ 142 148 ::Rappture::Tool::job(control) \ … … 146 152 -output ::Rappture::Tool::job(output) \ 147 153 -error ::Rappture::Tool::job(error) $cmd} result] 148 154 } 149 155 # ...job is finished 150 156 array set times [Rappture::rusage measure]
Note: See TracChangeset
for help on using the changeset viewer.