Changeset 500 for trunk

Timestamp:

Aug 7, 2006, 8:46:23 AM (18 years ago)

Author:

nkissebe

Message:

Escape any backslashes found in tool string (primarily for the sake of Windows paths) before passing to bgexec eval.

Internally process "echo" commands found in tool string (primarily for Windows which does not have a usable external echo command to exec).

File:

• trunk/gui/scripts/tool.tcl (modified) (2 diffs)

trunk/gui/scripts/tool.tcl

@@ -135 +135 @@
         regsub -all @tool $cmd $_installdir cmd
         regsub -all @driver $cmd $file cmd
+        regsub -all {\\} $cmd {\\\\} cmd
+        set cmd [string trimleft $cmd " "]
 
         # starting job...
         Rappture::rusage mark
 
+        if {0 == [string compare -nocase -length 5 $cmd "ECHO "] } {
+            set status 0;
+            set job(output) [string range $cmd 5 end] 
+        } else {
         set status [catch {eval blt::bgexec \
             ::Rappture::Tool::job(control) \
@@ -146 +152 @@
             -output ::Rappture::Tool::job(output) \
             -error ::Rappture::Tool::job(error) $cmd} result]
-
+        }
         # ...job is finished
         array set times [Rappture::rusage measure]