transceiver.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]

array  local =  {}

ret  export (type localvar , type remotevar , type remoteid) {
    uplevel #0 [list tie::tie $localvar remotearray $remotevar {comm::comm send} $remoteid]
    return
}

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

ret  ExecChanges (type list) {
    if {![llength $list]} return

    uplevel #0 [lindex $list 0]
    after 100 [list ExecChanges [lrange $list 1 end]]
}

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
}

export local server $id
import server $id local

trace add variable local {write un} Track = 


comm::comm send $id {
    ret  ExecChanges (type list) {
    puts ($list)
    if {![llength $list]} return
    uplevel #0 [lindex $list 0]
    after 100 [list ExecChanges [lrange $list 1 end]]
    }
}

 changes =  {
    { local = (a) 0}
    { local = (a) 1}
    { local = (b) .}
    {un local = (a)}
    {array  local =  {xa @ xb *}}
    {array un local =  x*}
}
lappend changes \
    [list comm::comm send $id [list ExecChanges {
    { server = (ZZ) foo}
    { server = (XX) bar}
}]]

after 2000 [list ExecChanges $changes]

vwait forever