Posted to tcl by rmax at Thu Jun 17 16:00:45 GMT 2010view raw

  1. set pipe [open |[info nameof] w+]
  2. puts $pipe {
  3. socket -server accept 9999
  4. puts "3"
  5. vwait forever
  6. }
  7. puts 1
  8. flush $pipe
  9. puts 2
  10. puts [gets $pipe]
  11. puts 4
  12. close $pipe
  13. puts 5