projects / reactos.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[MSAFD] Add an initial implementation of SIO_GET_EXTENSION_FUNCTION_POINTER IOCTL
[reactos.git] / dll / win32 / msafd / misc / dllmain.c
1 /*
2 * COPYRIGHT: See COPYING in the top level directory
3 * PROJECT: ReactOS Ancillary Function Driver DLL
4 * FILE: dll/win32/msafd/misc/dllmain.c
5 * PURPOSE: DLL entry point
6 * PROGRAMMERS: Casper S. Hornstrup (chorns@users.sourceforge.net)
7 * Alex Ionescu (alex@relsoft.net)
8 * Pierre Schweitzer (pierre@reactos.org)
9 * REVISIONS:
10 * CSH 01/09-2000 Created
11 * Alex 16/07/2004 - Complete Rewrite
12 */
13
14 #include <msafd.h>
15
16 #include <winuser.h>
17 #include <wchar.h>
18
19 HANDLE GlobalHeap;
20 WSPUPCALLTABLE Upcalls;
21 DWORD CatalogEntryId; /* CatalogEntryId for upcalls */
22 LPWPUCOMPLETEOVERLAPPEDREQUEST lpWPUCompleteOverlappedRequest;
23 PSOCKET_INFORMATION SocketListHead = NULL;
24 CRITICAL_SECTION SocketListLock;
25 LIST_ENTRY SockHelpersListHead = { NULL, NULL };
26 ULONG SockAsyncThreadRefCount;
27 HANDLE SockAsyncHelperAfdHandle;
28 HANDLE SockAsyncCompletionPort = NULL;
29 BOOLEAN SockAsyncSelectCalled;
30
31
32
33 /*
34 * FUNCTION: Creates a new socket
35 * ARGUMENTS:
36 * af = Address family
37 * type = Socket type
38 * protocol = Protocol type
39 * lpProtocolInfo = Pointer to protocol information
40 * g = Reserved
41 * dwFlags = Socket flags
42 * lpErrno = Address of buffer for error information
43 * RETURNS:
44 * Created socket, or INVALID_SOCKET if it could not be created
45 */
46 SOCKET
47 WSPAPI
48 WSPSocket(int AddressFamily,
49 int SocketType,
50 int Protocol,
51 LPWSAPROTOCOL_INFOW lpProtocolInfo,
52 GROUP g,
53 DWORD dwFlags,
54 LPINT lpErrno)
55 {
56 OBJECT_ATTRIBUTES Object;
57 IO_STATUS_BLOCK IOSB;
58 USHORT SizeOfPacket;
59 ULONG SizeOfEA;
60 PAFD_CREATE_PACKET AfdPacket;
61 HANDLE Sock;
62 PSOCKET_INFORMATION Socket = NULL;
63 PFILE_FULL_EA_INFORMATION EABuffer = NULL;
64 PHELPER_DATA HelperData;
65 PVOID HelperDLLContext;
66 DWORD HelperEvents;
67 UNICODE_STRING TransportName;
68 UNICODE_STRING DevName;
69 LARGE_INTEGER GroupData;
70 INT Status;
71 PSOCK_SHARED_INFO SharedData = NULL;
72
73 TRACE("Creating Socket, getting TDI Name - AddressFamily (%d) SocketType (%d) Protocol (%d).\n",
74 AddressFamily, SocketType, Protocol);
75
76 if (lpProtocolInfo && lpProtocolInfo->dwServiceFlags3 != 0 && lpProtocolInfo->dwServiceFlags4 != 0)
77 {
78 /* Duplpicating socket from different process */
79 if (UlongToPtr(lpProtocolInfo->dwServiceFlags3) == INVALID_HANDLE_VALUE)
80 {
81 Status = WSAEINVAL;
82 goto error;
83 }
84 if (UlongToPtr(lpProtocolInfo->dwServiceFlags4) == INVALID_HANDLE_VALUE)
85 {
86 Status = WSAEINVAL;
87 goto error;
88 }
89 SharedData = MapViewOfFile(UlongToPtr(lpProtocolInfo->dwServiceFlags3),
90 FILE_MAP_ALL_ACCESS,
91 0,
92 0,
93 sizeof(SOCK_SHARED_INFO));
94 if (!SharedData)
95 {
96 Status = WSAEINVAL;
97 goto error;
98 }
99 InterlockedIncrement(&SharedData->RefCount);
100 AddressFamily = SharedData->AddressFamily;
101 SocketType = SharedData->SocketType;
102 Protocol = SharedData->Protocol;
103 }
104
105 if (AddressFamily == AF_UNSPEC && SocketType == 0 && Protocol == 0)
106 {
107 Status = WSAEINVAL;
108 goto error;
109 }
110
111 /* Set the defaults */
112 if (AddressFamily == AF_UNSPEC)
113 AddressFamily = AF_INET;
114
115 if (SocketType == 0)
116 {
117 switch (Protocol)
118 {
119 case IPPROTO_TCP:
120 SocketType = SOCK_STREAM;
121 break;
122 case IPPROTO_UDP:
123 SocketType = SOCK_DGRAM;
124 break;
125 case IPPROTO_RAW:
126 SocketType = SOCK_RAW;
127 break;
128 default:
129 TRACE("Unknown Protocol (%d). We will try SOCK_STREAM.\n", Protocol);
130 SocketType = SOCK_STREAM;
131 break;
132 }
133 }
134
135 if (Protocol == 0)
136 {
137 switch (SocketType)
138 {
139 case SOCK_STREAM:
140 Protocol = IPPROTO_TCP;
141 break;
142 case SOCK_DGRAM:
143 Protocol = IPPROTO_UDP;
144 break;
145 case SOCK_RAW:
146 Protocol = IPPROTO_RAW;
147 break;
148 default:
149 TRACE("Unknown SocketType (%d). We will try IPPROTO_TCP.\n", SocketType);
150 Protocol = IPPROTO_TCP;
151 break;
152 }
153 }
154
155 /* Get Helper Data and Transport */
156 Status = SockGetTdiName (&AddressFamily,
157 &SocketType,
158 &Protocol,
159 g,
160 dwFlags,
161 &TransportName,
162 &HelperDLLContext,
163 &HelperData,
164 &HelperEvents);
165
166 /* Check for error */
167 if (Status != NO_ERROR)
168 {
169 ERR("SockGetTdiName: Status %x\n", Status);
170 goto error;
171 }
172
173 /* AFD Device Name */
174 RtlInitUnicodeString(&DevName, L"\\Device\\Afd\\Endpoint");
175
176 /* Set Socket Data */
177 Socket = HeapAlloc(GlobalHeap, 0, sizeof(*Socket));
178 if (!Socket)
179 {
180 Status = WSAENOBUFS;
181 goto error;
182 }
183 RtlZeroMemory(Socket, sizeof(*Socket));
184 if (SharedData)
185 {
186 Socket->SharedData = SharedData;
187 Socket->SharedDataHandle = UlongToHandle(lpProtocolInfo->dwServiceFlags3);
188 Sock = UlongToHandle(lpProtocolInfo->dwServiceFlags4);
189 Socket->Handle = (SOCKET)lpProtocolInfo->dwServiceFlags4;
190 }
191 else
192 {
193 Socket->SharedDataHandle = INVALID_HANDLE_VALUE;
194 Socket->SharedData = HeapAlloc(GlobalHeap, 0, sizeof(*Socket->SharedData));
195 if (!Socket->SharedData)
196 {
197 Status = WSAENOBUFS;
198 goto error;
199 }
200 RtlZeroMemory(Socket->SharedData, sizeof(*Socket->SharedData));
201 Socket->SharedData->State = SocketOpen;
202 Socket->SharedData->RefCount = 1L;
203 Socket->SharedData->Listening = FALSE;
204 Socket->SharedData->AddressFamily = AddressFamily;
205 Socket->SharedData->SocketType = SocketType;
206 Socket->SharedData->Protocol = Protocol;
207 Socket->SharedData->SizeOfLocalAddress = HelperData->MaxWSAddressLength;
208 Socket->SharedData->SizeOfRemoteAddress = HelperData->MaxWSAddressLength;
209 Socket->SharedData->UseDelayedAcceptance = HelperData->UseDelayedAcceptance;
210 Socket->SharedData->CreateFlags = dwFlags;
211 Socket->SharedData->ServiceFlags1 = lpProtocolInfo->dwServiceFlags1;
212 Socket->SharedData->ProviderFlags = lpProtocolInfo->dwProviderFlags;
213 Socket->SharedData->UseSAN = FALSE;
214 Socket->SharedData->NonBlocking = FALSE; /* Sockets start blocking */
215 Socket->SharedData->RecvTimeout = INFINITE;
216 Socket->SharedData->SendTimeout = INFINITE;
217 Socket->SharedData->OobInline = FALSE;
218
219 /* Ask alex about this */
220 if( Socket->SharedData->SocketType == SOCK_DGRAM ||
221 Socket->SharedData->SocketType == SOCK_RAW )
222 {
223 TRACE("Connectionless socket\n");
224 Socket->SharedData->ServiceFlags1 |= XP1_CONNECTIONLESS;
225 }
226 Socket->Handle = INVALID_SOCKET;
227 }
228
229 Socket->HelperContext = HelperDLLContext;
230 Socket->HelperData = HelperData;
231 Socket->HelperEvents = HelperEvents;
232 Socket->LocalAddress = &Socket->SharedData->WSLocalAddress;
233 Socket->RemoteAddress = &Socket->SharedData->WSRemoteAddress;
234 Socket->SanData = NULL;
235 RtlCopyMemory(&Socket->ProtocolInfo, lpProtocolInfo, sizeof(Socket->ProtocolInfo));
236 if (SharedData)
237 goto ok;
238
239 /* Packet Size */
240 SizeOfPacket = TransportName.Length + sizeof(AFD_CREATE_PACKET) + sizeof(WCHAR);
241
242 /* EA Size */
243 SizeOfEA = SizeOfPacket + sizeof(FILE_FULL_EA_INFORMATION) + AFD_PACKET_COMMAND_LENGTH;
244
245 /* Set up EA Buffer */
246 EABuffer = HeapAlloc(GlobalHeap, 0, SizeOfEA);
247 if (!EABuffer)
248 {
249 Status = WSAENOBUFS;
250 goto error;
251 }
252
253 RtlZeroMemory(EABuffer, SizeOfEA);
254 EABuffer->NextEntryOffset = 0;
255 EABuffer->Flags = 0;
256 EABuffer->EaNameLength = AFD_PACKET_COMMAND_LENGTH;
257 RtlCopyMemory (EABuffer->EaName,
258 AfdCommand,
259 AFD_PACKET_COMMAND_LENGTH + 1);
260 EABuffer->EaValueLength = SizeOfPacket;
261
262 /* Set up AFD Packet */
263 AfdPacket = (PAFD_CREATE_PACKET)(EABuffer->EaName + EABuffer->EaNameLength + 1);
264 AfdPacket->SizeOfTransportName = TransportName.Length;
265 RtlCopyMemory (AfdPacket->TransportName,
266 TransportName.Buffer,
267 TransportName.Length + sizeof(WCHAR));
268 AfdPacket->GroupID = g;
269
270 /* Set up Endpoint Flags */
271 if ((Socket->SharedData->ServiceFlags1 & XP1_CONNECTIONLESS) != 0)
272 {
273 if ((SocketType != SOCK_DGRAM) && (SocketType != SOCK_RAW))
274 {
275 /* Only RAW or UDP can be Connectionless */
276 Status = WSAEINVAL;
277 goto error;
278 }
279 AfdPacket->EndpointFlags |= AFD_ENDPOINT_CONNECTIONLESS;
280 }
281
282 if ((Socket->SharedData->ServiceFlags1 & XP1_MESSAGE_ORIENTED) != 0)
283 {
284 if (SocketType == SOCK_STREAM)
285 {
286 if ((Socket->SharedData->ServiceFlags1 & XP1_PSEUDO_STREAM) == 0)
287 {
288 /* The Provider doesn't actually support Message Oriented Streams */
289 Status = WSAEINVAL;
290 goto error;
291 }
292 }
293 AfdPacket->EndpointFlags |= AFD_ENDPOINT_MESSAGE_ORIENTED;
294 }
295
296 if (SocketType == SOCK_RAW) AfdPacket->EndpointFlags |= AFD_ENDPOINT_RAW;
297
298 if (dwFlags & (WSA_FLAG_MULTIPOINT_C_ROOT |
299 WSA_FLAG_MULTIPOINT_C_LEAF |
300 WSA_FLAG_MULTIPOINT_D_ROOT |
301 WSA_FLAG_MULTIPOINT_D_LEAF))
302 {
303 if ((Socket->SharedData->ServiceFlags1 & XP1_SUPPORT_MULTIPOINT) == 0)
304 {
305 /* The Provider doesn't actually support Multipoint */
306 Status = WSAEINVAL;
307 goto error;
308 }
309 AfdPacket->EndpointFlags |= AFD_ENDPOINT_MULTIPOINT;
310
311 if (dwFlags & WSA_FLAG_MULTIPOINT_C_ROOT)
312 {
313 if (((Socket->SharedData->ServiceFlags1 & XP1_MULTIPOINT_CONTROL_PLANE) == 0)
314 || ((dwFlags & WSA_FLAG_MULTIPOINT_C_LEAF) != 0))
315 {
316 /* The Provider doesn't support Control Planes, or you already gave a leaf */
317 Status = WSAEINVAL;
318 goto error;
319 }
320 AfdPacket->EndpointFlags |= AFD_ENDPOINT_C_ROOT;
321 }
322
323 if (dwFlags & WSA_FLAG_MULTIPOINT_D_ROOT)
324 {
325 if (((Socket->SharedData->ServiceFlags1 & XP1_MULTIPOINT_DATA_PLANE) == 0)
326 || ((dwFlags & WSA_FLAG_MULTIPOINT_D_LEAF) != 0))
327 {
328 /* The Provider doesn't support Data Planes, or you already gave a leaf */
329 Status = WSAEINVAL;
330 goto error;
331 }
332 AfdPacket->EndpointFlags |= AFD_ENDPOINT_D_ROOT;
333 }
334 }
335
336 /* Set up Object Attributes */
337 InitializeObjectAttributes (&Object,
338 &DevName,
339 OBJ_CASE_INSENSITIVE | OBJ_INHERIT,
340 0,
341 0);
342
343 /* Create the Socket as asynchronous. That means we have to block
344 ourselves after every call to NtDeviceIoControlFile. This is
345 because the kernel doesn't support overlapping synchronous I/O
346 requests (made from multiple threads) at this time (Sep 2005) */
347 Status = NtCreateFile(&Sock,
348 GENERIC_READ | GENERIC_WRITE | SYNCHRONIZE,
349 &Object,
350 &IOSB,
351 NULL,
352 0,
353 FILE_SHARE_READ | FILE_SHARE_WRITE,
354 FILE_OPEN_IF,
355 0,
356 EABuffer,
357 SizeOfEA);
358
359 HeapFree(GlobalHeap, 0, EABuffer);
360
361 if (!NT_SUCCESS(Status))
362 {
363 ERR("Failed to open socket. Status 0x%08x\n", Status);
364 Status = TranslateNtStatusError(Status);
365 goto error;
366 }
367
368 /* Save Handle */
369 Socket->Handle = (SOCKET)Sock;
370
371 /* Save Group Info */
372 if (g != 0)
373 {
374 GetSocketInformation(Socket,
375 AFD_INFO_GROUP_ID_TYPE,
376 NULL,
377 NULL,
378 &GroupData,
379 NULL,
380 NULL);
381 Socket->SharedData->GroupID = GroupData.u.LowPart;
382 Socket->SharedData->GroupType = GroupData.u.HighPart;
383 }
384
385 /* Get Window Sizes and Save them */
386 GetSocketInformation (Socket,
387 AFD_INFO_SEND_WINDOW_SIZE,
388 NULL,
389 &Socket->SharedData->SizeOfSendBuffer,
390 NULL,
391 NULL,
392 NULL);
393
394 GetSocketInformation (Socket,
395 AFD_INFO_RECEIVE_WINDOW_SIZE,
396 NULL,
397 &Socket->SharedData->SizeOfRecvBuffer,
398 NULL,
399 NULL,
400 NULL);
401 ok:
402
403 /* Save in Process Sockets List */
404 EnterCriticalSection(&SocketListLock);
405 Socket->NextSocket = SocketListHead;
406 SocketListHead = Socket;
407 LeaveCriticalSection(&SocketListLock);
408
409 /* Create the Socket Context */
410 CreateContext(Socket);
411
412 /* Notify Winsock */
413 Upcalls.lpWPUModifyIFSHandle(Socket->ProtocolInfo.dwCatalogEntryId, (SOCKET)Sock, lpErrno);
414
415 /* Return Socket Handle */
416 TRACE("Success %x\n", Sock);
417
418 return (SOCKET)Sock;
419
420 error:
421 ERR("Ending %x\n", Status);
422
423 if( SharedData )
424 {
425 UnmapViewOfFile(SharedData);
426 NtClose(UlongToHandle(lpProtocolInfo->dwServiceFlags3));
427 }
428 else
429 {
430 if( Socket && Socket->SharedData )
431 HeapFree(GlobalHeap, 0, Socket->SharedData);
432 }
433
434 if( Socket )
435 HeapFree(GlobalHeap, 0, Socket);
436
437 if( EABuffer )
438 HeapFree(GlobalHeap, 0, EABuffer);
439
440 if( lpErrno )
441 *lpErrno = Status;
442
443 return INVALID_SOCKET;
444 }
445
446
447 INT
448 WSPAPI
449 WSPDuplicateSocket(
450 IN SOCKET Handle,
451 IN DWORD dwProcessId,
452 OUT LPWSAPROTOCOL_INFOW lpProtocolInfo,
453 OUT LPINT lpErrno)
454 {
455 HANDLE hProcess, hDuplicatedSharedData, hDuplicatedHandle;
456 PSOCKET_INFORMATION Socket;
457 PSOCK_SHARED_INFO pSharedData, pOldSharedData;
458 BOOL bDuplicated;
459
460 if (Handle == INVALID_SOCKET)
461 return MsafdReturnWithErrno(STATUS_INVALID_PARAMETER, lpErrno, 0, NULL);
462 Socket = GetSocketStructure(Handle);
463 if( !Socket )
464 {
465 if( lpErrno )
466 *lpErrno = WSAENOTSOCK;
467 return SOCKET_ERROR;
468 }
469 if ( !(hProcess = OpenProcess(PROCESS_DUP_HANDLE, FALSE, dwProcessId)) )
470 return MsafdReturnWithErrno(STATUS_INVALID_PARAMETER, lpErrno, 0, NULL);
471
472 /* It is a not yet duplicated socket, so map the memory, copy the SharedData and free heap */
473 if( Socket->SharedDataHandle == INVALID_HANDLE_VALUE )
474 {
475 Socket->SharedDataHandle = CreateFileMapping(INVALID_HANDLE_VALUE,
476 NULL,
477 PAGE_READWRITE | SEC_COMMIT,
478 0,
479 (sizeof(SOCK_SHARED_INFO) + PAGE_SIZE - 1) & ~(PAGE_SIZE - 1),
480 NULL);
481 if( Socket->SharedDataHandle == INVALID_HANDLE_VALUE )
482 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES, lpErrno, 0, NULL);
483 pSharedData = MapViewOfFile(Socket->SharedDataHandle,
484 FILE_MAP_ALL_ACCESS,
485 0,
486 0,
487 sizeof(SOCK_SHARED_INFO));
488
489 RtlCopyMemory(pSharedData, Socket->SharedData, sizeof(SOCK_SHARED_INFO));
490 pOldSharedData = Socket->SharedData;
491 Socket->SharedData = pSharedData;
492 HeapFree(GlobalHeap, 0, pOldSharedData);
493 }
494 /* Duplicate the handles for the new process */
495 bDuplicated = DuplicateHandle(GetCurrentProcess(),
496 Socket->SharedDataHandle,
497 hProcess,
498 (LPHANDLE)&hDuplicatedSharedData,
499 0,
500 FALSE,
501 DUPLICATE_SAME_ACCESS);
502 if (!bDuplicated)
503 {
504 NtClose(hProcess);
505 return MsafdReturnWithErrno(STATUS_ACCESS_DENIED, lpErrno, 0, NULL);
506 }
507 bDuplicated = DuplicateHandle(GetCurrentProcess(),
508 (HANDLE)Socket->Handle,
509 hProcess,
510 (LPHANDLE)&hDuplicatedHandle,
511 0,
512 FALSE,
513 DUPLICATE_SAME_ACCESS);
514 NtClose(hProcess);
515 if( !bDuplicated )
516 return MsafdReturnWithErrno(STATUS_ACCESS_DENIED, lpErrno, 0, NULL);
517
518
519 if (!lpProtocolInfo)
520 return MsafdReturnWithErrno(STATUS_ACCESS_VIOLATION, lpErrno, 0, NULL);
521
522 RtlCopyMemory(lpProtocolInfo, &Socket->ProtocolInfo, sizeof(*lpProtocolInfo));
523
524 lpProtocolInfo->iAddressFamily = Socket->SharedData->AddressFamily;
525 lpProtocolInfo->iProtocol = Socket->SharedData->Protocol;
526 lpProtocolInfo->iSocketType = Socket->SharedData->SocketType;
527 lpProtocolInfo->dwServiceFlags3 = HandleToUlong(hDuplicatedSharedData);
528 lpProtocolInfo->dwServiceFlags4 = HandleToUlong(hDuplicatedHandle);
529
530 if( lpErrno )
531 *lpErrno = NO_ERROR;
532
533 return NO_ERROR;
534 }
535
536 INT
537 TranslateNtStatusError(NTSTATUS Status)
538 {
539 switch (Status)
540 {
541 case STATUS_CANT_WAIT:
542 return WSAEWOULDBLOCK;
543
544 case STATUS_TIMEOUT:
545 return WSAETIMEDOUT;
546
547 case STATUS_SUCCESS:
548 return NO_ERROR;
549
550 case STATUS_FILE_CLOSED:
551 return WSAECONNRESET;
552
553 case STATUS_END_OF_FILE:
554 return WSAESHUTDOWN;
555
556 case STATUS_PENDING:
557 return WSA_IO_PENDING;
558
559 case STATUS_BUFFER_TOO_SMALL:
560 case STATUS_BUFFER_OVERFLOW:
561 return WSAEMSGSIZE;
562
563 case STATUS_NO_MEMORY:
564 case STATUS_INSUFFICIENT_RESOURCES:
565 return WSAENOBUFS;
566
567 case STATUS_INVALID_CONNECTION:
568 return WSAENOTCONN;
569
570 case STATUS_PROTOCOL_NOT_SUPPORTED:
571 return WSAEAFNOSUPPORT;
572
573 case STATUS_INVALID_ADDRESS:
574 return WSAEADDRNOTAVAIL;
575
576 case STATUS_REMOTE_NOT_LISTENING:
577 case STATUS_REMOTE_DISCONNECT:
578 return WSAECONNREFUSED;
579
580 case STATUS_NETWORK_UNREACHABLE:
581 return WSAENETUNREACH;
582
583 case STATUS_HOST_UNREACHABLE:
584 return WSAEHOSTUNREACH;
585
586 case STATUS_INVALID_PARAMETER:
587 return WSAEINVAL;
588
589 case STATUS_CANCELLED:
590 return WSA_OPERATION_ABORTED;
591
592 case STATUS_ADDRESS_ALREADY_EXISTS:
593 return WSAEADDRINUSE;
594
595 case STATUS_LOCAL_DISCONNECT:
596 return WSAECONNABORTED;
597
598 case STATUS_ACCESS_VIOLATION:
599 return WSAEFAULT;
600
601 case STATUS_ACCESS_DENIED:
602 return WSAEACCES;
603
604 case STATUS_NOT_IMPLEMENTED:
605 return WSAEOPNOTSUPP;
606
607 default:
608 ERR("MSAFD: Unhandled NTSTATUS value: 0x%x\n", Status);
609 return WSAENETDOWN;
610 }
611 }
612
613 /*
614 * FUNCTION: Closes an open socket
615 * ARGUMENTS:
616 * s = Socket descriptor
617 * lpErrno = Address of buffer for error information
618 * RETURNS:
619 * NO_ERROR, or SOCKET_ERROR if the socket could not be closed
620 */
621 INT
622 WSPAPI
623 WSPCloseSocket(IN SOCKET Handle,
624 OUT LPINT lpErrno)
625 {
626 IO_STATUS_BLOCK IoStatusBlock;
627 PSOCKET_INFORMATION Socket = NULL, CurrentSocket;
628 NTSTATUS Status;
629 HANDLE SockEvent;
630 AFD_DISCONNECT_INFO DisconnectInfo;
631 SOCKET_STATE OldState;
632 LONG LingerWait = -1;
633 DWORD References;
634
635 /* Get the Socket Structure associate to this Socket*/
636 Socket = GetSocketStructure(Handle);
637 if (!Socket)
638 {
639 if (lpErrno) *lpErrno = WSAENOTSOCK;
640 return SOCKET_ERROR;
641 }
642
643 /* Create the Wait Event */
644 Status = NtCreateEvent(&SockEvent,
645 EVENT_ALL_ACCESS,
646 NULL,
647 SynchronizationEvent,
648 FALSE);
649
650 if(!NT_SUCCESS(Status))
651 {
652 ERR("NtCreateEvent failed: 0x%08x", Status);
653 return SOCKET_ERROR;
654 }
655
656 if (Socket->HelperEvents & WSH_NOTIFY_CLOSE)
657 {
658 Status = Socket->HelperData->WSHNotify(Socket->HelperContext,
659 Socket->Handle,
660 Socket->TdiAddressHandle,
661 Socket->TdiConnectionHandle,
662 WSH_NOTIFY_CLOSE);
663
664 if (Status)
665 {
666 if (lpErrno) *lpErrno = Status;
667 ERR("WSHNotify failed. Error 0x%#x", Status);
668 NtClose(SockEvent);
669 return SOCKET_ERROR;
670 }
671 }
672
673 /* If a Close is already in Process, give up */
674 if (Socket->SharedData->State == SocketClosed)
675 {
676 WARN("Socket is closing.\n");
677 NtClose(SockEvent);
678 if (lpErrno) *lpErrno = WSAENOTSOCK;
679 return SOCKET_ERROR;
680 }
681
682 /* Decrement reference count on SharedData */
683 References = InterlockedDecrement(&Socket->SharedData->RefCount);
684 if (References)
685 goto ok;
686
687 /* Set the state to close */
688 OldState = Socket->SharedData->State;
689 Socket->SharedData->State = SocketClosed;
690
691 /* If SO_LINGER is ON and the Socket is connected, we need to disconnect */
692 /* FIXME: Should we do this on Datagram Sockets too? */
693 if ((OldState == SocketConnected) && (Socket->SharedData->LingerData.l_onoff))
694 {
695 ULONG SendsInProgress;
696 ULONG SleepWait;
697
698 /* We need to respect the timeout */
699 SleepWait = 100;
700 LingerWait = Socket->SharedData->LingerData.l_linger * 1000;
701
702 /* Loop until no more sends are pending, within the timeout */
703 while (LingerWait)
704 {
705 /* Find out how many Sends are in Progress */
706 if (GetSocketInformation(Socket,
707 AFD_INFO_SENDS_IN_PROGRESS,
708 NULL,
709 &SendsInProgress,
710 NULL,
711 NULL,
712 NULL))
713 {
714 /* Bail out if anything but NO_ERROR */
715 LingerWait = 0;
716 break;
717 }
718
719 /* Bail out if no more sends are pending */
720 if (!SendsInProgress)
721 {
722 LingerWait = -1;
723 break;
724 }
725
726 /*
727 * We have to execute a sleep, so it's kind of like
728 * a block. If the socket is Nonblock, we cannot
729 * go on since asynchronous operation is expected
730 * and we cannot offer it
731 */
732 if (Socket->SharedData->NonBlocking)
733 {
734 WARN("Would block!\n");
735 NtClose(SockEvent);
736 Socket->SharedData->State = OldState;
737 if (lpErrno) *lpErrno = WSAEWOULDBLOCK;
738 return SOCKET_ERROR;
739 }
740
741 /* Now we can sleep, and decrement the linger wait */
742 /*
743 * FIXME: It seems Windows does some funky acceleration
744 * since the waiting seems to be longer and longer. I
745 * don't think this improves performance so much, so we
746 * wait a fixed time instead.
747 */
748 Sleep(SleepWait);
749 LingerWait -= SleepWait;
750 }
751 }
752
753 if (OldState == SocketConnected)
754 {
755 if (LingerWait <= 0)
756 {
757 DisconnectInfo.Timeout = RtlConvertLongToLargeInteger(0);
758 DisconnectInfo.DisconnectType = LingerWait < 0 ? AFD_DISCONNECT_SEND : AFD_DISCONNECT_ABORT;
759
760 if (((DisconnectInfo.DisconnectType & AFD_DISCONNECT_SEND) && (!Socket->SharedData->SendShutdown)) ||
761 ((DisconnectInfo.DisconnectType & AFD_DISCONNECT_ABORT) && (!Socket->SharedData->ReceiveShutdown)))
762 {
763 /* Send IOCTL */
764 Status = NtDeviceIoControlFile((HANDLE)Handle,
765 SockEvent,
766 NULL,
767 NULL,
768 &IoStatusBlock,
769 IOCTL_AFD_DISCONNECT,
770 &DisconnectInfo,
771 sizeof(DisconnectInfo),
772 NULL,
773 0);
774
775 /* Wait for return */
776 if (Status == STATUS_PENDING)
777 {
778 WaitForSingleObject(SockEvent, INFINITE);
779 Status = IoStatusBlock.Status;
780 }
781 }
782 }
783 }
784
785 /* Cleanup Time! */
786 Socket->HelperContext = NULL;
787 Socket->SharedData->AsyncDisabledEvents = -1;
788 NtClose(Socket->TdiAddressHandle);
789 Socket->TdiAddressHandle = NULL;
790 NtClose(Socket->TdiConnectionHandle);
791 Socket->TdiConnectionHandle = NULL;
792 ok:
793 EnterCriticalSection(&SocketListLock);
794 if (SocketListHead == Socket)
795 {
796 SocketListHead = SocketListHead->NextSocket;
797 }
798 else
799 {
800 CurrentSocket = SocketListHead;
801 while (CurrentSocket->NextSocket)
802 {
803 if (CurrentSocket->NextSocket == Socket)
804 {
805 CurrentSocket->NextSocket = CurrentSocket->NextSocket->NextSocket;
806 break;
807 }
808
809 CurrentSocket = CurrentSocket->NextSocket;
810 }
811 }
812 LeaveCriticalSection(&SocketListLock);
813
814 /* Close the handle */
815 NtClose((HANDLE)Handle);
816 NtClose(SockEvent);
817
818 if( Socket->SharedDataHandle != INVALID_HANDLE_VALUE )
819 {
820 /* It is a duplicated socket, so unmap the memory */
821 UnmapViewOfFile(Socket->SharedData);
822 NtClose(Socket->SharedDataHandle);
823 Socket->SharedData = NULL;
824 }
825 if( !References && Socket->SharedData )
826 {
827 HeapFree(GlobalHeap, 0, Socket->SharedData);
828 }
829 HeapFree(GlobalHeap, 0, Socket);
830 return MsafdReturnWithErrno(Status, lpErrno, 0, NULL);
831 }
832
833
834 /*
835 * FUNCTION: Associates a local address with a socket
836 * ARGUMENTS:
837 * s = Socket descriptor
838 * name = Pointer to local address
839 * namelen = Length of name
840 * lpErrno = Address of buffer for error information
841 * RETURNS:
842 * 0, or SOCKET_ERROR if the socket could not be bound
843 */
844 INT
845 WSPAPI
846 WSPBind(SOCKET Handle,
847 const struct sockaddr *SocketAddress,
848 int SocketAddressLength,
849 LPINT lpErrno)
850 {
851 IO_STATUS_BLOCK IOSB;
852 PAFD_BIND_DATA BindData;
853 PSOCKET_INFORMATION Socket = NULL;
854 NTSTATUS Status;
855 SOCKADDR_INFO SocketInfo;
856 HANDLE SockEvent;
857
858 /* Get the Socket Structure associate to this Socket*/
859 Socket = GetSocketStructure(Handle);
860 if (!Socket)
861 {
862 if (lpErrno) *lpErrno = WSAENOTSOCK;
863 return SOCKET_ERROR;
864 }
865 if (Socket->SharedData->State != SocketOpen)
866 {
867 if (lpErrno) *lpErrno = WSAEINVAL;
868 return SOCKET_ERROR;
869 }
870 if (!SocketAddress || SocketAddressLength < Socket->SharedData->SizeOfLocalAddress)
871 {
872 if (lpErrno) *lpErrno = WSAEINVAL;
873 return SOCKET_ERROR;
874 }
875
876 /* Get Address Information */
877 Socket->HelperData->WSHGetSockaddrType ((PSOCKADDR)SocketAddress,
878 SocketAddressLength,
879 &SocketInfo);
880
881 if (SocketInfo.AddressInfo == SockaddrAddressInfoBroadcast && !Socket->SharedData->Broadcast)
882 {
883 if (lpErrno) *lpErrno = WSAEADDRNOTAVAIL;
884 return SOCKET_ERROR;
885 }
886
887 Status = NtCreateEvent(&SockEvent,
888 EVENT_ALL_ACCESS,
889 NULL,
890 SynchronizationEvent,
891 FALSE);
892
893 if (!NT_SUCCESS(Status))
894 {
895 return SOCKET_ERROR;
896 }
897
898 /* See below */
899 BindData = HeapAlloc(GlobalHeap, 0, 0xA + SocketAddressLength);
900 if (!BindData)
901 {
902 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES, lpErrno, 0, NULL);
903 }
904
905 /* Set up Address in TDI Format */
906 BindData->Address.TAAddressCount = 1;
907 BindData->Address.Address[0].AddressLength = (USHORT)(SocketAddressLength - sizeof(SocketAddress->sa_family));
908 BindData->Address.Address[0].AddressType = SocketAddress->sa_family;
909 RtlCopyMemory (BindData->Address.Address[0].Address,
910 SocketAddress->sa_data,
911 SocketAddressLength - sizeof(SocketAddress->sa_family));
912
913 /* Set the Share Type */
914 if (Socket->SharedData->ExclusiveAddressUse)
915 {
916 BindData->ShareType = AFD_SHARE_EXCLUSIVE;
917 }
918 else if (SocketInfo.EndpointInfo == SockaddrEndpointInfoWildcard)
919 {
920 BindData->ShareType = AFD_SHARE_WILDCARD;
921 }
922 else if (Socket->SharedData->ReuseAddresses)
923 {
924 BindData->ShareType = AFD_SHARE_REUSE;
925 }
926 else
927 {
928 BindData->ShareType = AFD_SHARE_UNIQUE;
929 }
930
931 /* Send IOCTL */
932 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
933 SockEvent,
934 NULL,
935 NULL,
936 &IOSB,
937 IOCTL_AFD_BIND,
938 BindData,
939 0xA + Socket->SharedData->SizeOfLocalAddress, /* Can't figure out a way to calculate this in C*/
940 BindData,
941 0xA + Socket->SharedData->SizeOfLocalAddress); /* Can't figure out a way to calculate this C */
942
943 /* Wait for return */
944 if (Status == STATUS_PENDING)
945 {
946 WaitForSingleObject(SockEvent, INFINITE);
947 Status = IOSB.Status;
948 }
949
950 NtClose( SockEvent );
951 HeapFree(GlobalHeap, 0, BindData);
952
953 Socket->SharedData->SocketLastError = TranslateNtStatusError(Status);
954 if (Status != STATUS_SUCCESS)
955 return MsafdReturnWithErrno ( Status, lpErrno, 0, NULL );
956
957 /* Set up Socket Data */
958 Socket->SharedData->State = SocketBound;
959 Socket->TdiAddressHandle = (HANDLE)IOSB.Information;
960
961 if (Socket->HelperEvents & WSH_NOTIFY_BIND)
962 {
963 Status = Socket->HelperData->WSHNotify(Socket->HelperContext,
964 Socket->Handle,
965 Socket->TdiAddressHandle,
966 Socket->TdiConnectionHandle,
967 WSH_NOTIFY_BIND);
968
969 if (Status)
970 {
971 if (lpErrno) *lpErrno = Status;
972 return SOCKET_ERROR;
973 }
974 }
975
976 return MsafdReturnWithErrno ( Status, lpErrno, 0, NULL );
977 }
978
979 int
980 WSPAPI
981 WSPListen(SOCKET Handle,
982 int Backlog,
983 LPINT lpErrno)
984 {
985 IO_STATUS_BLOCK IOSB;
986 AFD_LISTEN_DATA ListenData;
987 PSOCKET_INFORMATION Socket = NULL;
988 HANDLE SockEvent;
989 NTSTATUS Status;
990
991 /* Get the Socket Structure associate to this Socket*/
992 Socket = GetSocketStructure(Handle);
993 if (!Socket)
994 {
995 if (lpErrno) *lpErrno = WSAENOTSOCK;
996 return SOCKET_ERROR;
997 }
998
999 if (Socket->SharedData->Listening)
1000 return NO_ERROR;
1001
1002 Status = NtCreateEvent(&SockEvent,
1003 EVENT_ALL_ACCESS,
1004 NULL,
1005 SynchronizationEvent,
1006 FALSE);
1007
1008 if( !NT_SUCCESS(Status) )
1009 return SOCKET_ERROR;
1010
1011 /* Set Up Listen Structure */
1012 ListenData.UseSAN = FALSE;
1013 ListenData.UseDelayedAcceptance = Socket->SharedData->UseDelayedAcceptance;
1014 ListenData.Backlog = Backlog;
1015
1016 /* Send IOCTL */
1017 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
1018 SockEvent,
1019 NULL,
1020 NULL,
1021 &IOSB,
1022 IOCTL_AFD_START_LISTEN,
1023 &ListenData,
1024 sizeof(ListenData),
1025 NULL,
1026 0);
1027
1028 /* Wait for return */
1029 if (Status == STATUS_PENDING)
1030 {
1031 WaitForSingleObject(SockEvent, INFINITE);
1032 Status = IOSB.Status;
1033 }
1034
1035 NtClose( SockEvent );
1036
1037 Socket->SharedData->SocketLastError = TranslateNtStatusError(Status);
1038 if (Status != STATUS_SUCCESS)
1039 return MsafdReturnWithErrno ( Status, lpErrno, 0, NULL );
1040
1041 /* Set to Listening */
1042 Socket->SharedData->Listening = TRUE;
1043
1044 if (Socket->HelperEvents & WSH_NOTIFY_LISTEN)
1045 {
1046 Status = Socket->HelperData->WSHNotify(Socket->HelperContext,
1047 Socket->Handle,
1048 Socket->TdiAddressHandle,
1049 Socket->TdiConnectionHandle,
1050 WSH_NOTIFY_LISTEN);
1051
1052 if (Status)
1053 {
1054 if (lpErrno) *lpErrno = Status;
1055 return SOCKET_ERROR;
1056 }
1057 }
1058
1059 return MsafdReturnWithErrno ( Status, lpErrno, 0, NULL );
1060 }
1061
1062
1063 int
1064 WSPAPI
1065 WSPSelect(IN int nfds,
1066 IN OUT fd_set *readfds OPTIONAL,
1067 IN OUT fd_set *writefds OPTIONAL,
1068 IN OUT fd_set *exceptfds OPTIONAL,
1069 IN const struct timeval *timeout OPTIONAL,
1070 OUT LPINT lpErrno)
1071 {
1072 IO_STATUS_BLOCK IOSB;
1073 PAFD_POLL_INFO PollInfo;
1074 NTSTATUS Status;
1075 ULONG HandleCount;
1076 ULONG PollBufferSize;
1077 PVOID PollBuffer;
1078 ULONG i, j = 0, x;
1079 HANDLE SockEvent;
1080 LARGE_INTEGER Timeout;
1081 PSOCKET_INFORMATION Socket;
1082 SOCKET Handle;
1083 ULONG Events;
1084 fd_set selectfds;
1085
1086 /* Find out how many sockets we have, and how large the buffer needs
1087 * to be */
1088 FD_ZERO(&selectfds);
1089 if (readfds != NULL)
1090 {
1091 for (i = 0; i < readfds->fd_count; i++)
1092 {
1093 FD_SET(readfds->fd_array[i], &selectfds);
1094 }
1095 }
1096 if (writefds != NULL)
1097 {
1098 for (i = 0; i < writefds->fd_count; i++)
1099 {
1100 FD_SET(writefds->fd_array[i], &selectfds);
1101 }
1102 }
1103 if (exceptfds != NULL)
1104 {
1105 for (i = 0; i < exceptfds->fd_count; i++)
1106 {
1107 FD_SET(exceptfds->fd_array[i], &selectfds);
1108 }
1109 }
1110
1111 HandleCount = selectfds.fd_count;
1112
1113 if ( HandleCount == 0 )
1114 {
1115 WARN("No handles! Returning SOCKET_ERROR\n", HandleCount);
1116 if (lpErrno) *lpErrno = WSAEINVAL;
1117 return SOCKET_ERROR;
1118 }
1119
1120 PollBufferSize = sizeof(*PollInfo) + ((HandleCount - 1) * sizeof(AFD_HANDLE));
1121
1122 TRACE("HandleCount: %u BufferSize: %u\n", HandleCount, PollBufferSize);
1123
1124 /* Convert Timeout to NT Format */
1125 if (timeout == NULL)
1126 {
1127 Timeout.u.LowPart = -1;
1128 Timeout.u.HighPart = 0x7FFFFFFF;
1129 TRACE("Infinite timeout\n");
1130 }
1131 else
1132 {
1133 Timeout = RtlEnlargedIntegerMultiply
1134 ((timeout->tv_sec * 1000) + (timeout->tv_usec / 1000), -10000);
1135 /* Negative timeouts are illegal. Since the kernel represents an
1136 * incremental timeout as a negative number, we check for a positive
1137 * result.
1138 */
1139 if (Timeout.QuadPart > 0)
1140 {
1141 if (lpErrno) *lpErrno = WSAEINVAL;
1142 return SOCKET_ERROR;
1143 }
1144 TRACE("Timeout: Orig %d.%06d kernel %d\n",
1145 timeout->tv_sec, timeout->tv_usec,
1146 Timeout.u.LowPart);
1147 }
1148
1149 Status = NtCreateEvent(&SockEvent,
1150 EVENT_ALL_ACCESS,
1151 NULL,
1152 SynchronizationEvent,
1153 FALSE);
1154
1155 if(!NT_SUCCESS(Status))
1156 {
1157 if (lpErrno)
1158 *lpErrno = WSAEFAULT;
1159
1160 ERR("NtCreateEvent failed, 0x%08x\n", Status);
1161 return SOCKET_ERROR;
1162 }
1163
1164 /* Allocate */
1165 PollBuffer = HeapAlloc(GlobalHeap, 0, PollBufferSize);
1166
1167 if (!PollBuffer)
1168 {
1169 if (lpErrno)
1170 *lpErrno = WSAEFAULT;
1171 NtClose(SockEvent);
1172 return SOCKET_ERROR;
1173 }
1174
1175 PollInfo = (PAFD_POLL_INFO)PollBuffer;
1176
1177 RtlZeroMemory( PollInfo, PollBufferSize );
1178
1179 /* Number of handles for AFD to Check */
1180 PollInfo->Exclusive = FALSE;
1181 PollInfo->Timeout = Timeout;
1182
1183 for (i = 0; i < selectfds.fd_count; i++)
1184 {
1185 PollInfo->Handles[i].Handle = selectfds.fd_array[i];
1186 }
1187 if (readfds != NULL) {
1188 for (i = 0; i < readfds->fd_count; i++)
1189 {
1190 for (j = 0; j < HandleCount; j++)
1191 {
1192 if (PollInfo->Handles[j].Handle == readfds->fd_array[i])
1193 break;
1194 }
1195 if (j >= HandleCount)
1196 {
1197 ERR("Error while counting readfds %ld > %ld\n", j, HandleCount);
1198 if (lpErrno) *lpErrno = WSAEFAULT;
1199 HeapFree(GlobalHeap, 0, PollBuffer);
1200 NtClose(SockEvent);
1201 return SOCKET_ERROR;
1202 }
1203 Socket = GetSocketStructure(readfds->fd_array[i]);
1204 if (!Socket)
1205 {
1206 ERR("Invalid socket handle provided in readfds %d\n", readfds->fd_array[i]);
1207 if (lpErrno) *lpErrno = WSAENOTSOCK;
1208 HeapFree(GlobalHeap, 0, PollBuffer);
1209 NtClose(SockEvent);
1210 return SOCKET_ERROR;
1211 }
1212 PollInfo->Handles[j].Events |= AFD_EVENT_RECEIVE |
1213 AFD_EVENT_DISCONNECT |
1214 AFD_EVENT_ABORT |
1215 AFD_EVENT_CLOSE |
1216 AFD_EVENT_ACCEPT;
1217 //if (Socket->SharedData->OobInline != 0)
1218 // PollInfo->Handles[j].Events |= AFD_EVENT_OOB_RECEIVE;
1219 }
1220 }
1221 if (writefds != NULL)
1222 {
1223 for (i = 0; i < writefds->fd_count; i++)
1224 {
1225 for (j = 0; j < HandleCount; j++)
1226 {
1227 if (PollInfo->Handles[j].Handle == writefds->fd_array[i])
1228 break;
1229 }
1230 if (j >= HandleCount)
1231 {
1232 ERR("Error while counting writefds %ld > %ld\n", j, HandleCount);
1233 if (lpErrno) *lpErrno = WSAEFAULT;
1234 HeapFree(GlobalHeap, 0, PollBuffer);
1235 NtClose(SockEvent);
1236 return SOCKET_ERROR;
1237 }
1238 Socket = GetSocketStructure(writefds->fd_array[i]);
1239 if (!Socket)
1240 {
1241 ERR("Invalid socket handle provided in writefds %d\n", writefds->fd_array[i]);
1242 if (lpErrno) *lpErrno = WSAENOTSOCK;
1243 HeapFree(GlobalHeap, 0, PollBuffer);
1244 NtClose(SockEvent);
1245 return SOCKET_ERROR;
1246 }
1247 PollInfo->Handles[j].Handle = writefds->fd_array[i];
1248 PollInfo->Handles[j].Events |= AFD_EVENT_SEND;
1249 if (Socket->SharedData->NonBlocking != 0)
1250 PollInfo->Handles[j].Events |= AFD_EVENT_CONNECT;
1251 }
1252 }
1253 if (exceptfds != NULL)
1254 {
1255 for (i = 0; i < exceptfds->fd_count; i++)
1256 {
1257 for (j = 0; j < HandleCount; j++)
1258 {
1259 if (PollInfo->Handles[j].Handle == exceptfds->fd_array[i])
1260 break;
1261 }
1262 if (j > HandleCount)
1263 {
1264 ERR("Error while counting exceptfds %ld > %ld\n", j, HandleCount);
1265 if (lpErrno) *lpErrno = WSAEFAULT;
1266 HeapFree(GlobalHeap, 0, PollBuffer);
1267 NtClose(SockEvent);
1268 return SOCKET_ERROR;
1269 }
1270 Socket = GetSocketStructure(exceptfds->fd_array[i]);
1271 if (!Socket)
1272 {
1273 TRACE("Invalid socket handle provided in exceptfds %d\n", exceptfds->fd_array[i]);
1274 if (lpErrno) *lpErrno = WSAENOTSOCK;
1275 HeapFree(GlobalHeap, 0, PollBuffer);
1276 NtClose(SockEvent);
1277 return SOCKET_ERROR;
1278 }
1279 PollInfo->Handles[j].Handle = exceptfds->fd_array[i];
1280 if (Socket->SharedData->OobInline == 0)
1281 PollInfo->Handles[j].Events |= AFD_EVENT_OOB_RECEIVE;
1282 if (Socket->SharedData->NonBlocking != 0)
1283 PollInfo->Handles[j].Events |= AFD_EVENT_CONNECT_FAIL;
1284 }
1285 }
1286
1287 PollInfo->HandleCount = HandleCount;
1288 PollBufferSize = FIELD_OFFSET(AFD_POLL_INFO, Handles) + PollInfo->HandleCount * sizeof(AFD_HANDLE);
1289
1290 /* Send IOCTL */
1291 Status = NtDeviceIoControlFile((HANDLE)PollInfo->Handles[0].Handle,
1292 SockEvent,
1293 NULL,
1294 NULL,
1295 &IOSB,
1296 IOCTL_AFD_SELECT,
1297 PollInfo,
1298 PollBufferSize,
1299 PollInfo,
1300 PollBufferSize);
1301
1302 TRACE("DeviceIoControlFile => %x\n", Status);
1303
1304 /* Wait for Completion */
1305 if (Status == STATUS_PENDING)
1306 {
1307 WaitForSingleObject(SockEvent, INFINITE);
1308 Status = IOSB.Status;
1309 }
1310
1311 /* Clear the Structures */
1312 if( readfds )
1313 FD_ZERO(readfds);
1314 if( writefds )
1315 FD_ZERO(writefds);
1316 if( exceptfds )
1317 FD_ZERO(exceptfds);
1318
1319 /* Loop through return structure */
1320 HandleCount = PollInfo->HandleCount;
1321
1322 /* Return in FDSET Format */
1323 for (i = 0; i < HandleCount; i++)
1324 {
1325 Events = PollInfo->Handles[i].Events;
1326 Handle = PollInfo->Handles[i].Handle;
1327 for(x = 1; x; x<<=1)
1328 {
1329 Socket = GetSocketStructure(Handle);
1330 if (!Socket)
1331 {
1332 TRACE("Invalid socket handle found %d\n", Handle);
1333 if (lpErrno) *lpErrno = WSAENOTSOCK;
1334 HeapFree(GlobalHeap, 0, PollBuffer);
1335 NtClose(SockEvent);
1336 return SOCKET_ERROR;
1337 }
1338 switch (Events & x)
1339 {
1340 case AFD_EVENT_RECEIVE:
1341 case AFD_EVENT_DISCONNECT:
1342 case AFD_EVENT_ABORT:
1343 case AFD_EVENT_ACCEPT:
1344 case AFD_EVENT_CLOSE:
1345 TRACE("Event %x on handle %x\n",
1346 Events,
1347 Handle);
1348 if ((Events & x) == AFD_EVENT_DISCONNECT || (Events & x) == AFD_EVENT_CLOSE)
1349 Socket->SharedData->SocketLastError = WSAECONNRESET;
1350 if ((Events & x) == AFD_EVENT_ABORT)
1351 Socket->SharedData->SocketLastError = WSAECONNABORTED;
1352 if( readfds )
1353 FD_SET(Handle, readfds);
1354 break;
1355 case AFD_EVENT_SEND:
1356 TRACE("Event %x on handle %x\n",
1357 Events,
1358 Handle);
1359 if (writefds)
1360 FD_SET(Handle, writefds);
1361 break;
1362 case AFD_EVENT_CONNECT:
1363 TRACE("Event %x on handle %x\n",
1364 Events,
1365 Handle);
1366 if( writefds && Socket->SharedData->NonBlocking != 0 )
1367 FD_SET(Handle, writefds);
1368 break;
1369 case AFD_EVENT_OOB_RECEIVE:
1370 TRACE("Event %x on handle %x\n",
1371 Events,
1372 Handle);
1373 if( readfds && Socket->SharedData->OobInline != 0 )
1374 FD_SET(Handle, readfds);
1375 if( exceptfds && Socket->SharedData->OobInline == 0 )
1376 FD_SET(Handle, exceptfds);
1377 break;
1378 case AFD_EVENT_CONNECT_FAIL:
1379 TRACE("Event %x on handle %x\n",
1380 Events,
1381 Handle);
1382 if( exceptfds && Socket->SharedData->NonBlocking != 0 )
1383 FD_SET(Handle, exceptfds);
1384 break;
1385 }
1386 }
1387 }
1388
1389 HeapFree( GlobalHeap, 0, PollBuffer );
1390 NtClose( SockEvent );
1391
1392 if( lpErrno )
1393 {
1394 switch( IOSB.Status )
1395 {
1396 case STATUS_SUCCESS:
1397 case STATUS_TIMEOUT:
1398 *lpErrno = 0;
1399 break;
1400 default:
1401 *lpErrno = WSAEINVAL;
1402 break;
1403 }
1404 TRACE("*lpErrno = %x\n", *lpErrno);
1405 }
1406
1407 HandleCount = (readfds ? readfds->fd_count : 0) +
1408 (writefds && writefds != readfds ? writefds->fd_count : 0) +
1409 (exceptfds && exceptfds != readfds && exceptfds != writefds ? exceptfds->fd_count : 0);
1410
1411 TRACE("%d events\n", HandleCount);
1412
1413 return HandleCount;
1414 }
1415
1416 DWORD
1417 GetCurrentTimeInSeconds(VOID)
1418 {
1419 SYSTEMTIME st1970 = { 1970, 1, 0, 1, 0, 0, 0, 0 };
1420 union
1421 {
1422 FILETIME ft;
1423 ULONGLONG ll;
1424 } u1970, Time;
1425
1426 GetSystemTimeAsFileTime(&Time.ft);
1427 SystemTimeToFileTime(&st1970, &u1970.ft);
1428 return (DWORD)((Time.ll - u1970.ll) / 10000000ULL);
1429 }
1430
1431 _Must_inspect_result_
1432 SOCKET
1433 WSPAPI
1434 WSPAccept(
1435 _In_ SOCKET Handle,
1436 _Out_writes_bytes_to_opt_(*addrlen, *addrlen) struct sockaddr FAR *SocketAddress,
1437 _Inout_opt_ LPINT SocketAddressLength,
1438 _In_opt_ LPCONDITIONPROC lpfnCondition,
1439 _In_opt_ DWORD_PTR dwCallbackData,
1440 _Out_ LPINT lpErrno)
1441 {
1442 IO_STATUS_BLOCK IOSB;
1443 PAFD_RECEIVED_ACCEPT_DATA ListenReceiveData;
1444 AFD_ACCEPT_DATA AcceptData;
1445 AFD_DEFER_ACCEPT_DATA DeferData;
1446 AFD_PENDING_ACCEPT_DATA PendingAcceptData;
1447 PSOCKET_INFORMATION Socket = NULL;
1448 NTSTATUS Status;
1449 struct fd_set ReadSet;
1450 struct timeval Timeout;
1451 PVOID PendingData = NULL;
1452 ULONG PendingDataLength = 0;
1453 PVOID CalleeDataBuffer;
1454 WSABUF CallerData, CalleeID, CallerID, CalleeData;
1455 PSOCKADDR RemoteAddress = NULL;
1456 GROUP GroupID = 0;
1457 ULONG CallBack;
1458 SOCKET AcceptSocket;
1459 PSOCKET_INFORMATION AcceptSocketInfo;
1460 UCHAR ReceiveBuffer[0x1A];
1461 HANDLE SockEvent;
1462
1463 /* Get the Socket Structure associate to this Socket*/
1464 Socket = GetSocketStructure(Handle);
1465 if (!Socket)
1466 {
1467 if (lpErrno) *lpErrno = WSAENOTSOCK;
1468 return SOCKET_ERROR;
1469 }
1470 if (!Socket->SharedData->Listening)
1471 {
1472 if (lpErrno) *lpErrno = WSAEINVAL;
1473 return SOCKET_ERROR;
1474 }
1475 if ((SocketAddress && !SocketAddressLength) ||
1476 (SocketAddressLength && !SocketAddress) ||
1477 (SocketAddressLength && *SocketAddressLength < sizeof(SOCKADDR)))
1478 {
1479 if (lpErrno) *lpErrno = WSAEFAULT;
1480 return INVALID_SOCKET;
1481 }
1482
1483 Status = NtCreateEvent(&SockEvent,
1484 EVENT_ALL_ACCESS,
1485 NULL,
1486 SynchronizationEvent,
1487 FALSE);
1488
1489 if( !NT_SUCCESS(Status) )
1490 {
1491 return SOCKET_ERROR;
1492 }
1493
1494 /* Dynamic Structure...ugh */
1495 ListenReceiveData = (PAFD_RECEIVED_ACCEPT_DATA)ReceiveBuffer;
1496
1497 /* If this is non-blocking, make sure there's something for us to accept */
1498 FD_ZERO(&ReadSet);
1499 FD_SET(Socket->Handle, &ReadSet);
1500 Timeout.tv_sec=0;
1501 Timeout.tv_usec=0;
1502
1503 if (WSPSelect(0, &ReadSet, NULL, NULL, &Timeout, lpErrno) == SOCKET_ERROR)
1504 {
1505 NtClose(SockEvent);
1506 return SOCKET_ERROR;
1507 }
1508
1509 if (ReadSet.fd_array[0] != Socket->Handle)
1510 {
1511 NtClose(SockEvent);
1512 if (lpErrno) *lpErrno = WSAEWOULDBLOCK;
1513 return SOCKET_ERROR;
1514 }
1515
1516 /* Send IOCTL */
1517 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
1518 SockEvent,
1519 NULL,
1520 NULL,
1521 &IOSB,
1522 IOCTL_AFD_WAIT_FOR_LISTEN,
1523 NULL,
1524 0,
1525 ListenReceiveData,
1526 0xA + sizeof(*ListenReceiveData));
1527
1528 /* Wait for return */
1529 if (Status == STATUS_PENDING)
1530 {
1531 WaitForSingleObject(SockEvent, INFINITE);
1532 Status = IOSB.Status;
1533 }
1534
1535 if (!NT_SUCCESS(Status))
1536 {
1537 NtClose( SockEvent );
1538 return MsafdReturnWithErrno( Status, lpErrno, 0, NULL );
1539 }
1540
1541 if (lpfnCondition != NULL)
1542 {
1543 if ((Socket->SharedData->ServiceFlags1 & XP1_CONNECT_DATA) != 0)
1544 {
1545 /* Find out how much data is pending */
1546 PendingAcceptData.SequenceNumber = ListenReceiveData->SequenceNumber;
1547 PendingAcceptData.ReturnSize = TRUE;
1548
1549 /* Send IOCTL */
1550 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
1551 SockEvent,
1552 NULL,
1553 NULL,
1554 &IOSB,
1555 IOCTL_AFD_GET_PENDING_CONNECT_DATA,
1556 &PendingAcceptData,
1557 sizeof(PendingAcceptData),
1558 &PendingAcceptData,
1559 sizeof(PendingAcceptData));
1560
1561 /* Wait for return */
1562 if (Status == STATUS_PENDING)
1563 {
1564 WaitForSingleObject(SockEvent, INFINITE);
1565 Status = IOSB.Status;
1566 }
1567
1568 if (!NT_SUCCESS(Status))
1569 {
1570 NtClose( SockEvent );
1571 return MsafdReturnWithErrno( Status, lpErrno, 0, NULL );
1572 }
1573
1574 /* How much data to allocate */
1575 PendingDataLength = IOSB.Information;
1576
1577 if (PendingDataLength)
1578 {
1579 /* Allocate needed space */
1580 PendingData = HeapAlloc(GlobalHeap, 0, PendingDataLength);
1581 if (!PendingData)
1582 {
1583 return MsafdReturnWithErrno( STATUS_INSUFFICIENT_RESOURCES, lpErrno, 0, NULL );
1584 }
1585
1586 /* We want the data now */
1587 PendingAcceptData.ReturnSize = FALSE;
1588
1589 /* Send IOCTL */
1590 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
1591 SockEvent,
1592 NULL,
1593 NULL,
1594 &IOSB,
1595 IOCTL_AFD_GET_PENDING_CONNECT_DATA,
1596 &PendingAcceptData,
1597 sizeof(PendingAcceptData),
1598 PendingData,
1599 PendingDataLength);
1600
1601 /* Wait for return */
1602 if (Status == STATUS_PENDING)
1603 {
1604 WaitForSingleObject(SockEvent, INFINITE);
1605 Status = IOSB.Status;
1606 }
1607
1608 if (!NT_SUCCESS(Status))
1609 {
1610 NtClose( SockEvent );
1611 return MsafdReturnWithErrno( Status, lpErrno, 0, NULL );
1612 }
1613 }
1614 }
1615
1616 if ((Socket->SharedData->ServiceFlags1 & XP1_QOS_SUPPORTED) != 0)
1617 {
1618 /* I don't support this yet */
1619 }
1620
1621 /* Build Callee ID */
1622 CalleeID.buf = (PVOID)Socket->LocalAddress;
1623 CalleeID.len = Socket->SharedData->SizeOfLocalAddress;
1624
1625 RemoteAddress = HeapAlloc(GlobalHeap, 0, sizeof(*RemoteAddress));
1626 if (!RemoteAddress)
1627 {
1628 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES, lpErrno, 0, NULL);
1629 }
1630
1631 /* Set up Address in SOCKADDR Format */
1632 RtlCopyMemory (RemoteAddress,
1633 &ListenReceiveData->Address.Address[0].AddressType,
1634 sizeof(*RemoteAddress));
1635
1636 /* Build Caller ID */
1637 CallerID.buf = (PVOID)RemoteAddress;
1638 CallerID.len = sizeof(*RemoteAddress);
1639
1640 /* Build Caller Data */
1641 CallerData.buf = PendingData;
1642 CallerData.len = PendingDataLength;
1643
1644 /* Check if socket supports Conditional Accept */
1645 if (Socket->SharedData->UseDelayedAcceptance != 0)
1646 {
1647 /* Allocate Buffer for Callee Data */
1648 CalleeDataBuffer = HeapAlloc(GlobalHeap, 0, 4096);
1649 if (!CalleeDataBuffer) {
1650 return MsafdReturnWithErrno( STATUS_INSUFFICIENT_RESOURCES, lpErrno, 0, NULL );
1651 }
1652 CalleeData.buf = CalleeDataBuffer;
1653 CalleeData.len = 4096;
1654 }
1655 else
1656 {
1657 /* Nothing */
1658 CalleeData.buf = 0;
1659 CalleeData.len = 0;
1660 }
1661
1662 /* Call the Condition Function */
1663 CallBack = (lpfnCondition)(&CallerID,
1664 CallerData.buf == NULL ? NULL : &CallerData,
1665 NULL,
1666 NULL,
1667 &CalleeID,
1668 CalleeData.buf == NULL ? NULL : &CalleeData,
1669 &GroupID,
1670 dwCallbackData);
1671
1672 if (((CallBack == CF_ACCEPT) && GroupID) != 0)
1673 {
1674 /* TBD: Check for Validity */
1675 }
1676
1677 if (CallBack == CF_ACCEPT)
1678 {
1679 if ((Socket->SharedData->ServiceFlags1 & XP1_QOS_SUPPORTED) != 0)
1680 {
1681 /* I don't support this yet */
1682 }
1683 if (CalleeData.buf)
1684 {
1685 // SockSetConnectData Sockets(SocketID), IOCTL_AFD_SET_CONNECT_DATA, CalleeData.Buffer, CalleeData.BuffSize, 0
1686 }
1687 }
1688 else
1689 {
1690 /* Callback rejected. Build Defer Structure */
1691 DeferData.SequenceNumber = ListenReceiveData->SequenceNumber;
1692 DeferData.RejectConnection = (CallBack == CF_REJECT);
1693
1694 /* Send IOCTL */
1695 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
1696 SockEvent,
1697 NULL,
1698 NULL,
1699 &IOSB,
1700 IOCTL_AFD_DEFER_ACCEPT,
1701 &DeferData,
1702 sizeof(DeferData),
1703 NULL,
1704 0);
1705
1706 /* Wait for return */
1707 if (Status == STATUS_PENDING)
1708 {
1709 WaitForSingleObject(SockEvent, INFINITE);
1710 Status = IOSB.Status;
1711 }
1712
1713 NtClose( SockEvent );
1714
1715 if (!NT_SUCCESS(Status))
1716 {
1717 return MsafdReturnWithErrno( Status, lpErrno, 0, NULL );
1718 }
1719
1720 if (CallBack == CF_REJECT )
1721 {
1722 if (lpErrno) *lpErrno = WSAECONNREFUSED;
1723 return SOCKET_ERROR;
1724 }
1725 else
1726 {
1727 if (lpErrno) *lpErrno = WSAECONNREFUSED;
1728 return SOCKET_ERROR;
1729 }
1730 }
1731 }
1732
1733 /* Create a new Socket */
1734 AcceptSocket = WSPSocket (Socket->SharedData->AddressFamily,
1735 Socket->SharedData->SocketType,
1736 Socket->SharedData->Protocol,
1737 &Socket->ProtocolInfo,
1738 GroupID,
1739 Socket->SharedData->CreateFlags,
1740 lpErrno);
1741 if (AcceptSocket == INVALID_SOCKET)
1742 return SOCKET_ERROR;
1743
1744 /* Set up the Accept Structure */
1745 AcceptData.ListenHandle = (HANDLE)AcceptSocket;
1746 AcceptData.SequenceNumber = ListenReceiveData->SequenceNumber;
1747
1748 /* Send IOCTL to Accept */
1749 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
1750 SockEvent,
1751 NULL,
1752 NULL,
1753 &IOSB,
1754 IOCTL_AFD_ACCEPT,
1755 &AcceptData,
1756 sizeof(AcceptData),
1757 NULL,
1758 0);
1759
1760 /* Wait for return */
1761 if (Status == STATUS_PENDING)
1762 {
1763 WaitForSingleObject(SockEvent, INFINITE);
1764 Status = IOSB.Status;
1765 }
1766
1767 Socket->SharedData->SocketLastError = TranslateNtStatusError(Status);
1768 if (!NT_SUCCESS(Status))
1769 {
1770 NtClose(SockEvent);
1771 WSPCloseSocket( AcceptSocket, lpErrno );
1772 return MsafdReturnWithErrno( Status, lpErrno, 0, NULL );
1773 }
1774
1775 AcceptSocketInfo = GetSocketStructure(AcceptSocket);
1776 if (!AcceptSocketInfo)
1777 {
1778 NtClose(SockEvent);
1779 WSPCloseSocket( AcceptSocket, lpErrno );
1780 return MsafdReturnWithErrno( STATUS_PROTOCOL_NOT_SUPPORTED, lpErrno, 0, NULL );
1781 }
1782
1783 AcceptSocketInfo->SharedData->State = SocketConnected;
1784 AcceptSocketInfo->SharedData->ConnectTime = GetCurrentTimeInSeconds();
1785
1786 /* Return Address in SOCKADDR FORMAT */
1787 if( SocketAddress )
1788 {
1789 RtlCopyMemory (SocketAddress,
1790 &ListenReceiveData->Address.Address[0].AddressType,
1791 sizeof(*RemoteAddress));
1792 if( SocketAddressLength )
1793 *SocketAddressLength = sizeof(*RemoteAddress);
1794 }
1795
1796 NtClose( SockEvent );
1797
1798 /* Re-enable Async Event */
1799 SockReenableAsyncSelectEvent(Socket, FD_ACCEPT);
1800
1801 TRACE("Socket %x\n", AcceptSocket);
1802
1803 if (Status == STATUS_SUCCESS && (Socket->HelperEvents & WSH_NOTIFY_ACCEPT))
1804 {
1805 Status = Socket->HelperData->WSHNotify(Socket->HelperContext,
1806 Socket->Handle,
1807 Socket->TdiAddressHandle,
1808 Socket->TdiConnectionHandle,
1809 WSH_NOTIFY_ACCEPT);
1810
1811 if (Status)
1812 {
1813 if (lpErrno) *lpErrno = Status;
1814 return SOCKET_ERROR;
1815 }
1816 }
1817
1818 if (lpErrno) *lpErrno = NO_ERROR;
1819
1820 /* Return Socket */
1821 return AcceptSocket;
1822 }
1823
1824 int
1825 WSPAPI
1826 WSPConnect(SOCKET Handle,
1827 const struct sockaddr * SocketAddress,
1828 int SocketAddressLength,
1829 LPWSABUF lpCallerData,
1830 LPWSABUF lpCalleeData,
1831 LPQOS lpSQOS,
1832 LPQOS lpGQOS,
1833 LPINT lpErrno)
1834 {
1835 IO_STATUS_BLOCK IOSB;
1836 PAFD_CONNECT_INFO ConnectInfo = NULL;
1837 PSOCKET_INFORMATION Socket;
1838 NTSTATUS Status;
1839 INT Errno;
1840 ULONG ConnectDataLength;
1841 ULONG InConnectDataLength;
1842 INT BindAddressLength;
1843 PSOCKADDR BindAddress;
1844 HANDLE SockEvent;
1845 int SocketDataLength;
1846
1847 TRACE("Called (%lx) %lx:%d\n", Handle, ((const struct sockaddr_in *)SocketAddress)->sin_addr, ((const struct sockaddr_in *)SocketAddress)->sin_port);
1848
1849 /* Get the Socket Structure associate to this Socket*/
1850 Socket = GetSocketStructure(Handle);
1851 if (!Socket)
1852 {
1853 if (lpErrno) *lpErrno = WSAENOTSOCK;
1854 return SOCKET_ERROR;
1855 }
1856
1857 Status = NtCreateEvent(&SockEvent,
1858 EVENT_ALL_ACCESS,
1859 NULL,
1860 SynchronizationEvent,
1861 FALSE);
1862
1863 if (!NT_SUCCESS(Status))
1864 return SOCKET_ERROR;
1865
1866 /* Bind us First */
1867 if (Socket->SharedData->State == SocketOpen)
1868 {
1869 /* Get the Wildcard Address */
1870 BindAddressLength = Socket->HelperData->MaxWSAddressLength;
1871 BindAddress = HeapAlloc(GetProcessHeap(), 0, BindAddressLength);
1872 if (!BindAddress)
1873 {
1874 NtClose(SockEvent);
1875 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES, lpErrno, 0, NULL);
1876 }
1877 Socket->HelperData->WSHGetWildcardSockaddr (Socket->HelperContext,
1878 BindAddress,
1879 &BindAddressLength);
1880 /* Bind it */
1881 if (WSPBind(Handle, BindAddress, BindAddressLength, lpErrno) == SOCKET_ERROR)
1882 return SOCKET_ERROR;
1883 }
1884
1885 /* Set the Connect Data */
1886 if (lpCallerData != NULL)
1887 {
1888 ConnectDataLength = lpCallerData->len;
1889 Status = NtDeviceIoControlFile((HANDLE)Handle,
1890 SockEvent,
1891 NULL,
1892 NULL,
1893 &IOSB,
1894 IOCTL_AFD_SET_CONNECT_DATA,
1895 lpCallerData->buf,
1896 ConnectDataLength,
1897 NULL,
1898 0);
1899 /* Wait for return */
1900 if (Status == STATUS_PENDING)
1901 {
1902 WaitForSingleObject(SockEvent, INFINITE);
1903 Status = IOSB.Status;
1904 }
1905
1906 if (Status != STATUS_SUCCESS)
1907 goto notify;
1908 }
1909
1910 /* Calculate the size of SocketAddress->sa_data */
1911 SocketDataLength = SocketAddressLength - FIELD_OFFSET(struct sockaddr, sa_data);
1912
1913 /* Allocate a connection info buffer with SocketDataLength bytes of payload */
1914 ConnectInfo = HeapAlloc(GetProcessHeap(), 0,
1915 FIELD_OFFSET(AFD_CONNECT_INFO,
1916 RemoteAddress.Address[0].Address[SocketDataLength]));
1917 if (!ConnectInfo)
1918 {
1919 Status = STATUS_INSUFFICIENT_RESOURCES;
1920 goto notify;
1921 }
1922
1923 /* Set up Address in TDI Format */
1924 ConnectInfo->RemoteAddress.TAAddressCount = 1;
1925 ConnectInfo->RemoteAddress.Address[0].AddressLength = SocketDataLength;
1926 ConnectInfo->RemoteAddress.Address[0].AddressType = SocketAddress->sa_family;
1927 RtlCopyMemory(ConnectInfo->RemoteAddress.Address[0].Address,
1928 SocketAddress->sa_data,
1929 SocketDataLength);
1930
1931 /*
1932 * Disable FD_WRITE and FD_CONNECT
1933 * The latter fixes a race condition where the FD_CONNECT is re-enabled
1934 * at the end of this function right after the Async Thread disables it.
1935 * This should only happen at the *next* WSPConnect
1936 */
1937 if (Socket->SharedData->AsyncEvents & FD_CONNECT)
1938 {
1939 Socket->SharedData->AsyncDisabledEvents |= FD_CONNECT | FD_WRITE;
1940 }
1941
1942 /* Tell AFD that we want Connection Data back, have it allocate a buffer */
1943 if (lpCalleeData != NULL)
1944 {
1945 InConnectDataLength = lpCalleeData->len;
1946 Status = NtDeviceIoControlFile((HANDLE)Handle,
1947 SockEvent,
1948 NULL,
1949 NULL,
1950 &IOSB,
1951 IOCTL_AFD_SET_CONNECT_DATA_SIZE,
1952 &InConnectDataLength,
1953 sizeof(InConnectDataLength),
1954 NULL,
1955 0);
1956
1957 /* Wait for return */
1958 if (Status == STATUS_PENDING)
1959 {
1960 WaitForSingleObject(SockEvent, INFINITE);
1961 Status = IOSB.Status;
1962 }
1963
1964 if (Status != STATUS_SUCCESS)
1965 goto notify;
1966 }
1967
1968 /* AFD doesn't seem to care if these are invalid, but let's 0 them anyways */
1969 ConnectInfo->Root = 0;
1970 ConnectInfo->UseSAN = FALSE;
1971 ConnectInfo->Unknown = 0;
1972
1973 /* FIXME: Handle Async Connect */
1974 if (Socket->SharedData->NonBlocking)
1975 {
1976 ERR("Async Connect UNIMPLEMENTED!\n");
1977 }
1978
1979 /* Send IOCTL */
1980 Status = NtDeviceIoControlFile((HANDLE)Handle,
1981 SockEvent,
1982 NULL,
1983 NULL,
1984 &IOSB,
1985 IOCTL_AFD_CONNECT,
1986 ConnectInfo,
1987 0x22,
1988 NULL,
1989 0);
1990 /* Wait for return */
1991 if (Status == STATUS_PENDING)
1992 {
1993 WaitForSingleObject(SockEvent, INFINITE);
1994 Status = IOSB.Status;
1995 }
1996
1997 Socket->SharedData->SocketLastError = TranslateNtStatusError(Status);
1998 if (Status != STATUS_SUCCESS)
1999 goto notify;
2000
2001 Socket->SharedData->State = SocketConnected;
2002 Socket->TdiConnectionHandle = (HANDLE)IOSB.Information;
2003 Socket->SharedData->ConnectTime = GetCurrentTimeInSeconds();
2004
2005 /* Get any pending connect data */
2006 if (lpCalleeData != NULL)
2007 {
2008 Status = NtDeviceIoControlFile((HANDLE)Handle,
2009 SockEvent,
2010 NULL,
2011 NULL,
2012 &IOSB,
2013 IOCTL_AFD_GET_CONNECT_DATA,
2014 NULL,
2015 0,
2016 lpCalleeData->buf,
2017 lpCalleeData->len);
2018 /* Wait for return */
2019 if (Status == STATUS_PENDING)
2020 {
2021 WaitForSingleObject(SockEvent, INFINITE);
2022 Status = IOSB.Status;
2023 }
2024 }
2025
2026 TRACE("Ending %lx\n", IOSB.Status);
2027
2028 notify:
2029 if (ConnectInfo) HeapFree(GetProcessHeap(), 0, ConnectInfo);
2030
2031 /* Re-enable Async Event */
2032 SockReenableAsyncSelectEvent(Socket, FD_WRITE);
2033
2034 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
2035 SockReenableAsyncSelectEvent(Socket, FD_CONNECT);
2036
2037 NtClose(SockEvent);
2038
2039 if (Status == STATUS_SUCCESS && (Socket->HelperEvents & WSH_NOTIFY_CONNECT))
2040 {
2041 Errno = Socket->HelperData->WSHNotify(Socket->HelperContext,
2042 Socket->Handle,
2043 Socket->TdiAddressHandle,
2044 Socket->TdiConnectionHandle,
2045 WSH_NOTIFY_CONNECT);
2046
2047 if (Errno)
2048 {
2049 if (lpErrno) *lpErrno = Errno;
2050 return SOCKET_ERROR;
2051 }
2052 }
2053 else if (Status != STATUS_SUCCESS && (Socket->HelperEvents & WSH_NOTIFY_CONNECT_ERROR))
2054 {
2055 Errno = Socket->HelperData->WSHNotify(Socket->HelperContext,
2056 Socket->Handle,
2057 Socket->TdiAddressHandle,
2058 Socket->TdiConnectionHandle,
2059 WSH_NOTIFY_CONNECT_ERROR);
2060
2061 if (Errno)
2062 {
2063 if (lpErrno) *lpErrno = Errno;
2064 return SOCKET_ERROR;
2065 }
2066 }
2067
2068 return MsafdReturnWithErrno(Status, lpErrno, 0, NULL);
2069 }
2070 int
2071 WSPAPI
2072 WSPShutdown(SOCKET Handle,
2073 int HowTo,
2074 LPINT lpErrno)
2075
2076 {
2077 IO_STATUS_BLOCK IOSB;
2078 AFD_DISCONNECT_INFO DisconnectInfo;
2079 PSOCKET_INFORMATION Socket = NULL;
2080 NTSTATUS Status;
2081 HANDLE SockEvent;
2082
2083 TRACE("Called\n");
2084
2085 /* Get the Socket Structure associate to this Socket*/
2086 Socket = GetSocketStructure(Handle);
2087 if (!Socket)
2088 {
2089 if (lpErrno) *lpErrno = WSAENOTSOCK;
2090 return SOCKET_ERROR;
2091 }
2092
2093 Status = NtCreateEvent(&SockEvent,
2094 EVENT_ALL_ACCESS,
2095 NULL,
2096 SynchronizationEvent,
2097 FALSE);
2098
2099 if( !NT_SUCCESS(Status) )
2100 return SOCKET_ERROR;
2101
2102 /* Set AFD Disconnect Type */
2103 switch (HowTo)
2104 {
2105 case SD_RECEIVE:
2106 DisconnectInfo.DisconnectType = AFD_DISCONNECT_RECV;
2107 Socket->SharedData->ReceiveShutdown = TRUE;
2108 break;
2109 case SD_SEND:
2110 DisconnectInfo.DisconnectType= AFD_DISCONNECT_SEND;
2111 Socket->SharedData->SendShutdown = TRUE;
2112 break;
2113 case SD_BOTH:
2114 DisconnectInfo.DisconnectType = AFD_DISCONNECT_RECV | AFD_DISCONNECT_SEND;
2115 Socket->SharedData->ReceiveShutdown = TRUE;
2116 Socket->SharedData->SendShutdown = TRUE;
2117 break;
2118 }
2119
2120 DisconnectInfo.Timeout = RtlConvertLongToLargeInteger(-1000000);
2121
2122 /* Send IOCTL */
2123 Status = NtDeviceIoControlFile((HANDLE)Handle,
2124 SockEvent,
2125 NULL,
2126 NULL,
2127 &IOSB,
2128 IOCTL_AFD_DISCONNECT,
2129 &DisconnectInfo,
2130 sizeof(DisconnectInfo),
2131 NULL,
2132 0);
2133
2134 /* Wait for return */
2135 if (Status == STATUS_PENDING)
2136 {
2137 WaitForSingleObject(SockEvent, INFINITE);
2138 Status = IOSB.Status;
2139 }
2140
2141 TRACE("Ending\n");
2142
2143 NtClose( SockEvent );
2144
2145 Socket->SharedData->SocketLastError = TranslateNtStatusError(Status);
2146 return MsafdReturnWithErrno( Status, lpErrno, 0, NULL );
2147 }
2148
2149
2150 INT
2151 WSPAPI
2152 WSPGetSockName(IN SOCKET Handle,
2153 OUT LPSOCKADDR Name,
2154 IN OUT LPINT NameLength,
2155 OUT LPINT lpErrno)
2156 {
2157 IO_STATUS_BLOCK IOSB;
2158 ULONG TdiAddressSize;
2159 PTDI_ADDRESS_INFO TdiAddress;
2160 PTRANSPORT_ADDRESS SocketAddress;
2161 PSOCKET_INFORMATION Socket = NULL;
2162 NTSTATUS Status;
2163 HANDLE SockEvent;
2164
2165 /* Get the Socket Structure associate to this Socket*/
2166 Socket = GetSocketStructure(Handle);
2167 if (!Socket)
2168 {
2169 if (lpErrno) *lpErrno = WSAENOTSOCK;
2170 return SOCKET_ERROR;
2171 }
2172
2173 if (!Name || !NameLength)
2174 {
2175 if (lpErrno) *lpErrno = WSAEFAULT;
2176 return SOCKET_ERROR;
2177 }
2178
2179 Status = NtCreateEvent(&SockEvent,
2180 EVENT_ALL_ACCESS,
2181 NULL,
2182 SynchronizationEvent,
2183 FALSE);
2184
2185 if( !NT_SUCCESS(Status) )
2186 return SOCKET_ERROR;
2187
2188 /* Allocate a buffer for the address */
2189 TdiAddressSize =
2190 sizeof(TRANSPORT_ADDRESS) + Socket->SharedData->SizeOfLocalAddress;
2191 TdiAddress = HeapAlloc(GlobalHeap, 0, TdiAddressSize);
2192
2193 if ( TdiAddress == NULL )
2194 {
2195 NtClose( SockEvent );
2196 if (lpErrno) *lpErrno = WSAENOBUFS;
2197 return SOCKET_ERROR;
2198 }
2199
2200 SocketAddress = &TdiAddress->Address;
2201
2202 /* Send IOCTL */
2203 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
2204 SockEvent,
2205 NULL,
2206 NULL,
2207 &IOSB,
2208 IOCTL_AFD_GET_SOCK_NAME,
2209 NULL,
2210 0,
2211 TdiAddress,
2212 TdiAddressSize);
2213
2214 /* Wait for return */
2215 if (Status == STATUS_PENDING)
2216 {
2217 WaitForSingleObject(SockEvent, INFINITE);
2218 Status = IOSB.Status;
2219 }
2220
2221 NtClose( SockEvent );
2222
2223 if (NT_SUCCESS(Status))
2224 {
2225 if (*NameLength >= Socket->SharedData->SizeOfLocalAddress)
2226 {
2227 Name->sa_family = SocketAddress->Address[0].AddressType;
2228 RtlCopyMemory (Name->sa_data,
2229 SocketAddress->Address[0].Address,
2230 SocketAddress->Address[0].AddressLength);
2231 *NameLength = Socket->SharedData->SizeOfLocalAddress;
2232 TRACE("NameLength %d Address: %x Port %x\n",
2233 *NameLength, ((struct sockaddr_in *)Name)->sin_addr.s_addr,
2234 ((struct sockaddr_in *)Name)->sin_port);
2235 HeapFree(GlobalHeap, 0, TdiAddress);
2236 return 0;
2237 }
2238 else
2239 {
2240 HeapFree(GlobalHeap, 0, TdiAddress);
2241 if (lpErrno) *lpErrno = WSAEFAULT;
2242 return SOCKET_ERROR;
2243 }
2244 }
2245
2246 HeapFree(GlobalHeap, 0, TdiAddress);
2247
2248 return MsafdReturnWithErrno ( Status, lpErrno, 0, NULL );
2249 }
2250
2251
2252 INT
2253 WSPAPI
2254 WSPGetPeerName(IN SOCKET s,
2255 OUT LPSOCKADDR Name,
2256 IN OUT LPINT NameLength,
2257 OUT LPINT lpErrno)
2258 {
2259 IO_STATUS_BLOCK IOSB;
2260 ULONG TdiAddressSize;
2261 PTRANSPORT_ADDRESS SocketAddress;
2262 PSOCKET_INFORMATION Socket = NULL;
2263 NTSTATUS Status;
2264 HANDLE SockEvent;
2265
2266 /* Get the Socket Structure associate to this Socket*/
2267 Socket = GetSocketStructure(s);
2268 if (!Socket)
2269 {
2270 if (lpErrno) *lpErrno = WSAENOTSOCK;
2271 return SOCKET_ERROR;
2272 }
2273
2274 if (Socket->SharedData->State != SocketConnected)
2275 {
2276 if (lpErrno) *lpErrno = WSAENOTCONN;
2277 return SOCKET_ERROR;
2278 }
2279
2280 if (!Name || !NameLength)
2281 {
2282 if (lpErrno) *lpErrno = WSAEFAULT;
2283 return SOCKET_ERROR;
2284 }
2285
2286 Status = NtCreateEvent(&SockEvent,
2287 EVENT_ALL_ACCESS,
2288 NULL,
2289 SynchronizationEvent,
2290 FALSE);
2291
2292 if( !NT_SUCCESS(Status) )
2293 return SOCKET_ERROR;
2294
2295 /* Allocate a buffer for the address */
2296 TdiAddressSize = sizeof(TRANSPORT_ADDRESS) + Socket->SharedData->SizeOfRemoteAddress;
2297 SocketAddress = HeapAlloc(GlobalHeap, 0, TdiAddressSize);
2298
2299 if ( SocketAddress == NULL )
2300 {
2301 NtClose( SockEvent );
2302 if (lpErrno) *lpErrno = WSAENOBUFS;
2303 return SOCKET_ERROR;
2304 }
2305
2306 /* Send IOCTL */
2307 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
2308 SockEvent,
2309 NULL,
2310 NULL,
2311 &IOSB,
2312 IOCTL_AFD_GET_PEER_NAME,
2313 NULL,
2314 0,
2315 SocketAddress,
2316 TdiAddressSize);
2317
2318 /* Wait for return */
2319 if (Status == STATUS_PENDING)
2320 {
2321 WaitForSingleObject(SockEvent, INFINITE);
2322 Status = IOSB.Status;
2323 }
2324
2325 NtClose( SockEvent );
2326
2327 if (NT_SUCCESS(Status))
2328 {
2329 if (*NameLength >= Socket->SharedData->SizeOfRemoteAddress)
2330 {
2331 Name->sa_family = SocketAddress->Address[0].AddressType;
2332 RtlCopyMemory (Name->sa_data,
2333 SocketAddress->Address[0].Address,
2334 SocketAddress->Address[0].AddressLength);
2335 *NameLength = Socket->SharedData->SizeOfRemoteAddress;
2336 TRACE("NameLength %d Address: %x Port %x\n",
2337 *NameLength, ((struct sockaddr_in *)Name)->sin_addr.s_addr,
2338 ((struct sockaddr_in *)Name)->sin_port);
2339 HeapFree(GlobalHeap, 0, SocketAddress);
2340 return 0;
2341 }
2342 else
2343 {
2344 HeapFree(GlobalHeap, 0, SocketAddress);
2345 if (lpErrno) *lpErrno = WSAEFAULT;
2346 return SOCKET_ERROR;
2347 }
2348 }
2349
2350 HeapFree(GlobalHeap, 0, SocketAddress);
2351
2352 return MsafdReturnWithErrno ( Status, lpErrno, 0, NULL );
2353 }
2354
2355 INT
2356 WSPAPI
2357 WSPIoctl(IN SOCKET Handle,
2358 IN DWORD dwIoControlCode,
2359 IN LPVOID lpvInBuffer,
2360 IN DWORD cbInBuffer,
2361 OUT LPVOID lpvOutBuffer,
2362 IN DWORD cbOutBuffer,
2363 OUT LPDWORD lpcbBytesReturned,
2364 IN LPWSAOVERLAPPED lpOverlapped,
2365 IN LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine,
2366 IN LPWSATHREADID lpThreadId,
2367 OUT LPINT lpErrno)
2368 {
2369 PSOCKET_INFORMATION Socket = NULL;
2370 BOOL NeedsCompletion = lpOverlapped != NULL;
2371 BOOLEAN NonBlocking;
2372 INT Errno = NO_ERROR, Ret = SOCKET_ERROR;
2373 DWORD cbRet = 0;
2374
2375 /* Get the Socket Structure associate to this Socket*/
2376 Socket = GetSocketStructure(Handle);
2377 if (!Socket)
2378 {
2379 if(lpErrno)
2380 *lpErrno = WSAENOTSOCK;
2381 return SOCKET_ERROR;
2382 }
2383
2384 if (!lpcbBytesReturned && !lpOverlapped)
2385 {
2386 if(lpErrno)
2387 *lpErrno = WSAEFAULT;
2388 return SOCKET_ERROR;
2389 }
2390
2391 switch( dwIoControlCode )
2392 {
2393 case FIONBIO:
2394 if( cbInBuffer < sizeof(INT) || IS_INTRESOURCE(lpvInBuffer) )
2395 {
2396 Errno = WSAEFAULT;
2397 break;
2398 }
2399 NonBlocking = *((PULONG)lpvInBuffer) ? TRUE : FALSE;
2400 /* Don't allow to go in blocking mode if WSPAsyncSelect or WSPEventSelect is pending */
2401 if (!NonBlocking)
2402 {
2403 /* If there is an WSPAsyncSelect pending, fail with WSAEINVAL */
2404 if (Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents))
2405 {
2406 Errno = WSAEINVAL;
2407 break;
2408 }
2409 /* If there is an WSPEventSelect pending, fail with WSAEINVAL */
2410 if (Socket->NetworkEvents)
2411 {
2412 Errno = WSAEINVAL;
2413 break;
2414 }
2415 }
2416 Socket->SharedData->NonBlocking = NonBlocking ? 1 : 0;
2417 NeedsCompletion = FALSE;
2418 Errno = SetSocketInformation(Socket, AFD_INFO_BLOCKING_MODE, &NonBlocking, NULL, NULL, lpOverlapped, lpCompletionRoutine);
2419 if (Errno == NO_ERROR)
2420 Ret = NO_ERROR;
2421 break;
2422 case FIONREAD:
2423 if (IS_INTRESOURCE(lpvOutBuffer) || cbOutBuffer == 0)
2424 {
2425 cbRet = sizeof(ULONG);
2426 Errno = WSAEFAULT;
2427 break;
2428 }
2429 if (cbOutBuffer < sizeof(ULONG))
2430 {
2431 Errno = WSAEINVAL;
2432 break;
2433 }
2434 NeedsCompletion = FALSE;
2435 Errno = GetSocketInformation(Socket, AFD_INFO_RECEIVE_CONTENT_SIZE, NULL, (PULONG)lpvOutBuffer, NULL, lpOverlapped, lpCompletionRoutine);
2436 if (Errno == NO_ERROR)
2437 {
2438 cbRet = sizeof(ULONG);
2439 Ret = NO_ERROR;
2440 }
2441 break;
2442 case SIOCATMARK:
2443 if (IS_INTRESOURCE(lpvOutBuffer) || cbOutBuffer == 0)
2444 {
2445 cbRet = sizeof(BOOL);
2446 Errno = WSAEFAULT;
2447 break;
2448 }
2449 if (cbOutBuffer < sizeof(BOOL))
2450 {
2451 Errno = WSAEINVAL;
2452 break;
2453 }
2454 if (Socket->SharedData->SocketType != SOCK_STREAM)
2455 {
2456 Errno = WSAEINVAL;
2457 break;
2458 }
2459
2460 /* FIXME: Return false if OOBINLINE is true for now
2461 We should MSG_PEEK|MSG_OOB check with driver
2462 */
2463 *(BOOL*)lpvOutBuffer = !Socket->SharedData->OobInline;
2464
2465 cbRet = sizeof(BOOL);
2466 Errno = NO_ERROR;
2467 Ret = NO_ERROR;
2468 break;
2469 case SIO_GET_EXTENSION_FUNCTION_POINTER:
2470 if (cbOutBuffer == 0)
2471 {
2472 cbRet = sizeof(PVOID);
2473 Errno = WSAEFAULT;
2474 break;
2475 }
2476
2477 if (cbInBuffer < sizeof(GUID) ||
2478 cbOutBuffer < sizeof(PVOID))
2479 {
2480 Errno = WSAEINVAL;
2481 break;
2482 }
2483
2484 {
2485 GUID AcceptExGUID = WSAID_ACCEPTEX;
2486 GUID ConnectExGUID = WSAID_CONNECTEX;
2487 GUID DisconnectExGUID = WSAID_DISCONNECTEX;
2488 GUID GetAcceptExSockaddrsGUID = WSAID_GETACCEPTEXSOCKADDRS;
2489
2490 if (IsEqualGUID(&AcceptExGUID, lpvInBuffer))
2491 {
2492 *((PVOID *)lpvOutBuffer) = WSPAcceptEx;
2493 cbRet = sizeof(PVOID);
2494 Errno = NO_ERROR;
2495 Ret = NO_ERROR;
2496 }
2497 else if (IsEqualGUID(&ConnectExGUID, lpvInBuffer))
2498 {
2499 *((PVOID *)lpvOutBuffer) = WSPConnectEx;
2500 cbRet = sizeof(PVOID);
2501 Errno = NO_ERROR;
2502 Ret = NO_ERROR;
2503 }
2504 else if (IsEqualGUID(&DisconnectExGUID, lpvInBuffer))
2505 {
2506 *((PVOID *)lpvOutBuffer) = WSPDisconnectEx;
2507 cbRet = sizeof(PVOID);
2508 Errno = NO_ERROR;
2509 Ret = NO_ERROR;
2510 }
2511 else if (IsEqualGUID(&GetAcceptExSockaddrsGUID, lpvInBuffer))
2512 {
2513 *((PVOID *)lpvOutBuffer) = WSPGetAcceptExSockaddrs;
2514 cbRet = sizeof(PVOID);
2515 Errno = NO_ERROR;
2516 Ret = NO_ERROR;
2517 }
2518 else
2519 {
2520 ERR("Querying unknown extension function: %x\n", ((GUID*)lpvInBuffer)->Data1);
2521 Errno = WSAEOPNOTSUPP;
2522 }
2523 }
2524
2525 break;
2526 case SIO_ADDRESS_LIST_QUERY:
2527 if (IS_INTRESOURCE(lpvOutBuffer) || cbOutBuffer == 0)
2528 {
2529 cbRet = sizeof(SOCKET_ADDRESS_LIST) + sizeof(Socket->SharedData->WSLocalAddress);
2530 Errno = WSAEFAULT;
2531 break;
2532 }
2533 if (cbOutBuffer < sizeof(INT))
2534 {
2535 Errno = WSAEINVAL;
2536 break;
2537 }
2538
2539 cbRet = sizeof(SOCKET_ADDRESS_LIST) + sizeof(Socket->SharedData->WSLocalAddress);
2540
2541 ((SOCKET_ADDRESS_LIST*)lpvOutBuffer)->iAddressCount = 1;
2542
2543 if (cbOutBuffer < (sizeof(SOCKET_ADDRESS_LIST) + sizeof(Socket->SharedData->WSLocalAddress)))
2544 {
2545 Errno = WSAEFAULT;
2546 break;
2547 }
2548
2549 ((SOCKET_ADDRESS_LIST*)lpvOutBuffer)->Address[0].iSockaddrLength = sizeof(Socket->SharedData->WSLocalAddress);
2550 ((SOCKET_ADDRESS_LIST*)lpvOutBuffer)->Address[0].lpSockaddr = &Socket->SharedData->WSLocalAddress;
2551
2552 Errno = NO_ERROR;
2553 Ret = NO_ERROR;
2554 break;
2555 default:
2556 Errno = Socket->HelperData->WSHIoctl(Socket->HelperContext,
2557 Handle,
2558 Socket->TdiAddressHandle,
2559 Socket->TdiConnectionHandle,
2560 dwIoControlCode,
2561 lpvInBuffer,
2562 cbInBuffer,
2563 lpvOutBuffer,
2564 cbOutBuffer,
2565 &cbRet,
2566 lpOverlapped,
2567 lpCompletionRoutine,
2568 &NeedsCompletion);
2569
2570 if (Errno == NO_ERROR)
2571 Ret = NO_ERROR;
2572 break;
2573 }
2574 if (lpOverlapped && NeedsCompletion)
2575 {
2576 lpOverlapped->Internal = Errno;
2577 lpOverlapped->InternalHigh = cbRet;
2578 if (lpCompletionRoutine != NULL)
2579 {
2580 lpCompletionRoutine(Errno, cbRet, lpOverlapped, 0);
2581 }
2582 if (lpOverlapped->hEvent)
2583 SetEvent(lpOverlapped->hEvent);
2584 if (!PostQueuedCompletionStatus((HANDLE)Handle, cbRet, 0, lpOverlapped))
2585 {
2586 ERR("PostQueuedCompletionStatus failed %d\n", GetLastError());
2587 }
2588 return NO_ERROR;
2589 }
2590 if (lpErrno)
2591 *lpErrno = Errno;
2592 if (lpcbBytesReturned)
2593 *lpcbBytesReturned = cbRet;
2594 return Ret;
2595 }
2596
2597
2598 INT
2599 WSPAPI
2600 WSPGetSockOpt(IN SOCKET Handle,
2601 IN INT Level,
2602 IN INT OptionName,
2603 OUT CHAR FAR* OptionValue,
2604 IN OUT LPINT OptionLength,
2605 OUT LPINT lpErrno)
2606 {
2607 PSOCKET_INFORMATION Socket = NULL;
2608 PVOID Buffer;
2609 INT BufferSize;
2610 BOOL BoolBuffer;
2611 DWORD DwordBuffer;
2612 INT Errno;
2613
2614 TRACE("Called\n");
2615
2616 /* Get the Socket Structure associate to this Socket*/
2617 Socket = GetSocketStructure(Handle);
2618 if (Socket == NULL)
2619 {
2620 if (lpErrno) *lpErrno = WSAENOTSOCK;
2621 return SOCKET_ERROR;
2622 }
2623 if (!OptionLength || !OptionValue)
2624 {
2625 if (lpErrno) *lpErrno = WSAEFAULT;
2626 return SOCKET_ERROR;
2627 }
2628
2629 switch (Level)
2630 {
2631 case SOL_SOCKET:
2632 switch (OptionName)
2633 {
2634 case SO_TYPE:
2635 Buffer = &Socket->SharedData->SocketType;
2636 BufferSize = sizeof(INT);
2637 break;
2638
2639 case SO_RCVBUF:
2640 Buffer = &Socket->SharedData->SizeOfRecvBuffer;
2641 BufferSize = sizeof(INT);
2642 break;
2643
2644 case SO_SNDBUF:
2645 Buffer = &Socket->SharedData->SizeOfSendBuffer;
2646 BufferSize = sizeof(INT);
2647 break;
2648
2649 case SO_ACCEPTCONN:
2650 BoolBuffer = Socket->SharedData->Listening;
2651 Buffer = &BoolBuffer;
2652 BufferSize = sizeof(BOOL);
2653 break;
2654
2655 case SO_BROADCAST:
2656 BoolBuffer = Socket->SharedData->Broadcast;
2657 Buffer = &BoolBuffer;
2658 BufferSize = sizeof(BOOL);
2659 break;
2660
2661 case SO_DEBUG:
2662 BoolBuffer = Socket->SharedData->Debug;
2663 Buffer = &BoolBuffer;
2664 BufferSize = sizeof(BOOL);
2665 break;
2666
2667 case SO_DONTLINGER:
2668 BoolBuffer = (Socket->SharedData->LingerData.l_onoff == 0);
2669 Buffer = &BoolBuffer;
2670 BufferSize = sizeof(BOOL);
2671 break;
2672
2673 case SO_LINGER:
2674 if (Socket->SharedData->SocketType == SOCK_DGRAM)
2675 {
2676 if (lpErrno) *lpErrno = WSAENOPROTOOPT;
2677 return SOCKET_ERROR;
2678 }
2679 Buffer = &Socket->SharedData->LingerData;
2680 BufferSize = sizeof(struct linger);
2681 break;
2682
2683 case SO_OOBINLINE:
2684 BoolBuffer = (Socket->SharedData->OobInline != 0);
2685 Buffer = &BoolBuffer;
2686 BufferSize = sizeof(BOOL);
2687 break;
2688
2689 case SO_KEEPALIVE:
2690 case SO_DONTROUTE:
2691 /* These guys go directly to the helper */
2692 goto SendToHelper;
2693
2694 case SO_CONDITIONAL_ACCEPT:
2695 BoolBuffer = (Socket->SharedData->UseDelayedAcceptance != 0);
2696 Buffer = &BoolBuffer;
2697 BufferSize = sizeof(BOOL);
2698 break;
2699
2700 case SO_REUSEADDR:
2701 BoolBuffer = (Socket->SharedData->ReuseAddresses != 0);
2702 Buffer = &BoolBuffer;
2703 BufferSize = sizeof(BOOL);
2704 break;
2705
2706 case SO_EXCLUSIVEADDRUSE:
2707 BoolBuffer = (Socket->SharedData->ExclusiveAddressUse != 0);
2708 Buffer = &BoolBuffer;
2709 BufferSize = sizeof(BOOL);
2710 break;
2711
2712 case SO_ERROR:
2713 Buffer = &Socket->SharedData->SocketLastError;
2714 BufferSize = sizeof(INT);
2715 break;
2716
2717 case SO_CONNECT_TIME:
2718 DwordBuffer = GetCurrentTimeInSeconds() - Socket->SharedData->ConnectTime;
2719 Buffer = &DwordBuffer;
2720 BufferSize = sizeof(DWORD);
2721 break;
2722
2723 case SO_SNDTIMEO:
2724 Buffer = &Socket->SharedData->SendTimeout;
2725 BufferSize = sizeof(DWORD);
2726 break;
2727 case SO_RCVTIMEO:
2728 Buffer = &Socket->SharedData->RecvTimeout;
2729 BufferSize = sizeof(DWORD);
2730 break;
2731 case SO_PROTOCOL_INFOW:
2732 Buffer = &Socket->ProtocolInfo;
2733 BufferSize = sizeof(Socket->ProtocolInfo);
2734 break;
2735
2736 case SO_GROUP_ID:
2737 case SO_GROUP_PRIORITY:
2738 case SO_MAX_MSG_SIZE:
2739
2740 default:
2741 DbgPrint("MSAFD: Get unknown optname %x\n", OptionName);
2742 if (lpErrno) *lpErrno = WSAENOPROTOOPT;
2743 return SOCKET_ERROR;
2744 }
2745
2746 if (*OptionLength < BufferSize)
2747 {
2748 if (lpErrno) *lpErrno = WSAEFAULT;
2749 *OptionLength = BufferSize;
2750 return SOCKET_ERROR;
2751 }
2752 RtlCopyMemory(OptionValue, Buffer, BufferSize);
2753
2754 return 0;
2755
2756 default:
2757 if (lpErrno) *lpErrno = WSAEINVAL;
2758 return SOCKET_ERROR;
2759 }
2760
2761 SendToHelper:
2762 Errno = Socket->HelperData->WSHGetSocketInformation(Socket->HelperContext,
2763 Handle,
2764 Socket->TdiAddressHandle,
2765 Socket->TdiConnectionHandle,
2766 Level,
2767 OptionName,
2768 OptionValue,
2769 (LPINT)OptionLength);
2770 if (lpErrno) *lpErrno = Errno;
2771 return (Errno == NO_ERROR) ? NO_ERROR : SOCKET_ERROR;
2772 }
2773
2774 INT
2775 WSPAPI
2776 WSPSetSockOpt(
2777 IN SOCKET s,
2778 IN INT level,
2779 IN INT optname,
2780 IN CONST CHAR FAR* optval,
2781 IN INT optlen,
2782 OUT LPINT lpErrno)
2783 {
2784 PSOCKET_INFORMATION Socket;
2785 INT Errno;
2786
2787 /* Get the Socket Structure associate to this Socket*/
2788 Socket = GetSocketStructure(s);
2789 if (Socket == NULL)
2790 {
2791 if (lpErrno) *lpErrno = WSAENOTSOCK;
2792 return SOCKET_ERROR;
2793 }
2794 if (!optval)
2795 {
2796 if (lpErrno) *lpErrno = WSAEFAULT;
2797 return SOCKET_ERROR;
2798 }
2799
2800
2801 /* FIXME: We should handle some more cases here */
2802 if (level == SOL_SOCKET)
2803 {
2804 switch (optname)
2805 {
2806 case SO_BROADCAST:
2807 if (optlen < sizeof(BOOL))
2808 {
2809 if (lpErrno) *lpErrno = WSAEFAULT;
2810 return SOCKET_ERROR;
2811 }
2812 Socket->SharedData->Broadcast = (*optval != 0) ? 1 : 0;
2813 return NO_ERROR;
2814
2815 case SO_OOBINLINE:
2816 if (optlen < sizeof(BOOL))
2817 {
2818 if (lpErrno) *lpErrno = WSAEFAULT;
2819 return SOCKET_ERROR;
2820 }
2821 Socket->SharedData->OobInline = (*optval != 0) ? 1 : 0;
2822 return NO_ERROR;
2823
2824 case SO_DONTLINGER:
2825 if (optlen < sizeof(BOOL))
2826 {
2827 if (lpErrno) *lpErrno = WSAEFAULT;
2828 return SOCKET_ERROR;
2829 }
2830 Socket->SharedData->LingerData.l_onoff = (*optval != 0) ? 0 : 1;
2831 return NO_ERROR;
2832
2833 case SO_REUSEADDR:
2834 if (optlen < sizeof(BOOL))
2835 {
2836 if (lpErrno) *lpErrno = WSAEFAULT;
2837 return SOCKET_ERROR;
2838 }
2839 Socket->SharedData->ReuseAddresses = (*optval != 0) ? 1 : 0;
2840 return NO_ERROR;
2841
2842 case SO_EXCLUSIVEADDRUSE:
2843 if (optlen < sizeof(BOOL))
2844 {
2845 if (lpErrno) *lpErrno = WSAEFAULT;
2846 return SOCKET_ERROR;
2847 }
2848 Socket->SharedData->ExclusiveAddressUse = (*optval != 0) ? 1 : 0;
2849 return NO_ERROR;
2850
2851 case SO_LINGER:
2852 if (optlen < sizeof(struct linger))
2853 {
2854 if (lpErrno) *lpErrno = WSAEFAULT;
2855 return SOCKET_ERROR;
2856 }
2857 RtlCopyMemory(&Socket->SharedData->LingerData,
2858 optval,
2859 sizeof(struct linger));
2860 return NO_ERROR;
2861
2862 case SO_SNDBUF:
2863 if (optlen < sizeof(DWORD))
2864 {
2865 if (lpErrno) *lpErrno = WSAEFAULT;
2866 return SOCKET_ERROR;
2867 }
2868
2869 /* TODO: The total per-socket buffer space reserved for sends */
2870 ERR("Setting send buf to %x is not implemented yet\n", optval);
2871 return NO_ERROR;
2872
2873 case SO_ERROR:
2874 if (optlen < sizeof(INT))
2875 {
2876 if (lpErrno) *lpErrno = WSAEFAULT;
2877 return SOCKET_ERROR;
2878 }
2879
2880 RtlCopyMemory(&Socket->SharedData->SocketLastError,
2881 optval,
2882 sizeof(INT));
2883 return NO_ERROR;
2884
2885 case SO_SNDTIMEO:
2886 if (optlen < sizeof(DWORD))
2887 {
2888 if (lpErrno) *lpErrno = WSAEFAULT;
2889 return SOCKET_ERROR;
2890 }
2891
2892 RtlCopyMemory(&Socket->SharedData->SendTimeout,
2893 optval,
2894 sizeof(DWORD));
2895 return NO_ERROR;
2896
2897 case SO_RCVTIMEO:
2898 if (optlen < sizeof(DWORD))
2899 {
2900 if (lpErrno) *lpErrno = WSAEFAULT;
2901 return SOCKET_ERROR;
2902 }
2903
2904 RtlCopyMemory(&Socket->SharedData->RecvTimeout,
2905 optval,
2906 sizeof(DWORD));
2907 return NO_ERROR;
2908
2909 case SO_KEEPALIVE:
2910 case SO_DONTROUTE:
2911 /* These go directly to the helper dll */
2912 goto SendToHelper;
2913
2914 default:
2915 /* Obviously this is a hack */
2916 ERR("MSAFD: Set unknown optname %x\n", optname);
2917 return NO_ERROR;
2918 }
2919 }
2920
2921 SendToHelper:
2922 Errno = Socket->HelperData->WSHSetSocketInformation(Socket->HelperContext,
2923 s,
2924 Socket->TdiAddressHandle,
2925 Socket->TdiConnectionHandle,
2926 level,
2927 optname,
2928 (PCHAR)optval,
2929 optlen);
2930 if (lpErrno) *lpErrno = Errno;
2931 return (Errno == NO_ERROR) ? NO_ERROR : SOCKET_ERROR;
2932 }
2933
2934 /*
2935 * FUNCTION: Initialize service provider for a client
2936 * ARGUMENTS:
2937 * wVersionRequested = Highest WinSock SPI version that the caller can use
2938 * lpWSPData = Address of WSPDATA structure to initialize
2939 * lpProtocolInfo = Pointer to structure that defines the desired protocol
2940 * UpcallTable = Pointer to upcall table of the WinSock DLL
2941 * lpProcTable = Address of procedure table to initialize
2942 * RETURNS:
2943 * Status of operation
2944 */
2945 _Must_inspect_result_
2946 int
2947 WSPAPI
2948 WSPStartup(
2949 _In_ WORD wVersionRequested,
2950 _In_ LPWSPDATA lpWSPData,
2951 _In_ LPWSAPROTOCOL_INFOW lpProtocolInfo,
2952 _In_ WSPUPCALLTABLE UpcallTable,
2953 _Out_ LPWSPPROC_TABLE lpProcTable)
2954 {
2955 NTSTATUS Status;
2956
2957 if (((LOBYTE(wVersionRequested) == 2) && (HIBYTE(wVersionRequested) < 2)) ||
2958 (LOBYTE(wVersionRequested) < 2))
2959 {
2960 ERR("WSPStartup NOT SUPPORTED for version 0x%X\n", wVersionRequested);
2961 return WSAVERNOTSUPPORTED;
2962 }
2963 else
2964 Status = NO_ERROR;
2965 /* FIXME: Enable all cases of WSPStartup status */
2966 Upcalls = UpcallTable;
2967
2968 if (Status == NO_ERROR)
2969 {
2970 lpProcTable->lpWSPAccept = WSPAccept;
2971 lpProcTable->lpWSPAddressToString = WSPAddressToString;
2972 lpProcTable->lpWSPAsyncSelect = WSPAsyncSelect;
2973 lpProcTable->lpWSPBind = WSPBind;
2974 lpProcTable->lpWSPCancelBlockingCall = WSPCancelBlockingCall;
2975 lpProcTable->lpWSPCleanup = WSPCleanup;
2976 lpProcTable->lpWSPCloseSocket = WSPCloseSocket;
2977 lpProcTable->lpWSPConnect = WSPConnect;
2978 lpProcTable->lpWSPDuplicateSocket = WSPDuplicateSocket;
2979 lpProcTable->lpWSPEnumNetworkEvents = WSPEnumNetworkEvents;
2980 lpProcTable->lpWSPEventSelect = WSPEventSelect;
2981 lpProcTable->lpWSPGetOverlappedResult = WSPGetOverlappedResult;
2982 lpProcTable->lpWSPGetPeerName = WSPGetPeerName;
2983 lpProcTable->lpWSPGetSockName = WSPGetSockName;
2984 lpProcTable->lpWSPGetSockOpt = WSPGetSockOpt;
2985 lpProcTable->lpWSPGetQOSByName = WSPGetQOSByName;
2986 lpProcTable->lpWSPIoctl = WSPIoctl;
2987 lpProcTable->lpWSPJoinLeaf = WSPJoinLeaf;
2988 lpProcTable->lpWSPListen = WSPListen;
2989 lpProcTable->lpWSPRecv = WSPRecv;
2990 lpProcTable->lpWSPRecvDisconnect = WSPRecvDisconnect;
2991 lpProcTable->lpWSPRecvFrom = WSPRecvFrom;
2992 lpProcTable->lpWSPSelect = WSPSelect;
2993 lpProcTable->lpWSPSend = WSPSend;
2994 lpProcTable->lpWSPSendDisconnect = WSPSendDisconnect;
2995 lpProcTable->lpWSPSendTo = WSPSendTo;
2996 lpProcTable->lpWSPSetSockOpt = WSPSetSockOpt;
2997 lpProcTable->lpWSPShutdown = WSPShutdown;
2998 lpProcTable->lpWSPSocket = WSPSocket;
2999 lpProcTable->lpWSPStringToAddress = WSPStringToAddress;
3000 lpWSPData->wVersion = MAKEWORD(2, 2);
3001 lpWSPData->wHighVersion = MAKEWORD(2, 2);
3002 /* Save CatalogEntryId for all upcalls */
3003 CatalogEntryId = lpProtocolInfo->dwCatalogEntryId;
3004 }
3005
3006 TRACE("Status (%d).\n", Status);
3007 return Status;
3008 }
3009
3010
3011 INT
3012 WSPAPI
3013 WSPAddressToString(IN LPSOCKADDR lpsaAddress,
3014 IN DWORD dwAddressLength,
3015 IN LPWSAPROTOCOL_INFOW lpProtocolInfo,
3016 OUT LPWSTR lpszAddressString,
3017 IN OUT LPDWORD lpdwAddressStringLength,
3018 OUT LPINT lpErrno)
3019 {
3020 SIZE_T size;
3021 WCHAR buffer[54]; /* 32 digits + 7':' + '[' + '%" + 5 digits + ']:' + 5 digits + '\0' */
3022 WCHAR *p;
3023
3024 if (!lpsaAddress || !lpszAddressString || !lpdwAddressStringLength)
3025 {
3026 if (lpErrno) *lpErrno = WSAEFAULT;
3027 return SOCKET_ERROR;
3028 }
3029
3030 switch (lpsaAddress->sa_family)
3031 {
3032 case AF_INET:
3033 if (dwAddressLength < sizeof(SOCKADDR_IN))
3034 {
3035 if (lpErrno) *lpErrno = WSAEINVAL;
3036 return SOCKET_ERROR;
3037 }
3038 swprintf(buffer,
3039 L"%u.%u.%u.%u:%u",
3040 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) >> 24 & 0xff),
3041 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) >> 16 & 0xff),
3042 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) >> 8 & 0xff),
3043 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) & 0xff),
3044 ntohs(((SOCKADDR_IN *)lpsaAddress)->sin_port));
3045
3046 p = wcschr(buffer, L':');
3047 if (!((SOCKADDR_IN *)lpsaAddress)->sin_port)
3048 {
3049 *p = 0;
3050 }
3051 break;
3052 default:
3053 if (lpErrno) *lpErrno = WSAEINVAL;
3054 return SOCKET_ERROR;
3055 }
3056
3057 size = wcslen(buffer) + 1;
3058
3059 if (*lpdwAddressStringLength < size)
3060 {
3061 *lpdwAddressStringLength = size;
3062 if (lpErrno) *lpErrno = WSAEFAULT;
3063 return SOCKET_ERROR;
3064 }
3065
3066 *lpdwAddressStringLength = size;
3067 wcscpy(lpszAddressString, buffer);
3068 return 0;
3069 }
3070
3071 INT
3072 WSPAPI
3073 WSPStringToAddress(IN LPWSTR AddressString,
3074 IN INT AddressFamily,
3075 IN LPWSAPROTOCOL_INFOW lpProtocolInfo,
3076 OUT LPSOCKADDR lpAddress,
3077 IN OUT LPINT lpAddressLength,
3078 OUT LPINT lpErrno)
3079 {
3080 int numdots = 0;
3081 USHORT port;
3082 LONG inetaddr = 0, ip_part;
3083 LPWSTR *bp = NULL;
3084 SOCKADDR_IN *sockaddr;
3085
3086 if (!lpAddressLength || !lpAddress || !AddressString)
3087 {
3088 if (lpErrno) *lpErrno = WSAEINVAL;
3089 return SOCKET_ERROR;
3090 }
3091
3092 sockaddr = (SOCKADDR_IN *)lpAddress;
3093
3094 /* Set right address family */
3095 if (lpProtocolInfo != NULL)
3096 {
3097 sockaddr->sin_family = lpProtocolInfo->iAddressFamily;
3098 }
3099 else
3100 {
3101 sockaddr->sin_family = AddressFamily;
3102 }
3103
3104 /* Report size */
3105 if (AddressFamily == AF_INET)
3106 {
3107 if (*lpAddressLength < (INT)sizeof(SOCKADDR_IN))
3108 {
3109 if (lpErrno) *lpErrno = WSAEFAULT;
3110 }
3111 else
3112 {
3113 // translate ip string to ip
3114
3115 /* Get ip number */
3116 bp = &AddressString;
3117 inetaddr = 0;
3118
3119 while (*bp < &AddressString[wcslen(AddressString)])
3120 {
3121 ip_part = wcstol(*bp, bp, 10);
3122 /* ip part number should be in range 0-255 */
3123 if (ip_part < 0 || ip_part > 255)
3124 {
3125 if (lpErrno) *lpErrno = WSAEINVAL;
3126 return SOCKET_ERROR;
3127 }
3128 inetaddr = (inetaddr << 8) + ip_part;
3129 /* we end on string end or port separator */
3130 if ((*bp)[0] == 0 || (*bp)[0] == L':')
3131 break;
3132 /* ip parts are dot separated. verify it */
3133 if ((*bp)[0] != L'.')
3134 {
3135 if (lpErrno) *lpErrno = WSAEINVAL;
3136 return SOCKET_ERROR;
3137 }
3138 /* count the dots */
3139 numdots++;
3140 /* move over the dot to next ip part */
3141 (*bp)++;
3142 }
3143
3144 /* check dots count */
3145 if (numdots != 3)
3146 {
3147 if (lpErrno) *lpErrno = WSAEINVAL;
3148 return SOCKET_ERROR;
3149 }
3150
3151 /* Get port number */
3152 if ((*bp)[0] == L':')
3153 {
3154 /* move over the column to port part */
3155 (*bp)++;
3156 /* next char should be numeric */
3157 if ((*bp)[0] < L'0' || (*bp)[0] > L'9')
3158 {
3159 if (lpErrno) *lpErrno = WSAEINVAL;
3160 return SOCKET_ERROR;
3161 }
3162 port = wcstol(*bp, bp, 10);
3163 }
3164 else
3165 {
3166 port = 0;
3167 }
3168
3169 if (lpErrno) *lpErrno = NO_ERROR;
3170 /* rest sockaddr.sin_addr.s_addr
3171 for we need to be sure it is zero when we come to while */
3172 *lpAddressLength = sizeof(*sockaddr);
3173 memset(lpAddress, 0, sizeof(*sockaddr));
3174 sockaddr->sin_family = AF_INET;
3175 sockaddr->sin_addr.s_addr = inetaddr;
3176 sockaddr->sin_port = port;
3177 }
3178 }
3179
3180 if (lpErrno && !*lpErrno)
3181 {
3182 return 0;
3183 }
3184
3185 return SOCKET_ERROR;
3186 }
3187
3188 /*
3189 * FUNCTION: Cleans up service provider for a client
3190 * ARGUMENTS:
3191 * lpErrno = Address of buffer for error information
3192 * RETURNS:
3193 * 0 if successful, or SOCKET_ERROR if not
3194 */
3195 INT
3196 WSPAPI
3197 WSPCleanup(OUT LPINT lpErrno)
3198
3199 {
3200 TRACE("Leaving.\n");
3201
3202 if (lpErrno) *lpErrno = NO_ERROR;
3203
3204 return 0;
3205 }
3206
3207 VOID
3208 NTAPI
3209 AfdInfoAPC(PVOID ApcContext,
3210 PIO_STATUS_BLOCK IoStatusBlock,
3211 ULONG Reserved)
3212 {
3213 PAFDAPCCONTEXT Context = ApcContext;
3214
3215 Context->lpCompletionRoutine(IoStatusBlock->Status, IoStatusBlock->Information, Context->lpOverlapped, 0);
3216 HeapFree(GlobalHeap, 0, ApcContext);
3217 }
3218
3219 int
3220 GetSocketInformation(PSOCKET_INFORMATION Socket,
3221 ULONG AfdInformationClass,
3222 PBOOLEAN Boolean OPTIONAL,
3223 PULONG Ulong OPTIONAL,
3224 PLARGE_INTEGER LargeInteger OPTIONAL,
3225 LPWSAOVERLAPPED Overlapped OPTIONAL,
3226 LPWSAOVERLAPPED_COMPLETION_ROUTINE CompletionRoutine OPTIONAL)
3227 {
3228 PIO_STATUS_BLOCK IOSB;
3229 IO_STATUS_BLOCK DummyIOSB;
3230 AFD_INFO InfoData;
3231 NTSTATUS Status;
3232 PAFDAPCCONTEXT APCContext;
3233 PIO_APC_ROUTINE APCFunction;
3234 HANDLE Event = NULL;
3235 HANDLE SockEvent;
3236
3237 Status = NtCreateEvent(&SockEvent,
3238 EVENT_ALL_ACCESS,
3239 NULL,
3240 SynchronizationEvent,
3241 FALSE);
3242
3243 if( !NT_SUCCESS(Status) )
3244 return SOCKET_ERROR;
3245
3246 /* Set Info Class */
3247 InfoData.InformationClass = AfdInformationClass;
3248
3249 /* Verify if we should use APC */
3250 if (Overlapped == NULL)
3251 {
3252 /* Not using Overlapped structure, so use normal blocking on event */
3253 APCContext = NULL;
3254 APCFunction = NULL;
3255 Event = SockEvent;
3256 IOSB = &DummyIOSB;
3257 }
3258 else
3259 {
3260 /* Overlapped request for non overlapped opened socket */
3261 if ((Socket->SharedData->CreateFlags & SO_SYNCHRONOUS_NONALERT) != 0)
3262 {
3263 TRACE("Opened without flag WSA_FLAG_OVERLAPPED. Do nothing.\n");
3264 return 0;
3265 }
3266 if (CompletionRoutine == NULL)
3267 {
3268 /* Using Overlapped Structure, but no Completition Routine, so no need for APC */
3269 APCContext = (PAFDAPCCONTEXT)Overlapped;
3270 APCFunction = NULL;
3271 Event = Overlapped->hEvent;
3272 }
3273 else
3274 {
3275 /* Using Overlapped Structure and a Completition Routine, so use an APC */
3276 APCFunction = &AfdInfoAPC; // should be a private io completition function inside us
3277 APCContext = HeapAlloc(GlobalHeap, 0, sizeof(AFDAPCCONTEXT));
3278 if (!APCContext)
3279 {
3280 ERR("Not enough memory for APC Context\n");
3281 return WSAEFAULT;
3282 }
3283 APCContext->lpCompletionRoutine = CompletionRoutine;
3284 APCContext->lpOverlapped = Overlapped;
3285 APCContext->lpSocket = Socket;
3286 }
3287
3288 IOSB = (PIO_STATUS_BLOCK)&Overlapped->Internal;
3289 }
3290
3291 IOSB->Status = STATUS_PENDING;
3292
3293 /* Send IOCTL */
3294 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
3295 Event,
3296 APCFunction,
3297 APCContext,
3298 IOSB,
3299 IOCTL_AFD_GET_INFO,
3300 &InfoData,
3301 sizeof(InfoData),
3302 &InfoData,
3303 sizeof(InfoData));
3304
3305 /* Wait for return */
3306 if (Status == STATUS_PENDING && Overlapped == NULL)
3307 {
3308 WaitForSingleObject(SockEvent, INFINITE);
3309 Status = IOSB->Status;
3310 }
3311
3312 TRACE("Status %x Information %d\n", Status, IOSB->Information);
3313
3314 if (Status == STATUS_PENDING)
3315 {
3316 TRACE("Leaving (Pending)\n");
3317 return WSA_IO_PENDING;
3318 }
3319
3320 if (Status != STATUS_SUCCESS)
3321 return SOCKET_ERROR;
3322
3323 /* Return Information */
3324 if (Ulong != NULL)
3325 {
3326 *Ulong = InfoData.Information.Ulong;
3327 }
3328 if (LargeInteger != NULL)
3329 {
3330 *LargeInteger = InfoData.Information.LargeInteger;
3331 }
3332 if (Boolean != NULL)
3333 {
3334 *Boolean = InfoData.Information.Boolean;
3335 }
3336
3337 NtClose( SockEvent );
3338
3339 return NO_ERROR;
3340
3341 }
3342
3343
3344 int
3345 SetSocketInformation(PSOCKET_INFORMATION Socket,
3346 ULONG AfdInformationClass,
3347 PBOOLEAN Boolean OPTIONAL,
3348 PULONG Ulong OPTIONAL,
3349 PLARGE_INTEGER LargeInteger OPTIONAL,
3350 LPWSAOVERLAPPED Overlapped OPTIONAL,
3351 LPWSAOVERLAPPED_COMPLETION_ROUTINE CompletionRoutine OPTIONAL)
3352 {
3353 PIO_STATUS_BLOCK IOSB;
3354 IO_STATUS_BLOCK DummyIOSB;
3355 AFD_INFO InfoData;
3356 NTSTATUS Status;
3357 PAFDAPCCONTEXT APCContext;
3358 PIO_APC_ROUTINE APCFunction;
3359 HANDLE Event = NULL;
3360 HANDLE SockEvent;
3361
3362 Status = NtCreateEvent(&SockEvent,
3363 EVENT_ALL_ACCESS,
3364 NULL,
3365 SynchronizationEvent,
3366 FALSE);
3367
3368 if( !NT_SUCCESS(Status) )
3369 return SOCKET_ERROR;
3370
3371 /* Set Info Class */
3372 InfoData.InformationClass = AfdInformationClass;
3373
3374 /* Set Information */
3375 if (Ulong != NULL)
3376 {
3377 InfoData.Information.Ulong = *Ulong;
3378 }
3379 if (LargeInteger != NULL)
3380 {
3381 InfoData.Information.LargeInteger = *LargeInteger;
3382 }
3383 if (Boolean != NULL)
3384 {
3385 InfoData.Information.Boolean = *Boolean;
3386 }
3387
3388 /* Verify if we should use APC */
3389 if (Overlapped == NULL)
3390 {
3391 /* Not using Overlapped structure, so use normal blocking on event */
3392 APCContext = NULL;
3393 APCFunction = NULL;
3394 Event = SockEvent;
3395 IOSB = &DummyIOSB;
3396 }
3397 else
3398 {
3399 /* Overlapped request for non overlapped opened socket */
3400 if ((Socket->SharedData->CreateFlags & SO_SYNCHRONOUS_NONALERT) != 0)
3401 {
3402 TRACE("Opened without flag WSA_FLAG_OVERLAPPED. Do nothing.\n");
3403 return 0;
3404 }
3405 if (CompletionRoutine == NULL)
3406 {
3407 /* Using Overlapped Structure, but no Completition Routine, so no need for APC */
3408 APCContext = (PAFDAPCCONTEXT)Overlapped;
3409 APCFunction = NULL;
3410 Event = Overlapped->hEvent;
3411 }
3412 else
3413 {
3414 /* Using Overlapped Structure and a Completition Routine, so use an APC */
3415 APCFunction = &AfdInfoAPC; // should be a private io completition function inside us
3416 APCContext = HeapAlloc(GlobalHeap, 0, sizeof(AFDAPCCONTEXT));
3417 if (!APCContext)
3418 {
3419 ERR("Not enough memory for APC Context\n");
3420 return WSAEFAULT;
3421 }
3422 APCContext->lpCompletionRoutine = CompletionRoutine;
3423 APCContext->lpOverlapped = Overlapped;
3424 APCContext->lpSocket = Socket;
3425 }
3426
3427 IOSB = (PIO_STATUS_BLOCK)&Overlapped->Internal;
3428 }
3429
3430 IOSB->Status = STATUS_PENDING;
3431
3432 /* Send IOCTL */
3433 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
3434 Event,
3435 APCFunction,
3436 APCContext,
3437 IOSB,
3438 IOCTL_AFD_SET_INFO,
3439 &InfoData,
3440 sizeof(InfoData),
3441 NULL,
3442 0);
3443
3444 /* Wait for return */
3445 if (Status == STATUS_PENDING && Overlapped == NULL)
3446 {
3447 WaitForSingleObject(SockEvent, INFINITE);
3448 Status = IOSB->Status;
3449 }
3450
3451 NtClose( SockEvent );
3452
3453 TRACE("Status %x Information %d\n", Status, IOSB->Information);
3454
3455 if (Status == STATUS_PENDING)
3456 {
3457 TRACE("Leaving (Pending)\n");
3458 return WSA_IO_PENDING;
3459 }
3460
3461 return Status == STATUS_SUCCESS ? NO_ERROR : SOCKET_ERROR;
3462
3463 }
3464
3465 PSOCKET_INFORMATION
3466 GetSocketStructure(SOCKET Handle)
3467 {
3468 PSOCKET_INFORMATION CurrentSocket;
3469
3470 EnterCriticalSection(&SocketListLock);
3471
3472 CurrentSocket = SocketListHead;
3473 while (CurrentSocket)
3474 {
3475 if (CurrentSocket->Handle == Handle)
3476 {
3477 LeaveCriticalSection(&SocketListLock);
3478 return CurrentSocket;
3479 }
3480
3481 CurrentSocket = CurrentSocket->NextSocket;
3482 }
3483
3484 LeaveCriticalSection(&SocketListLock);
3485
3486 return NULL;
3487 }
3488
3489 int CreateContext(PSOCKET_INFORMATION Socket)
3490 {
3491 IO_STATUS_BLOCK IOSB;
3492 SOCKET_CONTEXT ContextData;
3493 NTSTATUS Status;
3494 HANDLE SockEvent;
3495
3496 Status = NtCreateEvent(&SockEvent,
3497 EVENT_ALL_ACCESS,
3498 NULL,
3499 SynchronizationEvent,
3500 FALSE);
3501
3502 if( !NT_SUCCESS(Status) )
3503 return SOCKET_ERROR;
3504
3505 /* Create Context */
3506 ContextData.SharedData = *Socket->SharedData;
3507 ContextData.SizeOfHelperData = 0;
3508 RtlCopyMemory (&ContextData.LocalAddress,
3509 Socket->LocalAddress,
3510 Socket->SharedData->SizeOfLocalAddress);
3511 RtlCopyMemory (&ContextData.RemoteAddress,
3512 Socket->RemoteAddress,
3513 Socket->SharedData->SizeOfRemoteAddress);
3514
3515 /* Send IOCTL */
3516 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
3517 SockEvent,
3518 NULL,
3519 NULL,
3520 &IOSB,
3521 IOCTL_AFD_SET_CONTEXT,
3522 &ContextData,
3523 sizeof(ContextData),
3524 NULL,
3525 0);
3526
3527 /* Wait for Completion */
3528 if (Status == STATUS_PENDING)
3529 {
3530 WaitForSingleObject(SockEvent, INFINITE);
3531 Status = IOSB.Status;
3532 }
3533
3534 NtClose( SockEvent );
3535
3536 return Status == STATUS_SUCCESS ? NO_ERROR : SOCKET_ERROR;
3537 }
3538
3539 BOOLEAN SockCreateOrReferenceAsyncThread(VOID)
3540 {
3541 HANDLE hAsyncThread;
3542 DWORD AsyncThreadId;
3543 HANDLE AsyncEvent;
3544 OBJECT_HANDLE_ATTRIBUTE_INFORMATION HandleFlags;
3545 NTSTATUS Status;
3546
3547 /* Check if the Thread Already Exists */
3548 if (SockAsyncThreadRefCount)
3549 {
3550 ASSERT(SockAsyncCompletionPort);
3551 return TRUE;
3552 }
3553
3554 /* Create the Completion Port */
3555 if (!SockAsyncCompletionPort)
3556 {
3557 Status = NtCreateIoCompletion(&SockAsyncCompletionPort,
3558 IO_COMPLETION_ALL_ACCESS,
3559 NULL,
3560 2); // Allow 2 threads only
3561 if (!NT_SUCCESS(Status))
3562 {
3563 ERR("Failed to create completion port: 0x%08x\n", Status);
3564 return FALSE;
3565 }
3566 /* Protect Handle */
3567 HandleFlags.ProtectFromClose = TRUE;
3568 HandleFlags.Inherit = FALSE;
3569 Status = NtSetInformationObject(SockAsyncCompletionPort,
3570 ObjectHandleFlagInformation,
3571 &HandleFlags,
3572 sizeof(HandleFlags));
3573 }
3574
3575 /* Create the Async Event */
3576 Status = NtCreateEvent(&AsyncEvent,
3577 EVENT_ALL_ACCESS,
3578 NULL,
3579 NotificationEvent,
3580 FALSE);
3581
3582 /* Create the Async Thread */
3583 hAsyncThread = CreateThread(NULL,
3584 0,
3585 SockAsyncThread,
3586 NULL,
3587 0,
3588 &AsyncThreadId);
3589
3590 /* Close the Handle */
3591 NtClose(hAsyncThread);
3592
3593 /* Increase the Reference Count */
3594 SockAsyncThreadRefCount++;
3595 return TRUE;
3596 }
3597
3598 ULONG
3599 NTAPI
3600 SockAsyncThread(PVOID ThreadParam)
3601 {
3602 PVOID AsyncContext;
3603 PASYNC_COMPLETION_ROUTINE AsyncCompletionRoutine;
3604 IO_STATUS_BLOCK IOSB;
3605 NTSTATUS Status;
3606
3607 /* Make the Thread Higher Priority */
3608 SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_ABOVE_NORMAL);
3609
3610 /* Do a KQUEUE/WorkItem Style Loop, thanks to IoCompletion Ports */
3611 do
3612 {
3613 Status = NtRemoveIoCompletion (SockAsyncCompletionPort,
3614 (PVOID*)&AsyncCompletionRoutine,
3615 &AsyncContext,
3616 &IOSB,
3617 NULL);
3618 /* Call the Async Function */
3619 if (NT_SUCCESS(Status))
3620 {
3621 (*AsyncCompletionRoutine)(AsyncContext, &IOSB);
3622 }
3623 else
3624 {
3625 /* It Failed, sleep for a second */
3626 Sleep(1000);
3627 }
3628 } while ((Status != STATUS_TIMEOUT));
3629
3630 /* The Thread has Ended */
3631 return 0;
3632 }
3633
3634 BOOLEAN SockGetAsyncSelectHelperAfdHandle(VOID)
3635 {
3636 UNICODE_STRING AfdHelper;
3637 OBJECT_ATTRIBUTES ObjectAttributes;
3638 IO_STATUS_BLOCK IoSb;
3639 FILE_COMPLETION_INFORMATION CompletionInfo;
3640 OBJECT_HANDLE_ATTRIBUTE_INFORMATION HandleFlags;
3641
3642 /* First, make sure we're not already initialized */
3643 if (SockAsyncHelperAfdHandle)
3644 {
3645 return TRUE;
3646 }
3647
3648 /* Set up Handle Name and Object */
3649 RtlInitUnicodeString(&AfdHelper, L"\\Device\\Afd\\AsyncSelectHlp" );
3650 InitializeObjectAttributes(&ObjectAttributes,
3651 &AfdHelper,
3652 OBJ_INHERIT | OBJ_CASE_INSENSITIVE,
3653 NULL,
3654 NULL);
3655
3656 /* Open the Handle to AFD */
3657 NtCreateFile(&SockAsyncHelperAfdHandle,
3658 GENERIC_READ | GENERIC_WRITE | SYNCHRONIZE,
3659 &ObjectAttributes,
3660 &IoSb,
3661 NULL,
3662 0,
3663 FILE_SHARE_READ | FILE_SHARE_WRITE,
3664 FILE_OPEN_IF,
3665 0,
3666 NULL,
3667 0);
3668
3669 /*
3670 * Now Set up the Completion Port Information
3671 * This means that whenever a Poll is finished, the routine will be executed
3672 */
3673 CompletionInfo.Port = SockAsyncCompletionPort;
3674 CompletionInfo.Key = SockAsyncSelectCompletionRoutine;
3675 NtSetInformationFile(SockAsyncHelperAfdHandle,
3676 &IoSb,
3677 &CompletionInfo,
3678 sizeof(CompletionInfo),
3679 FileCompletionInformation);
3680
3681
3682 /* Protect the Handle */
3683 HandleFlags.ProtectFromClose = TRUE;
3684 HandleFlags.Inherit = FALSE;
3685 NtSetInformationObject(SockAsyncCompletionPort,
3686 ObjectHandleFlagInformation,
3687 &HandleFlags,
3688 sizeof(HandleFlags));
3689
3690
3691 /* Set this variable to true so that Send/Recv/Accept will know wether to renable disabled events */
3692 SockAsyncSelectCalled = TRUE;
3693 return TRUE;
3694 }
3695
3696 VOID SockAsyncSelectCompletionRoutine(PVOID Context, PIO_STATUS_BLOCK IoStatusBlock)
3697 {
3698
3699 PASYNC_DATA AsyncData = Context;
3700 PSOCKET_INFORMATION Socket;
3701 ULONG x;
3702
3703 /* Get the Socket */
3704 Socket = AsyncData->ParentSocket;
3705
3706 /* Check if the Sequence Number Changed behind our back */
3707 if (AsyncData->SequenceNumber != Socket->SharedData->SequenceNumber )
3708 {
3709 return;
3710 }
3711
3712 /* Check we were manually called b/c of a failure */
3713 if (!NT_SUCCESS(IoStatusBlock->Status))
3714 {
3715 /* FIXME: Perform Upcall */
3716 return;
3717 }
3718
3719 for (x = 1; x; x<<=1)
3720 {
3721 switch (AsyncData->AsyncSelectInfo.Handles[0].Events & x)
3722 {
3723 case AFD_EVENT_RECEIVE:
3724 if (0 != (Socket->SharedData->AsyncEvents & FD_READ) &&
3725 0 == (Socket->SharedData->AsyncDisabledEvents & FD_READ))
3726 {
3727 /* Make the Notification */
3728 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3729 Socket->SharedData->wMsg,
3730 Socket->Handle,
3731 WSAMAKESELECTREPLY(FD_READ, 0));
3732 /* Disable this event until the next read(); */
3733 Socket->SharedData->AsyncDisabledEvents |= FD_READ;
3734 }
3735 break;
3736
3737 case AFD_EVENT_OOB_RECEIVE:
3738 if (0 != (Socket->SharedData->AsyncEvents & FD_OOB) &&
3739 0 == (Socket->SharedData->AsyncDisabledEvents & FD_OOB))
3740 {
3741 /* Make the Notification */
3742 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3743 Socket->SharedData->wMsg,
3744 Socket->Handle,
3745 WSAMAKESELECTREPLY(FD_OOB, 0));
3746 /* Disable this event until the next read(); */
3747 Socket->SharedData->AsyncDisabledEvents |= FD_OOB;
3748 }
3749 break;
3750
3751 case AFD_EVENT_SEND:
3752 if (0 != (Socket->SharedData->AsyncEvents & FD_WRITE) &&
3753 0 == (Socket->SharedData->AsyncDisabledEvents & FD_WRITE))
3754 {
3755 /* Make the Notification */
3756 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3757 Socket->SharedData->wMsg,
3758 Socket->Handle,
3759 WSAMAKESELECTREPLY(FD_WRITE, 0));
3760 /* Disable this event until the next write(); */
3761 Socket->SharedData->AsyncDisabledEvents |= FD_WRITE;
3762 }
3763 break;
3764
3765 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
3766 case AFD_EVENT_CONNECT:
3767 case AFD_EVENT_CONNECT_FAIL:
3768 if (0 != (Socket->SharedData->AsyncEvents & FD_CONNECT) &&
3769 0 == (Socket->SharedData->AsyncDisabledEvents & FD_CONNECT))
3770 {
3771 /* Make the Notification */
3772 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3773 Socket->SharedData->wMsg,
3774 Socket->Handle,
3775 WSAMAKESELECTREPLY(FD_CONNECT, 0));
3776 /* Disable this event forever; */
3777 Socket->SharedData->AsyncDisabledEvents |= FD_CONNECT;
3778 }
3779 break;
3780
3781 case AFD_EVENT_ACCEPT:
3782 if (0 != (Socket->SharedData->AsyncEvents & FD_ACCEPT) &&
3783 0 == (Socket->SharedData->AsyncDisabledEvents & FD_ACCEPT))
3784 {
3785 /* Make the Notification */
3786 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3787 Socket->SharedData->wMsg,
3788 Socket->Handle,
3789 WSAMAKESELECTREPLY(FD_ACCEPT, 0));
3790 /* Disable this event until the next accept(); */
3791 Socket->SharedData->AsyncDisabledEvents |= FD_ACCEPT;
3792 }
3793 break;
3794
3795 case AFD_EVENT_DISCONNECT:
3796 case AFD_EVENT_ABORT:
3797 case AFD_EVENT_CLOSE:
3798 if (0 != (Socket->SharedData->AsyncEvents & FD_CLOSE) &&
3799 0 == (Socket->SharedData->AsyncDisabledEvents & FD_CLOSE))
3800 {
3801 /* Make the Notification */
3802 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3803 Socket->SharedData->wMsg,
3804 Socket->Handle,
3805 WSAMAKESELECTREPLY(FD_CLOSE, 0));
3806 /* Disable this event forever; */
3807 Socket->SharedData->AsyncDisabledEvents |= FD_CLOSE;
3808 }
3809 break;
3810 /* FIXME: Support QOS */
3811 }
3812 }
3813
3814 /* Check if there are any events left for us to check */
3815 if ((Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents)) == 0 )
3816 {
3817 return;
3818 }
3819
3820 /* Keep Polling */
3821 SockProcessAsyncSelect(Socket, AsyncData);
3822 return;
3823 }
3824
3825 VOID SockProcessAsyncSelect(PSOCKET_INFORMATION Socket, PASYNC_DATA AsyncData)
3826 {
3827
3828 ULONG lNetworkEvents;
3829 NTSTATUS Status;
3830
3831 /* Set up the Async Data Event Info */
3832 AsyncData->AsyncSelectInfo.Timeout.HighPart = 0x7FFFFFFF;
3833 AsyncData->AsyncSelectInfo.Timeout.LowPart = 0xFFFFFFFF;
3834 AsyncData->AsyncSelectInfo.HandleCount = 1;
3835 AsyncData->AsyncSelectInfo.Exclusive = TRUE;
3836 AsyncData->AsyncSelectInfo.Handles[0].Handle = Socket->Handle;
3837 AsyncData->AsyncSelectInfo.Handles[0].Events = 0;
3838
3839 /* Remove unwanted events */
3840 lNetworkEvents = Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents);
3841
3842 /* Set Events to wait for */
3843 if (lNetworkEvents & FD_READ)
3844 {
3845 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_RECEIVE;
3846 }
3847
3848 if (lNetworkEvents & FD_WRITE)
3849 {
3850 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_SEND;
3851 }
3852
3853 if (lNetworkEvents & FD_OOB)
3854 {
3855 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_OOB_RECEIVE;
3856 }
3857
3858 if (lNetworkEvents & FD_ACCEPT)
3859 {
3860 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_ACCEPT;
3861 }
3862
3863 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
3864 if (lNetworkEvents & FD_CONNECT)
3865 {
3866 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_CONNECT | AFD_EVENT_CONNECT_FAIL;
3867 }
3868
3869 if (lNetworkEvents & FD_CLOSE)
3870 {
3871 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_DISCONNECT | AFD_EVENT_ABORT | AFD_EVENT_CLOSE;
3872 }
3873
3874 if (lNetworkEvents & FD_QOS)
3875 {
3876 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_QOS;
3877 }
3878
3879 if (lNetworkEvents & FD_GROUP_QOS)
3880 {
3881 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_GROUP_QOS;
3882 }
3883
3884 /* Send IOCTL */
3885 Status = NtDeviceIoControlFile (SockAsyncHelperAfdHandle,
3886 NULL,
3887 NULL,
3888 AsyncData,
3889 &AsyncData->IoStatusBlock,
3890 IOCTL_AFD_SELECT,
3891 &AsyncData->AsyncSelectInfo,
3892 sizeof(AsyncData->AsyncSelectInfo),
3893 &AsyncData->AsyncSelectInfo,
3894 sizeof(AsyncData->AsyncSelectInfo));
3895
3896 /* I/O Manager Won't call the completion routine, let's do it manually */
3897 if (NT_SUCCESS(Status))
3898 {
3899 return;
3900 }
3901 else
3902 {
3903 AsyncData->IoStatusBlock.Status = Status;
3904 SockAsyncSelectCompletionRoutine(AsyncData, &AsyncData->IoStatusBlock);
3905 }
3906 }
3907
3908 VOID SockProcessQueuedAsyncSelect(PVOID Context, PIO_STATUS_BLOCK IoStatusBlock)
3909 {
3910 PASYNC_DATA AsyncData = Context;
3911 BOOL FreeContext = TRUE;
3912 PSOCKET_INFORMATION Socket;
3913
3914 /* Get the Socket */
3915 Socket = AsyncData->ParentSocket;
3916
3917 /* If someone closed it, stop the function */
3918 if (Socket->SharedData->State != SocketClosed)
3919 {
3920 /* Check if the Sequence Number changed by now, in which case quit */
3921 if (AsyncData->SequenceNumber == Socket->SharedData->SequenceNumber)
3922 {
3923 /* Do the actual select, if needed */
3924 if ((Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents)))
3925 {
3926 SockProcessAsyncSelect(Socket, AsyncData);
3927 FreeContext = FALSE;
3928 }
3929 }
3930 }
3931
3932 /* Free the Context */
3933 if (FreeContext)
3934 {
3935 HeapFree(GetProcessHeap(), 0, AsyncData);
3936 }
3937
3938 return;
3939 }
3940
3941 VOID
3942 SockReenableAsyncSelectEvent (IN PSOCKET_INFORMATION Socket,
3943 IN ULONG Event)
3944 {
3945 PASYNC_DATA AsyncData;
3946
3947 /* Make sure the event is actually disabled */
3948 if (!(Socket->SharedData->AsyncDisabledEvents & Event))
3949 {
3950 return;
3951 }
3952
3953 /* Re-enable it */
3954 Socket->SharedData->AsyncDisabledEvents &= ~Event;
3955
3956 /* Return if no more events are being polled */
3957 if ((Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents)) == 0 )
3958 {
3959 return;
3960 }
3961
3962 /* Wait on new events */
3963 AsyncData = HeapAlloc(GetProcessHeap(), 0, sizeof(ASYNC_DATA));
3964 if (!AsyncData) return;
3965
3966 /* Create the Asynch Thread if Needed */
3967 SockCreateOrReferenceAsyncThread();
3968
3969 /* Increase the sequence number to stop anything else */
3970 Socket->SharedData->SequenceNumber++;
3971
3972 /* Set up the Async Data */
3973 AsyncData->ParentSocket = Socket;
3974 AsyncData->SequenceNumber = Socket->SharedData->SequenceNumber;
3975
3976 /* Begin Async Select by using I/O Completion */
3977 NtSetIoCompletion(SockAsyncCompletionPort,
3978 (PVOID)&SockProcessQueuedAsyncSelect,
3979 AsyncData,
3980 0,
3981 0);
3982
3983 /* All done */
3984 return;
3985 }
3986
3987 BOOL
3988 WINAPI
3989 DllMain(HANDLE hInstDll,
3990 ULONG dwReason,
3991 PVOID Reserved)
3992 {
3993
3994 switch (dwReason)
3995 {
3996 case DLL_PROCESS_ATTACH:
3997
3998 TRACE("Loading MSAFD.DLL \n");
3999
4000 /* Don't need thread attach notifications
4001 so disable them to improve performance */
4002 DisableThreadLibraryCalls(hInstDll);
4003
4004 /* List of DLL Helpers */
4005 InitializeListHead(&SockHelpersListHead);
4006
4007 /* Heap to use when allocating */
4008 GlobalHeap = GetProcessHeap();
4009
4010 /* Initialize the lock that protects our socket list */
4011 InitializeCriticalSection(&SocketListLock);
4012
4013 TRACE("MSAFD.DLL has been loaded\n");
4014
4015 break;
4016
4017 case DLL_THREAD_ATTACH:
4018 break;
4019
4020 case DLL_THREAD_DETACH:
4021 break;
4022
4023 case DLL_PROCESS_DETACH:
4024
4025 /* Delete the socket list lock */
4026 DeleteCriticalSection(&SocketListLock);
4027
4028 break;
4029 }
4030
4031 TRACE("DllMain of msafd.dll (leaving)\n");
4032
4033 return TRUE;
4034 }
4035
4036 /* EOF */
A free Windows-compatible Operating System