You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
360 B
14 lines
360 B
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 |