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