TCL hakkında

[gurelcenk]

Herkese Merhabalar
uzun bir zamandan sonra askerlik sonrası ceviz forumuna girmeyi özlemişim

aşağıdaki kod ile bir satranç oyun serverina baglaniyorum
benim yapamadim TCL 'de biraz cahil olduğumdan
gelen bilgiyi ayrıştıramama ve haliyle kontrol edememe durumum var
gelen datayı nasıl kontrol ederim?

teşekkürler
saygılarımla
Cenk

proc read_sock {sock} {
if {[string first selamlar [gets $sock]] >= 0} {puts stdout buldum}

}



set esvrSock [socket -async chessclub.com 5073 ] 
    fileevent $esvrSock writable { set connect 1 } 
    vwait connect 
    fileevent $esvrSock writable {}; 
    if {[eof $esvrSock]} { abort } 
    fconfigure $esvrSock -translation {auto crlf} -buffering line 
fileevent $esvrSock readable [read_sock $esvrSock]

set a "Guest \n"
puts $esvrSock $a
set a "set tell 1 \n"
puts $esvrSock $a

[gurelcenk]

google'da biraz araştırdım
en sonunda aşağıdaki gibi birşeyler uyarladım
çalışıyor

serverdan gelen "COVERAGE" kelimesi kaç tane varsa o kadar "buldum" çıktısı veriyor, dogru calisiyor
ama bu seferde program donup kaliyor
ben windows uzerinde tcl scripti ogreniyorum
acaba bu script windowsda donuyorda herhangi bir linux makinede problem cikarmazmi? yada araya koymam gereken bir komut mu var bu donmayı engelleyecek? (bu arada kullandigim ActiveState ActiveTcl 8.4.9.1)
tecrubelerinizi aktarirsaniz cok sevinirim

proc read_sock {sock} {
if {[string first COVERAGE [gets $sock]] >= 0} {puts stdout buldum}
  }


set esvrSock [socket -async chessclub.com 5073 ] 
    fileevent $esvrSock writable { set connect 1 } 
    vwait connect 
    fileevent $esvrSock writable {}; 
fileevent $esvrSock readable[list read_sock $esvrSock]

    if {[eof $esvrSock]} { abort } 
    fconfigure $esvrSock -translation {auto crlf} -buffering line 

set a "Guest \n"
puts $esvrSock $a