1 #ifdef WIN
2 /*=========================================================================*\
3 * Socket compatibilization module for Win32
4 * LuaSocket toolkit
5 *
6 * The penalty of calling select to avoid busy-wait is only paid when
7 * the I/O call fail in the first place.
8 *
9 * RCS ID: $Id: wsocket.c,v 1.36 2007/06/11 23:44:54 diego Exp $
10 \*=========================================================================*/
11 #include <string.h>
12
13 #include "socket.h"
14
15 /* WinSock doesn't have a strerror... */
16 static const char *wstrerror(int err);
17
18 /*-------------------------------------------------------------------------*\
19 * Initializes module
20 \*-------------------------------------------------------------------------*/
socket_open(void)21 int socket_open(void) {
22 WSADATA wsaData;
23 WORD wVersionRequested = MAKEWORD(2, 0);
24 int err = WSAStartup(wVersionRequested, &wsaData );
25 if (err != 0) return 0;
26 if ((LOBYTE(wsaData.wVersion) != 2 || HIBYTE(wsaData.wVersion) != 0) &&
27 (LOBYTE(wsaData.wVersion) != 1 || HIBYTE(wsaData.wVersion) != 1)) {
28 WSACleanup();
29 return 0;
30 }
31 return 1;
32 }
33
34 /*-------------------------------------------------------------------------*\
35 * Close module
36 \*-------------------------------------------------------------------------*/
socket_close(void)37 int socket_close(void) {
38 WSACleanup();
39 return 1;
40 }
41
42 /*-------------------------------------------------------------------------*\
43 * Wait for readable/writable/connected socket with timeout
44 \*-------------------------------------------------------------------------*/
45 #define WAITFD_R 1
46 #define WAITFD_W 2
47 #define WAITFD_E 4
48 #define WAITFD_C (WAITFD_E|WAITFD_W)
49
socket_waitfd(p_socket ps,int sw,p_timeout tm)50 int socket_waitfd(p_socket ps, int sw, p_timeout tm) {
51 int ret;
52 fd_set rfds, wfds, efds, *rp = NULL, *wp = NULL, *ep = NULL;
53 struct timeval tv, *tp = NULL;
54 double t;
55 if (timeout_iszero(tm)) return IO_TIMEOUT; /* optimize timeout == 0 case */
56 if (sw & WAITFD_R) {
57 FD_ZERO(&rfds);
58 FD_SET(*ps, &rfds);
59 rp = &rfds;
60 }
61 if (sw & WAITFD_W) { FD_ZERO(&wfds); FD_SET(*ps, &wfds); wp = &wfds; }
62 if (sw & WAITFD_C) { FD_ZERO(&efds); FD_SET(*ps, &efds); ep = &efds; }
63 if ((t = timeout_get(tm)) >= 0.0) {
64 tv.tv_sec = (int) t;
65 tv.tv_usec = (int) ((t-tv.tv_sec)*1.0e6);
66 tp = &tv;
67 }
68 ret = select(0, rp, wp, ep, tp);
69 if (ret == -1) return WSAGetLastError();
70 if (ret == 0) return IO_TIMEOUT;
71 if (sw == WAITFD_C && FD_ISSET(*ps, &efds)) return IO_CLOSED;
72 return IO_DONE;
73 }
74
75 /*-------------------------------------------------------------------------*\
76 * Select with int timeout in ms
77 \*-------------------------------------------------------------------------*/
socket_select(t_socket n,fd_set * rfds,fd_set * wfds,fd_set * efds,p_timeout tm)78 int socket_select(t_socket n, fd_set *rfds, fd_set *wfds, fd_set *efds,
79 p_timeout tm) {
80 struct timeval tv;
81 double t = timeout_get(tm);
82 tv.tv_sec = (int) t;
83 tv.tv_usec = (int) ((t - tv.tv_sec) * 1.0e6);
84 if (n <= 0) {
85 Sleep((DWORD) (1000*t));
86 return 0;
87 } else return select(0, rfds, wfds, efds, t >= 0.0? &tv: NULL);
88 }
89
90 /*-------------------------------------------------------------------------*\
91 * Close and inutilize socket
92 \*-------------------------------------------------------------------------*/
socket_destroy(p_socket ps)93 void socket_destroy(p_socket ps) {
94 if (*ps != SOCKET_INVALID) {
95 socket_setblocking(ps); /* close can take a long time on WIN32 */
96 closesocket(*ps);
97 *ps = SOCKET_INVALID;
98 }
99 }
100
101 /*-------------------------------------------------------------------------*\
102 *
103 \*-------------------------------------------------------------------------*/
socket_shutdown(p_socket ps,int how)104 void socket_shutdown(p_socket ps, int how) {
105 socket_setblocking(ps);
106 shutdown(*ps, how);
107 socket_setnonblocking(ps);
108 }
109
110 /*-------------------------------------------------------------------------*\
111 * Creates and sets up a socket
112 \*-------------------------------------------------------------------------*/
socket_create(p_socket ps,int domain,int type,int protocol)113 int socket_create(p_socket ps, int domain, int type, int protocol) {
114 *ps = socket(domain, type, protocol);
115 if (*ps != SOCKET_INVALID) return IO_DONE;
116 else return WSAGetLastError();
117 }
118
119 /*-------------------------------------------------------------------------*\
120 * Connects or returns error message
121 \*-------------------------------------------------------------------------*/
socket_connect(p_socket ps,SA * addr,socklen_t len,p_timeout tm)122 int socket_connect(p_socket ps, SA *addr, socklen_t len, p_timeout tm) {
123 int err;
124 /* don't call on closed socket */
125 if (*ps == SOCKET_INVALID) return IO_CLOSED;
126 /* ask system to connect */
127 if (connect(*ps, addr, len) == 0) return IO_DONE;
128 /* make sure the system is trying to connect */
129 err = WSAGetLastError();
130 if (err != WSAEWOULDBLOCK && err != WSAEINPROGRESS) return err;
131 /* zero timeout case optimization */
132 if (timeout_iszero(tm)) return IO_TIMEOUT;
133 /* we wait until something happens */
134 err = socket_waitfd(ps, WAITFD_C, tm);
135 if (err == IO_CLOSED) {
136 int len = sizeof(err);
137 /* give windows time to set the error (yes, disgusting) */
138 Sleep(10);
139 /* find out why we failed */
140 getsockopt(*ps, SOL_SOCKET, SO_ERROR, (char *)&err, &len);
141 /* we KNOW there was an error. if 'why' is 0, we will return
142 * "unknown error", but it's not really our fault */
143 return err > 0? err: IO_UNKNOWN;
144 } else return err;
145
146 }
147
148 /*-------------------------------------------------------------------------*\
149 * Binds or returns error message
150 \*-------------------------------------------------------------------------*/
socket_bind(p_socket ps,SA * addr,socklen_t len)151 int socket_bind(p_socket ps, SA *addr, socklen_t len) {
152 int err = IO_DONE;
153 socket_setblocking(ps);
154 if (bind(*ps, addr, len) < 0) err = WSAGetLastError();
155 socket_setnonblocking(ps);
156 return err;
157 }
158
159 /*-------------------------------------------------------------------------*\
160 *
161 \*-------------------------------------------------------------------------*/
socket_listen(p_socket ps,int backlog)162 int socket_listen(p_socket ps, int backlog) {
163 int err = IO_DONE;
164 socket_setblocking(ps);
165 if (listen(*ps, backlog) < 0) err = WSAGetLastError();
166 socket_setnonblocking(ps);
167 return err;
168 }
169
170 /*-------------------------------------------------------------------------*\
171 * Accept with timeout
172 \*-------------------------------------------------------------------------*/
socket_accept(p_socket ps,p_socket pa,SA * addr,socklen_t * len,p_timeout tm)173 int socket_accept(p_socket ps, p_socket pa, SA *addr, socklen_t *len,
174 p_timeout tm) {
175 SA daddr;
176 socklen_t dlen = sizeof(daddr);
177 if (*ps == SOCKET_INVALID) return IO_CLOSED;
178 if (!addr) addr = &daddr;
179 if (!len) len = &dlen;
180 for ( ;; ) {
181 int err;
182 /* try to get client socket */
183 if ((*pa = accept(*ps, addr, len)) != SOCKET_INVALID) return IO_DONE;
184 /* find out why we failed */
185 err = WSAGetLastError();
186 /* if we failed because there was no connectoin, keep trying */
187 if (err != WSAEWOULDBLOCK && err != WSAECONNABORTED) return err;
188 /* call select to avoid busy wait */
189 if ((err = socket_waitfd(ps, WAITFD_R, tm)) != IO_DONE) return err;
190 }
191 /* can't reach here */
192 return IO_UNKNOWN;
193 }
194
195 /*-------------------------------------------------------------------------*\
196 * Send with timeout
197 * On windows, if you try to send 10MB, the OS will buffer EVERYTHING
198 * this can take an awful lot of time and we will end up blocked.
199 * Therefore, whoever calls this function should not pass a huge buffer.
200 \*-------------------------------------------------------------------------*/
socket_send(p_socket ps,const char * data,size_t count,size_t * sent,p_timeout tm)201 int socket_send(p_socket ps, const char *data, size_t count,
202 size_t *sent, p_timeout tm)
203 {
204 int err;
205 *sent = 0;
206 /* avoid making system calls on closed sockets */
207 if (*ps == SOCKET_INVALID) return IO_CLOSED;
208 /* loop until we send something or we give up on error */
209 for ( ;; ) {
210 /* try to send something */
211 int put = send(*ps, data, (int) count, 0);
212 /* if we sent something, we are done */
213 if (put > 0) {
214 *sent = put;
215 return IO_DONE;
216 }
217 /* deal with failure */
218 err = WSAGetLastError();
219 /* we can only proceed if there was no serious error */
220 if (err != WSAEWOULDBLOCK) return err;
221 /* avoid busy wait */
222 if ((err = socket_waitfd(ps, WAITFD_W, tm)) != IO_DONE) return err;
223 }
224 /* can't reach here */
225 return IO_UNKNOWN;
226 }
227
228 /*-------------------------------------------------------------------------*\
229 * Sendto with timeout
230 \*-------------------------------------------------------------------------*/
socket_sendto(p_socket ps,const char * data,size_t count,size_t * sent,SA * addr,socklen_t len,p_timeout tm)231 int socket_sendto(p_socket ps, const char *data, size_t count, size_t *sent,
232 SA *addr, socklen_t len, p_timeout tm)
233 {
234 int err;
235 *sent = 0;
236 if (*ps == SOCKET_INVALID) return IO_CLOSED;
237 for ( ;; ) {
238 int put = sendto(*ps, data, (int) count, 0, addr, len);
239 if (put > 0) {
240 *sent = put;
241 return IO_DONE;
242 }
243 err = WSAGetLastError();
244 if (err != WSAEWOULDBLOCK) return err;
245 if ((err = socket_waitfd(ps, WAITFD_W, tm)) != IO_DONE) return err;
246 }
247 return IO_UNKNOWN;
248 }
249
250 /*-------------------------------------------------------------------------*\
251 * Receive with timeout
252 \*-------------------------------------------------------------------------*/
socket_recv(p_socket ps,char * data,size_t count,size_t * got,p_timeout tm)253 int socket_recv(p_socket ps, char *data, size_t count, size_t *got, p_timeout tm) {
254 int err;
255 *got = 0;
256 if (*ps == SOCKET_INVALID) return IO_CLOSED;
257 for ( ;; ) {
258 int taken = recv(*ps, data, (int) count, 0);
259 if (taken > 0) {
260 *got = taken;
261 return IO_DONE;
262 }
263 if (taken == 0) return IO_CLOSED;
264 err = WSAGetLastError();
265 if (err != WSAEWOULDBLOCK) return err;
266 if ((err = socket_waitfd(ps, WAITFD_R, tm)) != IO_DONE) return err;
267 }
268 return IO_UNKNOWN;
269 }
270
271 /*-------------------------------------------------------------------------*\
272 * Recvfrom with timeout
273 \*-------------------------------------------------------------------------*/
socket_recvfrom(p_socket ps,char * data,size_t count,size_t * got,SA * addr,socklen_t * len,p_timeout tm)274 int socket_recvfrom(p_socket ps, char *data, size_t count, size_t *got,
275 SA *addr, socklen_t *len, p_timeout tm) {
276 int err;
277 *got = 0;
278 if (*ps == SOCKET_INVALID) return IO_CLOSED;
279 for ( ;; ) {
280 int taken = recvfrom(*ps, data, (int) count, 0, addr, len);
281 if (taken > 0) {
282 *got = taken;
283 return IO_DONE;
284 }
285 if (taken == 0) return IO_CLOSED;
286 err = WSAGetLastError();
287 if (err != WSAEWOULDBLOCK) return err;
288 if ((err = socket_waitfd(ps, WAITFD_R, tm)) != IO_DONE) return err;
289 }
290 return IO_UNKNOWN;
291 }
292
293 /*-------------------------------------------------------------------------*\
294 * Put socket into blocking mode
295 \*-------------------------------------------------------------------------*/
socket_setblocking(p_socket ps)296 void socket_setblocking(p_socket ps) {
297 u_long argp = 0;
298 ioctlsocket(*ps, FIONBIO, &argp);
299 }
300
301 /*-------------------------------------------------------------------------*\
302 * Put socket into non-blocking mode
303 \*-------------------------------------------------------------------------*/
socket_setnonblocking(p_socket ps)304 void socket_setnonblocking(p_socket ps) {
305 u_long argp = 1;
306 ioctlsocket(*ps, FIONBIO, &argp);
307 }
308
309 /*-------------------------------------------------------------------------*\
310 * DNS helpers
311 \*-------------------------------------------------------------------------*/
socket_gethostbyaddr(const char * addr,socklen_t len,struct hostent ** hp)312 int socket_gethostbyaddr(const char *addr, socklen_t len, struct hostent **hp) {
313 *hp = gethostbyaddr(addr, len, AF_INET);
314 if (*hp) return IO_DONE;
315 else return WSAGetLastError();
316 }
317
socket_gethostbyname(const char * addr,struct hostent ** hp)318 int socket_gethostbyname(const char *addr, struct hostent **hp) {
319 *hp = gethostbyname(addr);
320 if (*hp) return IO_DONE;
321 else return WSAGetLastError();
322 }
323
324 /*-------------------------------------------------------------------------*\
325 * Error translation functions
326 \*-------------------------------------------------------------------------*/
socket_hoststrerror(int err)327 const char *socket_hoststrerror(int err) {
328 if (err <= 0) return io_strerror(err);
329 switch (err) {
330 case WSAHOST_NOT_FOUND: return "host not found";
331 default: return wstrerror(err);
332 }
333 }
334
socket_strerror(int err)335 const char *socket_strerror(int err) {
336 if (err <= 0) return io_strerror(err);
337 switch (err) {
338 case WSAEADDRINUSE: return "address already in use";
339 case WSAECONNREFUSED: return "connection refused";
340 case WSAEISCONN: return "already connected";
341 case WSAEACCES: return "permission denied";
342 case WSAECONNABORTED: return "closed";
343 case WSAECONNRESET: return "closed";
344 case WSAETIMEDOUT: return "timeout";
345 default: return wstrerror(err);
346 }
347 }
348
socket_ioerror(p_socket ps,int err)349 const char *socket_ioerror(p_socket ps, int err) {
350 (void) ps;
351 return socket_strerror(err);
352 }
353
wstrerror(int err)354 static const char *wstrerror(int err) {
355 switch (err) {
356 case WSAEINTR: return "Interrupted function call";
357 case WSAEACCES: return "Permission denied";
358 case WSAEFAULT: return "Bad address";
359 case WSAEINVAL: return "Invalid argument";
360 case WSAEMFILE: return "Too many open files";
361 case WSAEWOULDBLOCK: return "Resource temporarily unavailable";
362 case WSAEINPROGRESS: return "Operation now in progress";
363 case WSAEALREADY: return "Operation already in progress";
364 case WSAENOTSOCK: return "Socket operation on nonsocket";
365 case WSAEDESTADDRREQ: return "Destination address required";
366 case WSAEMSGSIZE: return "Message too long";
367 case WSAEPROTOTYPE: return "Protocol wrong type for socket";
368 case WSAENOPROTOOPT: return "Bad protocol option";
369 case WSAEPROTONOSUPPORT: return "Protocol not supported";
370 case WSAESOCKTNOSUPPORT: return "Socket type not supported";
371 case WSAEOPNOTSUPP: return "Operation not supported";
372 case WSAEPFNOSUPPORT: return "Protocol family not supported";
373 case WSAEAFNOSUPPORT:
374 return "Address family not supported by protocol family";
375 case WSAEADDRINUSE: return "Address already in use";
376 case WSAEADDRNOTAVAIL: return "Cannot assign requested address";
377 case WSAENETDOWN: return "Network is down";
378 case WSAENETUNREACH: return "Network is unreachable";
379 case WSAENETRESET: return "Network dropped connection on reset";
380 case WSAECONNABORTED: return "Software caused connection abort";
381 case WSAECONNRESET: return "Connection reset by peer";
382 case WSAENOBUFS: return "No buffer space available";
383 case WSAEISCONN: return "Socket is already connected";
384 case WSAENOTCONN: return "Socket is not connected";
385 case WSAESHUTDOWN: return "Cannot send after socket shutdown";
386 case WSAETIMEDOUT: return "Connection timed out";
387 case WSAECONNREFUSED: return "Connection refused";
388 case WSAEHOSTDOWN: return "Host is down";
389 case WSAEHOSTUNREACH: return "No route to host";
390 case WSAEPROCLIM: return "Too many processes";
391 case WSASYSNOTREADY: return "Network subsystem is unavailable";
392 case WSAVERNOTSUPPORTED: return "Winsock.dll version out of range";
393 case WSANOTINITIALISED:
394 return "Successful WSAStartup not yet performed";
395 case WSAEDISCON: return "Graceful shutdown in progress";
396 case WSAHOST_NOT_FOUND: return "Host not found";
397 case WSATRY_AGAIN: return "Nonauthoritative host not found";
398 case WSANO_RECOVERY: return "Nonrecoverable name lookup error";
399 case WSANO_DATA: return "Valid name, no data record of requested type";
400 default: return "Unknown error";
401 }
402 }
403 #endif
404