Changeset 5982 for branches/1.4/lang/tcl

Timestamp:

Feb 9, 2016, 8:26:30 AM (9 years ago)

Author:

gah

Message:

report signal name instead of exit code

File:

• branches/1.4/lang/tcl/scripts/task.tcl (modified) (3 diffs)

branches/1.4/lang/tcl/scripts/task.tcl

@@ -19 +19 @@
 
 itcl::class Rappture::Task {
+    private method GetSignal { signal }
+
     public variable logger ""
     public variable jobstats Rappture::Task::MiddlewareTime
@@ -117 +119 @@
     }
     return ""
+}
+
+itcl::body Rappture::Task::GetSignal {code} {
+    set signals {
+        HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV 
+        USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN 
+        TTOU URG XCPU XFSZ VTALRM PROF WINCH POLL PWR SYS 
+        RTMIN RTMIN+1 RTMIN+2 RTMIN+3 RTMAX-3 RTMAX-2 RTMAX-1 RTMAX
+    }
+    set sigNum [expr $code - 128]
+    if { $sigNum > 0 && $sigNum < [llength $signals] } {
+        return [lindex $signals $sigNum]
+    }
+    return "unknown exit code \"$code\""
 }
 
@@ -293 +309 @@
                        # invalid result from the program.  Append the stderr
                        # from the program to the message.
-                       set logmesg "Program finished: exit code is $code"
+                       if {$code > 128} {
+                          set logmesg "Program signaled: signal was [GetSignal]"
+                       } else { 
+                          set logmesg "Program finished: exit code is $code"
+                       }
                        set result "$logmesg\n\n$::Rappture::Task::job(error)"
                     } elseif { $token == "abort" }  {