1#!/bin/sh 2# -*- tcl -*- \ 3exec tclsh "$0" ${1+"$@"} 4 5package require comm 6package require tie 7 8set id [lindex $argv 0] 9 10array set sender {} 11tie::tie sender remotearray \ 12 server {comm::comm send} $id 13 14proc ExecChanges {list} { 15 if {![llength $list]} exit 16 17 uplevel #0 [lindex $list 0] 18 after 100 [list ExecChanges [lrange $list 1 end]] 19} 20 21after 2000 {ExecChanges { 22 {set sender(a) 0} 23 {set sender(a) 1} 24 {set sender(b) .} 25 {unset sender(a)} 26 {array set sender {xa @ xb *}} 27 {array unset sender x*}}} 28 29vwait forever 30