TABLE OF CONTENTS


::pwtk::propagate

USAGE

   ::pwtk::propagate script

DESCRIPTION

::pwtk::propagate adds the supplied script snippet to the propagate script, which is propagated to PWTK child instances. Child PWTK instances are remotes, backgrounds, threads, thread-pools, and queues.

Furthermore, ::pwtk::propagate also executes the supplied script, i.e., the whole action of ::pwtk::propagate is:

      append propagate(script) $script\n
      uplevel 1 $script

For further details, see 5.3.7. Propagate.

ARGUMENTS

SOURCE

    variable propagate

    set l [incr propagate(level)]
    if { $l == 1 } {
        # N.B only the 1st-level propagate call should append to the
        # propagate script or else the higher level propragete scripts
        # will appear multiple times in $propagate(script)
        append propagate(script) $script\n
    }
    set code [catch {uplevel 1 $script} result]
    incr propagate(level) -1
    return -code $code $result
}