TABLE OF CONTENTS

::pwtk::pid_exists

SYNOPSIS

proc ::pwtk::pid_exists {pid} {

PURPOSE

Returns 1 if the PID process exists, otherwise 0.

ARGUMENT

SOURCE

    if { [catch {exec ps -p $pid -o pid=} res] } {
        return 0
    } elseif { $pid in $res } {
        return 1
    } else {
        return 0
    }
}