Server:
set socket ""
proc acceptSocketConnection { a_sock an_addr a_port } {
global socket
set socket $a_sock
fconfigure $socket -buffering line -translation lf -blocking 0 -buffersize 72000
fileevent $socket readable processMessage
set ready 1
set datestamp 20110901
if { ![regexp -nocase windows $::tcl_platform(os)] } {
set l_genfile [file join [pwd] "strubio_${datestamp}.gen"]
puts $socket "GEN $l_genfile"
set l_matfile [file join [pwd] "strubio_${datestamp}.mat"]
puts $socket "NEW $l_matfile"
}
}
proc processMessage { } {
global socket
gets $socket l_message
if {$l_message != ""} {
puts $l_message
}
set server [socket -server acceptSocketConnection -myaddr 127.0.0.1 2200]
vwait forever
Client: