$Т > BLib.Socket 0.10 12-Dec-2010 "Т Sockets and Resolver Library 5Т Requires X%->32-byte control block, Y%=X%DIV256 ('Т FNDNS_*() require name%->80 bytes 2: <$Т FNSocket_Open(pf%,type%,prot%) F+Т FNSocket_Bind(handle%,addr%,addrlen%) P%Т FNSocket_Listen(handle%,count%) Z-Т FNSocket_Accept(handle%,addr%,addrlen%) d.Т FNSocket_Connect(handle%,addr%,addrlen%) n-Т FNSocket_Recv(handle%,data%,len%,opts%) x-Т FNSocket_Send(handle%,data%,len%,opts%) ┌.Т ---------------------------------------- ▄'щєSocket_Open(X%!4,X%!8,X%!12):A%=0 √'щєSocket_Bind(X%!4,X%!8,X%!12):A%=1 ═#щєSocket_Listen(X%!4,X%!8):A%=2 ╙)щєSocket_Accept(X%!4,X%!8,X%!12):A%=3 Є*щєSocket_Connect(X%!4,X%!8,X%!12):A%=4 Ў-щєSocket_Recv(X%!4,X%!8,X%!12,X%!16):A%=5 х-щєSocket_Send(X%!4,X%!8,X%!12,X%!16):A%=8 р7!X%=&814:X%?2=A%:A%=192:ж&FFF1:ГX%?3:=-X%?3 ▀ =X%!4 э: Ф(Т PROCSocket_shutdown(handle%,type%) ПТ PROCSocket_close(handle%) З(Т ---------------------------------- &щРSocket_Shutdown(X%!4,X%!8):A%=11 щРSocket_Close(X%!4):A%=16 $!X%=&40C:X%?2=A%:A%=192:ж&FFF1:А ": , Т FNDNS_GetHostByName(name$) 6Т FNDNS_GetHost(name$) @ Т -------------------------- J"щєDNS_GetHostByName(A$):A%=&40 TщєDNS_GetHost(A$):A%=&41 ^G!X%=&1808:X%?2=A%:X%!4=name%:$name%=A$:A%=192:ж&FFF1:=X%+4 ─ X%?3=0 h: Ъ