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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
/*
This file is part of libmicrohttpd
Copyright (C) 2014 Karlson2k (Evgeny Grin)
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library.
If not, see <http://www.gnu.org/licenses/>.
*/
/**
* @file platform/w32functions.h
* @brief internal functions for W32 systems
* @author Karlson2k (Evgeny Grin)
*/
#include "w32functions.h"
#include <errno.h>
#include <winsock2.h>
#include <string.h>
#include <stdint.h>
#include <time.h>
#include <stdio.h>
#include <stdarg.h>
#include "../microhttpd/mhd_sockets.h"
/**
* Create pair of mutually connected TCP/IP sockets on loopback address
* @param sockets_pair array to receive resulted sockets
* @return zero on success, -1 otherwise
*/
int MHD_W32_pair_of_sockets_(SOCKET sockets_pair[2])
{
int i;
if (!sockets_pair)
{
errno = EINVAL;
return -1;
}
#define PAIRMAXTRYIES 800
for (i = 0; i < PAIRMAXTRYIES; i++)
{
struct sockaddr_in listen_addr;
SOCKET listen_s;
static const int c_addinlen = sizeof(struct sockaddr_in); /* help compiler to optimize */
int addr_len = c_addinlen;
int opt = 1;
listen_s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if (INVALID_SOCKET == listen_s)
break; /* can't create even single socket */
listen_addr.sin_family = AF_INET;
listen_addr.sin_port = htons(0);
listen_addr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
if (0 == bind(listen_s, (struct sockaddr*) &listen_addr, c_addinlen)
&& 0 == listen(listen_s, 1)
&& 0 == getsockname(listen_s, (struct sockaddr*) &listen_addr,
&addr_len))
{
SOCKET client_s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if (INVALID_SOCKET != client_s)
{
if (0 == ioctlsocket(client_s, FIONBIO, (u_long*) &opt)
&& (0 == connect(client_s, (struct sockaddr*) &listen_addr, c_addinlen)
|| WSAGetLastError() == WSAEWOULDBLOCK))
{
struct sockaddr_in accepted_from_addr;
SOCKET server_s;
addr_len = c_addinlen;
server_s = accept(listen_s,
(struct sockaddr*) &accepted_from_addr, &addr_len);
if (INVALID_SOCKET != server_s)
{
struct sockaddr_in client_addr;
addr_len = c_addinlen;
opt = 0;
if (0 == getsockname(client_s, (struct sockaddr*) &client_addr, &addr_len)
&& accepted_from_addr.sin_family == client_addr.sin_family
&& accepted_from_addr.sin_port == client_addr.sin_port
&& accepted_from_addr.sin_addr.s_addr == client_addr.sin_addr.s_addr
&& 0 == ioctlsocket(client_s, FIONBIO, (u_long*) &opt)
&& 0 == ioctlsocket(server_s, FIONBIO, (u_long*) &opt))
{
closesocket(listen_s);
sockets_pair[0] = client_s;
sockets_pair[1] = server_s;
return 0;
}
closesocket(server_s);
}
}
closesocket(client_s);
}
}
closesocket(listen_s);
}
sockets_pair[0] = INVALID_SOCKET;
sockets_pair[1] = INVALID_SOCKET;
return -1;
}
/**
* Static variable used by pseudo random number generator
*/
static int32_t rnd_val = 0;
/**
* Generate 31-bit pseudo random number.
* Function initialize itself at first call to current time.
* @return 31-bit pseudo random number.
*/
int MHD_W32_random_(void)
{
if (0 == rnd_val)
rnd_val = (int32_t)time(NULL);
/* stolen from winsup\cygwin\random.cc */
rnd_val = (16807 * (rnd_val % 127773) - 2836 * (rnd_val / 127773))
& 0x7fffffff;
return (int)rnd_val;
}
/* Emulate snprintf function on W32 */
int W32_snprintf(char *__restrict s, size_t n, const char *__restrict format, ...)
{
int ret;
va_list args;
if (0 != n && NULL != s )
{
va_start(args, format);
ret = _vsnprintf(s, n, format, args);
va_end(args);
if ((int)n == ret)
s[n - 1] = 0;
if (ret >= 0)
return ret;
}
va_start(args, format);
ret = _vscprintf(format, args);
va_end(args);
if (0 <= ret && 0 != n && NULL == s)
return -1;
return ret;
}
|
