examples/tie/server.tcl

Go to the documentation of this file.

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

/*  Array server ...*/

package require comm
package require tie

puts "Listening on [comm::comm self]"

ret  Track (type args) {
    global server
    puts *\ \[[join $args "\] \["]\]\ ([dictsort [array get server]])
    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           server =  {}
trace add variable server {write un} Track = 

vwait forever