forked from perl5-dbi/DBD-MariaDB
-
Notifications
You must be signed in to change notification settings - Fork 0
/
socket.c
48 lines (41 loc) · 959 Bytes
/
socket.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
/*
* On WIN32 windows.h and winsock.h need to be included before mysql.h
* Otherwise SOCKET type which is needed for mysql.h is not defined
*/
#ifdef _WIN32
#include <windows.h>
#include <winsock.h>
#endif
#include <mysql.h>
#include <stddef.h>
#include <errno.h>
#ifndef _WIN32
#include <sys/time.h>
#include <sys/types.h>
#include <unistd.h>
#endif
/*
* Warning: Native socket code must be outside of dbdimp.c and dbdimp.h because
* perl header files redefine socket function. This file must not
* include any perl header files!
*/
int mariadb_dr_socket_ready(my_socket fd)
{
struct timeval timeout;
fd_set fds;
int retval;
FD_ZERO(&fds);
FD_SET(fd, &fds);
timeout.tv_sec = 0;
timeout.tv_usec = 0;
retval = select(fd+1, &fds, NULL, NULL, &timeout);
if (retval < 0) {
#ifdef _WIN32
/* Windows does not update errno */
return -WSAGetLastError();
#else
return -errno;
#endif
}
return retval;
}