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
178 B
14 lines
178 B
4 years ago
|
# tcl tests
|
||
|
|
|
||
|
|
#simple example
|
||
|
|
|
||
|
|
proc Echo_Server {port} {
|
||
|
|
set s [socket -server EchoAccept $port]
|
||
|
|
vwait forever;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Bug #1947
|
||
|
|
|
||
|
|
$s($i,"n")
|
||
|
|
set n $showArray($i,"neighbor")
|