alias testsw {
;set %a $null
sockclose testsw*
socklisten testsw 8005
.timer 1 1 sockopen testsw2 127.0.0.1 8005
}
on *:socklisten:testsw:{
if (!$sockerr) sockaccept testsw1
}
on *:sockopen:testsw2:{
if (!$sockerr) sockwrite testsw2 1
}
on *:sockread:testsw1:{
if (!$sockerr) {
var %a
echo -a #0 sock.rq $sock($sockname).rq
sockread -f %a
echo -a #1: $qt(%a) -- var[ $var(%a, 1).global - $var(%a, 2).local ] -- sockbr $sockbr -- sock.rq $sock($sockname).rq
sockread -f %a
echo -a #2: $qt(%a) -- var[ $var(%a, 1).global - $var(%a, 2).local ] -- sockbr $sockbr -- sock.rq $sock($sockname).rq
sockread -f %a
echo -a #3: $qt(%a) -- var[ $var(%a, 1).global - $var(%a, 2).local ] -- sockbr $sockbr -- sock.rq $sock($sockname).rq
sockclose testsw*
}
}