Just wonder how to get exit status of pragram in tcl code

williamhomanchun · 05-28-2008, 03:02 PM

HI all,

I am trying to find out the exit status from other program in tcl program.
For example, in csh shell, the exit status is in the variable $status

#!/bin/csh -f

echo "Start "
<program>
echo "Status : $status"
exit

But for tcl program, I don't know how to find the exit status of the program, normally we use catch to find if the program is fail or not, but we don't know the exit status of the program. DO you know how to find it ?

if { [catch {exec <program>} message } {
puts "Error : <program> fail with message $message"
}
exit

Wim Sturkenboom · 05-30-2008, 07:34 AM

quote from activetcl 8.5.2.0 help pages

Code:

To execute a program that can return a non-zero result, you should wrap the call to exec in catch and check the contents of the -errorcode return option if you have an error:

set status 0
if {[catch {exec grep foo bar.txt} results options]} {
   set details [dict get $options -errorcode]
   if {[lindex $details 0] eq "CHILDSTATUS"} {
      set status [lindex $details 2]
   } else {
      # Some kind of unexpected failure
   }
}

quote from man n exec

Code:

       To  execute  a  program  that can return a non-zero result, you should wrap the call to exec in catch and check |
       what the contents of the global errorCode variable is if you have an error:                                     
              set status 0                                                                                             
              if {[catch {exec grep foo bar.txt} results]} {                                                           
                 if {[lindex $::errorCode 0] eq "CHILDSTATUS"} {                                                       
                    set status [lindex $::errorCode 2]                                                                 
                 } else {                                                                                              
                    # Some kind of unexpected failure                                                                  
                 }                                                                                                     
              }

note:
never used it, so don't know if it will work

williamhomanchun · 06-02-2008, 01:04 PM

Thanks a lot, I will try it.