Posted to tcl by rmax at Thu Jun 17 16:00:45 GMT 2010view pretty
set pipe [open |[info nameof] w+]
puts $pipe {
socket -server accept 9999
puts "3"
vwait forever
}
puts 1
flush $pipe
puts 2
puts [gets $pipe]
puts 4
close $pipe
puts 5
set pipe [open |[info nameof] w+]
puts $pipe {
socket -server accept 9999
puts "3"
vwait forever
}
puts 1
flush $pipe
puts 2
puts [gets $pipe]
puts 4
close $pipe
puts 5