projects / reactos.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[MSAFD] SizeOf*Buffer: Type is ULONG, not INT/DWORD
[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(ULONG);
2642 break;
2643
2644 case SO_SNDBUF:
2645 Buffer = &Socket->SharedData->SizeOfSendBuffer;
2646 BufferSize = sizeof(ULONG);
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(ULONG))
2864 {
2865 if (lpErrno) *lpErrno = WSAEFAULT;
2866 return SOCKET_ERROR;
2867 }
2868
2869 SetSocketInformation(Socket,
2870 AFD_INFO_SEND_WINDOW_SIZE,
2871 NULL,
2872 (PULONG)optval,
2873 NULL,
2874 NULL,
2875 NULL);
2876 GetSocketInformation(Socket,
2877 AFD_INFO_SEND_WINDOW_SIZE,
2878 NULL,
2879 &Socket->SharedData->SizeOfSendBuffer,
2880 NULL,
2881 NULL,
2882 NULL);
2883
2884 return NO_ERROR;
2885
2886 case SO_RCVBUF:
2887 if (optlen < sizeof(ULONG))
2888 {
2889 if (lpErrno) *lpErrno = WSAEFAULT;
2890 return SOCKET_ERROR;
2891 }
2892
2893 SetSocketInformation(Socket,
2894 AFD_INFO_RECEIVE_WINDOW_SIZE,
2895 NULL,
2896 (PULONG)optval,
2897 NULL,
2898 NULL,
2899 NULL);
2900 GetSocketInformation(Socket,
2901 AFD_INFO_RECEIVE_WINDOW_SIZE,
2902 NULL,
2903 &Socket->SharedData->SizeOfRecvBuffer,
2904 NULL,
2905 NULL,
2906 NULL);
2907
2908 return NO_ERROR;
2909
2910 case SO_ERROR:
2911 if (optlen < sizeof(INT))
2912 {
2913 if (lpErrno) *lpErrno = WSAEFAULT;
2914 return SOCKET_ERROR;
2915 }
2916
2917 RtlCopyMemory(&Socket->SharedData->SocketLastError,
2918 optval,
2919 sizeof(INT));
2920 return NO_ERROR;
2921
2922 case SO_SNDTIMEO:
2923 if (optlen < sizeof(DWORD))
2924 {
2925 if (lpErrno) *lpErrno = WSAEFAULT;
2926 return SOCKET_ERROR;
2927 }
2928
2929 RtlCopyMemory(&Socket->SharedData->SendTimeout,
2930 optval,
2931 sizeof(DWORD));
2932 return NO_ERROR;
2933
2934 case SO_RCVTIMEO:
2935 if (optlen < sizeof(DWORD))
2936 {
2937 if (lpErrno) *lpErrno = WSAEFAULT;
2938 return SOCKET_ERROR;
2939 }
2940
2941 RtlCopyMemory(&Socket->SharedData->RecvTimeout,
2942 optval,
2943 sizeof(DWORD));
2944 return NO_ERROR;
2945
2946 case SO_KEEPALIVE:
2947 case SO_DONTROUTE:
2948 /* These go directly to the helper dll */
2949 goto SendToHelper;
2950
2951 default:
2952 /* Obviously this is a hack */
2953 ERR("MSAFD: Set unknown optname %x\n", optname);
2954 return NO_ERROR;
2955 }
2956 }
2957
2958 SendToHelper:
2959 Errno = Socket->HelperData->WSHSetSocketInformation(Socket->HelperContext,
2960 s,
2961 Socket->TdiAddressHandle,
2962 Socket->TdiConnectionHandle,
2963 level,
2964 optname,
2965 (PCHAR)optval,
2966 optlen);
2967 if (lpErrno) *lpErrno = Errno;
2968 return (Errno == NO_ERROR) ? NO_ERROR : SOCKET_ERROR;
2969 }
2970
2971 /*
2972 * FUNCTION: Initialize service provider for a client
2973 * ARGUMENTS:
2974 * wVersionRequested = Highest WinSock SPI version that the caller can use
2975 * lpWSPData = Address of WSPDATA structure to initialize
2976 * lpProtocolInfo = Pointer to structure that defines the desired protocol
2977 * UpcallTable = Pointer to upcall table of the WinSock DLL
2978 * lpProcTable = Address of procedure table to initialize
2979 * RETURNS:
2980 * Status of operation
2981 */
2982 _Must_inspect_result_
2983 int
2984 WSPAPI
2985 WSPStartup(
2986 _In_ WORD wVersionRequested,
2987 _In_ LPWSPDATA lpWSPData,
2988 _In_ LPWSAPROTOCOL_INFOW lpProtocolInfo,
2989 _In_ WSPUPCALLTABLE UpcallTable,
2990 _Out_ LPWSPPROC_TABLE lpProcTable)
2991 {
2992 NTSTATUS Status;
2993
2994 if (((LOBYTE(wVersionRequested) == 2) && (HIBYTE(wVersionRequested) < 2)) ||
2995 (LOBYTE(wVersionRequested) < 2))
2996 {
2997 ERR("WSPStartup NOT SUPPORTED for version 0x%X\n", wVersionRequested);
2998 return WSAVERNOTSUPPORTED;
2999 }
3000 else
3001 Status = NO_ERROR;
3002 /* FIXME: Enable all cases of WSPStartup status */
3003 Upcalls = UpcallTable;
3004
3005 if (Status == NO_ERROR)
3006 {
3007 lpProcTable->lpWSPAccept = WSPAccept;
3008 lpProcTable->lpWSPAddressToString = WSPAddressToString;
3009 lpProcTable->lpWSPAsyncSelect = WSPAsyncSelect;
3010 lpProcTable->lpWSPBind = WSPBind;
3011 lpProcTable->lpWSPCancelBlockingCall = WSPCancelBlockingCall;
3012 lpProcTable->lpWSPCleanup = WSPCleanup;
3013 lpProcTable->lpWSPCloseSocket = WSPCloseSocket;
3014 lpProcTable->lpWSPConnect = WSPConnect;
3015 lpProcTable->lpWSPDuplicateSocket = WSPDuplicateSocket;
3016 lpProcTable->lpWSPEnumNetworkEvents = WSPEnumNetworkEvents;
3017 lpProcTable->lpWSPEventSelect = WSPEventSelect;
3018 lpProcTable->lpWSPGetOverlappedResult = WSPGetOverlappedResult;
3019 lpProcTable->lpWSPGetPeerName = WSPGetPeerName;
3020 lpProcTable->lpWSPGetSockName = WSPGetSockName;
3021 lpProcTable->lpWSPGetSockOpt = WSPGetSockOpt;
3022 lpProcTable->lpWSPGetQOSByName = WSPGetQOSByName;
3023 lpProcTable->lpWSPIoctl = WSPIoctl;
3024 lpProcTable->lpWSPJoinLeaf = WSPJoinLeaf;
3025 lpProcTable->lpWSPListen = WSPListen;
3026 lpProcTable->lpWSPRecv = WSPRecv;
3027 lpProcTable->lpWSPRecvDisconnect = WSPRecvDisconnect;
3028 lpProcTable->lpWSPRecvFrom = WSPRecvFrom;
3029 lpProcTable->lpWSPSelect = WSPSelect;
3030 lpProcTable->lpWSPSend = WSPSend;
3031 lpProcTable->lpWSPSendDisconnect = WSPSendDisconnect;
3032 lpProcTable->lpWSPSendTo = WSPSendTo;
3033 lpProcTable->lpWSPSetSockOpt = WSPSetSockOpt;
3034 lpProcTable->lpWSPShutdown = WSPShutdown;
3035 lpProcTable->lpWSPSocket = WSPSocket;
3036 lpProcTable->lpWSPStringToAddress = WSPStringToAddress;
3037 lpWSPData->wVersion = MAKEWORD(2, 2);
3038 lpWSPData->wHighVersion = MAKEWORD(2, 2);
3039 /* Save CatalogEntryId for all upcalls */
3040 CatalogEntryId = lpProtocolInfo->dwCatalogEntryId;
3041 }
3042
3043 TRACE("Status (%d).\n", Status);
3044 return Status;
3045 }
3046
3047
3048 INT
3049 WSPAPI
3050 WSPAddressToString(IN LPSOCKADDR lpsaAddress,
3051 IN DWORD dwAddressLength,
3052 IN LPWSAPROTOCOL_INFOW lpProtocolInfo,
3053 OUT LPWSTR lpszAddressString,
3054 IN OUT LPDWORD lpdwAddressStringLength,
3055 OUT LPINT lpErrno)
3056 {
3057 SIZE_T size;
3058 WCHAR buffer[54]; /* 32 digits + 7':' + '[' + '%" + 5 digits + ']:' + 5 digits + '\0' */
3059 WCHAR *p;
3060
3061 if (!lpsaAddress || !lpszAddressString || !lpdwAddressStringLength)
3062 {
3063 if (lpErrno) *lpErrno = WSAEFAULT;
3064 return SOCKET_ERROR;
3065 }
3066
3067 switch (lpsaAddress->sa_family)
3068 {
3069 case AF_INET:
3070 if (dwAddressLength < sizeof(SOCKADDR_IN))
3071 {
3072 if (lpErrno) *lpErrno = WSAEINVAL;
3073 return SOCKET_ERROR;
3074 }
3075 swprintf(buffer,
3076 L"%u.%u.%u.%u:%u",
3077 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) >> 24 & 0xff),
3078 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) >> 16 & 0xff),
3079 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) >> 8 & 0xff),
3080 (unsigned int)(ntohl(((SOCKADDR_IN *)lpsaAddress)->sin_addr.s_addr) & 0xff),
3081 ntohs(((SOCKADDR_IN *)lpsaAddress)->sin_port));
3082
3083 p = wcschr(buffer, L':');
3084 if (!((SOCKADDR_IN *)lpsaAddress)->sin_port)
3085 {
3086 *p = 0;
3087 }
3088 break;
3089 default:
3090 if (lpErrno) *lpErrno = WSAEINVAL;
3091 return SOCKET_ERROR;
3092 }
3093
3094 size = wcslen(buffer) + 1;
3095
3096 if (*lpdwAddressStringLength < size)
3097 {
3098 *lpdwAddressStringLength = size;
3099 if (lpErrno) *lpErrno = WSAEFAULT;
3100 return SOCKET_ERROR;
3101 }
3102
3103 *lpdwAddressStringLength = size;
3104 wcscpy(lpszAddressString, buffer);
3105 return 0;
3106 }
3107
3108 INT
3109 WSPAPI
3110 WSPStringToAddress(IN LPWSTR AddressString,
3111 IN INT AddressFamily,
3112 IN LPWSAPROTOCOL_INFOW lpProtocolInfo,
3113 OUT LPSOCKADDR lpAddress,
3114 IN OUT LPINT lpAddressLength,
3115 OUT LPINT lpErrno)
3116 {
3117 int numdots = 0;
3118 USHORT port;
3119 LONG inetaddr = 0, ip_part;
3120 LPWSTR *bp = NULL;
3121 SOCKADDR_IN *sockaddr;
3122
3123 if (!lpAddressLength || !lpAddress || !AddressString)
3124 {
3125 if (lpErrno) *lpErrno = WSAEINVAL;
3126 return SOCKET_ERROR;
3127 }
3128
3129 sockaddr = (SOCKADDR_IN *)lpAddress;
3130
3131 /* Set right address family */
3132 if (lpProtocolInfo != NULL)
3133 {
3134 sockaddr->sin_family = lpProtocolInfo->iAddressFamily;
3135 }
3136 else
3137 {
3138 sockaddr->sin_family = AddressFamily;
3139 }
3140
3141 /* Report size */
3142 if (AddressFamily == AF_INET)
3143 {
3144 if (*lpAddressLength < (INT)sizeof(SOCKADDR_IN))
3145 {
3146 if (lpErrno) *lpErrno = WSAEFAULT;
3147 }
3148 else
3149 {
3150 // translate ip string to ip
3151
3152 /* Get ip number */
3153 bp = &AddressString;
3154 inetaddr = 0;
3155
3156 while (*bp < &AddressString[wcslen(AddressString)])
3157 {
3158 ip_part = wcstol(*bp, bp, 10);
3159 /* ip part number should be in range 0-255 */
3160 if (ip_part < 0 || ip_part > 255)
3161 {
3162 if (lpErrno) *lpErrno = WSAEINVAL;
3163 return SOCKET_ERROR;
3164 }
3165 inetaddr = (inetaddr << 8) + ip_part;
3166 /* we end on string end or port separator */
3167 if ((*bp)[0] == 0 || (*bp)[0] == L':')
3168 break;
3169 /* ip parts are dot separated. verify it */
3170 if ((*bp)[0] != L'.')
3171 {
3172 if (lpErrno) *lpErrno = WSAEINVAL;
3173 return SOCKET_ERROR;
3174 }
3175 /* count the dots */
3176 numdots++;
3177 /* move over the dot to next ip part */
3178 (*bp)++;
3179 }
3180
3181 /* check dots count */
3182 if (numdots != 3)
3183 {
3184 if (lpErrno) *lpErrno = WSAEINVAL;
3185 return SOCKET_ERROR;
3186 }
3187
3188 /* Get port number */
3189 if ((*bp)[0] == L':')
3190 {
3191 /* move over the column to port part */
3192 (*bp)++;
3193 /* next char should be numeric */
3194 if ((*bp)[0] < L'0' || (*bp)[0] > L'9')
3195 {
3196 if (lpErrno) *lpErrno = WSAEINVAL;
3197 return SOCKET_ERROR;
3198 }
3199 port = wcstol(*bp, bp, 10);
3200 }
3201 else
3202 {
3203 port = 0;
3204 }
3205
3206 if (lpErrno) *lpErrno = NO_ERROR;
3207 /* rest sockaddr.sin_addr.s_addr
3208 for we need to be sure it is zero when we come to while */
3209 *lpAddressLength = sizeof(*sockaddr);
3210 memset(lpAddress, 0, sizeof(*sockaddr));
3211 sockaddr->sin_family = AF_INET;
3212 sockaddr->sin_addr.s_addr = inetaddr;
3213 sockaddr->sin_port = port;
3214 }
3215 }
3216
3217 if (lpErrno && !*lpErrno)
3218 {
3219 return 0;
3220 }
3221
3222 return SOCKET_ERROR;
3223 }
3224
3225 /*
3226 * FUNCTION: Cleans up service provider for a client
3227 * ARGUMENTS:
3228 * lpErrno = Address of buffer for error information
3229 * RETURNS:
3230 * 0 if successful, or SOCKET_ERROR if not
3231 */
3232 INT
3233 WSPAPI
3234 WSPCleanup(OUT LPINT lpErrno)
3235
3236 {
3237 TRACE("Leaving.\n");
3238
3239 if (lpErrno) *lpErrno = NO_ERROR;
3240
3241 return 0;
3242 }
3243
3244 VOID
3245 NTAPI
3246 AfdInfoAPC(PVOID ApcContext,
3247 PIO_STATUS_BLOCK IoStatusBlock,
3248 ULONG Reserved)
3249 {
3250 PAFDAPCCONTEXT Context = ApcContext;
3251
3252 Context->lpCompletionRoutine(IoStatusBlock->Status, IoStatusBlock->Information, Context->lpOverlapped, 0);
3253 HeapFree(GlobalHeap, 0, ApcContext);
3254 }
3255
3256 int
3257 GetSocketInformation(PSOCKET_INFORMATION Socket,
3258 ULONG AfdInformationClass,
3259 PBOOLEAN Boolean OPTIONAL,
3260 PULONG Ulong OPTIONAL,
3261 PLARGE_INTEGER LargeInteger OPTIONAL,
3262 LPWSAOVERLAPPED Overlapped OPTIONAL,
3263 LPWSAOVERLAPPED_COMPLETION_ROUTINE CompletionRoutine OPTIONAL)
3264 {
3265 PIO_STATUS_BLOCK IOSB;
3266 IO_STATUS_BLOCK DummyIOSB;
3267 AFD_INFO InfoData;
3268 NTSTATUS Status;
3269 PAFDAPCCONTEXT APCContext;
3270 PIO_APC_ROUTINE APCFunction;
3271 HANDLE Event = NULL;
3272 HANDLE SockEvent;
3273
3274 Status = NtCreateEvent(&SockEvent,
3275 EVENT_ALL_ACCESS,
3276 NULL,
3277 SynchronizationEvent,
3278 FALSE);
3279
3280 if( !NT_SUCCESS(Status) )
3281 return SOCKET_ERROR;
3282
3283 /* Set Info Class */
3284 InfoData.InformationClass = AfdInformationClass;
3285
3286 /* Verify if we should use APC */
3287 if (Overlapped == NULL)
3288 {
3289 /* Not using Overlapped structure, so use normal blocking on event */
3290 APCContext = NULL;
3291 APCFunction = NULL;
3292 Event = SockEvent;
3293 IOSB = &DummyIOSB;
3294 }
3295 else
3296 {
3297 /* Overlapped request for non overlapped opened socket */
3298 if ((Socket->SharedData->CreateFlags & SO_SYNCHRONOUS_NONALERT) != 0)
3299 {
3300 TRACE("Opened without flag WSA_FLAG_OVERLAPPED. Do nothing.\n");
3301 NtClose( SockEvent );
3302 return 0;
3303 }
3304 if (CompletionRoutine == NULL)
3305 {
3306 /* Using Overlapped Structure, but no Completition Routine, so no need for APC */
3307 APCContext = (PAFDAPCCONTEXT)Overlapped;
3308 APCFunction = NULL;
3309 Event = Overlapped->hEvent;
3310 }
3311 else
3312 {
3313 /* Using Overlapped Structure and a Completition Routine, so use an APC */
3314 APCFunction = &AfdInfoAPC; // should be a private io completition function inside us
3315 APCContext = HeapAlloc(GlobalHeap, 0, sizeof(AFDAPCCONTEXT));
3316 if (!APCContext)
3317 {
3318 ERR("Not enough memory for APC Context\n");
3319 NtClose( SockEvent );
3320 return WSAEFAULT;
3321 }
3322 APCContext->lpCompletionRoutine = CompletionRoutine;
3323 APCContext->lpOverlapped = Overlapped;
3324 APCContext->lpSocket = Socket;
3325 }
3326
3327 IOSB = (PIO_STATUS_BLOCK)&Overlapped->Internal;
3328 }
3329
3330 IOSB->Status = STATUS_PENDING;
3331
3332 /* Send IOCTL */
3333 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
3334 Event,
3335 APCFunction,
3336 APCContext,
3337 IOSB,
3338 IOCTL_AFD_GET_INFO,
3339 &InfoData,
3340 sizeof(InfoData),
3341 &InfoData,
3342 sizeof(InfoData));
3343
3344 /* Wait for return */
3345 if (Status == STATUS_PENDING && Overlapped == NULL)
3346 {
3347 WaitForSingleObject(SockEvent, INFINITE);
3348 Status = IOSB->Status;
3349 }
3350
3351 NtClose( SockEvent );
3352
3353 TRACE("Status %x Information %d\n", Status, IOSB->Information);
3354
3355 if (Status == STATUS_PENDING)
3356 {
3357 TRACE("Leaving (Pending)\n");
3358 return WSA_IO_PENDING;
3359 }
3360
3361 if (Status != STATUS_SUCCESS)
3362 return SOCKET_ERROR;
3363
3364 /* Return Information */
3365 if (Ulong != NULL)
3366 {
3367 *Ulong = InfoData.Information.Ulong;
3368 }
3369 if (LargeInteger != NULL)
3370 {
3371 *LargeInteger = InfoData.Information.LargeInteger;
3372 }
3373 if (Boolean != NULL)
3374 {
3375 *Boolean = InfoData.Information.Boolean;
3376 }
3377
3378 return NO_ERROR;
3379
3380 }
3381
3382
3383 int
3384 SetSocketInformation(PSOCKET_INFORMATION Socket,
3385 ULONG AfdInformationClass,
3386 PBOOLEAN Boolean OPTIONAL,
3387 PULONG Ulong OPTIONAL,
3388 PLARGE_INTEGER LargeInteger OPTIONAL,
3389 LPWSAOVERLAPPED Overlapped OPTIONAL,
3390 LPWSAOVERLAPPED_COMPLETION_ROUTINE CompletionRoutine OPTIONAL)
3391 {
3392 PIO_STATUS_BLOCK IOSB;
3393 IO_STATUS_BLOCK DummyIOSB;
3394 AFD_INFO InfoData;
3395 NTSTATUS Status;
3396 PAFDAPCCONTEXT APCContext;
3397 PIO_APC_ROUTINE APCFunction;
3398 HANDLE Event = NULL;
3399 HANDLE SockEvent;
3400
3401 Status = NtCreateEvent(&SockEvent,
3402 EVENT_ALL_ACCESS,
3403 NULL,
3404 SynchronizationEvent,
3405 FALSE);
3406
3407 if( !NT_SUCCESS(Status) )
3408 return SOCKET_ERROR;
3409
3410 /* Set Info Class */
3411 InfoData.InformationClass = AfdInformationClass;
3412
3413 /* Set Information */
3414 if (Ulong != NULL)
3415 {
3416 InfoData.Information.Ulong = *Ulong;
3417 }
3418 if (LargeInteger != NULL)
3419 {
3420 InfoData.Information.LargeInteger = *LargeInteger;
3421 }
3422 if (Boolean != NULL)
3423 {
3424 InfoData.Information.Boolean = *Boolean;
3425 }
3426
3427 /* Verify if we should use APC */
3428 if (Overlapped == NULL)
3429 {
3430 /* Not using Overlapped structure, so use normal blocking on event */
3431 APCContext = NULL;
3432 APCFunction = NULL;
3433 Event = SockEvent;
3434 IOSB = &DummyIOSB;
3435 }
3436 else
3437 {
3438 /* Overlapped request for non overlapped opened socket */
3439 if ((Socket->SharedData->CreateFlags & SO_SYNCHRONOUS_NONALERT) != 0)
3440 {
3441 TRACE("Opened without flag WSA_FLAG_OVERLAPPED. Do nothing.\n");
3442 NtClose( SockEvent );
3443 return 0;
3444 }
3445 if (CompletionRoutine == NULL)
3446 {
3447 /* Using Overlapped Structure, but no Completition Routine, so no need for APC */
3448 APCContext = (PAFDAPCCONTEXT)Overlapped;
3449 APCFunction = NULL;
3450 Event = Overlapped->hEvent;
3451 }
3452 else
3453 {
3454 /* Using Overlapped Structure and a Completition Routine, so use an APC */
3455 APCFunction = &AfdInfoAPC; // should be a private io completition function inside us
3456 APCContext = HeapAlloc(GlobalHeap, 0, sizeof(AFDAPCCONTEXT));
3457 if (!APCContext)
3458 {
3459 ERR("Not enough memory for APC Context\n");
3460 NtClose( SockEvent );
3461 return WSAEFAULT;
3462 }
3463 APCContext->lpCompletionRoutine = CompletionRoutine;
3464 APCContext->lpOverlapped = Overlapped;
3465 APCContext->lpSocket = Socket;
3466 }
3467
3468 IOSB = (PIO_STATUS_BLOCK)&Overlapped->Internal;
3469 }
3470
3471 IOSB->Status = STATUS_PENDING;
3472
3473 /* Send IOCTL */
3474 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
3475 Event,
3476 APCFunction,
3477 APCContext,
3478 IOSB,
3479 IOCTL_AFD_SET_INFO,
3480 &InfoData,
3481 sizeof(InfoData),
3482 NULL,
3483 0);
3484
3485 /* Wait for return */
3486 if (Status == STATUS_PENDING && Overlapped == NULL)
3487 {
3488 WaitForSingleObject(SockEvent, INFINITE);
3489 Status = IOSB->Status;
3490 }
3491
3492 NtClose( SockEvent );
3493
3494 TRACE("Status %x Information %d\n", Status, IOSB->Information);
3495
3496 if (Status == STATUS_PENDING)
3497 {
3498 TRACE("Leaving (Pending)\n");
3499 return WSA_IO_PENDING;
3500 }
3501
3502 return Status == STATUS_SUCCESS ? NO_ERROR : SOCKET_ERROR;
3503
3504 }
3505
3506 PSOCKET_INFORMATION
3507 GetSocketStructure(SOCKET Handle)
3508 {
3509 PSOCKET_INFORMATION CurrentSocket;
3510
3511 EnterCriticalSection(&SocketListLock);
3512
3513 CurrentSocket = SocketListHead;
3514 while (CurrentSocket)
3515 {
3516 if (CurrentSocket->Handle == Handle)
3517 {
3518 LeaveCriticalSection(&SocketListLock);
3519 return CurrentSocket;
3520 }
3521
3522 CurrentSocket = CurrentSocket->NextSocket;
3523 }
3524
3525 LeaveCriticalSection(&SocketListLock);
3526
3527 return NULL;
3528 }
3529
3530 int CreateContext(PSOCKET_INFORMATION Socket)
3531 {
3532 IO_STATUS_BLOCK IOSB;
3533 SOCKET_CONTEXT ContextData;
3534 NTSTATUS Status;
3535 HANDLE SockEvent;
3536
3537 Status = NtCreateEvent(&SockEvent,
3538 EVENT_ALL_ACCESS,
3539 NULL,
3540 SynchronizationEvent,
3541 FALSE);
3542
3543 if( !NT_SUCCESS(Status) )
3544 return SOCKET_ERROR;
3545
3546 /* Create Context */
3547 ContextData.SharedData = *Socket->SharedData;
3548 ContextData.SizeOfHelperData = 0;
3549 RtlCopyMemory (&ContextData.LocalAddress,
3550 Socket->LocalAddress,
3551 Socket->SharedData->SizeOfLocalAddress);
3552 RtlCopyMemory (&ContextData.RemoteAddress,
3553 Socket->RemoteAddress,
3554 Socket->SharedData->SizeOfRemoteAddress);
3555
3556 /* Send IOCTL */
3557 Status = NtDeviceIoControlFile((HANDLE)Socket->Handle,
3558 SockEvent,
3559 NULL,
3560 NULL,
3561 &IOSB,
3562 IOCTL_AFD_SET_CONTEXT,
3563 &ContextData,
3564 sizeof(ContextData),
3565 NULL,
3566 0);
3567
3568 /* Wait for Completion */
3569 if (Status == STATUS_PENDING)
3570 {
3571 WaitForSingleObject(SockEvent, INFINITE);
3572 Status = IOSB.Status;
3573 }
3574
3575 NtClose( SockEvent );
3576
3577 return Status == STATUS_SUCCESS ? NO_ERROR : SOCKET_ERROR;
3578 }
3579
3580 BOOLEAN SockCreateOrReferenceAsyncThread(VOID)
3581 {
3582 HANDLE hAsyncThread;
3583 DWORD AsyncThreadId;
3584 HANDLE AsyncEvent;
3585 OBJECT_HANDLE_ATTRIBUTE_INFORMATION HandleFlags;
3586 NTSTATUS Status;
3587
3588 /* Check if the Thread Already Exists */
3589 if (SockAsyncThreadRefCount)
3590 {
3591 ASSERT(SockAsyncCompletionPort);
3592 return TRUE;
3593 }
3594
3595 /* Create the Completion Port */
3596 if (!SockAsyncCompletionPort)
3597 {
3598 Status = NtCreateIoCompletion(&SockAsyncCompletionPort,
3599 IO_COMPLETION_ALL_ACCESS,
3600 NULL,
3601 2); // Allow 2 threads only
3602 if (!NT_SUCCESS(Status))
3603 {
3604 ERR("Failed to create completion port: 0x%08x\n", Status);
3605 return FALSE;
3606 }
3607 /* Protect Handle */
3608 HandleFlags.ProtectFromClose = TRUE;
3609 HandleFlags.Inherit = FALSE;
3610 Status = NtSetInformationObject(SockAsyncCompletionPort,
3611 ObjectHandleFlagInformation,
3612 &HandleFlags,
3613 sizeof(HandleFlags));
3614 }
3615
3616 /* Create the Async Event */
3617 Status = NtCreateEvent(&AsyncEvent,
3618 EVENT_ALL_ACCESS,
3619 NULL,
3620 NotificationEvent,
3621 FALSE);
3622
3623 /* Create the Async Thread */
3624 hAsyncThread = CreateThread(NULL,
3625 0,
3626 SockAsyncThread,
3627 NULL,
3628 0,
3629 &AsyncThreadId);
3630
3631 /* Close the Handle */
3632 NtClose(hAsyncThread);
3633
3634 /* Increase the Reference Count */
3635 SockAsyncThreadRefCount++;
3636 return TRUE;
3637 }
3638
3639 ULONG
3640 NTAPI
3641 SockAsyncThread(PVOID ThreadParam)
3642 {
3643 PVOID AsyncContext;
3644 PASYNC_COMPLETION_ROUTINE AsyncCompletionRoutine;
3645 IO_STATUS_BLOCK IOSB;
3646 NTSTATUS Status;
3647
3648 /* Make the Thread Higher Priority */
3649 SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_ABOVE_NORMAL);
3650
3651 /* Do a KQUEUE/WorkItem Style Loop, thanks to IoCompletion Ports */
3652 do
3653 {
3654 Status = NtRemoveIoCompletion (SockAsyncCompletionPort,
3655 (PVOID*)&AsyncCompletionRoutine,
3656 &AsyncContext,
3657 &IOSB,
3658 NULL);
3659 /* Call the Async Function */
3660 if (NT_SUCCESS(Status))
3661 {
3662 (*AsyncCompletionRoutine)(AsyncContext, &IOSB);
3663 }
3664 else
3665 {
3666 /* It Failed, sleep for a second */
3667 Sleep(1000);
3668 }
3669 } while ((Status != STATUS_TIMEOUT));
3670
3671 /* The Thread has Ended */
3672 return 0;
3673 }
3674
3675 BOOLEAN SockGetAsyncSelectHelperAfdHandle(VOID)
3676 {
3677 UNICODE_STRING AfdHelper;
3678 OBJECT_ATTRIBUTES ObjectAttributes;
3679 IO_STATUS_BLOCK IoSb;
3680 FILE_COMPLETION_INFORMATION CompletionInfo;
3681 OBJECT_HANDLE_ATTRIBUTE_INFORMATION HandleFlags;
3682
3683 /* First, make sure we're not already initialized */
3684 if (SockAsyncHelperAfdHandle)
3685 {
3686 return TRUE;
3687 }
3688
3689 /* Set up Handle Name and Object */
3690 RtlInitUnicodeString(&AfdHelper, L"\\Device\\Afd\\AsyncSelectHlp" );
3691 InitializeObjectAttributes(&ObjectAttributes,
3692 &AfdHelper,
3693 OBJ_INHERIT | OBJ_CASE_INSENSITIVE,
3694 NULL,
3695 NULL);
3696
3697 /* Open the Handle to AFD */
3698 NtCreateFile(&SockAsyncHelperAfdHandle,
3699 GENERIC_READ | GENERIC_WRITE | SYNCHRONIZE,
3700 &ObjectAttributes,
3701 &IoSb,
3702 NULL,
3703 0,
3704 FILE_SHARE_READ | FILE_SHARE_WRITE,
3705 FILE_OPEN_IF,
3706 0,
3707 NULL,
3708 0);
3709
3710 /*
3711 * Now Set up the Completion Port Information
3712 * This means that whenever a Poll is finished, the routine will be executed
3713 */
3714 CompletionInfo.Port = SockAsyncCompletionPort;
3715 CompletionInfo.Key = SockAsyncSelectCompletionRoutine;
3716 NtSetInformationFile(SockAsyncHelperAfdHandle,
3717 &IoSb,
3718 &CompletionInfo,
3719 sizeof(CompletionInfo),
3720 FileCompletionInformation);
3721
3722
3723 /* Protect the Handle */
3724 HandleFlags.ProtectFromClose = TRUE;
3725 HandleFlags.Inherit = FALSE;
3726 NtSetInformationObject(SockAsyncCompletionPort,
3727 ObjectHandleFlagInformation,
3728 &HandleFlags,
3729 sizeof(HandleFlags));
3730
3731
3732 /* Set this variable to true so that Send/Recv/Accept will know wether to renable disabled events */
3733 SockAsyncSelectCalled = TRUE;
3734 return TRUE;
3735 }
3736
3737 VOID SockAsyncSelectCompletionRoutine(PVOID Context, PIO_STATUS_BLOCK IoStatusBlock)
3738 {
3739
3740 PASYNC_DATA AsyncData = Context;
3741 PSOCKET_INFORMATION Socket;
3742 ULONG x;
3743
3744 /* Get the Socket */
3745 Socket = AsyncData->ParentSocket;
3746
3747 /* Check if the Sequence Number Changed behind our back */
3748 if (AsyncData->SequenceNumber != Socket->SharedData->SequenceNumber )
3749 {
3750 return;
3751 }
3752
3753 /* Check we were manually called b/c of a failure */
3754 if (!NT_SUCCESS(IoStatusBlock->Status))
3755 {
3756 /* FIXME: Perform Upcall */
3757 return;
3758 }
3759
3760 for (x = 1; x; x<<=1)
3761 {
3762 switch (AsyncData->AsyncSelectInfo.Handles[0].Events & x)
3763 {
3764 case AFD_EVENT_RECEIVE:
3765 if (0 != (Socket->SharedData->AsyncEvents & FD_READ) &&
3766 0 == (Socket->SharedData->AsyncDisabledEvents & FD_READ))
3767 {
3768 /* Make the Notification */
3769 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3770 Socket->SharedData->wMsg,
3771 Socket->Handle,
3772 WSAMAKESELECTREPLY(FD_READ, 0));
3773 /* Disable this event until the next read(); */
3774 Socket->SharedData->AsyncDisabledEvents |= FD_READ;
3775 }
3776 break;
3777
3778 case AFD_EVENT_OOB_RECEIVE:
3779 if (0 != (Socket->SharedData->AsyncEvents & FD_OOB) &&
3780 0 == (Socket->SharedData->AsyncDisabledEvents & FD_OOB))
3781 {
3782 /* Make the Notification */
3783 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3784 Socket->SharedData->wMsg,
3785 Socket->Handle,
3786 WSAMAKESELECTREPLY(FD_OOB, 0));
3787 /* Disable this event until the next read(); */
3788 Socket->SharedData->AsyncDisabledEvents |= FD_OOB;
3789 }
3790 break;
3791
3792 case AFD_EVENT_SEND:
3793 if (0 != (Socket->SharedData->AsyncEvents & FD_WRITE) &&
3794 0 == (Socket->SharedData->AsyncDisabledEvents & FD_WRITE))
3795 {
3796 /* Make the Notification */
3797 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3798 Socket->SharedData->wMsg,
3799 Socket->Handle,
3800 WSAMAKESELECTREPLY(FD_WRITE, 0));
3801 /* Disable this event until the next write(); */
3802 Socket->SharedData->AsyncDisabledEvents |= FD_WRITE;
3803 }
3804 break;
3805
3806 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
3807 case AFD_EVENT_CONNECT:
3808 case AFD_EVENT_CONNECT_FAIL:
3809 if (0 != (Socket->SharedData->AsyncEvents & FD_CONNECT) &&
3810 0 == (Socket->SharedData->AsyncDisabledEvents & FD_CONNECT))
3811 {
3812 /* Make the Notification */
3813 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3814 Socket->SharedData->wMsg,
3815 Socket->Handle,
3816 WSAMAKESELECTREPLY(FD_CONNECT, 0));
3817 /* Disable this event forever; */
3818 Socket->SharedData->AsyncDisabledEvents |= FD_CONNECT;
3819 }
3820 break;
3821
3822 case AFD_EVENT_ACCEPT:
3823 if (0 != (Socket->SharedData->AsyncEvents & FD_ACCEPT) &&
3824 0 == (Socket->SharedData->AsyncDisabledEvents & FD_ACCEPT))
3825 {
3826 /* Make the Notification */
3827 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3828 Socket->SharedData->wMsg,
3829 Socket->Handle,
3830 WSAMAKESELECTREPLY(FD_ACCEPT, 0));
3831 /* Disable this event until the next accept(); */
3832 Socket->SharedData->AsyncDisabledEvents |= FD_ACCEPT;
3833 }
3834 break;
3835
3836 case AFD_EVENT_DISCONNECT:
3837 case AFD_EVENT_ABORT:
3838 case AFD_EVENT_CLOSE:
3839 if (0 != (Socket->SharedData->AsyncEvents & FD_CLOSE) &&
3840 0 == (Socket->SharedData->AsyncDisabledEvents & FD_CLOSE))
3841 {
3842 /* Make the Notification */
3843 (Upcalls.lpWPUPostMessage)(Socket->SharedData->hWnd,
3844 Socket->SharedData->wMsg,
3845 Socket->Handle,
3846 WSAMAKESELECTREPLY(FD_CLOSE, 0));
3847 /* Disable this event forever; */
3848 Socket->SharedData->AsyncDisabledEvents |= FD_CLOSE;
3849 }
3850 break;
3851 /* FIXME: Support QOS */
3852 }
3853 }
3854
3855 /* Check if there are any events left for us to check */
3856 if ((Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents)) == 0 )
3857 {
3858 return;
3859 }
3860
3861 /* Keep Polling */
3862 SockProcessAsyncSelect(Socket, AsyncData);
3863 return;
3864 }
3865
3866 VOID SockProcessAsyncSelect(PSOCKET_INFORMATION Socket, PASYNC_DATA AsyncData)
3867 {
3868
3869 ULONG lNetworkEvents;
3870 NTSTATUS Status;
3871
3872 /* Set up the Async Data Event Info */
3873 AsyncData->AsyncSelectInfo.Timeout.HighPart = 0x7FFFFFFF;
3874 AsyncData->AsyncSelectInfo.Timeout.LowPart = 0xFFFFFFFF;
3875 AsyncData->AsyncSelectInfo.HandleCount = 1;
3876 AsyncData->AsyncSelectInfo.Exclusive = TRUE;
3877 AsyncData->AsyncSelectInfo.Handles[0].Handle = Socket->Handle;
3878 AsyncData->AsyncSelectInfo.Handles[0].Events = 0;
3879
3880 /* Remove unwanted events */
3881 lNetworkEvents = Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents);
3882
3883 /* Set Events to wait for */
3884 if (lNetworkEvents & FD_READ)
3885 {
3886 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_RECEIVE;
3887 }
3888
3889 if (lNetworkEvents & FD_WRITE)
3890 {
3891 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_SEND;
3892 }
3893
3894 if (lNetworkEvents & FD_OOB)
3895 {
3896 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_OOB_RECEIVE;
3897 }
3898
3899 if (lNetworkEvents & FD_ACCEPT)
3900 {
3901 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_ACCEPT;
3902 }
3903
3904 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
3905 if (lNetworkEvents & FD_CONNECT)
3906 {
3907 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_CONNECT | AFD_EVENT_CONNECT_FAIL;
3908 }
3909
3910 if (lNetworkEvents & FD_CLOSE)
3911 {
3912 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_DISCONNECT | AFD_EVENT_ABORT | AFD_EVENT_CLOSE;
3913 }
3914
3915 if (lNetworkEvents & FD_QOS)
3916 {
3917 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_QOS;
3918 }
3919
3920 if (lNetworkEvents & FD_GROUP_QOS)
3921 {
3922 AsyncData->AsyncSelectInfo.Handles[0].Events |= AFD_EVENT_GROUP_QOS;
3923 }
3924
3925 /* Send IOCTL */
3926 Status = NtDeviceIoControlFile (SockAsyncHelperAfdHandle,
3927 NULL,
3928 NULL,
3929 AsyncData,
3930 &AsyncData->IoStatusBlock,
3931 IOCTL_AFD_SELECT,
3932 &AsyncData->AsyncSelectInfo,
3933 sizeof(AsyncData->AsyncSelectInfo),
3934 &AsyncData->AsyncSelectInfo,
3935 sizeof(AsyncData->AsyncSelectInfo));
3936
3937 /* I/O Manager Won't call the completion routine, let's do it manually */
3938 if (NT_SUCCESS(Status))
3939 {
3940 return;
3941 }
3942 else
3943 {
3944 AsyncData->IoStatusBlock.Status = Status;
3945 SockAsyncSelectCompletionRoutine(AsyncData, &AsyncData->IoStatusBlock);
3946 }
3947 }
3948
3949 VOID SockProcessQueuedAsyncSelect(PVOID Context, PIO_STATUS_BLOCK IoStatusBlock)
3950 {
3951 PASYNC_DATA AsyncData = Context;
3952 BOOL FreeContext = TRUE;
3953 PSOCKET_INFORMATION Socket;
3954
3955 /* Get the Socket */
3956 Socket = AsyncData->ParentSocket;
3957
3958 /* If someone closed it, stop the function */
3959 if (Socket->SharedData->State != SocketClosed)
3960 {
3961 /* Check if the Sequence Number changed by now, in which case quit */
3962 if (AsyncData->SequenceNumber == Socket->SharedData->SequenceNumber)
3963 {
3964 /* Do the actual select, if needed */
3965 if ((Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents)))
3966 {
3967 SockProcessAsyncSelect(Socket, AsyncData);
3968 FreeContext = FALSE;
3969 }
3970 }
3971 }
3972
3973 /* Free the Context */
3974 if (FreeContext)
3975 {
3976 HeapFree(GetProcessHeap(), 0, AsyncData);
3977 }
3978
3979 return;
3980 }
3981
3982 VOID
3983 SockReenableAsyncSelectEvent (IN PSOCKET_INFORMATION Socket,
3984 IN ULONG Event)
3985 {
3986 PASYNC_DATA AsyncData;
3987
3988 /* Make sure the event is actually disabled */
3989 if (!(Socket->SharedData->AsyncDisabledEvents & Event))
3990 {
3991 return;
3992 }
3993
3994 /* Re-enable it */
3995 Socket->SharedData->AsyncDisabledEvents &= ~Event;
3996
3997 /* Return if no more events are being polled */
3998 if ((Socket->SharedData->AsyncEvents & (~Socket->SharedData->AsyncDisabledEvents)) == 0 )
3999 {
4000 return;
4001 }
4002
4003 /* Wait on new events */
4004 AsyncData = HeapAlloc(GetProcessHeap(), 0, sizeof(ASYNC_DATA));
4005 if (!AsyncData) return;
4006
4007 /* Create the Asynch Thread if Needed */
4008 SockCreateOrReferenceAsyncThread();
4009
4010 /* Increase the sequence number to stop anything else */
4011 Socket->SharedData->SequenceNumber++;
4012
4013 /* Set up the Async Data */
4014 AsyncData->ParentSocket = Socket;
4015 AsyncData->SequenceNumber = Socket->SharedData->SequenceNumber;
4016
4017 /* Begin Async Select by using I/O Completion */
4018 NtSetIoCompletion(SockAsyncCompletionPort,
4019 (PVOID)&SockProcessQueuedAsyncSelect,
4020 AsyncData,
4021 0,
4022 0);
4023
4024 /* All done */
4025 return;
4026 }
4027
4028 BOOL
4029 WINAPI
4030 DllMain(HANDLE hInstDll,
4031 ULONG dwReason,
4032 PVOID Reserved)
4033 {
4034
4035 switch (dwReason)
4036 {
4037 case DLL_PROCESS_ATTACH:
4038
4039 TRACE("Loading MSAFD.DLL \n");
4040
4041 /* Don't need thread attach notifications
4042 so disable them to improve performance */
4043 DisableThreadLibraryCalls(hInstDll);
4044
4045 /* List of DLL Helpers */
4046 InitializeListHead(&SockHelpersListHead);
4047
4048 /* Heap to use when allocating */
4049 GlobalHeap = GetProcessHeap();
4050
4051 /* Initialize the lock that protects our socket list */
4052 InitializeCriticalSection(&SocketListLock);
4053
4054 TRACE("MSAFD.DLL has been loaded\n");
4055
4056 break;
4057
4058 case DLL_THREAD_ATTACH:
4059 break;
4060
4061 case DLL_THREAD_DETACH:
4062 break;
4063
4064 case DLL_PROCESS_DETACH:
4065
4066 /* Delete the socket list lock */
4067 DeleteCriticalSection(&SocketListLock);
4068
4069 break;
4070 }
4071
4072 TRACE("DllMain of msafd.dll (leaving)\n");
4073
4074 return TRUE;
4075 }
4076
4077 /* EOF */
A free Windows-compatible Operating System