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)
9 * CSH 01/09-2000 Created
10 * Alex 16/07/2004 - Complete Rewrite
19 WSPUPCALLTABLE Upcalls
;
20 DWORD CatalogEntryId
; /* CatalogEntryId for upcalls */
21 LPWPUCOMPLETEOVERLAPPEDREQUEST lpWPUCompleteOverlappedRequest
;
22 PSOCKET_INFORMATION SocketListHead
= NULL
;
23 CRITICAL_SECTION SocketListLock
;
24 LIST_ENTRY SockHelpersListHead
= { NULL
, NULL
};
25 ULONG SockAsyncThreadRefCount
;
26 HANDLE SockAsyncHelperAfdHandle
;
27 HANDLE SockAsyncCompletionPort
= NULL
;
28 BOOLEAN SockAsyncSelectCalled
;
33 * FUNCTION: Creates a new socket
37 * protocol = Protocol type
38 * lpProtocolInfo = Pointer to protocol information
40 * dwFlags = Socket flags
41 * lpErrno = Address of buffer for error information
43 * Created socket, or INVALID_SOCKET if it could not be created
47 WSPSocket(int AddressFamily
,
50 LPWSAPROTOCOL_INFOW lpProtocolInfo
,
55 OBJECT_ATTRIBUTES Object
;
59 PAFD_CREATE_PACKET AfdPacket
;
61 PSOCKET_INFORMATION Socket
= NULL
;
62 PFILE_FULL_EA_INFORMATION EABuffer
= NULL
;
63 PHELPER_DATA HelperData
;
64 PVOID HelperDLLContext
;
66 UNICODE_STRING TransportName
;
67 UNICODE_STRING DevName
;
68 LARGE_INTEGER GroupData
;
70 PSOCK_SHARED_INFO SharedData
= NULL
;
72 TRACE("Creating Socket, getting TDI Name - AddressFamily (%d) SocketType (%d) Protocol (%d).\n",
73 AddressFamily
, SocketType
, Protocol
);
75 if (lpProtocolInfo
&& lpProtocolInfo
->dwServiceFlags3
!= 0 && lpProtocolInfo
->dwServiceFlags4
!= 0)
77 /* Duplpicating socket from different process */
78 if ((HANDLE
)lpProtocolInfo
->dwServiceFlags3
== INVALID_HANDLE_VALUE
)
83 if ((HANDLE
)lpProtocolInfo
->dwServiceFlags4
== INVALID_HANDLE_VALUE
)
88 SharedData
= MapViewOfFile((HANDLE
)lpProtocolInfo
->dwServiceFlags3
,
92 sizeof(SOCK_SHARED_INFO
));
98 InterlockedIncrement(&SharedData
->RefCount
);
99 AddressFamily
= SharedData
->AddressFamily
;
100 SocketType
= SharedData
->SocketType
;
101 Protocol
= SharedData
->Protocol
;
104 if (AddressFamily
== AF_UNSPEC
&& SocketType
== 0 && Protocol
== 0)
110 /* Set the defaults */
111 if (AddressFamily
== AF_UNSPEC
)
112 AddressFamily
= AF_INET
;
119 SocketType
= SOCK_STREAM
;
122 SocketType
= SOCK_DGRAM
;
125 SocketType
= SOCK_RAW
;
128 TRACE("Unknown Protocol (%d). We will try SOCK_STREAM.\n", Protocol
);
129 SocketType
= SOCK_STREAM
;
139 Protocol
= IPPROTO_TCP
;
142 Protocol
= IPPROTO_UDP
;
145 Protocol
= IPPROTO_RAW
;
148 TRACE("Unknown SocketType (%d). We will try IPPROTO_TCP.\n", SocketType
);
149 Protocol
= IPPROTO_TCP
;
154 /* Get Helper Data and Transport */
155 Status
= SockGetTdiName (&AddressFamily
,
165 /* Check for error */
166 if (Status
!= NO_ERROR
)
168 ERR("SockGetTdiName: Status %x\n", Status
);
172 /* AFD Device Name */
173 RtlInitUnicodeString(&DevName
, L
"\\Device\\Afd\\Endpoint");
175 /* Set Socket Data */
176 Socket
= HeapAlloc(GlobalHeap
, 0, sizeof(*Socket
));
182 RtlZeroMemory(Socket
, sizeof(*Socket
));
185 Socket
->SharedData
= SharedData
;
186 Socket
->SharedDataHandle
= (HANDLE
)lpProtocolInfo
->dwServiceFlags3
;
187 Sock
= (HANDLE
)lpProtocolInfo
->dwServiceFlags4
;
188 Socket
->Handle
= (SOCKET
)lpProtocolInfo
->dwServiceFlags4
;
192 Socket
->SharedDataHandle
= INVALID_HANDLE_VALUE
;
193 Socket
->SharedData
= HeapAlloc(GlobalHeap
, 0, sizeof(*Socket
->SharedData
));
194 if (!Socket
->SharedData
)
199 RtlZeroMemory(Socket
->SharedData
, sizeof(*Socket
->SharedData
));
200 Socket
->SharedData
->State
= SocketOpen
;
201 Socket
->SharedData
->RefCount
= 1L;
202 Socket
->SharedData
->Listening
= FALSE
;
203 Socket
->SharedData
->AddressFamily
= AddressFamily
;
204 Socket
->SharedData
->SocketType
= SocketType
;
205 Socket
->SharedData
->Protocol
= Protocol
;
206 Socket
->SharedData
->SizeOfLocalAddress
= HelperData
->MaxWSAddressLength
;
207 Socket
->SharedData
->SizeOfRemoteAddress
= HelperData
->MaxWSAddressLength
;
208 Socket
->SharedData
->UseDelayedAcceptance
= HelperData
->UseDelayedAcceptance
;
209 Socket
->SharedData
->CreateFlags
= dwFlags
;
210 Socket
->SharedData
->ServiceFlags1
= lpProtocolInfo
->dwServiceFlags1
;
211 Socket
->SharedData
->ProviderFlags
= lpProtocolInfo
->dwProviderFlags
;
212 Socket
->SharedData
->UseSAN
= FALSE
;
213 Socket
->SharedData
->NonBlocking
= FALSE
; /* Sockets start blocking */
214 Socket
->SharedData
->RecvTimeout
= INFINITE
;
215 Socket
->SharedData
->SendTimeout
= INFINITE
;
216 Socket
->SharedData
->OobInline
= FALSE
;
218 /* Ask alex about this */
219 if( Socket
->SharedData
->SocketType
== SOCK_DGRAM
||
220 Socket
->SharedData
->SocketType
== SOCK_RAW
)
222 TRACE("Connectionless socket\n");
223 Socket
->SharedData
->ServiceFlags1
|= XP1_CONNECTIONLESS
;
225 Socket
->Handle
= INVALID_SOCKET
;
228 Socket
->HelperContext
= HelperDLLContext
;
229 Socket
->HelperData
= HelperData
;
230 Socket
->HelperEvents
= HelperEvents
;
231 Socket
->LocalAddress
= &Socket
->SharedData
->WSLocalAddress
;
232 Socket
->RemoteAddress
= &Socket
->SharedData
->WSRemoteAddress
;
233 Socket
->SanData
= NULL
;
234 RtlCopyMemory(&Socket
->ProtocolInfo
, lpProtocolInfo
, sizeof(Socket
->ProtocolInfo
));
239 SizeOfPacket
= TransportName
.Length
+ sizeof(AFD_CREATE_PACKET
) + sizeof(WCHAR
);
242 SizeOfEA
= SizeOfPacket
+ sizeof(FILE_FULL_EA_INFORMATION
) + AFD_PACKET_COMMAND_LENGTH
;
244 /* Set up EA Buffer */
245 EABuffer
= HeapAlloc(GlobalHeap
, 0, SizeOfEA
);
252 RtlZeroMemory(EABuffer
, SizeOfEA
);
253 EABuffer
->NextEntryOffset
= 0;
255 EABuffer
->EaNameLength
= AFD_PACKET_COMMAND_LENGTH
;
256 RtlCopyMemory (EABuffer
->EaName
,
258 AFD_PACKET_COMMAND_LENGTH
+ 1);
259 EABuffer
->EaValueLength
= SizeOfPacket
;
261 /* Set up AFD Packet */
262 AfdPacket
= (PAFD_CREATE_PACKET
)(EABuffer
->EaName
+ EABuffer
->EaNameLength
+ 1);
263 AfdPacket
->SizeOfTransportName
= TransportName
.Length
;
264 RtlCopyMemory (AfdPacket
->TransportName
,
265 TransportName
.Buffer
,
266 TransportName
.Length
+ sizeof(WCHAR
));
267 AfdPacket
->GroupID
= g
;
269 /* Set up Endpoint Flags */
270 if ((Socket
->SharedData
->ServiceFlags1
& XP1_CONNECTIONLESS
) != 0)
272 if ((SocketType
!= SOCK_DGRAM
) && (SocketType
!= SOCK_RAW
))
274 /* Only RAW or UDP can be Connectionless */
278 AfdPacket
->EndpointFlags
|= AFD_ENDPOINT_CONNECTIONLESS
;
281 if ((Socket
->SharedData
->ServiceFlags1
& XP1_MESSAGE_ORIENTED
) != 0)
283 if (SocketType
== SOCK_STREAM
)
285 if ((Socket
->SharedData
->ServiceFlags1
& XP1_PSEUDO_STREAM
) == 0)
287 /* The Provider doesn't actually support Message Oriented Streams */
292 AfdPacket
->EndpointFlags
|= AFD_ENDPOINT_MESSAGE_ORIENTED
;
295 if (SocketType
== SOCK_RAW
) AfdPacket
->EndpointFlags
|= AFD_ENDPOINT_RAW
;
297 if (dwFlags
& (WSA_FLAG_MULTIPOINT_C_ROOT
|
298 WSA_FLAG_MULTIPOINT_C_LEAF
|
299 WSA_FLAG_MULTIPOINT_D_ROOT
|
300 WSA_FLAG_MULTIPOINT_D_LEAF
))
302 if ((Socket
->SharedData
->ServiceFlags1
& XP1_SUPPORT_MULTIPOINT
) == 0)
304 /* The Provider doesn't actually support Multipoint */
308 AfdPacket
->EndpointFlags
|= AFD_ENDPOINT_MULTIPOINT
;
310 if (dwFlags
& WSA_FLAG_MULTIPOINT_C_ROOT
)
312 if (((Socket
->SharedData
->ServiceFlags1
& XP1_MULTIPOINT_CONTROL_PLANE
) == 0)
313 || ((dwFlags
& WSA_FLAG_MULTIPOINT_C_LEAF
) != 0))
315 /* The Provider doesn't support Control Planes, or you already gave a leaf */
319 AfdPacket
->EndpointFlags
|= AFD_ENDPOINT_C_ROOT
;
322 if (dwFlags
& WSA_FLAG_MULTIPOINT_D_ROOT
)
324 if (((Socket
->SharedData
->ServiceFlags1
& XP1_MULTIPOINT_DATA_PLANE
) == 0)
325 || ((dwFlags
& WSA_FLAG_MULTIPOINT_D_LEAF
) != 0))
327 /* The Provider doesn't support Data Planes, or you already gave a leaf */
331 AfdPacket
->EndpointFlags
|= AFD_ENDPOINT_D_ROOT
;
335 /* Set up Object Attributes */
336 InitializeObjectAttributes (&Object
,
338 OBJ_CASE_INSENSITIVE
| OBJ_INHERIT
,
342 /* Create the Socket as asynchronous. That means we have to block
343 ourselves after every call to NtDeviceIoControlFile. This is
344 because the kernel doesn't support overlapping synchronous I/O
345 requests (made from multiple threads) at this time (Sep 2005) */
346 Status
= NtCreateFile(&Sock
,
347 GENERIC_READ
| GENERIC_WRITE
| SYNCHRONIZE
,
352 FILE_SHARE_READ
| FILE_SHARE_WRITE
,
358 HeapFree(GlobalHeap
, 0, EABuffer
);
360 if (!NT_SUCCESS(Status
))
362 ERR("Failed to open socket. Status 0x%08x\n", Status
);
363 Status
= TranslateNtStatusError(Status
);
368 Socket
->Handle
= (SOCKET
)Sock
;
370 /* Save Group Info */
373 GetSocketInformation(Socket
,
374 AFD_INFO_GROUP_ID_TYPE
,
380 Socket
->SharedData
->GroupID
= GroupData
.u
.LowPart
;
381 Socket
->SharedData
->GroupType
= GroupData
.u
.HighPart
;
384 /* Get Window Sizes and Save them */
385 GetSocketInformation (Socket
,
386 AFD_INFO_SEND_WINDOW_SIZE
,
388 &Socket
->SharedData
->SizeOfSendBuffer
,
393 GetSocketInformation (Socket
,
394 AFD_INFO_RECEIVE_WINDOW_SIZE
,
396 &Socket
->SharedData
->SizeOfRecvBuffer
,
402 /* Save in Process Sockets List */
403 EnterCriticalSection(&SocketListLock
);
404 Socket
->NextSocket
= SocketListHead
;
405 SocketListHead
= Socket
;
406 LeaveCriticalSection(&SocketListLock
);
408 /* Create the Socket Context */
409 CreateContext(Socket
);
412 Upcalls
.lpWPUModifyIFSHandle(Socket
->ProtocolInfo
.dwCatalogEntryId
, (SOCKET
)Sock
, lpErrno
);
414 /* Return Socket Handle */
415 TRACE("Success %x\n", Sock
);
420 ERR("Ending %x\n", Status
);
424 UnmapViewOfFile(SharedData
);
425 NtClose((HANDLE
)lpProtocolInfo
->dwServiceFlags3
);
429 if( Socket
&& Socket
->SharedData
)
430 HeapFree(GlobalHeap
, 0, Socket
->SharedData
);
434 HeapFree(GlobalHeap
, 0, Socket
);
437 HeapFree(GlobalHeap
, 0, EABuffer
);
442 return INVALID_SOCKET
;
450 IN DWORD dwProcessId
,
451 OUT LPWSAPROTOCOL_INFOW lpProtocolInfo
,
454 HANDLE hProcess
, hDuplicatedSharedData
, hDuplicatedHandle
;
455 PSOCKET_INFORMATION Socket
;
456 PSOCK_SHARED_INFO pSharedData
, pOldSharedData
;
459 if (Handle
== INVALID_SOCKET
)
460 return MsafdReturnWithErrno(STATUS_INVALID_PARAMETER
, lpErrno
, 0, NULL
);
461 Socket
= GetSocketStructure(Handle
);
465 *lpErrno
= WSAENOTSOCK
;
468 if ( !(hProcess
= OpenProcess(PROCESS_DUP_HANDLE
, FALSE
, dwProcessId
)) )
469 return MsafdReturnWithErrno(STATUS_INVALID_PARAMETER
, lpErrno
, 0, NULL
);
471 /* It is a not yet duplicated socket, so map the memory, copy the SharedData and free heap */
472 if( Socket
->SharedDataHandle
== INVALID_HANDLE_VALUE
)
474 Socket
->SharedDataHandle
= CreateFileMapping(INVALID_HANDLE_VALUE
,
476 PAGE_READWRITE
| SEC_COMMIT
,
478 (sizeof(SOCK_SHARED_INFO
) + PAGE_SIZE
- 1) & ~(PAGE_SIZE
- 1),
480 if( Socket
->SharedDataHandle
== INVALID_HANDLE_VALUE
)
481 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES
, lpErrno
, 0, NULL
);
482 pSharedData
= MapViewOfFile(Socket
->SharedDataHandle
,
486 sizeof(SOCK_SHARED_INFO
));
488 RtlCopyMemory(pSharedData
, Socket
->SharedData
, sizeof(SOCK_SHARED_INFO
));
489 pOldSharedData
= Socket
->SharedData
;
490 Socket
->SharedData
= pSharedData
;
491 HeapFree(GlobalHeap
, 0, pOldSharedData
);
493 /* Duplicate the handles for the new process */
494 bDuplicated
= DuplicateHandle(GetCurrentProcess(),
495 Socket
->SharedDataHandle
,
497 (LPHANDLE
)&hDuplicatedSharedData
,
500 DUPLICATE_SAME_ACCESS
);
504 return MsafdReturnWithErrno(STATUS_ACCESS_DENIED
, lpErrno
, 0, NULL
);
506 bDuplicated
= DuplicateHandle(GetCurrentProcess(),
507 (HANDLE
)Socket
->Handle
,
509 (LPHANDLE
)&hDuplicatedHandle
,
512 DUPLICATE_SAME_ACCESS
);
515 return MsafdReturnWithErrno(STATUS_ACCESS_DENIED
, lpErrno
, 0, NULL
);
519 return MsafdReturnWithErrno(STATUS_ACCESS_VIOLATION
, lpErrno
, 0, NULL
);
521 RtlCopyMemory(lpProtocolInfo
, &Socket
->ProtocolInfo
, sizeof(*lpProtocolInfo
));
523 lpProtocolInfo
->iAddressFamily
= Socket
->SharedData
->AddressFamily
;
524 lpProtocolInfo
->iProtocol
= Socket
->SharedData
->Protocol
;
525 lpProtocolInfo
->iSocketType
= Socket
->SharedData
->SocketType
;
526 lpProtocolInfo
->dwServiceFlags3
= (DWORD
)hDuplicatedSharedData
;
527 lpProtocolInfo
->dwServiceFlags4
= (DWORD
)hDuplicatedHandle
;
536 TranslateNtStatusError(NTSTATUS Status
)
540 case STATUS_CANT_WAIT
:
541 return WSAEWOULDBLOCK
;
549 case STATUS_FILE_CLOSED
:
550 return WSAECONNRESET
;
552 case STATUS_END_OF_FILE
:
556 return WSA_IO_PENDING
;
558 case STATUS_BUFFER_TOO_SMALL
:
559 case STATUS_BUFFER_OVERFLOW
:
562 case STATUS_NO_MEMORY
:
563 case STATUS_INSUFFICIENT_RESOURCES
:
566 case STATUS_INVALID_CONNECTION
:
569 case STATUS_PROTOCOL_NOT_SUPPORTED
:
570 return WSAEAFNOSUPPORT
;
572 case STATUS_INVALID_ADDRESS
:
573 return WSAEADDRNOTAVAIL
;
575 case STATUS_REMOTE_NOT_LISTENING
:
576 case STATUS_REMOTE_DISCONNECT
:
577 return WSAECONNREFUSED
;
579 case STATUS_NETWORK_UNREACHABLE
:
580 return WSAENETUNREACH
;
582 case STATUS_INVALID_PARAMETER
:
585 case STATUS_CANCELLED
:
586 return WSA_OPERATION_ABORTED
;
588 case STATUS_ADDRESS_ALREADY_EXISTS
:
589 return WSAEADDRINUSE
;
591 case STATUS_LOCAL_DISCONNECT
:
592 return WSAECONNABORTED
;
594 case STATUS_ACCESS_VIOLATION
:
597 case STATUS_ACCESS_DENIED
:
600 case STATUS_NOT_IMPLEMENTED
:
601 return WSAEOPNOTSUPP
;
604 ERR("MSAFD: Unhandled NTSTATUS value: 0x%x\n", Status
);
610 * FUNCTION: Closes an open socket
612 * s = Socket descriptor
613 * lpErrno = Address of buffer for error information
615 * NO_ERROR, or SOCKET_ERROR if the socket could not be closed
619 WSPCloseSocket(IN SOCKET Handle
,
622 IO_STATUS_BLOCK IoStatusBlock
;
623 PSOCKET_INFORMATION Socket
= NULL
, CurrentSocket
;
626 AFD_DISCONNECT_INFO DisconnectInfo
;
627 SOCKET_STATE OldState
;
628 LONG LingerWait
= -1;
631 /* Get the Socket Structure associate to this Socket*/
632 Socket
= GetSocketStructure(Handle
);
635 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
639 /* Create the Wait Event */
640 Status
= NtCreateEvent(&SockEvent
,
643 SynchronizationEvent
,
646 if(!NT_SUCCESS(Status
))
648 ERR("NtCreateEvent failed: 0x%08x", Status
);
652 if (Socket
->HelperEvents
& WSH_NOTIFY_CLOSE
)
654 Status
= Socket
->HelperData
->WSHNotify(Socket
->HelperContext
,
656 Socket
->TdiAddressHandle
,
657 Socket
->TdiConnectionHandle
,
662 if (lpErrno
) *lpErrno
= Status
;
663 ERR("WSHNotify failed. Error 0x%#x", Status
);
669 /* If a Close is already in Process, give up */
670 if (Socket
->SharedData
->State
== SocketClosed
)
672 WARN("Socket is closing.\n");
674 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
678 /* Decrement reference count on SharedData */
679 References
= InterlockedDecrement(&Socket
->SharedData
->RefCount
);
683 /* Set the state to close */
684 OldState
= Socket
->SharedData
->State
;
685 Socket
->SharedData
->State
= SocketClosed
;
687 /* If SO_LINGER is ON and the Socket is connected, we need to disconnect */
688 /* FIXME: Should we do this on Datagram Sockets too? */
689 if ((OldState
== SocketConnected
) && (Socket
->SharedData
->LingerData
.l_onoff
))
691 ULONG SendsInProgress
;
694 /* We need to respect the timeout */
696 LingerWait
= Socket
->SharedData
->LingerData
.l_linger
* 1000;
698 /* Loop until no more sends are pending, within the timeout */
701 /* Find out how many Sends are in Progress */
702 if (GetSocketInformation(Socket
,
703 AFD_INFO_SENDS_IN_PROGRESS
,
710 /* Bail out if anything but NO_ERROR */
715 /* Bail out if no more sends are pending */
716 if (!SendsInProgress
)
723 * We have to execute a sleep, so it's kind of like
724 * a block. If the socket is Nonblock, we cannot
725 * go on since asynchronous operation is expected
726 * and we cannot offer it
728 if (Socket
->SharedData
->NonBlocking
)
730 WARN("Would block!\n");
732 Socket
->SharedData
->State
= OldState
;
733 if (lpErrno
) *lpErrno
= WSAEWOULDBLOCK
;
737 /* Now we can sleep, and decrement the linger wait */
739 * FIXME: It seems Windows does some funky acceleration
740 * since the waiting seems to be longer and longer. I
741 * don't think this improves performance so much, so we
742 * wait a fixed time instead.
745 LingerWait
-= SleepWait
;
749 if (OldState
== SocketConnected
)
753 DisconnectInfo
.Timeout
= RtlConvertLongToLargeInteger(0);
754 DisconnectInfo
.DisconnectType
= LingerWait
< 0 ? AFD_DISCONNECT_SEND
: AFD_DISCONNECT_ABORT
;
756 if (((DisconnectInfo
.DisconnectType
& AFD_DISCONNECT_SEND
) && (!Socket
->SharedData
->SendShutdown
)) ||
757 ((DisconnectInfo
.DisconnectType
& AFD_DISCONNECT_ABORT
) && (!Socket
->SharedData
->ReceiveShutdown
)))
760 Status
= NtDeviceIoControlFile((HANDLE
)Handle
,
765 IOCTL_AFD_DISCONNECT
,
767 sizeof(DisconnectInfo
),
771 /* Wait for return */
772 if (Status
== STATUS_PENDING
)
774 WaitForSingleObject(SockEvent
, INFINITE
);
775 Status
= IoStatusBlock
.Status
;
782 Socket
->HelperContext
= NULL
;
783 Socket
->SharedData
->AsyncDisabledEvents
= -1;
784 NtClose(Socket
->TdiAddressHandle
);
785 Socket
->TdiAddressHandle
= NULL
;
786 NtClose(Socket
->TdiConnectionHandle
);
787 Socket
->TdiConnectionHandle
= NULL
;
789 EnterCriticalSection(&SocketListLock
);
790 if (SocketListHead
== Socket
)
792 SocketListHead
= SocketListHead
->NextSocket
;
796 CurrentSocket
= SocketListHead
;
797 while (CurrentSocket
->NextSocket
)
799 if (CurrentSocket
->NextSocket
== Socket
)
801 CurrentSocket
->NextSocket
= CurrentSocket
->NextSocket
->NextSocket
;
805 CurrentSocket
= CurrentSocket
->NextSocket
;
808 LeaveCriticalSection(&SocketListLock
);
810 /* Close the handle */
811 NtClose((HANDLE
)Handle
);
814 if( Socket
->SharedDataHandle
!= INVALID_HANDLE_VALUE
)
816 /* It is a duplicated socket, so unmap the memory */
817 UnmapViewOfFile(Socket
->SharedData
);
818 NtClose(Socket
->SharedDataHandle
);
819 Socket
->SharedData
= NULL
;
821 if( !References
&& Socket
->SharedData
)
823 HeapFree(GlobalHeap
, 0, Socket
->SharedData
);
825 HeapFree(GlobalHeap
, 0, Socket
);
826 return MsafdReturnWithErrno(Status
, lpErrno
, 0, NULL
);
831 * FUNCTION: Associates a local address with a socket
833 * s = Socket descriptor
834 * name = Pointer to local address
835 * namelen = Length of name
836 * lpErrno = Address of buffer for error information
838 * 0, or SOCKET_ERROR if the socket could not be bound
842 WSPBind(SOCKET Handle
,
843 const struct sockaddr
*SocketAddress
,
844 int SocketAddressLength
,
847 IO_STATUS_BLOCK IOSB
;
848 PAFD_BIND_DATA BindData
;
849 PSOCKET_INFORMATION Socket
= NULL
;
851 SOCKADDR_INFO SocketInfo
;
854 /* Get the Socket Structure associate to this Socket*/
855 Socket
= GetSocketStructure(Handle
);
858 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
861 if (Socket
->SharedData
->State
!= SocketOpen
)
863 if (lpErrno
) *lpErrno
= WSAEINVAL
;
866 if (!SocketAddress
|| SocketAddressLength
< Socket
->SharedData
->SizeOfLocalAddress
)
868 if (lpErrno
) *lpErrno
= WSAEINVAL
;
872 /* Get Address Information */
873 Socket
->HelperData
->WSHGetSockaddrType ((PSOCKADDR
)SocketAddress
,
877 if (SocketInfo
.AddressInfo
== SockaddrAddressInfoBroadcast
&& !Socket
->SharedData
->Broadcast
)
879 if (lpErrno
) *lpErrno
= WSAEADDRNOTAVAIL
;
883 Status
= NtCreateEvent(&SockEvent
,
886 SynchronizationEvent
,
889 if (!NT_SUCCESS(Status
))
895 BindData
= HeapAlloc(GlobalHeap
, 0, 0xA + SocketAddressLength
);
898 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES
, lpErrno
, 0, NULL
);
901 /* Set up Address in TDI Format */
902 BindData
->Address
.TAAddressCount
= 1;
903 BindData
->Address
.Address
[0].AddressLength
= SocketAddressLength
- sizeof(SocketAddress
->sa_family
);
904 BindData
->Address
.Address
[0].AddressType
= SocketAddress
->sa_family
;
905 RtlCopyMemory (BindData
->Address
.Address
[0].Address
,
906 SocketAddress
->sa_data
,
907 SocketAddressLength
- sizeof(SocketAddress
->sa_family
));
909 /* Set the Share Type */
910 if (Socket
->SharedData
->ExclusiveAddressUse
)
912 BindData
->ShareType
= AFD_SHARE_EXCLUSIVE
;
914 else if (SocketInfo
.EndpointInfo
== SockaddrEndpointInfoWildcard
)
916 BindData
->ShareType
= AFD_SHARE_WILDCARD
;
918 else if (Socket
->SharedData
->ReuseAddresses
)
920 BindData
->ShareType
= AFD_SHARE_REUSE
;
924 BindData
->ShareType
= AFD_SHARE_UNIQUE
;
928 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
935 0xA + Socket
->SharedData
->SizeOfLocalAddress
, /* Can't figure out a way to calculate this in C*/
937 0xA + Socket
->SharedData
->SizeOfLocalAddress
); /* Can't figure out a way to calculate this C */
939 /* Wait for return */
940 if (Status
== STATUS_PENDING
)
942 WaitForSingleObject(SockEvent
, INFINITE
);
943 Status
= IOSB
.Status
;
946 NtClose( SockEvent
);
947 HeapFree(GlobalHeap
, 0, BindData
);
949 Socket
->SharedData
->SocketLastError
= TranslateNtStatusError(Status
);
950 if (Status
!= STATUS_SUCCESS
)
951 return MsafdReturnWithErrno ( Status
, lpErrno
, 0, NULL
);
953 /* Set up Socket Data */
954 Socket
->SharedData
->State
= SocketBound
;
955 Socket
->TdiAddressHandle
= (HANDLE
)IOSB
.Information
;
957 if (Socket
->HelperEvents
& WSH_NOTIFY_BIND
)
959 Status
= Socket
->HelperData
->WSHNotify(Socket
->HelperContext
,
961 Socket
->TdiAddressHandle
,
962 Socket
->TdiConnectionHandle
,
967 if (lpErrno
) *lpErrno
= Status
;
972 return MsafdReturnWithErrno ( Status
, lpErrno
, 0, NULL
);
977 WSPListen(SOCKET Handle
,
981 IO_STATUS_BLOCK IOSB
;
982 AFD_LISTEN_DATA ListenData
;
983 PSOCKET_INFORMATION Socket
= NULL
;
987 /* Get the Socket Structure associate to this Socket*/
988 Socket
= GetSocketStructure(Handle
);
991 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
995 if (Socket
->SharedData
->Listening
)
998 Status
= NtCreateEvent(&SockEvent
,
1001 SynchronizationEvent
,
1004 if( !NT_SUCCESS(Status
) )
1005 return SOCKET_ERROR
;
1007 /* Set Up Listen Structure */
1008 ListenData
.UseSAN
= FALSE
;
1009 ListenData
.UseDelayedAcceptance
= Socket
->SharedData
->UseDelayedAcceptance
;
1010 ListenData
.Backlog
= Backlog
;
1013 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
1018 IOCTL_AFD_START_LISTEN
,
1024 /* Wait for return */
1025 if (Status
== STATUS_PENDING
)
1027 WaitForSingleObject(SockEvent
, INFINITE
);
1028 Status
= IOSB
.Status
;
1031 NtClose( SockEvent
);
1033 Socket
->SharedData
->SocketLastError
= TranslateNtStatusError(Status
);
1034 if (Status
!= STATUS_SUCCESS
)
1035 return MsafdReturnWithErrno ( Status
, lpErrno
, 0, NULL
);
1037 /* Set to Listening */
1038 Socket
->SharedData
->Listening
= TRUE
;
1040 if (Socket
->HelperEvents
& WSH_NOTIFY_LISTEN
)
1042 Status
= Socket
->HelperData
->WSHNotify(Socket
->HelperContext
,
1044 Socket
->TdiAddressHandle
,
1045 Socket
->TdiConnectionHandle
,
1050 if (lpErrno
) *lpErrno
= Status
;
1051 return SOCKET_ERROR
;
1055 return MsafdReturnWithErrno ( Status
, lpErrno
, 0, NULL
);
1061 WSPSelect(IN
int nfds
,
1062 IN OUT fd_set
*readfds OPTIONAL
,
1063 IN OUT fd_set
*writefds OPTIONAL
,
1064 IN OUT fd_set
*exceptfds OPTIONAL
,
1065 IN
const struct timeval
*timeout OPTIONAL
,
1068 IO_STATUS_BLOCK IOSB
;
1069 PAFD_POLL_INFO PollInfo
;
1072 ULONG PollBufferSize
;
1076 LARGE_INTEGER Timeout
;
1077 PSOCKET_INFORMATION Socket
;
1082 /* Find out how many sockets we have, and how large the buffer needs
1084 FD_ZERO(&selectfds
);
1085 if (readfds
!= NULL
)
1087 for (i
= 0; i
< readfds
->fd_count
; i
++)
1089 FD_SET(readfds
->fd_array
[i
], &selectfds
);
1092 if (writefds
!= NULL
)
1094 for (i
= 0; i
< writefds
->fd_count
; i
++)
1096 FD_SET(writefds
->fd_array
[i
], &selectfds
);
1099 if (exceptfds
!= NULL
)
1101 for (i
= 0; i
< exceptfds
->fd_count
; i
++)
1103 FD_SET(exceptfds
->fd_array
[i
], &selectfds
);
1107 HandleCount
= selectfds
.fd_count
;
1109 if ( HandleCount
== 0 )
1111 WARN("No handles! Returning SOCKET_ERROR\n", HandleCount
);
1112 if (lpErrno
) *lpErrno
= WSAEINVAL
;
1113 return SOCKET_ERROR
;
1116 PollBufferSize
= sizeof(*PollInfo
) + ((HandleCount
- 1) * sizeof(AFD_HANDLE
));
1118 TRACE("HandleCount: %u BufferSize: %u\n", HandleCount
, PollBufferSize
);
1120 /* Convert Timeout to NT Format */
1121 if (timeout
== NULL
)
1123 Timeout
.u
.LowPart
= -1;
1124 Timeout
.u
.HighPart
= 0x7FFFFFFF;
1125 TRACE("Infinite timeout\n");
1129 Timeout
= RtlEnlargedIntegerMultiply
1130 ((timeout
->tv_sec
* 1000) + (timeout
->tv_usec
/ 1000), -10000);
1131 /* Negative timeouts are illegal. Since the kernel represents an
1132 * incremental timeout as a negative number, we check for a positive
1135 if (Timeout
.QuadPart
> 0)
1137 if (lpErrno
) *lpErrno
= WSAEINVAL
;
1138 return SOCKET_ERROR
;
1140 TRACE("Timeout: Orig %d.%06d kernel %d\n",
1141 timeout
->tv_sec
, timeout
->tv_usec
,
1145 Status
= NtCreateEvent(&SockEvent
,
1148 SynchronizationEvent
,
1151 if(!NT_SUCCESS(Status
))
1154 *lpErrno
= WSAEFAULT
;
1156 ERR("NtCreateEvent failed, 0x%08x\n", Status
);
1157 return SOCKET_ERROR
;
1161 PollBuffer
= HeapAlloc(GlobalHeap
, 0, PollBufferSize
);
1166 *lpErrno
= WSAEFAULT
;
1168 return SOCKET_ERROR
;
1171 PollInfo
= (PAFD_POLL_INFO
)PollBuffer
;
1173 RtlZeroMemory( PollInfo
, PollBufferSize
);
1175 /* Number of handles for AFD to Check */
1176 PollInfo
->Exclusive
= FALSE
;
1177 PollInfo
->Timeout
= Timeout
;
1179 for (i
= 0; i
< selectfds
.fd_count
; i
++)
1181 PollInfo
->Handles
[i
].Handle
= selectfds
.fd_array
[i
];
1183 if (readfds
!= NULL
) {
1184 for (i
= 0; i
< readfds
->fd_count
; i
++)
1186 for (j
= 0; j
< HandleCount
; j
++)
1188 if (PollInfo
->Handles
[j
].Handle
== readfds
->fd_array
[i
])
1191 if (j
>= HandleCount
)
1193 ERR("Error while counting readfds %ld > %ld\n", j
, HandleCount
);
1194 if (lpErrno
) *lpErrno
= WSAEFAULT
;
1195 HeapFree(GlobalHeap
, 0, PollBuffer
);
1197 return SOCKET_ERROR
;
1199 Socket
= GetSocketStructure(readfds
->fd_array
[i
]);
1202 ERR("Invalid socket handle provided in readfds %d\n", readfds
->fd_array
[i
]);
1203 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
1204 HeapFree(GlobalHeap
, 0, PollBuffer
);
1206 return SOCKET_ERROR
;
1208 PollInfo
->Handles
[j
].Events
|= AFD_EVENT_RECEIVE
|
1209 AFD_EVENT_DISCONNECT
|
1213 //if (Socket->SharedData->OobInline != 0)
1214 // PollInfo->Handles[j].Events |= AFD_EVENT_OOB_RECEIVE;
1217 if (writefds
!= NULL
)
1219 for (i
= 0; i
< writefds
->fd_count
; i
++)
1221 for (j
= 0; j
< HandleCount
; j
++)
1223 if (PollInfo
->Handles
[j
].Handle
== writefds
->fd_array
[i
])
1226 if (j
>= HandleCount
)
1228 ERR("Error while counting writefds %ld > %ld\n", j
, HandleCount
);
1229 if (lpErrno
) *lpErrno
= WSAEFAULT
;
1230 HeapFree(GlobalHeap
, 0, PollBuffer
);
1232 return SOCKET_ERROR
;
1234 Socket
= GetSocketStructure(writefds
->fd_array
[i
]);
1237 ERR("Invalid socket handle provided in writefds %d\n", writefds
->fd_array
[i
]);
1238 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
1239 HeapFree(GlobalHeap
, 0, PollBuffer
);
1241 return SOCKET_ERROR
;
1243 PollInfo
->Handles
[j
].Handle
= writefds
->fd_array
[i
];
1244 PollInfo
->Handles
[j
].Events
|= AFD_EVENT_SEND
;
1245 if (Socket
->SharedData
->NonBlocking
!= 0)
1246 PollInfo
->Handles
[j
].Events
|= AFD_EVENT_CONNECT
;
1249 if (exceptfds
!= NULL
)
1251 for (i
= 0; i
< exceptfds
->fd_count
; i
++)
1253 for (j
= 0; j
< HandleCount
; j
++)
1255 if (PollInfo
->Handles
[j
].Handle
== exceptfds
->fd_array
[i
])
1258 if (j
> HandleCount
)
1260 ERR("Error while counting exceptfds %ld > %ld\n", j
, HandleCount
);
1261 if (lpErrno
) *lpErrno
= WSAEFAULT
;
1262 HeapFree(GlobalHeap
, 0, PollBuffer
);
1264 return SOCKET_ERROR
;
1266 Socket
= GetSocketStructure(exceptfds
->fd_array
[i
]);
1269 TRACE("Invalid socket handle provided in exceptfds %d\n", exceptfds
->fd_array
[i
]);
1270 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
1271 HeapFree(GlobalHeap
, 0, PollBuffer
);
1273 return SOCKET_ERROR
;
1275 PollInfo
->Handles
[j
].Handle
= exceptfds
->fd_array
[i
];
1276 if (Socket
->SharedData
->OobInline
== 0)
1277 PollInfo
->Handles
[j
].Events
|= AFD_EVENT_OOB_RECEIVE
;
1278 if (Socket
->SharedData
->NonBlocking
!= 0)
1279 PollInfo
->Handles
[j
].Events
|= AFD_EVENT_CONNECT_FAIL
;
1283 PollInfo
->HandleCount
= HandleCount
;
1284 PollBufferSize
= FIELD_OFFSET(AFD_POLL_INFO
, Handles
) + PollInfo
->HandleCount
* sizeof(AFD_HANDLE
);
1287 Status
= NtDeviceIoControlFile((HANDLE
)PollInfo
->Handles
[0].Handle
,
1298 TRACE("DeviceIoControlFile => %x\n", Status
);
1300 /* Wait for Completion */
1301 if (Status
== STATUS_PENDING
)
1303 WaitForSingleObject(SockEvent
, INFINITE
);
1304 Status
= IOSB
.Status
;
1307 /* Clear the Structures */
1315 /* Loop through return structure */
1316 HandleCount
= PollInfo
->HandleCount
;
1318 /* Return in FDSET Format */
1319 for (i
= 0; i
< HandleCount
; i
++)
1321 Events
= PollInfo
->Handles
[i
].Events
;
1322 Handle
= PollInfo
->Handles
[i
].Handle
;
1323 for(x
= 1; x
; x
<<=1)
1325 Socket
= GetSocketStructure(Handle
);
1328 TRACE("Invalid socket handle found %d\n", Handle
);
1329 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
1330 HeapFree(GlobalHeap
, 0, PollBuffer
);
1332 return SOCKET_ERROR
;
1336 case AFD_EVENT_RECEIVE
:
1337 case AFD_EVENT_DISCONNECT
:
1338 case AFD_EVENT_ABORT
:
1339 case AFD_EVENT_ACCEPT
:
1340 case AFD_EVENT_CLOSE
:
1341 TRACE("Event %x on handle %x\n",
1344 if ((Events
& x
) == AFD_EVENT_DISCONNECT
|| (Events
& x
) == AFD_EVENT_CLOSE
)
1345 Socket
->SharedData
->SocketLastError
= WSAECONNRESET
;
1346 if ((Events
& x
) == AFD_EVENT_ABORT
)
1347 Socket
->SharedData
->SocketLastError
= WSAECONNABORTED
;
1349 FD_SET(Handle
, readfds
);
1351 case AFD_EVENT_SEND
:
1352 TRACE("Event %x on handle %x\n",
1356 FD_SET(Handle
, writefds
);
1358 case AFD_EVENT_CONNECT
:
1359 TRACE("Event %x on handle %x\n",
1362 if( writefds
&& Socket
->SharedData
->NonBlocking
!= 0 )
1363 FD_SET(Handle
, writefds
);
1365 case AFD_EVENT_OOB_RECEIVE
:
1366 TRACE("Event %x on handle %x\n",
1369 if( readfds
&& Socket
->SharedData
->OobInline
!= 0 )
1370 FD_SET(Handle
, readfds
);
1371 if( exceptfds
&& Socket
->SharedData
->OobInline
== 0 )
1372 FD_SET(Handle
, exceptfds
);
1374 case AFD_EVENT_CONNECT_FAIL
:
1375 TRACE("Event %x on handle %x\n",
1378 if( exceptfds
&& Socket
->SharedData
->NonBlocking
!= 0 )
1379 FD_SET(Handle
, exceptfds
);
1385 HeapFree( GlobalHeap
, 0, PollBuffer
);
1386 NtClose( SockEvent
);
1390 switch( IOSB
.Status
)
1392 case STATUS_SUCCESS
:
1393 case STATUS_TIMEOUT
:
1397 *lpErrno
= WSAEINVAL
;
1400 TRACE("*lpErrno = %x\n", *lpErrno
);
1403 HandleCount
= (readfds
? readfds
->fd_count
: 0) +
1404 (writefds
&& writefds
!= readfds
? writefds
->fd_count
: 0) +
1405 (exceptfds
&& exceptfds
!= readfds
&& exceptfds
!= writefds
? exceptfds
->fd_count
: 0);
1407 TRACE("%d events\n", HandleCount
);
1413 GetCurrentTimeInSeconds(VOID
)
1415 SYSTEMTIME st1970
= { 1970, 1, 0, 1, 0, 0, 0, 0 };
1422 GetSystemTimeAsFileTime(&Time
.ft
);
1423 SystemTimeToFileTime(&st1970
, &u1970
.ft
);
1424 return (DWORD
)((Time
.ll
- u1970
.ll
) / 10000000ULL);
1429 WSPAccept(SOCKET Handle
,
1430 struct sockaddr
*SocketAddress
,
1431 int *SocketAddressLength
,
1432 LPCONDITIONPROC lpfnCondition
,
1433 DWORD dwCallbackData
,
1436 IO_STATUS_BLOCK IOSB
;
1437 PAFD_RECEIVED_ACCEPT_DATA ListenReceiveData
;
1438 AFD_ACCEPT_DATA AcceptData
;
1439 AFD_DEFER_ACCEPT_DATA DeferData
;
1440 AFD_PENDING_ACCEPT_DATA PendingAcceptData
;
1441 PSOCKET_INFORMATION Socket
= NULL
;
1443 struct fd_set ReadSet
;
1444 struct timeval Timeout
;
1445 PVOID PendingData
= NULL
;
1446 ULONG PendingDataLength
= 0;
1447 PVOID CalleeDataBuffer
;
1448 WSABUF CallerData
, CalleeID
, CallerID
, CalleeData
;
1449 PSOCKADDR RemoteAddress
= NULL
;
1452 SOCKET AcceptSocket
;
1453 PSOCKET_INFORMATION AcceptSocketInfo
;
1454 UCHAR ReceiveBuffer
[0x1A];
1457 /* Get the Socket Structure associate to this Socket*/
1458 Socket
= GetSocketStructure(Handle
);
1461 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
1462 return SOCKET_ERROR
;
1464 if (!Socket
->SharedData
->Listening
)
1466 if (lpErrno
) *lpErrno
= WSAEINVAL
;
1467 return SOCKET_ERROR
;
1469 if ((SocketAddress
&& !SocketAddressLength
) ||
1470 (SocketAddressLength
&& !SocketAddress
) ||
1471 (SocketAddressLength
&& *SocketAddressLength
< sizeof(SOCKADDR
)))
1473 if (lpErrno
) *lpErrno
= WSAEFAULT
;
1474 return INVALID_SOCKET
;
1477 Status
= NtCreateEvent(&SockEvent
,
1480 SynchronizationEvent
,
1483 if( !NT_SUCCESS(Status
) )
1485 return SOCKET_ERROR
;
1488 /* Dynamic Structure...ugh */
1489 ListenReceiveData
= (PAFD_RECEIVED_ACCEPT_DATA
)ReceiveBuffer
;
1491 /* If this is non-blocking, make sure there's something for us to accept */
1493 FD_SET(Socket
->Handle
, &ReadSet
);
1497 if (WSPSelect(0, &ReadSet
, NULL
, NULL
, &Timeout
, lpErrno
) == SOCKET_ERROR
)
1500 return SOCKET_ERROR
;
1503 if (ReadSet
.fd_array
[0] != Socket
->Handle
)
1506 if (lpErrno
) *lpErrno
= WSAEWOULDBLOCK
;
1507 return SOCKET_ERROR
;
1511 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
1516 IOCTL_AFD_WAIT_FOR_LISTEN
,
1520 0xA + sizeof(*ListenReceiveData
));
1522 /* Wait for return */
1523 if (Status
== STATUS_PENDING
)
1525 WaitForSingleObject(SockEvent
, INFINITE
);
1526 Status
= IOSB
.Status
;
1529 if (!NT_SUCCESS(Status
))
1531 NtClose( SockEvent
);
1532 return MsafdReturnWithErrno( Status
, lpErrno
, 0, NULL
);
1535 if (lpfnCondition
!= NULL
)
1537 if ((Socket
->SharedData
->ServiceFlags1
& XP1_CONNECT_DATA
) != 0)
1539 /* Find out how much data is pending */
1540 PendingAcceptData
.SequenceNumber
= ListenReceiveData
->SequenceNumber
;
1541 PendingAcceptData
.ReturnSize
= TRUE
;
1544 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
1549 IOCTL_AFD_GET_PENDING_CONNECT_DATA
,
1551 sizeof(PendingAcceptData
),
1553 sizeof(PendingAcceptData
));
1555 /* Wait for return */
1556 if (Status
== STATUS_PENDING
)
1558 WaitForSingleObject(SockEvent
, INFINITE
);
1559 Status
= IOSB
.Status
;
1562 if (!NT_SUCCESS(Status
))
1564 NtClose( SockEvent
);
1565 return MsafdReturnWithErrno( Status
, lpErrno
, 0, NULL
);
1568 /* How much data to allocate */
1569 PendingDataLength
= IOSB
.Information
;
1571 if (PendingDataLength
)
1573 /* Allocate needed space */
1574 PendingData
= HeapAlloc(GlobalHeap
, 0, PendingDataLength
);
1577 return MsafdReturnWithErrno( STATUS_INSUFFICIENT_RESOURCES
, lpErrno
, 0, NULL
);
1580 /* We want the data now */
1581 PendingAcceptData
.ReturnSize
= FALSE
;
1584 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
1589 IOCTL_AFD_GET_PENDING_CONNECT_DATA
,
1591 sizeof(PendingAcceptData
),
1595 /* Wait for return */
1596 if (Status
== STATUS_PENDING
)
1598 WaitForSingleObject(SockEvent
, INFINITE
);
1599 Status
= IOSB
.Status
;
1602 if (!NT_SUCCESS(Status
))
1604 NtClose( SockEvent
);
1605 return MsafdReturnWithErrno( Status
, lpErrno
, 0, NULL
);
1610 if ((Socket
->SharedData
->ServiceFlags1
& XP1_QOS_SUPPORTED
) != 0)
1612 /* I don't support this yet */
1615 /* Build Callee ID */
1616 CalleeID
.buf
= (PVOID
)Socket
->LocalAddress
;
1617 CalleeID
.len
= Socket
->SharedData
->SizeOfLocalAddress
;
1619 RemoteAddress
= HeapAlloc(GlobalHeap
, 0, sizeof(*RemoteAddress
));
1622 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES
, lpErrno
, 0, NULL
);
1625 /* Set up Address in SOCKADDR Format */
1626 RtlCopyMemory (RemoteAddress
,
1627 &ListenReceiveData
->Address
.Address
[0].AddressType
,
1628 sizeof(*RemoteAddress
));
1630 /* Build Caller ID */
1631 CallerID
.buf
= (PVOID
)RemoteAddress
;
1632 CallerID
.len
= sizeof(*RemoteAddress
);
1634 /* Build Caller Data */
1635 CallerData
.buf
= PendingData
;
1636 CallerData
.len
= PendingDataLength
;
1638 /* Check if socket supports Conditional Accept */
1639 if (Socket
->SharedData
->UseDelayedAcceptance
!= 0)
1641 /* Allocate Buffer for Callee Data */
1642 CalleeDataBuffer
= HeapAlloc(GlobalHeap
, 0, 4096);
1643 if (!CalleeDataBuffer
) {
1644 return MsafdReturnWithErrno( STATUS_INSUFFICIENT_RESOURCES
, lpErrno
, 0, NULL
);
1646 CalleeData
.buf
= CalleeDataBuffer
;
1647 CalleeData
.len
= 4096;
1656 /* Call the Condition Function */
1657 CallBack
= (lpfnCondition
)(&CallerID
,
1658 CallerData
.buf
== NULL
? NULL
: &CallerData
,
1662 CalleeData
.buf
== NULL
? NULL
: &CalleeData
,
1666 if (((CallBack
== CF_ACCEPT
) && GroupID
) != 0)
1668 /* TBD: Check for Validity */
1671 if (CallBack
== CF_ACCEPT
)
1673 if ((Socket
->SharedData
->ServiceFlags1
& XP1_QOS_SUPPORTED
) != 0)
1675 /* I don't support this yet */
1679 // SockSetConnectData Sockets(SocketID), IOCTL_AFD_SET_CONNECT_DATA, CalleeData.Buffer, CalleeData.BuffSize, 0
1684 /* Callback rejected. Build Defer Structure */
1685 DeferData
.SequenceNumber
= ListenReceiveData
->SequenceNumber
;
1686 DeferData
.RejectConnection
= (CallBack
== CF_REJECT
);
1689 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
1694 IOCTL_AFD_DEFER_ACCEPT
,
1700 /* Wait for return */
1701 if (Status
== STATUS_PENDING
)
1703 WaitForSingleObject(SockEvent
, INFINITE
);
1704 Status
= IOSB
.Status
;
1707 NtClose( SockEvent
);
1709 if (!NT_SUCCESS(Status
))
1711 return MsafdReturnWithErrno( Status
, lpErrno
, 0, NULL
);
1714 if (CallBack
== CF_REJECT
)
1716 if (lpErrno
) *lpErrno
= WSAECONNREFUSED
;
1717 return SOCKET_ERROR
;
1721 if (lpErrno
) *lpErrno
= WSAECONNREFUSED
;
1722 return SOCKET_ERROR
;
1727 /* Create a new Socket */
1728 AcceptSocket
= WSPSocket (Socket
->SharedData
->AddressFamily
,
1729 Socket
->SharedData
->SocketType
,
1730 Socket
->SharedData
->Protocol
,
1731 &Socket
->ProtocolInfo
,
1733 Socket
->SharedData
->CreateFlags
,
1735 if (AcceptSocket
== INVALID_SOCKET
)
1736 return SOCKET_ERROR
;
1738 /* Set up the Accept Structure */
1739 AcceptData
.ListenHandle
= (HANDLE
)AcceptSocket
;
1740 AcceptData
.SequenceNumber
= ListenReceiveData
->SequenceNumber
;
1742 /* Send IOCTL to Accept */
1743 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
1754 /* Wait for return */
1755 if (Status
== STATUS_PENDING
)
1757 WaitForSingleObject(SockEvent
, INFINITE
);
1758 Status
= IOSB
.Status
;
1761 Socket
->SharedData
->SocketLastError
= TranslateNtStatusError(Status
);
1762 if (!NT_SUCCESS(Status
))
1765 WSPCloseSocket( AcceptSocket
, lpErrno
);
1766 return MsafdReturnWithErrno( Status
, lpErrno
, 0, NULL
);
1769 AcceptSocketInfo
= GetSocketStructure(AcceptSocket
);
1770 if (!AcceptSocketInfo
)
1773 WSPCloseSocket( AcceptSocket
, lpErrno
);
1774 return MsafdReturnWithErrno( STATUS_PROTOCOL_NOT_SUPPORTED
, lpErrno
, 0, NULL
);
1777 AcceptSocketInfo
->SharedData
->State
= SocketConnected
;
1778 AcceptSocketInfo
->SharedData
->ConnectTime
= GetCurrentTimeInSeconds();
1780 /* Return Address in SOCKADDR FORMAT */
1783 RtlCopyMemory (SocketAddress
,
1784 &ListenReceiveData
->Address
.Address
[0].AddressType
,
1785 sizeof(*RemoteAddress
));
1786 if( SocketAddressLength
)
1787 *SocketAddressLength
= sizeof(*RemoteAddress
);
1790 NtClose( SockEvent
);
1792 /* Re-enable Async Event */
1793 SockReenableAsyncSelectEvent(Socket
, FD_ACCEPT
);
1795 TRACE("Socket %x\n", AcceptSocket
);
1797 if (Status
== STATUS_SUCCESS
&& (Socket
->HelperEvents
& WSH_NOTIFY_ACCEPT
))
1799 Status
= Socket
->HelperData
->WSHNotify(Socket
->HelperContext
,
1801 Socket
->TdiAddressHandle
,
1802 Socket
->TdiConnectionHandle
,
1807 if (lpErrno
) *lpErrno
= Status
;
1808 return SOCKET_ERROR
;
1812 if (lpErrno
) *lpErrno
= NO_ERROR
;
1815 return AcceptSocket
;
1820 WSPConnect(SOCKET Handle
,
1821 const struct sockaddr
* SocketAddress
,
1822 int SocketAddressLength
,
1823 LPWSABUF lpCallerData
,
1824 LPWSABUF lpCalleeData
,
1829 IO_STATUS_BLOCK IOSB
;
1830 PAFD_CONNECT_INFO ConnectInfo
= NULL
;
1831 PSOCKET_INFORMATION Socket
;
1834 ULONG ConnectDataLength
;
1835 ULONG InConnectDataLength
;
1836 INT BindAddressLength
;
1837 PSOCKADDR BindAddress
;
1839 int SocketDataLength
;
1841 TRACE("Called (%lx) %lx:%d\n", Handle
, ((const struct sockaddr_in
*)SocketAddress
)->sin_addr
, ((const struct sockaddr_in
*)SocketAddress
)->sin_port
);
1843 /* Get the Socket Structure associate to this Socket*/
1844 Socket
= GetSocketStructure(Handle
);
1847 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
1848 return SOCKET_ERROR
;
1851 Status
= NtCreateEvent(&SockEvent
,
1854 SynchronizationEvent
,
1857 if (!NT_SUCCESS(Status
))
1858 return SOCKET_ERROR
;
1861 if (Socket
->SharedData
->State
== SocketOpen
)
1863 /* Get the Wildcard Address */
1864 BindAddressLength
= Socket
->HelperData
->MaxWSAddressLength
;
1865 BindAddress
= HeapAlloc(GetProcessHeap(), 0, BindAddressLength
);
1869 return MsafdReturnWithErrno(STATUS_INSUFFICIENT_RESOURCES
, lpErrno
, 0, NULL
);
1871 Socket
->HelperData
->WSHGetWildcardSockaddr (Socket
->HelperContext
,
1873 &BindAddressLength
);
1875 if (WSPBind(Handle
, BindAddress
, BindAddressLength
, lpErrno
) == SOCKET_ERROR
)
1876 return SOCKET_ERROR
;
1879 /* Set the Connect Data */
1880 if (lpCallerData
!= NULL
)
1882 ConnectDataLength
= lpCallerData
->len
;
1883 Status
= NtDeviceIoControlFile((HANDLE
)Handle
,
1888 IOCTL_AFD_SET_CONNECT_DATA
,
1893 /* Wait for return */
1894 if (Status
== STATUS_PENDING
)
1896 WaitForSingleObject(SockEvent
, INFINITE
);
1897 Status
= IOSB
.Status
;
1900 if (Status
!= STATUS_SUCCESS
)
1904 /* Calculate the size of SocketAddress->sa_data */
1905 SocketDataLength
= SocketAddressLength
- FIELD_OFFSET(struct sockaddr
, sa_data
);
1907 /* Allocate a connection info buffer with SocketDataLength bytes of payload */
1908 ConnectInfo
= HeapAlloc(GetProcessHeap(), 0,
1909 FIELD_OFFSET(AFD_CONNECT_INFO
,
1910 RemoteAddress
.Address
[0].Address
[SocketDataLength
]));
1913 Status
= STATUS_INSUFFICIENT_RESOURCES
;
1917 /* Set up Address in TDI Format */
1918 ConnectInfo
->RemoteAddress
.TAAddressCount
= 1;
1919 ConnectInfo
->RemoteAddress
.Address
[0].AddressLength
= SocketDataLength
;
1920 ConnectInfo
->RemoteAddress
.Address
[0].AddressType
= SocketAddress
->sa_family
;
1921 RtlCopyMemory(ConnectInfo
->RemoteAddress
.Address
[0].Address
,
1922 SocketAddress
->sa_data
,
1926 * Disable FD_WRITE and FD_CONNECT
1927 * The latter fixes a race condition where the FD_CONNECT is re-enabled
1928 * at the end of this function right after the Async Thread disables it.
1929 * This should only happen at the *next* WSPConnect
1931 if (Socket
->SharedData
->AsyncEvents
& FD_CONNECT
)
1933 Socket
->SharedData
->AsyncDisabledEvents
|= FD_CONNECT
| FD_WRITE
;
1936 /* Tell AFD that we want Connection Data back, have it allocate a buffer */
1937 if (lpCalleeData
!= NULL
)
1939 InConnectDataLength
= lpCalleeData
->len
;
1940 Status
= NtDeviceIoControlFile((HANDLE
)Handle
,
1945 IOCTL_AFD_SET_CONNECT_DATA_SIZE
,
1946 &InConnectDataLength
,
1947 sizeof(InConnectDataLength
),
1951 /* Wait for return */
1952 if (Status
== STATUS_PENDING
)
1954 WaitForSingleObject(SockEvent
, INFINITE
);
1955 Status
= IOSB
.Status
;
1958 if (Status
!= STATUS_SUCCESS
)
1962 /* AFD doesn't seem to care if these are invalid, but let's 0 them anyways */
1963 ConnectInfo
->Root
= 0;
1964 ConnectInfo
->UseSAN
= FALSE
;
1965 ConnectInfo
->Unknown
= 0;
1967 /* FIXME: Handle Async Connect */
1968 if (Socket
->SharedData
->NonBlocking
)
1970 ERR("Async Connect UNIMPLEMENTED!\n");
1974 Status
= NtDeviceIoControlFile((HANDLE
)Handle
,
1984 /* Wait for return */
1985 if (Status
== STATUS_PENDING
)
1987 WaitForSingleObject(SockEvent
, INFINITE
);
1988 Status
= IOSB
.Status
;
1991 Socket
->SharedData
->SocketLastError
= TranslateNtStatusError(Status
);
1992 if (Status
!= STATUS_SUCCESS
)
1995 Socket
->SharedData
->State
= SocketConnected
;
1996 Socket
->TdiConnectionHandle
= (HANDLE
)IOSB
.Information
;
1997 Socket
->SharedData
->ConnectTime
= GetCurrentTimeInSeconds();
1999 /* Get any pending connect data */
2000 if (lpCalleeData
!= NULL
)
2002 Status
= NtDeviceIoControlFile((HANDLE
)Handle
,
2007 IOCTL_AFD_GET_CONNECT_DATA
,
2012 /* Wait for return */
2013 if (Status
== STATUS_PENDING
)
2015 WaitForSingleObject(SockEvent
, INFINITE
);
2016 Status
= IOSB
.Status
;
2020 TRACE("Ending %lx\n", IOSB
.Status
);
2023 if (ConnectInfo
) HeapFree(GetProcessHeap(), 0, ConnectInfo
);
2025 /* Re-enable Async Event */
2026 SockReenableAsyncSelectEvent(Socket
, FD_WRITE
);
2028 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
2029 SockReenableAsyncSelectEvent(Socket
, FD_CONNECT
);
2033 if (Status
== STATUS_SUCCESS
&& (Socket
->HelperEvents
& WSH_NOTIFY_CONNECT
))
2035 Errno
= Socket
->HelperData
->WSHNotify(Socket
->HelperContext
,
2037 Socket
->TdiAddressHandle
,
2038 Socket
->TdiConnectionHandle
,
2039 WSH_NOTIFY_CONNECT
);
2043 if (lpErrno
) *lpErrno
= Errno
;
2044 return SOCKET_ERROR
;
2047 else if (Status
!= STATUS_SUCCESS
&& (Socket
->HelperEvents
& WSH_NOTIFY_CONNECT_ERROR
))
2049 Errno
= Socket
->HelperData
->WSHNotify(Socket
->HelperContext
,
2051 Socket
->TdiAddressHandle
,
2052 Socket
->TdiConnectionHandle
,
2053 WSH_NOTIFY_CONNECT_ERROR
);
2057 if (lpErrno
) *lpErrno
= Errno
;
2058 return SOCKET_ERROR
;
2062 return MsafdReturnWithErrno(Status
, lpErrno
, 0, NULL
);
2066 WSPShutdown(SOCKET Handle
,
2071 IO_STATUS_BLOCK IOSB
;
2072 AFD_DISCONNECT_INFO DisconnectInfo
;
2073 PSOCKET_INFORMATION Socket
= NULL
;
2079 /* Get the Socket Structure associate to this Socket*/
2080 Socket
= GetSocketStructure(Handle
);
2083 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
2084 return SOCKET_ERROR
;
2087 Status
= NtCreateEvent(&SockEvent
,
2090 SynchronizationEvent
,
2093 if( !NT_SUCCESS(Status
) )
2094 return SOCKET_ERROR
;
2096 /* Set AFD Disconnect Type */
2100 DisconnectInfo
.DisconnectType
= AFD_DISCONNECT_RECV
;
2101 Socket
->SharedData
->ReceiveShutdown
= TRUE
;
2104 DisconnectInfo
.DisconnectType
= AFD_DISCONNECT_SEND
;
2105 Socket
->SharedData
->SendShutdown
= TRUE
;
2108 DisconnectInfo
.DisconnectType
= AFD_DISCONNECT_RECV
| AFD_DISCONNECT_SEND
;
2109 Socket
->SharedData
->ReceiveShutdown
= TRUE
;
2110 Socket
->SharedData
->SendShutdown
= TRUE
;
2114 DisconnectInfo
.Timeout
= RtlConvertLongToLargeInteger(-1000000);
2117 Status
= NtDeviceIoControlFile((HANDLE
)Handle
,
2122 IOCTL_AFD_DISCONNECT
,
2124 sizeof(DisconnectInfo
),
2128 /* Wait for return */
2129 if (Status
== STATUS_PENDING
)
2131 WaitForSingleObject(SockEvent
, INFINITE
);
2132 Status
= IOSB
.Status
;
2137 NtClose( SockEvent
);
2139 Socket
->SharedData
->SocketLastError
= TranslateNtStatusError(Status
);
2140 return MsafdReturnWithErrno( Status
, lpErrno
, 0, NULL
);
2146 WSPGetSockName(IN SOCKET Handle
,
2147 OUT LPSOCKADDR Name
,
2148 IN OUT LPINT NameLength
,
2151 IO_STATUS_BLOCK IOSB
;
2152 ULONG TdiAddressSize
;
2153 PTDI_ADDRESS_INFO TdiAddress
;
2154 PTRANSPORT_ADDRESS SocketAddress
;
2155 PSOCKET_INFORMATION Socket
= NULL
;
2159 /* Get the Socket Structure associate to this Socket*/
2160 Socket
= GetSocketStructure(Handle
);
2163 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
2164 return SOCKET_ERROR
;
2167 if (!Name
|| !NameLength
)
2169 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2170 return SOCKET_ERROR
;
2173 Status
= NtCreateEvent(&SockEvent
,
2176 SynchronizationEvent
,
2179 if( !NT_SUCCESS(Status
) )
2180 return SOCKET_ERROR
;
2182 /* Allocate a buffer for the address */
2184 sizeof(TRANSPORT_ADDRESS
) + Socket
->SharedData
->SizeOfLocalAddress
;
2185 TdiAddress
= HeapAlloc(GlobalHeap
, 0, TdiAddressSize
);
2187 if ( TdiAddress
== NULL
)
2189 NtClose( SockEvent
);
2190 if (lpErrno
) *lpErrno
= WSAENOBUFS
;
2191 return SOCKET_ERROR
;
2194 SocketAddress
= &TdiAddress
->Address
;
2197 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
2202 IOCTL_AFD_GET_SOCK_NAME
,
2208 /* Wait for return */
2209 if (Status
== STATUS_PENDING
)
2211 WaitForSingleObject(SockEvent
, INFINITE
);
2212 Status
= IOSB
.Status
;
2215 NtClose( SockEvent
);
2217 if (NT_SUCCESS(Status
))
2219 if (*NameLength
>= Socket
->SharedData
->SizeOfLocalAddress
)
2221 Name
->sa_family
= SocketAddress
->Address
[0].AddressType
;
2222 RtlCopyMemory (Name
->sa_data
,
2223 SocketAddress
->Address
[0].Address
,
2224 SocketAddress
->Address
[0].AddressLength
);
2225 *NameLength
= Socket
->SharedData
->SizeOfLocalAddress
;
2226 TRACE("NameLength %d Address: %x Port %x\n",
2227 *NameLength
, ((struct sockaddr_in
*)Name
)->sin_addr
.s_addr
,
2228 ((struct sockaddr_in
*)Name
)->sin_port
);
2229 HeapFree(GlobalHeap
, 0, TdiAddress
);
2234 HeapFree(GlobalHeap
, 0, TdiAddress
);
2235 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2236 return SOCKET_ERROR
;
2240 HeapFree(GlobalHeap
, 0, TdiAddress
);
2242 return MsafdReturnWithErrno ( Status
, lpErrno
, 0, NULL
);
2248 WSPGetPeerName(IN SOCKET s
,
2249 OUT LPSOCKADDR Name
,
2250 IN OUT LPINT NameLength
,
2253 IO_STATUS_BLOCK IOSB
;
2254 ULONG TdiAddressSize
;
2255 PTRANSPORT_ADDRESS SocketAddress
;
2256 PSOCKET_INFORMATION Socket
= NULL
;
2260 /* Get the Socket Structure associate to this Socket*/
2261 Socket
= GetSocketStructure(s
);
2264 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
2265 return SOCKET_ERROR
;
2268 if (Socket
->SharedData
->State
!= SocketConnected
)
2270 if (lpErrno
) *lpErrno
= WSAENOTCONN
;
2271 return SOCKET_ERROR
;
2274 if (!Name
|| !NameLength
)
2276 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2277 return SOCKET_ERROR
;
2280 Status
= NtCreateEvent(&SockEvent
,
2283 SynchronizationEvent
,
2286 if( !NT_SUCCESS(Status
) )
2287 return SOCKET_ERROR
;
2289 /* Allocate a buffer for the address */
2290 TdiAddressSize
= sizeof(TRANSPORT_ADDRESS
) + Socket
->SharedData
->SizeOfRemoteAddress
;
2291 SocketAddress
= HeapAlloc(GlobalHeap
, 0, TdiAddressSize
);
2293 if ( SocketAddress
== NULL
)
2295 NtClose( SockEvent
);
2296 if (lpErrno
) *lpErrno
= WSAENOBUFS
;
2297 return SOCKET_ERROR
;
2301 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
2306 IOCTL_AFD_GET_PEER_NAME
,
2312 /* Wait for return */
2313 if (Status
== STATUS_PENDING
)
2315 WaitForSingleObject(SockEvent
, INFINITE
);
2316 Status
= IOSB
.Status
;
2319 NtClose( SockEvent
);
2321 if (NT_SUCCESS(Status
))
2323 if (*NameLength
>= Socket
->SharedData
->SizeOfRemoteAddress
)
2325 Name
->sa_family
= SocketAddress
->Address
[0].AddressType
;
2326 RtlCopyMemory (Name
->sa_data
,
2327 SocketAddress
->Address
[0].Address
,
2328 SocketAddress
->Address
[0].AddressLength
);
2329 *NameLength
= Socket
->SharedData
->SizeOfRemoteAddress
;
2330 TRACE("NameLength %d Address: %x Port %x\n",
2331 *NameLength
, ((struct sockaddr_in
*)Name
)->sin_addr
.s_addr
,
2332 ((struct sockaddr_in
*)Name
)->sin_port
);
2333 HeapFree(GlobalHeap
, 0, SocketAddress
);
2338 HeapFree(GlobalHeap
, 0, SocketAddress
);
2339 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2340 return SOCKET_ERROR
;
2344 HeapFree(GlobalHeap
, 0, SocketAddress
);
2346 return MsafdReturnWithErrno ( Status
, lpErrno
, 0, NULL
);
2351 WSPIoctl(IN SOCKET Handle
,
2352 IN DWORD dwIoControlCode
,
2353 IN LPVOID lpvInBuffer
,
2354 IN DWORD cbInBuffer
,
2355 OUT LPVOID lpvOutBuffer
,
2356 IN DWORD cbOutBuffer
,
2357 OUT LPDWORD lpcbBytesReturned
,
2358 IN LPWSAOVERLAPPED lpOverlapped
,
2359 IN LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine
,
2360 IN LPWSATHREADID lpThreadId
,
2363 PSOCKET_INFORMATION Socket
= NULL
;
2364 BOOL NeedsCompletion
= lpOverlapped
!= NULL
;
2365 BOOLEAN NonBlocking
;
2366 INT Errno
= NO_ERROR
, Ret
= SOCKET_ERROR
;
2369 /* Get the Socket Structure associate to this Socket*/
2370 Socket
= GetSocketStructure(Handle
);
2374 *lpErrno
= WSAENOTSOCK
;
2375 return SOCKET_ERROR
;
2378 if (!lpcbBytesReturned
&& !lpOverlapped
)
2381 *lpErrno
= WSAEFAULT
;
2382 return SOCKET_ERROR
;
2385 switch( dwIoControlCode
)
2388 if( cbInBuffer
< sizeof(INT
) || IS_INTRESOURCE(lpvInBuffer
) )
2393 NonBlocking
= *((PULONG
)lpvInBuffer
) ? TRUE
: FALSE
;
2394 /* Don't allow to go in blocking mode if WSPAsyncSelect or WSPEventSelect is pending */
2397 /* If there is an WSPAsyncSelect pending, fail with WSAEINVAL */
2398 if (Socket
->SharedData
->AsyncEvents
& (~Socket
->SharedData
->AsyncDisabledEvents
))
2403 /* If there is an WSPEventSelect pending, fail with WSAEINVAL */
2404 if (Socket
->NetworkEvents
)
2410 Socket
->SharedData
->NonBlocking
= NonBlocking
? 1 : 0;
2411 NeedsCompletion
= FALSE
;
2412 Errno
= SetSocketInformation(Socket
, AFD_INFO_BLOCKING_MODE
, &NonBlocking
, NULL
, NULL
, lpOverlapped
, lpCompletionRoutine
);
2413 if (Errno
== NO_ERROR
)
2417 if (IS_INTRESOURCE(lpvOutBuffer
) || cbOutBuffer
== 0)
2419 cbRet
= sizeof(ULONG
);
2423 if (cbOutBuffer
< sizeof(ULONG
))
2428 NeedsCompletion
= FALSE
;
2429 Errno
= GetSocketInformation(Socket
, AFD_INFO_RECEIVE_CONTENT_SIZE
, NULL
, (PULONG
)lpvOutBuffer
, NULL
, lpOverlapped
, lpCompletionRoutine
);
2430 if (Errno
== NO_ERROR
)
2432 cbRet
= sizeof(ULONG
);
2437 if (IS_INTRESOURCE(lpvOutBuffer
) || cbOutBuffer
== 0)
2439 cbRet
= sizeof(BOOL
);
2443 if (cbOutBuffer
< sizeof(BOOL
))
2448 if (Socket
->SharedData
->SocketType
!= SOCK_STREAM
)
2454 /* FIXME: Return false if OOBINLINE is true for now
2455 We should MSG_PEEK|MSG_OOB check with driver
2457 *(BOOL
*)lpvOutBuffer
= !Socket
->SharedData
->OobInline
;
2459 cbRet
= sizeof(BOOL
);
2463 case SIO_GET_EXTENSION_FUNCTION_POINTER
:
2466 case SIO_ADDRESS_LIST_QUERY
:
2467 if (IS_INTRESOURCE(lpvOutBuffer
) || cbOutBuffer
== 0)
2469 cbRet
= sizeof(SOCKET_ADDRESS_LIST
) + sizeof(Socket
->SharedData
->WSLocalAddress
);
2473 if (cbOutBuffer
< sizeof(INT
))
2479 cbRet
= sizeof(SOCKET_ADDRESS_LIST
) + sizeof(Socket
->SharedData
->WSLocalAddress
);
2481 ((SOCKET_ADDRESS_LIST
*)lpvOutBuffer
)->iAddressCount
= 1;
2483 if (cbOutBuffer
< (sizeof(SOCKET_ADDRESS_LIST
) + sizeof(Socket
->SharedData
->WSLocalAddress
)))
2489 ((SOCKET_ADDRESS_LIST
*)lpvOutBuffer
)->Address
[0].iSockaddrLength
= sizeof(Socket
->SharedData
->WSLocalAddress
);
2490 ((SOCKET_ADDRESS_LIST
*)lpvOutBuffer
)->Address
[0].lpSockaddr
= &Socket
->SharedData
->WSLocalAddress
;
2496 Errno
= Socket
->HelperData
->WSHIoctl(Socket
->HelperContext
,
2498 Socket
->TdiAddressHandle
,
2499 Socket
->TdiConnectionHandle
,
2507 lpCompletionRoutine
,
2510 if (Errno
== NO_ERROR
)
2514 if (lpOverlapped
&& NeedsCompletion
)
2516 lpOverlapped
->Internal
= Errno
;
2517 lpOverlapped
->InternalHigh
= cbRet
;
2518 if (lpCompletionRoutine
!= NULL
)
2520 lpCompletionRoutine(Errno
, cbRet
, lpOverlapped
, 0);
2522 if (lpOverlapped
->hEvent
)
2523 SetEvent(lpOverlapped
->hEvent
);
2524 if (!PostQueuedCompletionStatus((HANDLE
)Handle
, cbRet
, 0, lpOverlapped
))
2526 ERR("PostQueuedCompletionStatus failed %d\n", GetLastError());
2532 if (lpcbBytesReturned
)
2533 *lpcbBytesReturned
= cbRet
;
2540 WSPGetSockOpt(IN SOCKET Handle
,
2543 OUT CHAR FAR
* OptionValue
,
2544 IN OUT LPINT OptionLength
,
2547 PSOCKET_INFORMATION Socket
= NULL
;
2556 /* Get the Socket Structure associate to this Socket*/
2557 Socket
= GetSocketStructure(Handle
);
2560 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
2561 return SOCKET_ERROR
;
2563 if (!OptionLength
|| !OptionValue
)
2565 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2566 return SOCKET_ERROR
;
2575 Buffer
= &Socket
->SharedData
->SocketType
;
2576 BufferSize
= sizeof(INT
);
2580 Buffer
= &Socket
->SharedData
->SizeOfRecvBuffer
;
2581 BufferSize
= sizeof(INT
);
2585 Buffer
= &Socket
->SharedData
->SizeOfSendBuffer
;
2586 BufferSize
= sizeof(INT
);
2590 BoolBuffer
= Socket
->SharedData
->Listening
;
2591 Buffer
= &BoolBuffer
;
2592 BufferSize
= sizeof(BOOL
);
2596 BoolBuffer
= Socket
->SharedData
->Broadcast
;
2597 Buffer
= &BoolBuffer
;
2598 BufferSize
= sizeof(BOOL
);
2602 BoolBuffer
= Socket
->SharedData
->Debug
;
2603 Buffer
= &BoolBuffer
;
2604 BufferSize
= sizeof(BOOL
);
2608 BoolBuffer
= (Socket
->SharedData
->LingerData
.l_onoff
== 0);
2609 Buffer
= &BoolBuffer
;
2610 BufferSize
= sizeof(BOOL
);
2614 if (Socket
->SharedData
->SocketType
== SOCK_DGRAM
)
2616 if (lpErrno
) *lpErrno
= WSAENOPROTOOPT
;
2617 return SOCKET_ERROR
;
2619 Buffer
= &Socket
->SharedData
->LingerData
;
2620 BufferSize
= sizeof(struct linger
);
2624 BoolBuffer
= (Socket
->SharedData
->OobInline
!= 0);
2625 Buffer
= &BoolBuffer
;
2626 BufferSize
= sizeof(BOOL
);
2631 /* These guys go directly to the helper */
2634 case SO_CONDITIONAL_ACCEPT
:
2635 BoolBuffer
= (Socket
->SharedData
->UseDelayedAcceptance
!= 0);
2636 Buffer
= &BoolBuffer
;
2637 BufferSize
= sizeof(BOOL
);
2641 BoolBuffer
= (Socket
->SharedData
->ReuseAddresses
!= 0);
2642 Buffer
= &BoolBuffer
;
2643 BufferSize
= sizeof(BOOL
);
2646 case SO_EXCLUSIVEADDRUSE
:
2647 BoolBuffer
= (Socket
->SharedData
->ExclusiveAddressUse
!= 0);
2648 Buffer
= &BoolBuffer
;
2649 BufferSize
= sizeof(BOOL
);
2653 Buffer
= &Socket
->SharedData
->SocketLastError
;
2654 BufferSize
= sizeof(INT
);
2657 case SO_CONNECT_TIME
:
2658 DwordBuffer
= GetCurrentTimeInSeconds() - Socket
->SharedData
->ConnectTime
;
2659 Buffer
= &DwordBuffer
;
2660 BufferSize
= sizeof(DWORD
);
2664 Buffer
= &Socket
->SharedData
->SendTimeout
;
2665 BufferSize
= sizeof(DWORD
);
2668 Buffer
= &Socket
->SharedData
->RecvTimeout
;
2669 BufferSize
= sizeof(DWORD
);
2671 case SO_PROTOCOL_INFOW
:
2672 Buffer
= &Socket
->ProtocolInfo
;
2673 BufferSize
= sizeof(Socket
->ProtocolInfo
);
2677 case SO_GROUP_PRIORITY
:
2678 case SO_MAX_MSG_SIZE
:
2681 DbgPrint("MSAFD: Get unknown optname %x\n", OptionName
);
2682 if (lpErrno
) *lpErrno
= WSAENOPROTOOPT
;
2683 return SOCKET_ERROR
;
2686 if (*OptionLength
< BufferSize
)
2688 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2689 *OptionLength
= BufferSize
;
2690 return SOCKET_ERROR
;
2692 RtlCopyMemory(OptionValue
, Buffer
, BufferSize
);
2697 if (lpErrno
) *lpErrno
= WSAEINVAL
;
2698 return SOCKET_ERROR
;
2702 Errno
= Socket
->HelperData
->WSHGetSocketInformation(Socket
->HelperContext
,
2704 Socket
->TdiAddressHandle
,
2705 Socket
->TdiConnectionHandle
,
2709 (LPINT
)OptionLength
);
2710 if (lpErrno
) *lpErrno
= Errno
;
2711 return (Errno
== NO_ERROR
) ? NO_ERROR
: SOCKET_ERROR
;
2720 IN CONST CHAR FAR
* optval
,
2724 PSOCKET_INFORMATION Socket
;
2727 /* Get the Socket Structure associate to this Socket*/
2728 Socket
= GetSocketStructure(s
);
2731 if (lpErrno
) *lpErrno
= WSAENOTSOCK
;
2732 return SOCKET_ERROR
;
2736 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2737 return SOCKET_ERROR
;
2741 /* FIXME: We should handle some more cases here */
2742 if (level
== SOL_SOCKET
)
2747 if (optlen
< sizeof(BOOL
))
2749 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2750 return SOCKET_ERROR
;
2752 Socket
->SharedData
->Broadcast
= (*optval
!= 0) ? 1 : 0;
2756 if (optlen
< sizeof(BOOL
))
2758 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2759 return SOCKET_ERROR
;
2761 Socket
->SharedData
->OobInline
= (*optval
!= 0) ? 1 : 0;
2765 if (optlen
< sizeof(BOOL
))
2767 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2768 return SOCKET_ERROR
;
2770 Socket
->SharedData
->LingerData
.l_onoff
= (*optval
!= 0) ? 0 : 1;
2774 if (optlen
< sizeof(BOOL
))
2776 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2777 return SOCKET_ERROR
;
2779 Socket
->SharedData
->ReuseAddresses
= (*optval
!= 0) ? 1 : 0;
2782 case SO_EXCLUSIVEADDRUSE
:
2783 if (optlen
< sizeof(BOOL
))
2785 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2786 return SOCKET_ERROR
;
2788 Socket
->SharedData
->ExclusiveAddressUse
= (*optval
!= 0) ? 1 : 0;
2792 if (optlen
< sizeof(struct linger
))
2794 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2795 return SOCKET_ERROR
;
2797 RtlCopyMemory(&Socket
->SharedData
->LingerData
,
2799 sizeof(struct linger
));
2803 if (optlen
< sizeof(DWORD
))
2805 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2806 return SOCKET_ERROR
;
2809 /* TODO: The total per-socket buffer space reserved for sends */
2810 ERR("Setting send buf to %x is not implemented yet\n", optval
);
2814 if (optlen
< sizeof(INT
))
2816 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2817 return SOCKET_ERROR
;
2820 RtlCopyMemory(&Socket
->SharedData
->SocketLastError
,
2826 if (optlen
< sizeof(DWORD
))
2828 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2829 return SOCKET_ERROR
;
2832 RtlCopyMemory(&Socket
->SharedData
->SendTimeout
,
2838 if (optlen
< sizeof(DWORD
))
2840 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2841 return SOCKET_ERROR
;
2844 RtlCopyMemory(&Socket
->SharedData
->RecvTimeout
,
2851 /* These go directly to the helper dll */
2855 /* Obviously this is a hack */
2856 ERR("MSAFD: Set unknown optname %x\n", optname
);
2862 Errno
= Socket
->HelperData
->WSHSetSocketInformation(Socket
->HelperContext
,
2864 Socket
->TdiAddressHandle
,
2865 Socket
->TdiConnectionHandle
,
2870 if (lpErrno
) *lpErrno
= Errno
;
2871 return (Errno
== NO_ERROR
) ? NO_ERROR
: SOCKET_ERROR
;
2875 * FUNCTION: Initialize service provider for a client
2877 * wVersionRequested = Highest WinSock SPI version that the caller can use
2878 * lpWSPData = Address of WSPDATA structure to initialize
2879 * lpProtocolInfo = Pointer to structure that defines the desired protocol
2880 * UpcallTable = Pointer to upcall table of the WinSock DLL
2881 * lpProcTable = Address of procedure table to initialize
2883 * Status of operation
2887 WSPStartup(IN WORD wVersionRequested
,
2888 OUT LPWSPDATA lpWSPData
,
2889 IN LPWSAPROTOCOL_INFOW lpProtocolInfo
,
2890 IN WSPUPCALLTABLE UpcallTable
,
2891 OUT LPWSPPROC_TABLE lpProcTable
)
2896 if (((LOBYTE(wVersionRequested
) == 2) && (HIBYTE(wVersionRequested
) < 2)) ||
2897 (LOBYTE(wVersionRequested
) < 2))
2899 ERR("WSPStartup NOT SUPPORTED for version 0x%X\n", wVersionRequested
);
2900 return WSAVERNOTSUPPORTED
;
2904 /* FIXME: Enable all cases of WSPStartup status */
2905 Upcalls
= UpcallTable
;
2907 if (Status
== NO_ERROR
)
2909 lpProcTable
->lpWSPAccept
= WSPAccept
;
2910 lpProcTable
->lpWSPAddressToString
= WSPAddressToString
;
2911 lpProcTable
->lpWSPAsyncSelect
= WSPAsyncSelect
;
2912 lpProcTable
->lpWSPBind
= WSPBind
;
2913 lpProcTable
->lpWSPCancelBlockingCall
= WSPCancelBlockingCall
;
2914 lpProcTable
->lpWSPCleanup
= WSPCleanup
;
2915 lpProcTable
->lpWSPCloseSocket
= WSPCloseSocket
;
2916 lpProcTable
->lpWSPConnect
= WSPConnect
;
2917 lpProcTable
->lpWSPDuplicateSocket
= WSPDuplicateSocket
;
2918 lpProcTable
->lpWSPEnumNetworkEvents
= WSPEnumNetworkEvents
;
2919 lpProcTable
->lpWSPEventSelect
= WSPEventSelect
;
2920 lpProcTable
->lpWSPGetOverlappedResult
= WSPGetOverlappedResult
;
2921 lpProcTable
->lpWSPGetPeerName
= WSPGetPeerName
;
2922 lpProcTable
->lpWSPGetSockName
= WSPGetSockName
;
2923 lpProcTable
->lpWSPGetSockOpt
= WSPGetSockOpt
;
2924 lpProcTable
->lpWSPGetQOSByName
= WSPGetQOSByName
;
2925 lpProcTable
->lpWSPIoctl
= WSPIoctl
;
2926 lpProcTable
->lpWSPJoinLeaf
= WSPJoinLeaf
;
2927 lpProcTable
->lpWSPListen
= WSPListen
;
2928 lpProcTable
->lpWSPRecv
= WSPRecv
;
2929 lpProcTable
->lpWSPRecvDisconnect
= WSPRecvDisconnect
;
2930 lpProcTable
->lpWSPRecvFrom
= WSPRecvFrom
;
2931 lpProcTable
->lpWSPSelect
= WSPSelect
;
2932 lpProcTable
->lpWSPSend
= WSPSend
;
2933 lpProcTable
->lpWSPSendDisconnect
= WSPSendDisconnect
;
2934 lpProcTable
->lpWSPSendTo
= WSPSendTo
;
2935 lpProcTable
->lpWSPSetSockOpt
= WSPSetSockOpt
;
2936 lpProcTable
->lpWSPShutdown
= WSPShutdown
;
2937 lpProcTable
->lpWSPSocket
= WSPSocket
;
2938 lpProcTable
->lpWSPStringToAddress
= WSPStringToAddress
;
2939 lpWSPData
->wVersion
= MAKEWORD(2, 2);
2940 lpWSPData
->wHighVersion
= MAKEWORD(2, 2);
2941 /* Save CatalogEntryId for all upcalls */
2942 CatalogEntryId
= lpProtocolInfo
->dwCatalogEntryId
;
2945 TRACE("Status (%d).\n", Status
);
2952 WSPAddressToString(IN LPSOCKADDR lpsaAddress
,
2953 IN DWORD dwAddressLength
,
2954 IN LPWSAPROTOCOL_INFOW lpProtocolInfo
,
2955 OUT LPWSTR lpszAddressString
,
2956 IN OUT LPDWORD lpdwAddressStringLength
,
2960 WCHAR buffer
[54]; /* 32 digits + 7':' + '[' + '%" + 5 digits + ']:' + 5 digits + '\0' */
2963 if (!lpsaAddress
|| !lpszAddressString
|| !lpdwAddressStringLength
)
2965 if (lpErrno
) *lpErrno
= WSAEFAULT
;
2966 return SOCKET_ERROR
;
2969 switch (lpsaAddress
->sa_family
)
2972 if (dwAddressLength
< sizeof(SOCKADDR_IN
))
2974 if (lpErrno
) *lpErrno
= WSAEINVAL
;
2975 return SOCKET_ERROR
;
2979 (unsigned int)(ntohl(((SOCKADDR_IN
*)lpsaAddress
)->sin_addr
.s_addr
) >> 24 & 0xff),
2980 (unsigned int)(ntohl(((SOCKADDR_IN
*)lpsaAddress
)->sin_addr
.s_addr
) >> 16 & 0xff),
2981 (unsigned int)(ntohl(((SOCKADDR_IN
*)lpsaAddress
)->sin_addr
.s_addr
) >> 8 & 0xff),
2982 (unsigned int)(ntohl(((SOCKADDR_IN
*)lpsaAddress
)->sin_addr
.s_addr
) & 0xff),
2983 ntohs(((SOCKADDR_IN
*)lpsaAddress
)->sin_port
));
2985 p
= wcschr(buffer
, L
':');
2986 if (!((SOCKADDR_IN
*)lpsaAddress
)->sin_port
)
2992 if (lpErrno
) *lpErrno
= WSAEINVAL
;
2993 return SOCKET_ERROR
;
2996 size
= wcslen(buffer
) + 1;
2998 if (*lpdwAddressStringLength
< size
)
3000 *lpdwAddressStringLength
= size
;
3001 if (lpErrno
) *lpErrno
= WSAEFAULT
;
3002 return SOCKET_ERROR
;
3005 *lpdwAddressStringLength
= size
;
3006 wcscpy(lpszAddressString
, buffer
);
3012 WSPStringToAddress(IN LPWSTR AddressString
,
3013 IN INT AddressFamily
,
3014 IN LPWSAPROTOCOL_INFOW lpProtocolInfo
,
3015 OUT LPSOCKADDR lpAddress
,
3016 IN OUT LPINT lpAddressLength
,
3021 LONG inetaddr
= 0, ip_part
;
3023 SOCKADDR_IN
*sockaddr
;
3025 if (!lpAddressLength
|| !lpAddress
|| !AddressString
)
3027 if (lpErrno
) *lpErrno
= WSAEINVAL
;
3028 return SOCKET_ERROR
;
3031 sockaddr
= (SOCKADDR_IN
*)lpAddress
;
3033 /* Set right address family */
3034 if (lpProtocolInfo
!= NULL
)
3036 sockaddr
->sin_family
= lpProtocolInfo
->iAddressFamily
;
3040 sockaddr
->sin_family
= AddressFamily
;
3044 if (AddressFamily
== AF_INET
)
3046 if (*lpAddressLength
< (INT
)sizeof(SOCKADDR_IN
))
3048 if (lpErrno
) *lpErrno
= WSAEFAULT
;
3052 // translate ip string to ip
3055 bp
= &AddressString
;
3058 while (*bp
< &AddressString
[wcslen(AddressString
)])
3060 ip_part
= wcstol(*bp
, bp
, 10);
3061 /* ip part number should be in range 0-255 */
3062 if (ip_part
< 0 || ip_part
> 255)
3064 if (lpErrno
) *lpErrno
= WSAEINVAL
;
3065 return SOCKET_ERROR
;
3067 inetaddr
= (inetaddr
<< 8) + ip_part
;
3068 /* we end on string end or port separator */
3069 if ((*bp
)[0] == 0 || (*bp
)[0] == L
':')
3071 /* ip parts are dot separated. verify it */
3072 if ((*bp
)[0] != L
'.')
3074 if (lpErrno
) *lpErrno
= WSAEINVAL
;
3075 return SOCKET_ERROR
;
3077 /* count the dots */
3079 /* move over the dot to next ip part */
3083 /* check dots count */
3086 if (lpErrno
) *lpErrno
= WSAEINVAL
;
3087 return SOCKET_ERROR
;
3090 /* Get port number */
3091 if ((*bp
)[0] == L
':')
3093 /* move over the column to port part */
3095 /* next char should be numeric */
3096 if ((*bp
)[0] < L
'0' || (*bp
)[0] > L
'9')
3098 if (lpErrno
) *lpErrno
= WSAEINVAL
;
3099 return SOCKET_ERROR
;
3101 port
= wcstol(*bp
, bp
, 10);
3108 if (lpErrno
) *lpErrno
= NO_ERROR
;
3109 /* rest sockaddr.sin_addr.s_addr
3110 for we need to be sure it is zero when we come to while */
3111 *lpAddressLength
= sizeof(*sockaddr
);
3112 memset(lpAddress
, 0, sizeof(*sockaddr
));
3113 sockaddr
->sin_family
= AF_INET
;
3114 sockaddr
->sin_addr
.s_addr
= inetaddr
;
3115 sockaddr
->sin_port
= port
;
3119 if (lpErrno
&& !*lpErrno
)
3124 return SOCKET_ERROR
;
3128 * FUNCTION: Cleans up service provider for a client
3130 * lpErrno = Address of buffer for error information
3132 * 0 if successful, or SOCKET_ERROR if not
3136 WSPCleanup(OUT LPINT lpErrno
)
3139 TRACE("Leaving.\n");
3141 if (lpErrno
) *lpErrno
= NO_ERROR
;
3148 AfdInfoAPC(PVOID ApcContext
,
3149 PIO_STATUS_BLOCK IoStatusBlock
,
3152 PAFDAPCCONTEXT Context
= ApcContext
;
3154 Context
->lpCompletionRoutine(IoStatusBlock
->Status
, IoStatusBlock
->Information
, Context
->lpOverlapped
, 0);
3155 HeapFree(GlobalHeap
, 0, ApcContext
);
3159 GetSocketInformation(PSOCKET_INFORMATION Socket
,
3160 ULONG AfdInformationClass
,
3161 PBOOLEAN Boolean OPTIONAL
,
3162 PULONG Ulong OPTIONAL
,
3163 PLARGE_INTEGER LargeInteger OPTIONAL
,
3164 LPWSAOVERLAPPED Overlapped OPTIONAL
,
3165 LPWSAOVERLAPPED_COMPLETION_ROUTINE CompletionRoutine OPTIONAL
)
3167 PIO_STATUS_BLOCK IOSB
;
3168 IO_STATUS_BLOCK DummyIOSB
;
3171 PAFDAPCCONTEXT APCContext
;
3172 PIO_APC_ROUTINE APCFunction
;
3173 HANDLE Event
= NULL
;
3176 Status
= NtCreateEvent(&SockEvent
,
3179 SynchronizationEvent
,
3182 if( !NT_SUCCESS(Status
) )
3183 return SOCKET_ERROR
;
3185 /* Set Info Class */
3186 InfoData
.InformationClass
= AfdInformationClass
;
3188 /* Verify if we should use APC */
3189 if (Overlapped
== NULL
)
3191 /* Not using Overlapped structure, so use normal blocking on event */
3199 /* Overlapped request for non overlapped opened socket */
3200 if ((Socket
->SharedData
->CreateFlags
& SO_SYNCHRONOUS_NONALERT
) != 0)
3202 TRACE("Opened without flag WSA_FLAG_OVERLAPPED. Do nothing.\n");
3205 if (CompletionRoutine
== NULL
)
3207 /* Using Overlapped Structure, but no Completition Routine, so no need for APC */
3208 APCContext
= (PAFDAPCCONTEXT
)Overlapped
;
3210 Event
= Overlapped
->hEvent
;
3214 /* Using Overlapped Structure and a Completition Routine, so use an APC */
3215 APCFunction
= &AfdInfoAPC
; // should be a private io completition function inside us
3216 APCContext
= HeapAlloc(GlobalHeap
, 0, sizeof(AFDAPCCONTEXT
));
3219 ERR("Not enough memory for APC Context\n");
3222 APCContext
->lpCompletionRoutine
= CompletionRoutine
;
3223 APCContext
->lpOverlapped
= Overlapped
;
3224 APCContext
->lpSocket
= Socket
;
3227 IOSB
= (PIO_STATUS_BLOCK
)&Overlapped
->Internal
;
3230 IOSB
->Status
= STATUS_PENDING
;
3233 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
3244 /* Wait for return */
3245 if (Status
== STATUS_PENDING
&& Overlapped
== NULL
)
3247 WaitForSingleObject(SockEvent
, INFINITE
);
3248 Status
= IOSB
->Status
;
3251 TRACE("Status %x Information %d\n", Status
, IOSB
->Information
);
3253 if (Status
== STATUS_PENDING
)
3255 TRACE("Leaving (Pending)\n");
3256 return WSA_IO_PENDING
;
3259 if (Status
!= STATUS_SUCCESS
)
3260 return SOCKET_ERROR
;
3262 /* Return Information */
3265 *Ulong
= InfoData
.Information
.Ulong
;
3267 if (LargeInteger
!= NULL
)
3269 *LargeInteger
= InfoData
.Information
.LargeInteger
;
3271 if (Boolean
!= NULL
)
3273 *Boolean
= InfoData
.Information
.Boolean
;
3276 NtClose( SockEvent
);
3284 SetSocketInformation(PSOCKET_INFORMATION Socket
,
3285 ULONG AfdInformationClass
,
3286 PBOOLEAN Boolean OPTIONAL
,
3287 PULONG Ulong OPTIONAL
,
3288 PLARGE_INTEGER LargeInteger OPTIONAL
,
3289 LPWSAOVERLAPPED Overlapped OPTIONAL
,
3290 LPWSAOVERLAPPED_COMPLETION_ROUTINE CompletionRoutine OPTIONAL
)
3292 PIO_STATUS_BLOCK IOSB
;
3293 IO_STATUS_BLOCK DummyIOSB
;
3296 PAFDAPCCONTEXT APCContext
;
3297 PIO_APC_ROUTINE APCFunction
;
3298 HANDLE Event
= NULL
;
3301 Status
= NtCreateEvent(&SockEvent
,
3304 SynchronizationEvent
,
3307 if( !NT_SUCCESS(Status
) )
3308 return SOCKET_ERROR
;
3310 /* Set Info Class */
3311 InfoData
.InformationClass
= AfdInformationClass
;
3313 /* Set Information */
3316 InfoData
.Information
.Ulong
= *Ulong
;
3318 if (LargeInteger
!= NULL
)
3320 InfoData
.Information
.LargeInteger
= *LargeInteger
;
3322 if (Boolean
!= NULL
)
3324 InfoData
.Information
.Boolean
= *Boolean
;
3327 /* Verify if we should use APC */
3328 if (Overlapped
== NULL
)
3330 /* Not using Overlapped structure, so use normal blocking on event */
3338 /* Overlapped request for non overlapped opened socket */
3339 if ((Socket
->SharedData
->CreateFlags
& SO_SYNCHRONOUS_NONALERT
) != 0)
3341 TRACE("Opened without flag WSA_FLAG_OVERLAPPED. Do nothing.\n");
3344 if (CompletionRoutine
== NULL
)
3346 /* Using Overlapped Structure, but no Completition Routine, so no need for APC */
3347 APCContext
= (PAFDAPCCONTEXT
)Overlapped
;
3349 Event
= Overlapped
->hEvent
;
3353 /* Using Overlapped Structure and a Completition Routine, so use an APC */
3354 APCFunction
= &AfdInfoAPC
; // should be a private io completition function inside us
3355 APCContext
= HeapAlloc(GlobalHeap
, 0, sizeof(AFDAPCCONTEXT
));
3358 ERR("Not enough memory for APC Context\n");
3361 APCContext
->lpCompletionRoutine
= CompletionRoutine
;
3362 APCContext
->lpOverlapped
= Overlapped
;
3363 APCContext
->lpSocket
= Socket
;
3366 IOSB
= (PIO_STATUS_BLOCK
)&Overlapped
->Internal
;
3369 IOSB
->Status
= STATUS_PENDING
;
3372 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
3383 /* Wait for return */
3384 if (Status
== STATUS_PENDING
&& Overlapped
== NULL
)
3386 WaitForSingleObject(SockEvent
, INFINITE
);
3387 Status
= IOSB
->Status
;
3390 NtClose( SockEvent
);
3392 TRACE("Status %x Information %d\n", Status
, IOSB
->Information
);
3394 if (Status
== STATUS_PENDING
)
3396 TRACE("Leaving (Pending)\n");
3397 return WSA_IO_PENDING
;
3400 return Status
== STATUS_SUCCESS
? NO_ERROR
: SOCKET_ERROR
;
3405 GetSocketStructure(SOCKET Handle
)
3407 PSOCKET_INFORMATION CurrentSocket
;
3409 EnterCriticalSection(&SocketListLock
);
3411 CurrentSocket
= SocketListHead
;
3412 while (CurrentSocket
)
3414 if (CurrentSocket
->Handle
== Handle
)
3416 LeaveCriticalSection(&SocketListLock
);
3417 return CurrentSocket
;
3420 CurrentSocket
= CurrentSocket
->NextSocket
;
3423 LeaveCriticalSection(&SocketListLock
);
3428 int CreateContext(PSOCKET_INFORMATION Socket
)
3430 IO_STATUS_BLOCK IOSB
;
3431 SOCKET_CONTEXT ContextData
;
3435 Status
= NtCreateEvent(&SockEvent
,
3438 SynchronizationEvent
,
3441 if( !NT_SUCCESS(Status
) )
3442 return SOCKET_ERROR
;
3444 /* Create Context */
3445 ContextData
.SharedData
= *Socket
->SharedData
;
3446 ContextData
.SizeOfHelperData
= 0;
3447 RtlCopyMemory (&ContextData
.LocalAddress
,
3448 Socket
->LocalAddress
,
3449 Socket
->SharedData
->SizeOfLocalAddress
);
3450 RtlCopyMemory (&ContextData
.RemoteAddress
,
3451 Socket
->RemoteAddress
,
3452 Socket
->SharedData
->SizeOfRemoteAddress
);
3455 Status
= NtDeviceIoControlFile((HANDLE
)Socket
->Handle
,
3460 IOCTL_AFD_SET_CONTEXT
,
3462 sizeof(ContextData
),
3466 /* Wait for Completion */
3467 if (Status
== STATUS_PENDING
)
3469 WaitForSingleObject(SockEvent
, INFINITE
);
3470 Status
= IOSB
.Status
;
3473 NtClose( SockEvent
);
3475 return Status
== STATUS_SUCCESS
? NO_ERROR
: SOCKET_ERROR
;
3478 BOOLEAN
SockCreateOrReferenceAsyncThread(VOID
)
3480 HANDLE hAsyncThread
;
3481 DWORD AsyncThreadId
;
3483 OBJECT_HANDLE_ATTRIBUTE_INFORMATION HandleFlags
;
3486 /* Check if the Thread Already Exists */
3487 if (SockAsyncThreadRefCount
)
3489 ASSERT(SockAsyncCompletionPort
);
3493 /* Create the Completion Port */
3494 if (!SockAsyncCompletionPort
)
3496 Status
= NtCreateIoCompletion(&SockAsyncCompletionPort
,
3497 IO_COMPLETION_ALL_ACCESS
,
3499 2); // Allow 2 threads only
3500 if (!NT_SUCCESS(Status
))
3502 ERR("Failed to create completion port: 0x%08x\n", Status
);
3505 /* Protect Handle */
3506 HandleFlags
.ProtectFromClose
= TRUE
;
3507 HandleFlags
.Inherit
= FALSE
;
3508 Status
= NtSetInformationObject(SockAsyncCompletionPort
,
3509 ObjectHandleFlagInformation
,
3511 sizeof(HandleFlags
));
3514 /* Create the Async Event */
3515 Status
= NtCreateEvent(&AsyncEvent
,
3521 /* Create the Async Thread */
3522 hAsyncThread
= CreateThread(NULL
,
3529 /* Close the Handle */
3530 NtClose(hAsyncThread
);
3532 /* Increase the Reference Count */
3533 SockAsyncThreadRefCount
++;
3539 SockAsyncThread(PVOID ThreadParam
)
3542 PASYNC_COMPLETION_ROUTINE AsyncCompletionRoutine
;
3543 IO_STATUS_BLOCK IOSB
;
3546 /* Make the Thread Higher Priority */
3547 SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_ABOVE_NORMAL
);
3549 /* Do a KQUEUE/WorkItem Style Loop, thanks to IoCompletion Ports */
3552 Status
= NtRemoveIoCompletion (SockAsyncCompletionPort
,
3553 (PVOID
*)&AsyncCompletionRoutine
,
3557 /* Call the Async Function */
3558 if (NT_SUCCESS(Status
))
3560 (*AsyncCompletionRoutine
)(AsyncContext
, &IOSB
);
3564 /* It Failed, sleep for a second */
3567 } while ((Status
!= STATUS_TIMEOUT
));
3569 /* The Thread has Ended */
3573 BOOLEAN
SockGetAsyncSelectHelperAfdHandle(VOID
)
3575 UNICODE_STRING AfdHelper
;
3576 OBJECT_ATTRIBUTES ObjectAttributes
;
3577 IO_STATUS_BLOCK IoSb
;
3578 FILE_COMPLETION_INFORMATION CompletionInfo
;
3579 OBJECT_HANDLE_ATTRIBUTE_INFORMATION HandleFlags
;
3581 /* First, make sure we're not already initialized */
3582 if (SockAsyncHelperAfdHandle
)
3587 /* Set up Handle Name and Object */
3588 RtlInitUnicodeString(&AfdHelper
, L
"\\Device\\Afd\\AsyncSelectHlp" );
3589 InitializeObjectAttributes(&ObjectAttributes
,
3591 OBJ_INHERIT
| OBJ_CASE_INSENSITIVE
,
3595 /* Open the Handle to AFD */
3596 NtCreateFile(&SockAsyncHelperAfdHandle
,
3597 GENERIC_READ
| GENERIC_WRITE
| SYNCHRONIZE
,
3602 FILE_SHARE_READ
| FILE_SHARE_WRITE
,
3609 * Now Set up the Completion Port Information
3610 * This means that whenever a Poll is finished, the routine will be executed
3612 CompletionInfo
.Port
= SockAsyncCompletionPort
;
3613 CompletionInfo
.Key
= SockAsyncSelectCompletionRoutine
;
3614 NtSetInformationFile(SockAsyncHelperAfdHandle
,
3617 sizeof(CompletionInfo
),
3618 FileCompletionInformation
);
3621 /* Protect the Handle */
3622 HandleFlags
.ProtectFromClose
= TRUE
;
3623 HandleFlags
.Inherit
= FALSE
;
3624 NtSetInformationObject(SockAsyncCompletionPort
,
3625 ObjectHandleFlagInformation
,
3627 sizeof(HandleFlags
));
3630 /* Set this variable to true so that Send/Recv/Accept will know wether to renable disabled events */
3631 SockAsyncSelectCalled
= TRUE
;
3635 VOID
SockAsyncSelectCompletionRoutine(PVOID Context
, PIO_STATUS_BLOCK IoStatusBlock
)
3638 PASYNC_DATA AsyncData
= Context
;
3639 PSOCKET_INFORMATION Socket
;
3642 /* Get the Socket */
3643 Socket
= AsyncData
->ParentSocket
;
3645 /* Check if the Sequence Number Changed behind our back */
3646 if (AsyncData
->SequenceNumber
!= Socket
->SharedData
->SequenceNumber
)
3651 /* Check we were manually called b/c of a failure */
3652 if (!NT_SUCCESS(IoStatusBlock
->Status
))
3654 /* FIXME: Perform Upcall */
3658 for (x
= 1; x
; x
<<=1)
3660 switch (AsyncData
->AsyncSelectInfo
.Handles
[0].Events
& x
)
3662 case AFD_EVENT_RECEIVE
:
3663 if (0 != (Socket
->SharedData
->AsyncEvents
& FD_READ
) &&
3664 0 == (Socket
->SharedData
->AsyncDisabledEvents
& FD_READ
))
3666 /* Make the Notification */
3667 (Upcalls
.lpWPUPostMessage
)(Socket
->SharedData
->hWnd
,
3668 Socket
->SharedData
->wMsg
,
3670 WSAMAKESELECTREPLY(FD_READ
, 0));
3671 /* Disable this event until the next read(); */
3672 Socket
->SharedData
->AsyncDisabledEvents
|= FD_READ
;
3676 case AFD_EVENT_OOB_RECEIVE
:
3677 if (0 != (Socket
->SharedData
->AsyncEvents
& FD_OOB
) &&
3678 0 == (Socket
->SharedData
->AsyncDisabledEvents
& FD_OOB
))
3680 /* Make the Notification */
3681 (Upcalls
.lpWPUPostMessage
)(Socket
->SharedData
->hWnd
,
3682 Socket
->SharedData
->wMsg
,
3684 WSAMAKESELECTREPLY(FD_OOB
, 0));
3685 /* Disable this event until the next read(); */
3686 Socket
->SharedData
->AsyncDisabledEvents
|= FD_OOB
;
3690 case AFD_EVENT_SEND
:
3691 if (0 != (Socket
->SharedData
->AsyncEvents
& FD_WRITE
) &&
3692 0 == (Socket
->SharedData
->AsyncDisabledEvents
& FD_WRITE
))
3694 /* Make the Notification */
3695 (Upcalls
.lpWPUPostMessage
)(Socket
->SharedData
->hWnd
,
3696 Socket
->SharedData
->wMsg
,
3698 WSAMAKESELECTREPLY(FD_WRITE
, 0));
3699 /* Disable this event until the next write(); */
3700 Socket
->SharedData
->AsyncDisabledEvents
|= FD_WRITE
;
3704 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
3705 case AFD_EVENT_CONNECT
:
3706 case AFD_EVENT_CONNECT_FAIL
:
3707 if (0 != (Socket
->SharedData
->AsyncEvents
& FD_CONNECT
) &&
3708 0 == (Socket
->SharedData
->AsyncDisabledEvents
& FD_CONNECT
))
3710 /* Make the Notification */
3711 (Upcalls
.lpWPUPostMessage
)(Socket
->SharedData
->hWnd
,
3712 Socket
->SharedData
->wMsg
,
3714 WSAMAKESELECTREPLY(FD_CONNECT
, 0));
3715 /* Disable this event forever; */
3716 Socket
->SharedData
->AsyncDisabledEvents
|= FD_CONNECT
;
3720 case AFD_EVENT_ACCEPT
:
3721 if (0 != (Socket
->SharedData
->AsyncEvents
& FD_ACCEPT
) &&
3722 0 == (Socket
->SharedData
->AsyncDisabledEvents
& FD_ACCEPT
))
3724 /* Make the Notification */
3725 (Upcalls
.lpWPUPostMessage
)(Socket
->SharedData
->hWnd
,
3726 Socket
->SharedData
->wMsg
,
3728 WSAMAKESELECTREPLY(FD_ACCEPT
, 0));
3729 /* Disable this event until the next accept(); */
3730 Socket
->SharedData
->AsyncDisabledEvents
|= FD_ACCEPT
;
3734 case AFD_EVENT_DISCONNECT
:
3735 case AFD_EVENT_ABORT
:
3736 case AFD_EVENT_CLOSE
:
3737 if (0 != (Socket
->SharedData
->AsyncEvents
& FD_CLOSE
) &&
3738 0 == (Socket
->SharedData
->AsyncDisabledEvents
& FD_CLOSE
))
3740 /* Make the Notification */
3741 (Upcalls
.lpWPUPostMessage
)(Socket
->SharedData
->hWnd
,
3742 Socket
->SharedData
->wMsg
,
3744 WSAMAKESELECTREPLY(FD_CLOSE
, 0));
3745 /* Disable this event forever; */
3746 Socket
->SharedData
->AsyncDisabledEvents
|= FD_CLOSE
;
3749 /* FIXME: Support QOS */
3753 /* Check if there are any events left for us to check */
3754 if ((Socket
->SharedData
->AsyncEvents
& (~Socket
->SharedData
->AsyncDisabledEvents
)) == 0 )
3760 SockProcessAsyncSelect(Socket
, AsyncData
);
3764 VOID
SockProcessAsyncSelect(PSOCKET_INFORMATION Socket
, PASYNC_DATA AsyncData
)
3767 ULONG lNetworkEvents
;
3770 /* Set up the Async Data Event Info */
3771 AsyncData
->AsyncSelectInfo
.Timeout
.HighPart
= 0x7FFFFFFF;
3772 AsyncData
->AsyncSelectInfo
.Timeout
.LowPart
= 0xFFFFFFFF;
3773 AsyncData
->AsyncSelectInfo
.HandleCount
= 1;
3774 AsyncData
->AsyncSelectInfo
.Exclusive
= TRUE
;
3775 AsyncData
->AsyncSelectInfo
.Handles
[0].Handle
= Socket
->Handle
;
3776 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
= 0;
3778 /* Remove unwanted events */
3779 lNetworkEvents
= Socket
->SharedData
->AsyncEvents
& (~Socket
->SharedData
->AsyncDisabledEvents
);
3781 /* Set Events to wait for */
3782 if (lNetworkEvents
& FD_READ
)
3784 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_RECEIVE
;
3787 if (lNetworkEvents
& FD_WRITE
)
3789 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_SEND
;
3792 if (lNetworkEvents
& FD_OOB
)
3794 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_OOB_RECEIVE
;
3797 if (lNetworkEvents
& FD_ACCEPT
)
3799 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_ACCEPT
;
3802 /* FIXME: THIS IS NOT RIGHT!!! HACK HACK HACK! */
3803 if (lNetworkEvents
& FD_CONNECT
)
3805 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_CONNECT
| AFD_EVENT_CONNECT_FAIL
;
3808 if (lNetworkEvents
& FD_CLOSE
)
3810 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_DISCONNECT
| AFD_EVENT_ABORT
| AFD_EVENT_CLOSE
;
3813 if (lNetworkEvents
& FD_QOS
)
3815 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_QOS
;
3818 if (lNetworkEvents
& FD_GROUP_QOS
)
3820 AsyncData
->AsyncSelectInfo
.Handles
[0].Events
|= AFD_EVENT_GROUP_QOS
;
3824 Status
= NtDeviceIoControlFile (SockAsyncHelperAfdHandle
,
3828 &AsyncData
->IoStatusBlock
,
3830 &AsyncData
->AsyncSelectInfo
,
3831 sizeof(AsyncData
->AsyncSelectInfo
),
3832 &AsyncData
->AsyncSelectInfo
,
3833 sizeof(AsyncData
->AsyncSelectInfo
));
3835 /* I/O Manager Won't call the completion routine, let's do it manually */
3836 if (NT_SUCCESS(Status
))
3842 AsyncData
->IoStatusBlock
.Status
= Status
;
3843 SockAsyncSelectCompletionRoutine(AsyncData
, &AsyncData
->IoStatusBlock
);
3847 VOID
SockProcessQueuedAsyncSelect(PVOID Context
, PIO_STATUS_BLOCK IoStatusBlock
)
3849 PASYNC_DATA AsyncData
= Context
;
3850 BOOL FreeContext
= TRUE
;
3851 PSOCKET_INFORMATION Socket
;
3853 /* Get the Socket */
3854 Socket
= AsyncData
->ParentSocket
;
3856 /* If someone closed it, stop the function */
3857 if (Socket
->SharedData
->State
!= SocketClosed
)
3859 /* Check if the Sequence Number changed by now, in which case quit */
3860 if (AsyncData
->SequenceNumber
== Socket
->SharedData
->SequenceNumber
)
3862 /* Do the actual select, if needed */
3863 if ((Socket
->SharedData
->AsyncEvents
& (~Socket
->SharedData
->AsyncDisabledEvents
)))
3865 SockProcessAsyncSelect(Socket
, AsyncData
);
3866 FreeContext
= FALSE
;
3871 /* Free the Context */
3874 HeapFree(GetProcessHeap(), 0, AsyncData
);
3881 SockReenableAsyncSelectEvent (IN PSOCKET_INFORMATION Socket
,
3884 PASYNC_DATA AsyncData
;
3886 /* Make sure the event is actually disabled */
3887 if (!(Socket
->SharedData
->AsyncDisabledEvents
& Event
))
3893 Socket
->SharedData
->AsyncDisabledEvents
&= ~Event
;
3895 /* Return if no more events are being polled */
3896 if ((Socket
->SharedData
->AsyncEvents
& (~Socket
->SharedData
->AsyncDisabledEvents
)) == 0 )
3901 /* Wait on new events */
3902 AsyncData
= HeapAlloc(GetProcessHeap(), 0, sizeof(ASYNC_DATA
));
3903 if (!AsyncData
) return;
3905 /* Create the Asynch Thread if Needed */
3906 SockCreateOrReferenceAsyncThread();
3908 /* Increase the sequence number to stop anything else */
3909 Socket
->SharedData
->SequenceNumber
++;
3911 /* Set up the Async Data */
3912 AsyncData
->ParentSocket
= Socket
;
3913 AsyncData
->SequenceNumber
= Socket
->SharedData
->SequenceNumber
;
3915 /* Begin Async Select by using I/O Completion */
3916 NtSetIoCompletion(SockAsyncCompletionPort
,
3917 (PVOID
)&SockProcessQueuedAsyncSelect
,
3928 DllMain(HANDLE hInstDll
,
3935 case DLL_PROCESS_ATTACH
:
3937 TRACE("Loading MSAFD.DLL \n");
3939 /* Don't need thread attach notifications
3940 so disable them to improve performance */
3941 DisableThreadLibraryCalls(hInstDll
);
3943 /* List of DLL Helpers */
3944 InitializeListHead(&SockHelpersListHead
);
3946 /* Heap to use when allocating */
3947 GlobalHeap
= GetProcessHeap();
3949 /* Initialize the lock that protects our socket list */
3950 InitializeCriticalSection(&SocketListLock
);
3952 TRACE("MSAFD.DLL has been loaded\n");
3956 case DLL_THREAD_ATTACH
:
3959 case DLL_THREAD_DETACH
:
3962 case DLL_PROCESS_DETACH
:
3964 /* Delete the socket list lock */
3965 DeleteCriticalSection(&SocketListLock
);
3970 TRACE("DllMain of msafd.dll (leaving)\n");