Posted to tcl by colin at Tue Nov 01 02:45:52 GMT 2011view raw
- 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