14 lines
360 B
Plaintext
14 lines
360 B
Plaintext
|
2 400 3 + # tcl tests
|
||
|
|
1 401 3 |
|
||
|
|
0 401 3 | #simple example
|
||
|
|
1 401 3 |
|
||
|
|
2 400 2 + proc Echo_Server {port} {
|
||
|
|
0 401 2 | set s [socket -server EchoAccept $port]
|
||
|
|
0 401 2 | vwait forever;
|
||
|
|
0 401 0 | }
|
||
|
|
1 400 0
|
||
|
|
2 400 3 + # Bug #1947
|
||
|
|
1 401 3 |
|
||
|
|
0 400 0 $s($i,"n")
|
||
|
|
0 400 0 set n $showArray($i,"neighbor")
|
||
|
|
1 400 0
|