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

  1. lappend auto_path [pwd]/Udp
  2.  
  3. package require Udp
  4.  
  5. puts stderr [info commands ::udp::*]
  6.  
  7. proc moop {args} {
  8. puts stderr "Moop: $args"
  9. }
  10.  
  11. puts stderr server:[set server [::udp::create 9999 moop]]
  12. puts stderr sopts:[fconfigure $server]
  13.  
  14. puts stderr client:[set client [::udp::create]]
  15.  
  16. time {after 1 ::udp::send $client localhost 9999 MOOOOOOOP} 10
  17.  
  18. vwait forever