sending_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]

array  sender =  {}
tie::tie  sender remotearray \
    server {comm::comm send} $id

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

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

after 2000 {ExecChanges {
    { sender = (a) 0}
    { sender = (a) 1}
    { sender = (b) .}
    {un sender = (a)}
    {array  sender =  {xa @ xb *}}
    {array un sender =  x*}}}

vwait forever