Changeset 4514

Timestamp:

Jul 16, 2014, 4:38:50 PM (10 years ago)

Author:

gah

Message:

tool execution split out from gui, oauth modules added.

Location:

branches/1.3/lang/tcl/scripts

Files:

• Makefile.in (modified) (1 diff)
• exec.tcl (modified) (2 diffs)
• resources.tcl (added)
• task.tcl (added)
• xauth.tcl (added)

branches/1.3/lang/tcl/scripts/Makefile.in

@@ -43 +43 @@
                 $(srcdir)/library.tcl \
                 $(srcdir)/objects.tcl \
+                $(srcdir)/resources.tcl \
                 $(srcdir)/result.tcl \
-                $(srcdir)/units.tcl
+                $(srcdir)/task.tcl \
+                $(srcdir)/units.tcl \
+                $(srcdir)/xauth.tcl
 
 OBJECTS         = \

branches/1.3/lang/tcl/scripts/exec.tcl

@@ -47 +47 @@
     set execctl ""
 
-    set status [catch {
-        eval blt::bgexec ::Rappture::execctl \
-            -keepnewline yes \
-            -killsignal SIGTERM \
-            -onoutput {{::Rappture::_exec_out stdout}} \
-            -onerror {{::Rappture::_exec_out stderr}} \
-            $args
-    } result]
+    set status [catch {eval blt::bgexec ::Rappture::execctl \
+        -keepnewline yes \
+        -killsignal SIGTERM \
+        -onoutput {{::Rappture::_exec_out stdout}} \
+        -onerror {{::Rappture::_exec_out stderr}} \
+        $args} result]
 
     # add any extra stuff pending from the last stdout/stderr change
@@ -81 +79 @@
             }
         }
+        puts stderr $result
         error $result
     }