Changeset 6113
- Timestamp:
- Mar 10, 2016 12:00:36 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.5/lang/tcl/scripts/task.tcl
r6112 r6113 122 122 itcl::body Rappture::Task::GetSignal {code} { 123 123 set signals { 124 HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV 125 USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN 126 TTOU URG XCPU XFSZ VTALRM PROF WINCH POLL PWR SYS 124 HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV 125 USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN 126 TTOU URG XCPU XFSZ VTALRM PROF WINCH POLL PWR SYS 127 127 RTMIN RTMIN+1 RTMIN+2 RTMIN+3 RTMAX-3 RTMAX-2 RTMAX-1 RTMAX 128 128 } … … 310 310 if {$code > 128} { 311 311 set logmesg "Program signaled: signal was [GetSignal $code]" 312 } else { 312 } else { 313 313 set logmesg "Program finished: exit code is $code" 314 314 } … … 601 601 $xmlobj put output.filename $filename 602 602 $xmlobj put output.version $Rappture::version 603 603 604 604 if {[info exists ::tcl_platform(user)]} { 605 605 $xmlobj put output.user $::tcl_platform(user)
Note: See TracChangeset
for help on using the changeset viewer.