Artifact
b70ffbaf04e04788a0bba898db1b9b7201b15bab:
- File
sdl2/net-functions.ss
— part of check-in
[112a40d018]
at
2016-09-01 08:27:10
on branch trunk
— various improvements, added lmdb , added license notices
(user:
ovenpasta@pizzahack.eu
size: 3773)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
0010: 20 28 2a 20 73 64 6c 2d 6e 65 74 2d 76 65 72 73 (* sdl-net-vers
0020: 69 6f 6e 2d 74 29 20 73 64 6c 2d 6e 65 74 2d 6c ion-t) sdl-net-l
0030: 69 6e 6b 65 64 2d 76 65 72 73 69 6f 6e 20 28 29 inked-version ()
0040: 20 22 53 44 4c 4e 65 74 5f 4c 69 6e 6b 65 64 5f "SDLNet_Linked_
0050: 56 65 72 73 69 6f 6e 22 29 0a 28 64 65 66 69 6e Version").(defin
0060: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s
0070: 64 6c 2d 6e 65 74 2d 69 6e 69 74 20 28 29 20 22 dl-net-init () "
0080: 53 44 4c 4e 65 74 5f 49 6e 69 74 22 29 0a 28 64 SDLNet_Init").(d
0090: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v
00a0: 6f 69 64 20 73 64 6c 2d 6e 65 74 2d 71 75 69 74 oid sdl-net-quit
00b0: 20 28 29 20 22 53 44 4c 4e 65 74 5f 51 75 69 74 () "SDLNet_Quit
00c0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f
00d0: 75 6e 63 20 69 6e 74 20 73 64 6c 2d 6e 65 74 2d unc int sdl-net-
00e0: 72 65 73 6f 6c 76 65 2d 68 6f 73 74 20 28 28 61 resolve-host ((a
00f0: 64 64 72 65 73 73 20 28 2a 20 69 70 2d 61 64 64 ddress (* ip-add
0100: 72 65 73 73 29 29 20 28 68 6f 73 74 20 73 74 72 ress)) (host str
0110: 69 6e 67 29 20 28 70 6f 72 74 20 75 69 6e 74 31 ing) (port uint1
0120: 36 29 29 20 22 53 44 4c 4e 65 74 5f 52 65 73 6f 6)) "SDLNet_Reso
0130: 6c 76 65 48 6f 73 74 22 29 0a 28 64 65 66 69 6e lveHost").(defin
0140: 65 2d 73 64 6c 2d 66 75 6e 63 20 73 74 72 69 6e e-sdl-func strin
0150: 67 20 73 64 6c 2d 6e 65 74 2d 72 65 73 6f 6c 76 g sdl-net-resolv
0160: 65 2d 69 70 20 28 28 69 70 20 28 2a 20 69 70 2d e-ip ((ip (* ip-
0170: 61 64 64 72 65 73 73 29 29 29 20 22 53 44 4c 4e address))) "SDLN
0180: 65 74 5f 52 65 73 6f 6c 76 65 49 50 22 29 0a 28 et_ResolveIP").(
0190: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func
01a0: 69 6e 74 20 73 64 6c 2d 6e 65 74 2d 67 65 74 2d int sdl-net-get-
01b0: 6c 6f 63 61 6c 2d 61 64 64 72 65 73 73 65 73 20 local-addresses
01c0: 28 28 61 64 64 72 65 73 73 65 73 20 28 2a 20 69 ((addresses (* i
01d0: 70 2d 61 64 64 72 65 73 73 29 29 20 28 6d 61 78 p-address)) (max
01e0: 63 6f 75 6e 74 20 69 6e 74 29 29 20 22 53 44 4c count int)) "SDL
01f0: 4e 65 74 5f 47 65 74 4c 6f 63 61 6c 41 64 64 72 Net_GetLocalAddr
0200: 65 73 73 65 73 22 29 0a 28 64 65 66 69 6e 65 2d esses").(define-
0210: 73 64 6c 2d 66 75 6e 63 20 74 63 70 2d 73 6f 63 sdl-func tcp-soc
0220: 6b 65 74 20 73 64 6c 2d 6e 65 74 2d 74 63 70 2d ket sdl-net-tcp-
0230: 6f 70 65 6e 20 28 28 69 70 20 28 2a 20 69 70 2d open ((ip (* ip-
0240: 61 64 64 72 65 73 73 29 29 29 20 22 53 44 4c 4e address))) "SDLN
0250: 65 74 5f 54 43 50 5f 4f 70 65 6e 22 29 0a 28 64 et_TCP_Open").(d
0260: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 74 efine-sdl-func t
0270: 63 70 2d 73 6f 63 6b 65 74 20 73 64 6c 2d 6e 65 cp-socket sdl-ne
0280: 74 2d 74 63 70 2d 61 63 63 65 70 74 20 28 28 73 t-tcp-accept ((s
0290: 65 72 76 65 72 20 74 63 70 2d 73 6f 63 6b 65 74 erver tcp-socket
02a0: 29 29 20 22 53 44 4c 4e 65 74 5f 54 43 50 5f 41 )) "SDLNet_TCP_A
02b0: 63 63 65 70 74 22 29 0a 28 64 65 66 69 6e 65 2d ccept").(define-
02c0: 73 64 6c 2d 66 75 6e 63 20 28 2a 20 69 70 2d 61 sdl-func (* ip-a
02d0: 64 64 72 65 73 73 29 20 73 64 6c 2d 6e 65 74 2d ddress) sdl-net-
02e0: 74 63 70 2d 67 65 74 2d 70 65 65 72 2d 61 64 64 tcp-get-peer-add
02f0: 72 65 73 73 20 28 28 73 6f 63 6b 20 74 63 70 2d ress ((sock tcp-
0300: 73 6f 63 6b 65 74 29 29 20 22 53 44 4c 4e 65 74 socket)) "SDLNet
0310: 5f 54 43 50 5f 47 65 74 50 65 65 72 41 64 64 72 _TCP_GetPeerAddr
0320: 65 73 73 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ess").(define-sd
0330: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 6e l-func int sdl-n
0340: 65 74 2d 74 63 70 2d 73 65 6e 64 20 28 28 73 6f et-tcp-send ((so
0350: 63 6b 20 74 63 70 2d 73 6f 63 6b 65 74 29 20 28 ck tcp-socket) (
0360: 64 61 74 61 20 76 6f 69 64 2a 29 20 28 6c 65 6e data void*) (len
0370: 20 69 6e 74 29 29 20 22 53 44 4c 4e 65 74 5f 54 int)) "SDLNet_T
0380: 43 50 5f 53 65 6e 64 22 29 0a 28 64 65 66 69 6e CP_Send").(defin
0390: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s
03a0: 64 6c 2d 6e 65 74 2d 74 63 70 2d 72 65 63 76 20 dl-net-tcp-recv
03b0: 28 28 73 6f 63 6b 20 74 63 70 2d 73 6f 63 6b 65 ((sock tcp-socke
03c0: 74 29 20 28 64 61 74 61 20 76 6f 69 64 2a 29 20 t) (data void*)
03d0: 28 6d 61 78 6c 65 6e 20 69 6e 74 29 29 20 22 53 (maxlen int)) "S
03e0: 44 4c 4e 65 74 5f 54 43 50 5f 52 65 63 76 22 29 DLNet_TCP_Recv")
03f0: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun
0400: 63 20 76 6f 69 64 20 73 64 6c 2d 6e 65 74 2d 74 c void sdl-net-t
0410: 63 70 2d 63 6c 6f 73 65 20 28 28 73 6f 63 6b 20 cp-close ((sock
0420: 74 63 70 2d 73 6f 63 6b 65 74 29 29 20 22 53 44 tcp-socket)) "SD
0430: 4c 4e 65 74 5f 54 43 50 5f 43 6c 6f 73 65 22 29 LNet_TCP_Close")
0440: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun
0450: 63 20 28 2a 20 75 64 70 2d 70 61 63 6b 65 74 29 c (* udp-packet)
0460: 20 73 64 6c 2d 6e 65 74 2d 61 6c 6c 6f 63 2d 70 sdl-net-alloc-p
0470: 61 63 6b 65 74 20 28 28 73 69 7a 65 20 69 6e 74 acket ((size int
0480: 29 29 20 22 53 44 4c 4e 65 74 5f 41 6c 6c 6f 63 )) "SDLNet_Alloc
0490: 50 61 63 6b 65 74 22 29 0a 28 64 65 66 69 6e 65 Packet").(define
04a0: 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 -sdl-func int sd
04b0: 6c 2d 6e 65 74 2d 72 65 73 69 7a 65 2d 70 61 63 l-net-resize-pac
04c0: 6b 65 74 20 28 28 70 61 63 6b 65 74 20 28 2a 20 ket ((packet (*
04d0: 75 64 70 2d 70 61 63 6b 65 74 29 29 20 28 6e 65 udp-packet)) (ne
04e0: 77 73 69 7a 65 20 69 6e 74 29 29 20 22 53 44 4c wsize int)) "SDL
04f0: 4e 65 74 5f 52 65 73 69 7a 65 50 61 63 6b 65 74 Net_ResizePacket
0500: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f
0510: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6e 65 74 unc void sdl-net
0520: 2d 66 72 65 65 2d 70 61 63 6b 65 74 20 28 28 70 -free-packet ((p
0530: 61 63 6b 65 74 20 28 2a 20 75 64 70 2d 70 61 63 acket (* udp-pac
0540: 6b 65 74 29 29 29 20 22 53 44 4c 4e 65 74 5f 46 ket))) "SDLNet_F
0550: 72 65 65 50 61 63 6b 65 74 22 29 0a 28 64 65 66 reePacket").(def
0560: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 ine-sdl-func (*
0570: 75 64 70 2d 70 61 63 6b 65 74 29 20 73 64 6c 2d udp-packet) sdl-
0580: 6e 65 74 2d 61 6c 6c 6f 63 2d 70 61 63 6b 65 74 net-alloc-packet
0590: 76 20 28 28 68 6f 77 6d 61 6e 79 20 69 6e 74 29 v ((howmany int)
05a0: 20 28 73 69 7a 65 20 69 6e 74 29 29 20 22 53 44 (size int)) "SD
05b0: 4c 4e 65 74 5f 41 6c 6c 6f 63 50 61 63 6b 65 74 LNet_AllocPacket
05c0: 56 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d V").(define-sdl-
05d0: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6e 65 func void sdl-ne
05e0: 74 2d 66 72 65 65 2d 70 61 63 6b 65 74 76 20 28 t-free-packetv (
05f0: 28 70 61 63 6b 65 74 56 20 28 2a 20 75 64 70 2d (packetV (* udp-
0600: 70 61 63 6b 65 74 29 29 29 20 22 53 44 4c 4e 65 packet))) "SDLNe
0610: 74 5f 46 72 65 65 50 61 63 6b 65 74 56 22 29 0a t_FreePacketV").
0620: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
0630: 20 75 64 70 2d 73 6f 63 6b 65 74 20 73 64 6c 2d udp-socket sdl-
0640: 6e 65 74 2d 75 64 70 2d 6f 70 65 6e 20 28 28 70 net-udp-open ((p
0650: 6f 72 74 20 75 69 6e 74 31 36 29 29 20 22 53 44 ort uint16)) "SD
0660: 4c 4e 65 74 5f 55 44 50 5f 4f 70 65 6e 22 29 0a LNet_UDP_Open").
0670: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
0680: 20 76 6f 69 64 20 73 64 6c 2d 6e 65 74 2d 75 64 void sdl-net-ud
0690: 70 2d 73 65 74 2d 70 61 63 6b 65 74 2d 6c 6f 73 p-set-packet-los
06a0: 73 20 28 28 73 6f 63 6b 20 75 64 70 2d 73 6f 63 s ((sock udp-soc
06b0: 6b 65 74 29 20 28 70 65 72 63 65 6e 74 20 69 6e ket) (percent in
06c0: 74 29 29 20 22 53 44 4c 4e 65 74 5f 55 44 50 5f t)) "SDLNet_UDP_
06d0: 53 65 74 50 61 63 6b 65 74 4c 6f 73 73 22 29 0a SetPacketLoss").
06e0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
06f0: 20 69 6e 74 20 73 64 6c 2d 6e 65 74 2d 75 64 70 int sdl-net-udp
0700: 2d 62 69 6e 64 20 28 28 73 6f 63 6b 20 75 64 70 -bind ((sock udp
0710: 2d 73 6f 63 6b 65 74 29 20 28 63 68 61 6e 6e 65 -socket) (channe
0720: 6c 20 69 6e 74 29 20 28 61 64 64 72 65 73 73 20 l int) (address
0730: 28 2a 20 69 70 2d 61 64 64 72 65 73 73 29 29 29 (* ip-address)))
0740: 20 22 53 44 4c 4e 65 74 5f 55 44 50 5f 42 69 6e "SDLNet_UDP_Bin
0750: 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d d").(define-sdl-
0760: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6e 65 func void sdl-ne
0770: 74 2d 75 64 70 2d 75 6e 62 69 6e 64 20 28 28 73 t-udp-unbind ((s
0780: 6f 63 6b 20 75 64 70 2d 73 6f 63 6b 65 74 29 20 ock udp-socket)
0790: 28 63 68 61 6e 6e 65 6c 20 69 6e 74 29 29 20 22 (channel int)) "
07a0: 53 44 4c 4e 65 74 5f 55 44 50 5f 55 6e 62 69 6e SDLNet_UDP_Unbin
07b0: 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d d").(define-sdl-
07c0: 66 75 6e 63 20 28 2a 20 69 70 2d 61 64 64 72 65 func (* ip-addre
07d0: 73 73 29 20 73 64 6c 2d 6e 65 74 2d 75 64 70 2d ss) sdl-net-udp-
07e0: 67 65 74 2d 70 65 65 72 2d 61 64 64 72 65 73 73 get-peer-address
07f0: 20 28 28 73 6f 63 6b 20 75 64 70 2d 73 6f 63 6b ((sock udp-sock
0800: 65 74 29 20 28 63 68 61 6e 6e 65 6c 20 69 6e 74 et) (channel int
0810: 29 29 20 22 53 44 4c 4e 65 74 5f 55 44 50 5f 47 )) "SDLNet_UDP_G
0820: 65 74 50 65 65 72 41 64 64 72 65 73 73 22 29 0a etPeerAddress").
0830: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
0840: 20 69 6e 74 20 73 64 6c 2d 6e 65 74 2d 75 64 70 int sdl-net-udp
0850: 2d 73 65 6e 64 76 20 28 28 73 6f 63 6b 20 75 64 -sendv ((sock ud
0860: 70 2d 73 6f 63 6b 65 74 29 20 28 70 61 63 6b 65 p-socket) (packe
0870: 74 73 20 28 2a 20 75 64 70 2d 70 61 63 6b 65 74 ts (* udp-packet
0880: 29 29 20 28 6e 70 61 63 6b 65 74 73 20 69 6e 74 )) (npackets int
0890: 29 29 20 22 53 44 4c 4e 65 74 5f 55 44 50 5f 53 )) "SDLNet_UDP_S
08a0: 65 6e 64 56 22 29 0a 28 64 65 66 69 6e 65 2d 73 endV").(define-s
08b0: 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d dl-func int sdl-
08c0: 6e 65 74 2d 75 64 70 2d 73 65 6e 64 20 28 28 73 net-udp-send ((s
08d0: 6f 63 6b 20 75 64 70 2d 73 6f 63 6b 65 74 29 20 ock udp-socket)
08e0: 28 63 68 61 6e 6e 65 6c 20 69 6e 74 29 20 28 70 (channel int) (p
08f0: 61 63 6b 65 74 20 28 2a 20 75 64 70 2d 70 61 63 acket (* udp-pac
0900: 6b 65 74 29 29 29 20 22 53 44 4c 4e 65 74 5f 55 ket))) "SDLNet_U
0910: 44 50 5f 53 65 6e 64 22 29 0a 28 64 65 66 69 6e DP_Send").(defin
0920: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s
0930: 64 6c 2d 6e 65 74 2d 75 64 70 2d 72 65 63 76 76 dl-net-udp-recvv
0940: 20 28 28 73 6f 63 6b 20 75 64 70 2d 73 6f 63 6b ((sock udp-sock
0950: 65 74 29 20 28 70 61 63 6b 65 74 73 20 28 2a 20 et) (packets (*
0960: 75 64 70 2d 70 61 63 6b 65 74 29 29 29 20 22 53 udp-packet))) "S
0970: 44 4c 4e 65 74 5f 55 44 50 5f 52 65 63 76 56 22 DLNet_UDP_RecvV"
0980: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu
0990: 6e 63 20 69 6e 74 20 73 64 6c 2d 6e 65 74 2d 75 nc int sdl-net-u
09a0: 64 70 2d 72 65 63 76 20 28 28 73 6f 63 6b 20 75 dp-recv ((sock u
09b0: 64 70 2d 73 6f 63 6b 65 74 29 20 28 70 61 63 6b dp-socket) (pack
09c0: 65 74 20 28 2a 20 75 64 70 2d 70 61 63 6b 65 74 et (* udp-packet
09d0: 29 29 29 20 22 53 44 4c 4e 65 74 5f 55 44 50 5f ))) "SDLNet_UDP_
09e0: 52 65 63 76 22 29 0a 28 64 65 66 69 6e 65 2d 73 Recv").(define-s
09f0: 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c dl-func void sdl
0a00: 2d 6e 65 74 2d 75 64 70 2d 63 6c 6f 73 65 20 28 -net-udp-close (
0a10: 28 73 6f 63 6b 20 75 64 70 2d 73 6f 63 6b 65 74 (sock udp-socket
0a20: 29 29 20 22 53 44 4c 4e 65 74 5f 55 44 50 5f 43 )) "SDLNet_UDP_C
0a30: 6c 6f 73 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 lose").(define-s
0a40: 64 6c 2d 66 75 6e 63 20 73 64 6c 2d 6e 65 74 2d dl-func sdl-net-
0a50: 73 6f 63 6b 65 74 2d 73 65 74 2d 74 20 73 64 6c socket-set-t sdl
0a60: 2d 6e 65 74 2d 61 6c 6c 6f 63 2d 73 6f 63 6b 65 -net-alloc-socke
0a70: 74 2d 73 65 74 20 28 28 6d 61 78 73 6f 63 6b 65 t-set ((maxsocke
0a80: 74 73 20 69 6e 74 29 29 20 22 53 44 4c 4e 65 74 ts int)) "SDLNet
0a90: 5f 41 6c 6c 6f 63 53 6f 63 6b 65 74 53 65 74 22 _AllocSocketSet"
0aa0: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu
0ab0: 6e 63 20 69 6e 74 20 73 64 6c 2d 6e 65 74 2d 61 nc int sdl-net-a
0ac0: 64 64 2d 73 6f 63 6b 65 74 20 28 28 73 65 74 20 dd-socket ((set
0ad0: 73 64 6c 2d 6e 65 74 2d 73 6f 63 6b 65 74 2d 73 sdl-net-socket-s
0ae0: 65 74 2d 74 29 20 28 73 6f 63 6b 20 73 64 6c 2d et-t) (sock sdl-
0af0: 6e 65 74 2d 67 65 6e 65 72 69 63 2d 73 6f 63 6b net-generic-sock
0b00: 65 74 2d 74 29 29 20 22 53 44 4c 4e 65 74 5f 41 et-t)) "SDLNet_A
0b10: 64 64 53 6f 63 6b 65 74 22 29 0a 28 64 65 66 69 ddSocket").(defi
0b20: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 ne-sdl-func int
0b30: 73 64 6c 2d 6e 65 74 2d 74 63 70 2d 61 64 64 2d sdl-net-tcp-add-
0b40: 73 6f 63 6b 65 74 20 28 28 73 65 74 20 73 64 6c socket ((set sdl
0b50: 2d 6e 65 74 2d 73 6f 63 6b 65 74 2d 73 65 74 2d -net-socket-set-
0b60: 74 29 20 28 73 6f 63 6b 20 74 63 70 2d 73 6f 63 t) (sock tcp-soc
0b70: 6b 65 74 29 29 20 22 53 44 4c 4e 65 74 5f 54 43 ket)) "SDLNet_TC
0b80: 50 5f 41 64 64 53 6f 63 6b 65 74 22 29 0a 28 64 P_AddSocket").(d
0b90: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 efine-sdl-func i
0ba0: 6e 74 20 73 64 6c 2d 6e 65 74 2d 75 64 70 2d 61 nt sdl-net-udp-a
0bb0: 64 64 2d 73 6f 63 6b 65 74 20 28 28 73 65 74 20 dd-socket ((set
0bc0: 73 64 6c 2d 6e 65 74 2d 73 6f 63 6b 65 74 2d 73 sdl-net-socket-s
0bd0: 65 74 2d 74 29 20 28 73 6f 63 6b 20 75 64 70 2d et-t) (sock udp-
0be0: 73 6f 63 6b 65 74 29 29 20 22 53 44 4c 4e 65 74 socket)) "SDLNet
0bf0: 5f 55 44 50 5f 41 64 64 53 6f 63 6b 65 74 22 29 _UDP_AddSocket")
0c00: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun
0c10: 63 20 69 6e 74 20 73 64 6c 2d 6e 65 74 2d 64 65 c int sdl-net-de
0c20: 6c 2d 73 6f 63 6b 65 74 20 28 28 73 65 74 20 73 l-socket ((set s
0c30: 64 6c 2d 6e 65 74 2d 73 6f 63 6b 65 74 2d 73 65 dl-net-socket-se
0c40: 74 2d 74 29 20 28 73 6f 63 6b 20 73 64 6c 2d 6e t-t) (sock sdl-n
0c50: 65 74 2d 67 65 6e 65 72 69 63 2d 73 6f 63 6b 65 et-generic-socke
0c60: 74 2d 74 29 29 20 22 53 44 4c 4e 65 74 5f 44 65 t-t)) "SDLNet_De
0c70: 6c 53 6f 63 6b 65 74 22 29 0a 28 64 65 66 69 6e lSocket").(defin
0c80: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s
0c90: 64 6c 2d 6e 65 74 2d 74 63 70 2d 64 65 6c 2d 73 dl-net-tcp-del-s
0ca0: 6f 63 6b 65 74 20 28 28 73 65 74 20 73 64 6c 2d ocket ((set sdl-
0cb0: 6e 65 74 2d 73 6f 63 6b 65 74 2d 73 65 74 2d 74 net-socket-set-t
0cc0: 29 20 28 73 6f 63 6b 20 74 63 70 2d 73 6f 63 6b ) (sock tcp-sock
0cd0: 65 74 29 29 20 22 53 44 4c 4e 65 74 5f 54 43 50 et)) "SDLNet_TCP
0ce0: 5f 44 65 6c 53 6f 63 6b 65 74 22 29 0a 28 64 65 _DelSocket").(de
0cf0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in
0d00: 74 20 73 64 6c 2d 6e 65 74 2d 75 64 70 2d 64 65 t sdl-net-udp-de
0d10: 6c 2d 73 6f 63 6b 65 74 20 28 28 73 65 74 20 73 l-socket ((set s
0d20: 64 6c 2d 6e 65 74 2d 73 6f 63 6b 65 74 2d 73 65 dl-net-socket-se
0d30: 74 2d 74 29 20 28 73 6f 63 6b 20 75 64 70 2d 73 t-t) (sock udp-s
0d40: 6f 63 6b 65 74 29 29 20 22 53 44 4c 4e 65 74 5f ocket)) "SDLNet_
0d50: 55 44 50 5f 44 65 6c 53 6f 63 6b 65 74 22 29 0a UDP_DelSocket").
0d60: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
0d70: 20 69 6e 74 20 73 64 6c 2d 6e 65 74 2d 63 68 65 int sdl-net-che
0d80: 63 6b 2d 73 6f 63 6b 65 74 73 20 28 28 73 65 74 ck-sockets ((set
0d90: 20 73 64 6c 2d 6e 65 74 2d 73 6f 63 6b 65 74 2d sdl-net-socket-
0da0: 73 65 74 2d 74 29 20 28 74 69 6d 65 6f 75 74 20 set-t) (timeout
0db0: 75 69 6e 74 33 32 29 29 20 22 53 44 4c 4e 65 74 uint32)) "SDLNet
0dc0: 5f 43 68 65 63 6b 53 6f 63 6b 65 74 73 22 29 0a _CheckSockets").
0dd0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
0de0: 20 76 6f 69 64 20 73 64 6c 2d 6e 65 74 2d 66 72 void sdl-net-fr
0df0: 65 65 2d 73 6f 63 6b 65 74 2d 73 65 74 20 28 28 ee-socket-set ((
0e00: 73 65 74 20 73 64 6c 2d 6e 65 74 2d 73 6f 63 6b set sdl-net-sock
0e10: 65 74 2d 73 65 74 2d 74 29 29 20 22 53 44 4c 4e et-set-t)) "SDLN
0e20: 65 74 5f 46 72 65 65 53 6f 63 6b 65 74 53 65 74 et_FreeSocketSet
0e30: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f
0e40: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6e 65 74 unc void sdl-net
0e50: 2d 73 65 74 2d 65 72 72 6f 72 20 28 28 66 6d 74 -set-error ((fmt
0e60: 20 73 74 72 69 6e 67 29 29 20 22 53 44 4c 4e 65 string)) "SDLNe
0e70: 74 5f 53 65 74 45 72 72 6f 72 22 29 0a 28 64 65 t_SetError").(de
0e80: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 74 fine-sdl-func st
0e90: 72 69 6e 67 20 73 64 6c 2d 6e 65 74 2d 67 65 74 ring sdl-net-get
0ea0: 2d 65 72 72 6f 72 20 28 29 20 22 53 44 4c 4e 65 -error () "SDLNe
0eb0: 74 5f 47 65 74 45 72 72 6f 72 22 29 0a t_GetError").