TABLE OF CONTENTS

::pwtk::remote_ids

SYNOPSIS

proc ::pwtk::remote_ids {} {

PURPOSE

Return the IDs of all existing remote background jobs.

A background remote job is considered existing if it was submitted by the ::pwtk::remote command and was not yet waited for with the ::pwtk::remote_wait or ::pwtk::remote_pidwait command, which removes it job from the list of existing background remote jobs.

SOURCE

    variable remote
    if { ! [info exists remote(ID)] } {
        # there are no background remote jobs
        return
    }
    set ids ""
    for {set id 1} {$id <= $remote(ID)} {incr id} {
        if { [info exists remote(ident,$id)] } {
            lappend ids $id
        }
    }
    return $ids
}