receiving_client.tcl

Go to the documentation of this file.

/* !/bin/sh*/
/*  -*- tcl -*- \*/
exec tclsh "$0"  ${1+"$@"}

package require comm
package require tie

 id =  [lindex $argv 0]

ret  import (type remotevar , type localvar) {
    global id
    comm::comm send $id [list \
        tie::tie $remotevar remotearray \
        $localvar {comm::comm send} [comm::comm self] \
     ]
}

ret  Track (type args) {
    global receiver
    puts *\ \[[join $args "\] \["]\]\ ([dictsort [array get receiver]])
    return
}

ret  dictsort (type dict) {
    array set a $dict
    set out [list]
    foreach key [lsort [array names a]] {
    lappend out $key $a($key)
    }
    return $out
}

array           receiver =  {}
trace add variable receiver {write un} Track = 

import server receiver

puts "Waiting on $id"
vwait forever