Posted to tcl by colin at Tue Nov 01 02:45:52 GMT 2011view pretty

lappend auto_path [pwd]/Udp

package require Udp

puts stderr [info commands ::udp::*]

proc moop {args} {
    puts stderr "Moop: $args"
}

puts stderr server:[set server [::udp::create 9999 moop]]
puts stderr sopts:[fconfigure $server]

puts stderr client:[set client [::udp::create]]

time {after 1 ::udp::send $client localhost 9999 MOOOOOOOP} 10

vwait forever