Tcl Source Code

Artifact 8897eff3cc124df2e0fa644324d3612626d36dc8:

proc foo {args} {
    global done
    puts $args
    puts [info hostname]
    close [lindex $args 0]
    set done 1
}
socket -server foo 4910
vwait done