- Don't disconnect the same socket multiple times (once per TDI_SEND IRP cancelled...
[reactos.git] / reactos / lib / drivers / ip / transport / tcp / tcp.c
index 7dff2cc..e610359 100644 (file)
 LONG TCP_IPIdentification = 0;
 static BOOLEAN TCPInitialized = FALSE;
 static NPAGED_LOOKASIDE_LIST TCPSegmentList;
-LIST_ENTRY SignalledConnections;
+LIST_ENTRY SignalledConnectionsList;
+KSPIN_LOCK SignalledConnectionsLock;
 LIST_ENTRY SleepingThreadsList;
 FAST_MUTEX SleepingThreadsLock;
 RECURSIVE_MUTEX TCPLock;
 PORT_SET TCPPorts;
 
-static VOID HandleSignalledConnection( PCONNECTION_ENDPOINT Connection,
-                                      ULONG NewState ) {
+static VOID HandleSignalledConnection( PCONNECTION_ENDPOINT Connection ) {
     NTSTATUS Status = STATUS_SUCCESS;
     PTCP_COMPLETION_ROUTINE Complete;
     PTDI_BUCKET Bucket;
@@ -30,220 +30,244 @@ static VOID HandleSignalledConnection( PCONNECTION_ENDPOINT Connection,
     PIRP Irp;
     PMDL Mdl;
 
+    ASSERT_LOCKED(&TCPLock);
+
     TI_DbgPrint(MID_TRACE,("Handling signalled state on %x (%x)\n",
                            Connection, Connection->SocketContext));
 
+    if( Connection->SignalState & SEL_FIN ) {
+        TI_DbgPrint(DEBUG_TCP, ("EOF From socket\n"));
+
+        while ((Entry = ExInterlockedRemoveHeadList( &Connection->ReceiveRequest,
+                                                     &Connection->Lock )) != NULL)
+        {
+           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+           Complete = Bucket->Request.RequestNotifyObject;
+
+           Complete( Bucket->Request.RequestContext, STATUS_CANCELLED, 0 );
+
+           exFreePool(Bucket);
+        }
+
+        while ((Entry = ExInterlockedRemoveHeadList( &Connection->SendRequest,
+                                                     &Connection->Lock )) != NULL)
+        {
+           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+           Complete = Bucket->Request.RequestNotifyObject;
+
+           Complete( Bucket->Request.RequestContext, STATUS_CANCELLED, 0 );
+
+           exFreePool(Bucket);
+        }
+
+        while ((Entry = ExInterlockedRemoveHeadList( &Connection->ListenRequest,
+                                                     &Connection->Lock )) != NULL)
+        {
+           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+           Complete = Bucket->Request.RequestNotifyObject;
+
+           /* We have to notify oskittcp of the abortion */
+           TCPAbortListenForSocket(Connection->AddressFile->Listener,
+                               Connection);
+
+           Complete( Bucket->Request.RequestContext, STATUS_CANCELLED, 0 );
+
+           exFreePool(Bucket);
+        }
+
+        while ((Entry = ExInterlockedRemoveHeadList( &Connection->ConnectRequest,
+                                                     &Connection->Lock )) != NULL)
+        {
+           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+           Complete = Bucket->Request.RequestNotifyObject;
+
+           Complete( Bucket->Request.RequestContext, STATUS_CANCELLED, 0 );
+
+           exFreePool(Bucket);
+        }
+
+        Connection->SignalState = 0;
+    }
+
     /* Things that can happen when we try the initial connection */
-    if( NewState & SEL_CONNECT ) {
-       while( !IsListEmpty( &Connection->ConnectRequest ) ) {
-            Connection->State |= NewState;
-            Entry = RemoveHeadList( &Connection->ConnectRequest );
+    if( Connection->SignalState & SEL_CONNECT ) {
+        while( (Entry = ExInterlockedRemoveHeadList( &Connection->ConnectRequest,
+                                                     &Connection->Lock )) != NULL ) {
+            
             TI_DbgPrint(DEBUG_TCP, ("Connect Event\n"));
 
             Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
             Complete = Bucket->Request.RequestNotifyObject;
             TI_DbgPrint(DEBUG_TCP,
-                        ("Completing Request %x\n", Bucket->Request));
-
-            if( (NewState & (SEL_CONNECT | SEL_FIN)) ==
-                (SEL_CONNECT | SEL_FIN) )
-                Status = STATUS_CONNECTION_REFUSED;
-            else
-                Status = STATUS_SUCCESS;
+                        ("Completing Request %x\n", Bucket->Request.RequestContext));
 
-            Complete( Bucket->Request.RequestContext, Status, 0 );
+            Complete( Bucket->Request.RequestContext, STATUS_SUCCESS, 0 );
 
             /* Frees the bucket allocated in TCPConnect */
-            PoolFreeBuffer( Bucket );
+            exFreePool( Bucket );
         }
     }
 
-    if( NewState & SEL_ACCEPT ) {
-       /* Handle readable on a listening socket --
-        * TODO: Implement filtering
-        */
-
-       TI_DbgPrint(DEBUG_TCP,("Accepting new connection on %x (Queue: %s)\n",
-                              Connection,
-                              IsListEmpty(&Connection->ListenRequest) ?
-                              "empty" : "nonempty"));
-
-       while( !IsListEmpty( &Connection->ListenRequest ) ) {
-           PIO_STACK_LOCATION IrpSp;
-
-           Entry = RemoveHeadList( &Connection->ListenRequest );
-           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
-           Complete = Bucket->Request.RequestNotifyObject;
-
-           Irp = Bucket->Request.RequestContext;
-           IrpSp = IoGetCurrentIrpStackLocation( Irp );
-
-           TI_DbgPrint(DEBUG_TCP,("Getting the socket\n"));
-           Status = TCPServiceListeningSocket
-               ( Connection->AddressFile->Listener,
-                 Bucket->AssociatedEndpoint,
-                 (PTDI_REQUEST_KERNEL)&IrpSp->Parameters );
-
-           TI_DbgPrint(DEBUG_TCP,("Socket: Status: %x\n"));
-
-           if( Status == STATUS_PENDING ) {
-               InsertHeadList( &Connection->ListenRequest, &Bucket->Entry );
-               break;
-           } else {
-               Complete( Bucket->Request.RequestContext, Status, 0 );
-               PoolFreeBuffer( Bucket );
-           }
-       }
+    if( Connection->SignalState & SEL_ACCEPT ) {
+        /* Handle readable on a listening socket --
+         * TODO: Implement filtering
+         */
+
+        TI_DbgPrint(DEBUG_TCP,("Accepting new connection on %x (Queue: %s)\n",
+                               Connection,
+                               IsListEmpty(&Connection->ListenRequest) ?
+                               "empty" : "nonempty"));
+
+        while( (Entry = ExInterlockedRemoveHeadList( &Connection->ListenRequest,
+                                                     &Connection->Lock )) != NULL ) {
+            PIO_STACK_LOCATION IrpSp;
+
+            Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+            Complete = Bucket->Request.RequestNotifyObject;
+
+            Irp = Bucket->Request.RequestContext;
+            IrpSp = IoGetCurrentIrpStackLocation( Irp );
+
+            TI_DbgPrint(DEBUG_TCP,("Getting the socket\n"));
+            Status = TCPServiceListeningSocket
+                ( Connection->AddressFile->Listener,
+                  Bucket->AssociatedEndpoint,
+                  (PTDI_REQUEST_KERNEL)&IrpSp->Parameters );
+
+            TI_DbgPrint(DEBUG_TCP,("Socket: Status: %x\n"));
+
+            if( Status == STATUS_PENDING ) {
+                ExInterlockedInsertHeadList( &Connection->ListenRequest, &Bucket->Entry, &Connection->Lock );
+                break;
+            } else {
+                Complete( Bucket->Request.RequestContext, Status, 0 );
+                exFreePool( Bucket );
+            }
+        }
     }
 
     /* Things that happen after we're connected */
-    if( NewState & SEL_READ ) {
-       TI_DbgPrint(DEBUG_TCP,("Readable: irp list %s\n",
-                              IsListEmpty(&Connection->ReceiveRequest) ?
-                              "empty" : "nonempty"));
-
-       while( !IsListEmpty( &Connection->ReceiveRequest ) ) {
-           OSK_UINT RecvLen = 0, Received = 0;
-           OSK_PCHAR RecvBuffer = 0;
-
-           Entry = RemoveHeadList( &Connection->ReceiveRequest );
-           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
-           Complete = Bucket->Request.RequestNotifyObject;
-
-           Irp = Bucket->Request.RequestContext;
-           Mdl = Irp->MdlAddress;
-
-           TI_DbgPrint(DEBUG_TCP,
-                       ("Getting the user buffer from %x\n", Mdl));
-
-           NdisQueryBuffer( Mdl, &RecvBuffer, &RecvLen );
-
-           TI_DbgPrint(DEBUG_TCP,
-                       ("Reading %d bytes to %x\n", RecvLen, RecvBuffer));
-
-           TI_DbgPrint(DEBUG_TCP, ("Connection: %x\n", Connection));
-           TI_DbgPrint
-               (DEBUG_TCP,
-                ("Connection->SocketContext: %x\n",
-                 Connection->SocketContext));
-           TI_DbgPrint(DEBUG_TCP, ("RecvBuffer: %x\n", RecvBuffer));
-
-           Status = TCPTranslateError
-               ( OskitTCPRecv( Connection->SocketContext,
-                               RecvBuffer,
-                               RecvLen,
-                               &Received,
-                               0 ) );
-
-           TI_DbgPrint(DEBUG_TCP,("TCP Bytes: %d\n", Received));
-
-           if( Status == STATUS_SUCCESS ) {
-               TI_DbgPrint(DEBUG_TCP,("Received %d bytes with status %x\n",
-                                      Received, Status));
-
-               Complete( Bucket->Request.RequestContext,
-                         STATUS_SUCCESS, Received );
-               PoolFreeBuffer( Bucket );
-           } else if( Status == STATUS_PENDING ) {
-               InsertHeadList
-                   ( &Connection->ReceiveRequest, &Bucket->Entry );
-               break;
-           } else {
-               TI_DbgPrint(DEBUG_TCP,
-                           ("Completing Receive request: %x %x\n",
-                            Bucket->Request, Status));
-               Complete( Bucket->Request.RequestContext, Status, 0 );
-               PoolFreeBuffer( Bucket );
-           }
-       }
-    }
-    if( NewState & SEL_WRITE ) {
-       TI_DbgPrint(DEBUG_TCP,("Writeable: irp list %s\n",
-                              IsListEmpty(&Connection->ReceiveRequest) ?
-                              "empty" : "nonempty"));
-
-       while( !IsListEmpty( &Connection->SendRequest ) ) {
-           OSK_UINT SendLen = 0, Sent = 0;
-           OSK_PCHAR SendBuffer = 0;
-
-           Entry = RemoveHeadList( &Connection->SendRequest );
-           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
-           Complete = Bucket->Request.RequestNotifyObject;
-
-           Irp = Bucket->Request.RequestContext;
-           Mdl = Irp->MdlAddress;
-
-           TI_DbgPrint(DEBUG_TCP,
-                       ("Getting the user buffer from %x\n", Mdl));
-
-           NdisQueryBuffer( Mdl, &SendBuffer, &SendLen );
-
-           TI_DbgPrint(DEBUG_TCP,
-                       ("Writing %d bytes to %x\n", SendLen, SendBuffer));
-
-           TI_DbgPrint(DEBUG_TCP, ("Connection: %x\n", Connection));
-           TI_DbgPrint
-               (DEBUG_TCP,
-                ("Connection->SocketContext: %x\n",
-                 Connection->SocketContext));
-
-           Status = TCPTranslateError
-               ( OskitTCPSend( Connection->SocketContext,
-                               SendBuffer,
-                               SendLen,
-                               &Sent,
-                               0 ) );
-
-           TI_DbgPrint(DEBUG_TCP,("TCP Bytes: %d\n", Sent));
-
-           if( Status == STATUS_SUCCESS ) {
-               TI_DbgPrint(DEBUG_TCP,("Sent %d bytes with status %x\n",
-                                      Sent, Status));
-
-               Complete( Bucket->Request.RequestContext,
-                         STATUS_SUCCESS, Sent );
-               PoolFreeBuffer( Bucket );
-           } else if( Status == STATUS_PENDING ) {
-               InsertHeadList
-                   ( &Connection->SendRequest, &Bucket->Entry );
-               break;
-           } else {
-               TI_DbgPrint(DEBUG_TCP,
-                           ("Completing Send request: %x %x\n",
-                            Bucket->Request, Status));
-               Complete( Bucket->Request.RequestContext, Status, 0 );
-               PoolFreeBuffer( Bucket );
-           }
-       }
+    if( Connection->SignalState & SEL_READ ) {
+        TI_DbgPrint(DEBUG_TCP,("Readable: irp list %s\n",
+                               IsListEmpty(&Connection->ReceiveRequest) ?
+                               "empty" : "nonempty"));
+
+        while( (Entry = ExInterlockedRemoveHeadList( &Connection->ReceiveRequest,
+                                                     &Connection->Lock )) != NULL ) {
+            OSK_UINT RecvLen = 0, Received = 0;
+            PVOID RecvBuffer = 0;
+
+            Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+            Complete = Bucket->Request.RequestNotifyObject;
+
+            Irp = Bucket->Request.RequestContext;
+            Mdl = Irp->MdlAddress;
+
+            TI_DbgPrint(DEBUG_TCP,
+                        ("Getting the user buffer from %x\n", Mdl));
+
+            NdisQueryBuffer( Mdl, &RecvBuffer, &RecvLen );
+
+            TI_DbgPrint(DEBUG_TCP,
+                        ("Reading %d bytes to %x\n", RecvLen, RecvBuffer));
+
+            TI_DbgPrint(DEBUG_TCP, ("Connection: %x\n", Connection));
+            TI_DbgPrint
+                (DEBUG_TCP,
+                 ("Connection->SocketContext: %x\n",
+                  Connection->SocketContext));
+            TI_DbgPrint(DEBUG_TCP, ("RecvBuffer: %x\n", RecvBuffer));
+
+            Status = TCPTranslateError
+                ( OskitTCPRecv( Connection->SocketContext,
+                                RecvBuffer,
+                                RecvLen,
+                                &Received,
+                                0 ) );
+
+            TI_DbgPrint(DEBUG_TCP,("TCP Bytes: %d\n", Received));
+
+            if( Status == STATUS_SUCCESS ) {
+                TI_DbgPrint(DEBUG_TCP,("Received %d bytes with status %x\n",
+                                       Received, Status));
+
+                Complete( Bucket->Request.RequestContext,
+                          STATUS_SUCCESS, Received );
+                exFreePool( Bucket );
+            } else if( Status == STATUS_PENDING ) {
+                ExInterlockedInsertHeadList
+                    ( &Connection->ReceiveRequest, &Bucket->Entry, &Connection->Lock );
+                break;
+            } else {
+                TI_DbgPrint(DEBUG_TCP,
+                            ("Completing Receive request: %x %x\n",
+                             Bucket->Request, Status));
+                Complete( Bucket->Request.RequestContext, Status, 0 );
+                exFreePool( Bucket );
+            }
+        }
     }
+    if( Connection->SignalState & SEL_WRITE ) {
+        TI_DbgPrint(DEBUG_TCP,("Writeable: irp list %s\n",
+                               IsListEmpty(&Connection->SendRequest) ?
+                               "empty" : "nonempty"));
+
+        while( (Entry = ExInterlockedRemoveHeadList( &Connection->SendRequest,
+                                                     &Connection->Lock )) != NULL ) {
+            OSK_UINT SendLen = 0, Sent = 0;
+            PVOID SendBuffer = 0;
+
+            Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+            Complete = Bucket->Request.RequestNotifyObject;
+
+            Irp = Bucket->Request.RequestContext;
+            Mdl = Irp->MdlAddress;
+
+            TI_DbgPrint(DEBUG_TCP,
+                        ("Getting the user buffer from %x\n", Mdl));
 
-    if( NewState & SEL_FIN ) {
-        PLIST_ENTRY ListsToErase[4];
-        NTSTATUS    IrpStatus[4];
-        UINT i;
-
-       TI_DbgPrint(DEBUG_TCP, ("EOF From socket\n"));
-
-        ListsToErase[0] = &Connection->ReceiveRequest;
-        IrpStatus   [0] = STATUS_SUCCESS;
-        ListsToErase[1] = &Connection->ListenRequest;
-        IrpStatus   [1] = STATUS_UNSUCCESSFUL;
-        ListsToErase[2] = &Connection->ConnectRequest;
-        IrpStatus   [2] = STATUS_UNSUCCESSFUL;
-        ListsToErase[3] = 0;
-       IrpStatus   [3] = 0;
-
-        for( i = 0; ListsToErase[i]; i++ ) {
-            while( !IsListEmpty( ListsToErase[i] ) ) {
-                Entry = RemoveHeadList( ListsToErase[i] );
-                Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
-                Complete = Bucket->Request.RequestNotifyObject;
-                Complete( Bucket->Request.RequestContext, IrpStatus[i], 0 );
-               PoolFreeBuffer( Bucket );
+            NdisQueryBuffer( Mdl, &SendBuffer, &SendLen );
+
+            TI_DbgPrint(DEBUG_TCP,
+                        ("Writing %d bytes to %x\n", SendLen, SendBuffer));
+
+            TI_DbgPrint(DEBUG_TCP, ("Connection: %x\n", Connection));
+            TI_DbgPrint
+                (DEBUG_TCP,
+                 ("Connection->SocketContext: %x\n",
+                  Connection->SocketContext));
+
+            Status = TCPTranslateError
+                ( OskitTCPSend( Connection->SocketContext,
+                                SendBuffer,
+                                SendLen,
+                                &Sent,
+                                0 ) );
+
+            TI_DbgPrint(DEBUG_TCP,("TCP Bytes: %d\n", Sent));
+
+            if( Status == STATUS_SUCCESS ) {
+                TI_DbgPrint(DEBUG_TCP,("Sent %d bytes with status %x\n",
+                                       Sent, Status));
+
+                Complete( Bucket->Request.RequestContext,
+                          STATUS_SUCCESS, Sent );
+                exFreePool( Bucket );
+            } else if( Status == STATUS_PENDING ) {
+                ExInterlockedInsertHeadList
+                    ( &Connection->SendRequest, &Bucket->Entry, &Connection->Lock );
+                break;
+            } else {
+                TI_DbgPrint(DEBUG_TCP,
+                            ("Completing Send request: %x %x\n",
+                             Bucket->Request, Status));
+                Complete( Bucket->Request.RequestContext, Status, 0 );
+                exFreePool( Bucket );
             }
         }
     }
 
+    Connection->SignalState = 0;
     Connection->Signalled = FALSE;
 }
 
@@ -251,19 +275,19 @@ VOID DrainSignals() {
     PCONNECTION_ENDPOINT Connection;
     PLIST_ENTRY ListEntry;
 
-    while( !IsListEmpty( &SignalledConnections ) ) {
-       ListEntry = RemoveHeadList( &SignalledConnections );
-       Connection = CONTAINING_RECORD( ListEntry, CONNECTION_ENDPOINT,
-                                       SignalList );
-       HandleSignalledConnection( Connection, Connection->SignalState );
+    while( (ListEntry = ExInterlockedRemoveHeadList(&SignalledConnectionsList,
+                                                    &SignalledConnectionsLock)) != NULL) {
+        Connection = CONTAINING_RECORD( ListEntry, CONNECTION_ENDPOINT,
+                                        SignalList );
+        HandleSignalledConnection( Connection );
     }
 }
 
 PCONNECTION_ENDPOINT TCPAllocateConnectionEndpoint( PVOID ClientContext ) {
     PCONNECTION_ENDPOINT Connection =
-       ExAllocatePool(NonPagedPool, sizeof(CONNECTION_ENDPOINT));
+        exAllocatePool(NonPagedPool, sizeof(CONNECTION_ENDPOINT));
     if (!Connection)
-       return Connection;
+        return Connection;
 
     TI_DbgPrint(DEBUG_CPOINT, ("Connection point file object allocated at (0x%X).\n", Connection));
 
@@ -283,32 +307,30 @@ PCONNECTION_ENDPOINT TCPAllocateConnectionEndpoint( PVOID ClientContext ) {
 }
 
 VOID TCPFreeConnectionEndpoint( PCONNECTION_ENDPOINT Connection ) {
-    TI_DbgPrint(MAX_TRACE,("FIXME: Cancel all pending requests\n"));
-    /* XXX Cancel all pending requests */
-    ExFreePool( Connection );
+    TI_DbgPrint(DEBUG_TCP, ("Freeing TCP Endpoint\n"));
+    exFreePool( Connection );
 }
 
 NTSTATUS TCPSocket( PCONNECTION_ENDPOINT Connection,
-                   UINT Family, UINT Type, UINT Proto ) {
+                    UINT Family, UINT Type, UINT Proto ) {
     NTSTATUS Status;
 
+    ASSERT_LOCKED(&TCPLock);
+
     TI_DbgPrint(DEBUG_TCP,("Called: Connection %x, Family %d, Type %d, "
-                          "Proto %d\n",
-                          Connection, Family, Type, Proto));
+                           "Proto %d\n",
+                           Connection, Family, Type, Proto));
 
-    TcpipRecursiveMutexEnter( &TCPLock, TRUE );
     Status = TCPTranslateError( OskitTCPSocket( Connection,
-                                               &Connection->SocketContext,
-                                               Family,
-                                               Type,
-                                               Proto ) );
+                                                &Connection->SocketContext,
+                                                Family,
+                                                Type,
+                                                Proto ) );
 
     ASSERT_KM_POINTER(Connection->SocketContext);
 
     TI_DbgPrint(DEBUG_TCP,("Connection->SocketContext %x\n",
-                          Connection->SocketContext));
-
-    TcpipRecursiveMutexLeave( &TCPLock );
+                           Connection->SocketContext));
 
     return Status;
 }
@@ -323,14 +345,14 @@ VOID TCPReceive(PIP_INTERFACE Interface, PIP_PACKET IPPacket)
  */
 {
     TI_DbgPrint(DEBUG_TCP,("Sending packet %d (%d) to oskit\n",
-                          IPPacket->TotalSize,
-                          IPPacket->HeaderSize));
+                           IPPacket->TotalSize,
+                           IPPacket->HeaderSize));
 
     TcpipRecursiveMutexEnter( &TCPLock, TRUE );
 
     OskitTCPReceiveDatagram( IPPacket->Header,
-                            IPPacket->TotalSize,
-                            IPPacket->HeaderSize );
+                             IPPacket->TotalSize,
+                             IPPacket->HeaderSize );
 
     DrainSignals();
 
@@ -339,28 +361,28 @@ VOID TCPReceive(PIP_INTERFACE Interface, PIP_PACKET IPPacket)
 
 /* event.c */
 int TCPSocketState( void *ClientData,
-                   void *WhichSocket,
-                   void *WhichConnection,
-                   OSK_UINT NewState );
+                    void *WhichSocket,
+                    void *WhichConnection,
+                    OSK_UINT NewState );
 
 int TCPPacketSend( void *ClientData,
-                  OSK_PCHAR Data,
-                  OSK_UINT Len );
+                   OSK_PCHAR Data,
+                   OSK_UINT Len );
 
 POSK_IFADDR TCPFindInterface( void *ClientData,
-                             OSK_UINT AddrType,
-                             OSK_UINT FindType,
-                             OSK_SOCKADDR *ReqAddr );
+                              OSK_UINT AddrType,
+                              OSK_UINT FindType,
+                              OSK_SOCKADDR *ReqAddr );
 
 NTSTATUS TCPMemStartup( void );
 void *TCPMalloc( void *ClientData,
-                OSK_UINT bytes, OSK_PCHAR file, OSK_UINT line );
+                 OSK_UINT bytes, OSK_PCHAR file, OSK_UINT line );
 void TCPFree( void *ClientData,
-             void *data, OSK_PCHAR file, OSK_UINT line );
+              void *data, OSK_PCHAR file, OSK_UINT line );
 void TCPMemShutdown( void );
 
 int TCPSleep( void *ClientData, void *token, int priority, char *msg,
-             int tmio );
+              int tmio );
 
 void TCPWakeup( void *ClientData, void *token );
 
@@ -447,33 +469,36 @@ NTSTATUS TCPStartup(VOID)
 
     TcpipRecursiveMutexInit( &TCPLock );
     ExInitializeFastMutex( &SleepingThreadsLock );
+    KeInitializeSpinLock( &SignalledConnectionsLock );
     InitializeListHead( &SleepingThreadsList );
-    InitializeListHead( &SignalledConnections );
+    InitializeListHead( &SignalledConnectionsList );
     Status = TCPMemStartup();
     if ( ! NT_SUCCESS(Status) ) {
-       return Status;
+        return Status;
     }
 
     Status = PortsStartup( &TCPPorts, 1, 0xfffe );
     if( !NT_SUCCESS(Status) ) {
-       TCPMemShutdown();
-       return Status;
+        TCPMemShutdown();
+        return Status;
     }
 
+    TcpipRecursiveMutexEnter(&TCPLock, TRUE);
     RegisterOskitTCPEventHandlers( &EventHandlers );
     InitOskitTCP();
+    TcpipRecursiveMutexLeave(&TCPLock);
 
     /* Register this protocol with IP layer */
     IPRegisterProtocol(IPPROTO_TCP, TCPReceive);
 
     ExInitializeNPagedLookasideList(
-       &TCPSegmentList,                /* Lookaside list */
-       NULL,                           /* Allocate routine */
-       NULL,                           /* Free routine */
-       0,                              /* Flags */
-       sizeof(TCP_SEGMENT),            /* Size of each entry */
-       TAG('T','C','P','S'),           /* Tag */
-       0);                             /* Depth */
+        &TCPSegmentList,                /* Lookaside list */
+        NULL,                           /* Allocate routine */
+        NULL,                           /* Free routine */
+        0,                              /* Flags */
+        sizeof(TCP_SEGMENT),            /* Size of each entry */
+        'SPCT',                         /* Tag */
+        0);                             /* Depth */
 
     StartTimer();
 
@@ -493,7 +518,7 @@ NTSTATUS TCPShutdown(VOID)
     LARGE_INTEGER WaitForThread;
 
     if (!TCPInitialized)
-       return STATUS_SUCCESS;
+        return STATUS_SUCCESS;
 
     WaitForThread.QuadPart = -2500000; /* 250 ms */
     KeSetEvent(&TimerLoopEvent, IO_NO_INCREMENT, FALSE);
@@ -516,17 +541,28 @@ NTSTATUS TCPShutdown(VOID)
 }
 
 NTSTATUS TCPTranslateError( int OskitError ) {
-    NTSTATUS Status = STATUS_UNSUCCESSFUL;
+    NTSTATUS Status;
 
     switch( OskitError ) {
     case 0: Status = STATUS_SUCCESS; break;
-    case OSK_EADDRNOTAVAIL:
+    case OSK_EADDRNOTAVAIL: Status = STATUS_INVALID_ADDRESS; break;
     case OSK_EAFNOSUPPORT: Status = STATUS_INVALID_CONNECTION; break;
     case OSK_ECONNREFUSED:
     case OSK_ECONNRESET: Status = STATUS_REMOTE_NOT_LISTENING; break;
-    case OSK_EINPROGRESS:
-    case OSK_EAGAIN: Status = STATUS_PENDING; break;
-    default: Status = STATUS_INVALID_CONNECTION; break;
+    case OSK_EWOULDBLOCK:
+    case OSK_EINPROGRESS: Status = STATUS_PENDING; break;
+    case OSK_EINVAL: Status = STATUS_INVALID_PARAMETER; break;
+    case OSK_ENOMEM:
+    case OSK_ENOBUFS: Status = STATUS_INSUFFICIENT_RESOURCES; break;
+    case OSK_ESHUTDOWN: Status = STATUS_FILE_CLOSED; break;
+    case OSK_EMSGSIZE: Status = STATUS_BUFFER_TOO_SMALL; break;
+    case OSK_ETIMEDOUT: Status = STATUS_TIMEOUT; break;
+    case OSK_ENETUNREACH: Status = STATUS_NETWORK_UNREACHABLE; break;
+    case OSK_EFAULT: Status = STATUS_ACCESS_VIOLATION; break;
+    default:
+       DbgPrint("OskitTCP returned unhandled error code: %d\n", OskitError);
+       Status = STATUS_INVALID_CONNECTION;
+       break;
     }
 
     TI_DbgPrint(DEBUG_TCP,("Error %d -> %x\n", OskitError, Status));
@@ -544,56 +580,72 @@ NTSTATUS TCPConnect
     IP_ADDRESS RemoteAddress;
     USHORT RemotePort;
     PTDI_BUCKET Bucket;
+    PNEIGHBOR_CACHE_ENTRY NCE;
 
     TI_DbgPrint(DEBUG_TCP,("TCPConnect: Called\n"));
 
-    Bucket = ExAllocatePool( NonPagedPool, sizeof(*Bucket) );
-    if( !Bucket ) return STATUS_NO_MEMORY;
+    ASSERT_LOCKED(&TCPLock);
 
-    TcpipRecursiveMutexEnter( &TCPLock, TRUE );
+    Status = AddrBuildAddress
+        ((PTRANSPORT_ADDRESS)ConnInfo->RemoteAddress,
+         &RemoteAddress,
+         &RemotePort);
 
-    /* Freed in TCPSocketState */
-    Bucket->Request.RequestNotifyObject = (PVOID)Complete;
-    Bucket->Request.RequestContext = Context;
+    if (!NT_SUCCESS(Status)) {
+        TI_DbgPrint(DEBUG_TCP, ("Could not AddrBuildAddress in TCPConnect\n"));
+        return Status;
+    }
 
-    InsertHeadList( &Connection->ConnectRequest, &Bucket->Entry );
+    if (!(NCE = RouteGetRouteToDestination(&RemoteAddress)))
+    {
+        return STATUS_NETWORK_UNREACHABLE;
+    }
 
-    Status = AddrBuildAddress
-       ((PTRANSPORT_ADDRESS)ConnInfo->RemoteAddress,
-        &RemoteAddress,
-        &RemotePort);
+    if (Connection->State & SEL_FIN)
+    {
+        return STATUS_REMOTE_DISCONNECT;
+    }
 
+    /* Freed in TCPSocketState */
     TI_DbgPrint(DEBUG_TCP,
                 ("Connecting to address %x:%x\n",
                  RemoteAddress.Address.IPv4Address,
                  RemotePort));
 
-    if (!NT_SUCCESS(Status)) {
-       TI_DbgPrint(DEBUG_TCP, ("Could not AddrBuildAddress in TCPConnect\n"));
-       TcpipRecursiveMutexLeave( &TCPLock );
-       return Status;
-    }
-
     AddressToConnect.sin_family = AF_INET;
     AddressToBind = AddressToConnect;
-
-    OskitTCPBind( Connection->SocketContext,
-                 Connection,
-                 &AddressToBind,
-                 sizeof(AddressToBind) );
-
-    memcpy( &AddressToConnect.sin_addr,
-           &RemoteAddress.Address.IPv4Address,
-           sizeof(AddressToConnect.sin_addr) );
-    AddressToConnect.sin_port = RemotePort;
+    AddressToBind.sin_addr.s_addr = NCE->Interface->Unicast.Address.IPv4Address;
 
     Status = TCPTranslateError
-       ( OskitTCPConnect( Connection->SocketContext,
-                          Connection,
-                          &AddressToConnect,
-                          sizeof(AddressToConnect) ) );
-
-    TcpipRecursiveMutexLeave( &TCPLock );
+        ( OskitTCPBind( Connection->SocketContext,
+                        &AddressToBind,
+                        sizeof(AddressToBind) ) );
+
+    if (NT_SUCCESS(Status)) {
+        memcpy( &AddressToConnect.sin_addr,
+                &RemoteAddress.Address.IPv4Address,
+                sizeof(AddressToConnect.sin_addr) );
+        AddressToConnect.sin_port = RemotePort;
+
+        Status = TCPTranslateError
+            ( OskitTCPConnect( Connection->SocketContext,
+                               Connection,
+                               &AddressToConnect,
+                               sizeof(AddressToConnect) ) );
+
+        if (Status == STATUS_PENDING)
+        {
+            Bucket = exAllocatePool( NonPagedPool, sizeof(*Bucket) );
+            if( !Bucket ) return STATUS_NO_MEMORY;
+            
+            Bucket->Request.RequestNotifyObject = (PVOID)Complete;
+            Bucket->Request.RequestContext = Context;
+            
+            IoMarkIrpPending((PIRP)Context);
+                       
+            ExInterlockedInsertTailList( &Connection->ConnectRequest, &Bucket->Entry, &Connection->Lock );
+        }
+    }
 
     return Status;
 }
@@ -605,31 +657,17 @@ NTSTATUS TCPDisconnect
   PTDI_CONNECTION_INFORMATION ReturnInfo,
   PTCP_COMPLETION_ROUTINE Complete,
   PVOID Context ) {
-    NTSTATUS Status;
-
-    TI_DbgPrint(DEBUG_TCP,("started\n"));
+    NTSTATUS Status = STATUS_INVALID_PARAMETER;
 
-    TcpipRecursiveMutexEnter( &TCPLock, TRUE );
+    ASSERT_LOCKED(&TCPLock);
 
-    switch( Flags & (TDI_DISCONNECT_ABORT | TDI_DISCONNECT_RELEASE) ) {
-    case 0:
-    case TDI_DISCONNECT_ABORT:
-       Flags = 0;
-       break;
-
-    case TDI_DISCONNECT_ABORT | TDI_DISCONNECT_RELEASE:
-       Flags = 2;
-       break;
+    TI_DbgPrint(DEBUG_TCP,("started\n"));
 
-    case TDI_DISCONNECT_RELEASE:
-       Flags = 1;
-       break;
-    }
+    if (Flags & TDI_DISCONNECT_RELEASE)
+        Status = TCPTranslateError(OskitTCPDisconnect(Connection->SocketContext));
 
-    Status = TCPTranslateError
-       ( OskitTCPShutdown( Connection->SocketContext, Flags ) );
-
-    TcpipRecursiveMutexLeave( &TCPLock );
+    if ((Flags & TDI_DISCONNECT_ABORT) || !Flags)
+        Status = TCPTranslateError(OskitTCPShutdown(Connection->SocketContext, FWRITE | FREAD));
 
     TI_DbgPrint(DEBUG_TCP,("finished %x\n", Status));
 
@@ -642,15 +680,15 @@ NTSTATUS TCPClose
 
     TI_DbgPrint(DEBUG_TCP,("TCPClose started\n"));
 
-    TcpipRecursiveMutexEnter( &TCPLock, TRUE );
-
-    Status = TCPTranslateError( OskitTCPClose( Connection->SocketContext ) );
+    ASSERT_LOCKED(&TCPLock);
 
     /* Make our code remove all pending IRPs */
     Connection->State |= SEL_FIN;
     DrainSignals();
 
-    TcpipRecursiveMutexLeave( &TCPLock );
+    Status = TCPTranslateError( OskitTCPClose( Connection->SocketContext ) );
+    if (Status == STATUS_SUCCESS)
+        Connection->SocketContext = NULL;
 
     TI_DbgPrint(DEBUG_TCP,("TCPClose finished %x\n", Status));
 
@@ -665,7 +703,7 @@ NTSTATUS TCPReceiveData
   ULONG ReceiveFlags,
   PTCP_COMPLETION_ROUTINE Complete,
   PVOID Context ) {
-    OSK_PCHAR DataBuffer;
+    PVOID DataBuffer;
     UINT DataLen, Received = 0;
     NTSTATUS Status;
     PTDI_BUCKET Bucket;
@@ -673,48 +711,53 @@ NTSTATUS TCPReceiveData
     TI_DbgPrint(DEBUG_TCP,("Called for %d bytes (on socket %x)\n",
                            ReceiveLength, Connection->SocketContext));
 
+    ASSERT_LOCKED(&TCPLock);
+
     ASSERT_KM_POINTER(Connection->SocketContext);
 
-    TcpipRecursiveMutexEnter( &TCPLock, TRUE );
+    /* Closing */
+    if (Connection->State & SEL_FIN)
+    {
+        *BytesReceived = 0;
+        return STATUS_REMOTE_DISCONNECT;
+    }
 
     NdisQueryBuffer( Buffer, &DataBuffer, &DataLen );
 
     TI_DbgPrint(DEBUG_TCP,("TCP>|< Got an MDL %x (%x:%d)\n", Buffer, DataBuffer, DataLen));
 
     Status = TCPTranslateError
-       ( OskitTCPRecv
-         ( Connection->SocketContext,
-           DataBuffer,
-           DataLen,
-           &Received,
-           ReceiveFlags ) );
+        ( OskitTCPRecv
+          ( Connection->SocketContext,
+            DataBuffer,
+            DataLen,
+            &Received,
+            ReceiveFlags ) );
 
     TI_DbgPrint(DEBUG_TCP,("OskitTCPReceive: %x, %d\n", Status, Received));
 
     /* Keep this request around ... there was no data yet */
     if( Status == STATUS_PENDING ) {
-       /* Freed in TCPSocketState */
-       Bucket = ExAllocatePool( NonPagedPool, sizeof(*Bucket) );
-       if( !Bucket ) {
-           TI_DbgPrint(DEBUG_TCP,("Failed to allocate bucket\n"));
-           TcpipRecursiveMutexLeave( &TCPLock );
-           return STATUS_NO_MEMORY;
-       }
-
-       Bucket->Request.RequestNotifyObject = Complete;
-       Bucket->Request.RequestContext = Context;
-       *BytesReceived = 0;
-
-       InsertHeadList( &Connection->ReceiveRequest, &Bucket->Entry );
-       Status = STATUS_PENDING;
-       TI_DbgPrint(DEBUG_TCP,("Queued read irp\n"));
+        /* Freed in TCPSocketState */
+        Bucket = exAllocatePool( NonPagedPool, sizeof(*Bucket) );
+        if( !Bucket ) {
+            TI_DbgPrint(DEBUG_TCP,("Failed to allocate bucket\n"));
+            return STATUS_NO_MEMORY;
+        }
+
+        Bucket->Request.RequestNotifyObject = Complete;
+        Bucket->Request.RequestContext = Context;
+        *BytesReceived = 0;
+
+        IoMarkIrpPending((PIRP)Context);
+
+        ExInterlockedInsertTailList( &Connection->ReceiveRequest, &Bucket->Entry, &Connection->Lock );
+        TI_DbgPrint(DEBUG_TCP,("Queued read irp\n"));
     } else {
-       TI_DbgPrint(DEBUG_TCP,("Got status %x, bytes %d\n", Status, Received));
-       *BytesReceived = Received;
+        TI_DbgPrint(DEBUG_TCP,("Got status %x, bytes %d\n", Status, Received));
+        *BytesReceived = Received;
     }
 
-    TcpipRecursiveMutexLeave( &TCPLock );
-
     TI_DbgPrint(DEBUG_TCP,("Status %x\n", Status));
 
     return Status;
@@ -732,47 +775,53 @@ NTSTATUS TCPSendData
     NTSTATUS Status;
     PTDI_BUCKET Bucket;
 
+    ASSERT_LOCKED(&TCPLock);
+
     TI_DbgPrint(DEBUG_TCP,("Called for %d bytes (on socket %x)\n",
                            SendLength, Connection->SocketContext));
 
     ASSERT_KM_POINTER(Connection->SocketContext);
 
-    TcpipRecursiveMutexEnter( &TCPLock, TRUE );
-
     TI_DbgPrint(DEBUG_TCP,("Connection = %x\n", Connection));
     TI_DbgPrint(DEBUG_TCP,("Connection->SocketContext = %x\n",
-                          Connection->SocketContext));
+                           Connection->SocketContext));
+
+    /* Closing */
+    if (Connection->State & SEL_FIN)
+    {
+        *BytesSent = 0;
+        return STATUS_REMOTE_DISCONNECT;
+    }
 
     Status = TCPTranslateError
-       ( OskitTCPSend( Connection->SocketContext,
-                       (OSK_PCHAR)BufferData, SendLength,
-                       &Sent, 0 ) );
+        ( OskitTCPSend( Connection->SocketContext,
+                        (OSK_PCHAR)BufferData, SendLength,
+                        &Sent, 0 ) );
 
     TI_DbgPrint(DEBUG_TCP,("OskitTCPSend: %x, %d\n", Status, Sent));
 
     /* Keep this request around ... there was no data yet */
     if( Status == STATUS_PENDING ) {
-       /* Freed in TCPSocketState */
-       Bucket = ExAllocatePool( NonPagedPool, sizeof(*Bucket) );
-       if( !Bucket ) {
-           TI_DbgPrint(DEBUG_TCP,("Failed to allocate bucket\n"));
-           TcpipRecursiveMutexLeave( &TCPLock );
-           return STATUS_NO_MEMORY;
-       }
-
-       Bucket->Request.RequestNotifyObject = Complete;
-       Bucket->Request.RequestContext = Context;
-       *BytesSent = 0;
-
-       InsertHeadList( &Connection->SendRequest, &Bucket->Entry );
-       TI_DbgPrint(DEBUG_TCP,("Queued write irp\n"));
+        /* Freed in TCPSocketState */
+        Bucket = exAllocatePool( NonPagedPool, sizeof(*Bucket) );
+        if( !Bucket ) {
+            TI_DbgPrint(DEBUG_TCP,("Failed to allocate bucket\n"));
+            return STATUS_NO_MEMORY;
+        }
+        
+        Bucket->Request.RequestNotifyObject = Complete;
+        Bucket->Request.RequestContext = Context;
+        *BytesSent = 0;
+
+        IoMarkIrpPending((PIRP)Context);
+        
+        ExInterlockedInsertTailList( &Connection->SendRequest, &Bucket->Entry, &Connection->Lock );
+        TI_DbgPrint(DEBUG_TCP,("Queued write irp\n"));
     } else {
-       TI_DbgPrint(DEBUG_TCP,("Got status %x, bytes %d\n", Status, Sent));
-       *BytesSent = Sent;
+        TI_DbgPrint(DEBUG_TCP,("Got status %x, bytes %d\n", Status, Sent));
+        *BytesSent = Sent;
     }
-
-    TcpipRecursiveMutexLeave( &TCPLock );
-
+    
     TI_DbgPrint(DEBUG_TCP,("Status %x\n", Status));
 
     return Status;
@@ -784,8 +833,8 @@ VOID TCPTimeout(VOID) {
 
 UINT TCPAllocatePort( UINT HintPort ) {
     if( HintPort ) {
-       if( AllocatePort( &TCPPorts, HintPort ) ) return HintPort;
-       else {
+        if( AllocatePort( &TCPPorts, HintPort ) ) return HintPort;
+        else {
             TI_DbgPrint
                 (MID_TRACE,("We got a hint port but couldn't allocate it\n"));
             return (UINT)-1;
@@ -797,29 +846,30 @@ VOID TCPFreePort( UINT Port ) {
     DeallocatePort( &TCPPorts, Port );
 }
 
-NTSTATUS TCPGetPeerAddress
+NTSTATUS TCPGetSockAddress
 ( PCONNECTION_ENDPOINT Connection,
-  PTRANSPORT_ADDRESS Address ) {
+  PTRANSPORT_ADDRESS Address,
+  BOOLEAN GetRemote ) {
     OSK_UINT LocalAddress, RemoteAddress;
     OSK_UI16 LocalPort, RemotePort;
     PTA_IP_ADDRESS AddressIP = (PTA_IP_ADDRESS)Address;
+    NTSTATUS Status;
 
-    TcpipRecursiveMutexEnter( &TCPLock, TRUE );
+    ASSERT_LOCKED(&TCPLock);
 
-    OskitTCPGetAddress
-        ( Connection->SocketContext,
-          &LocalAddress, &LocalPort,
-          &RemoteAddress, &RemotePort );
+    Status = TCPTranslateError(OskitTCPGetAddress(Connection->SocketContext,
+                                                  &LocalAddress, &LocalPort,
+                                                  &RemoteAddress, &RemotePort));
+    if (!NT_SUCCESS(Status))
+        return Status;
 
     AddressIP->TAAddressCount = 1;
     AddressIP->Address[0].AddressLength = TDI_ADDRESS_LENGTH_IP;
     AddressIP->Address[0].AddressType = TDI_ADDRESS_TYPE_IP;
-    AddressIP->Address[0].Address[0].sin_port = RemotePort;
-    AddressIP->Address[0].Address[0].in_addr = RemoteAddress;
+    AddressIP->Address[0].Address[0].sin_port = GetRemote ? RemotePort : LocalPort;
+    AddressIP->Address[0].Address[0].in_addr = GetRemote ? RemoteAddress : LocalAddress;
 
-    TcpipRecursiveMutexLeave( &TCPLock );
-
-    return STATUS_SUCCESS;
+    return Status;
 }
 
 VOID TCPRemoveIRP( PCONNECTION_ENDPOINT Endpoint, PIRP Irp ) {
@@ -836,18 +886,20 @@ VOID TCPRemoveIRP( PCONNECTION_ENDPOINT Endpoint, PIRP Irp ) {
 
     TcpipAcquireSpinLock( &Endpoint->Lock, &OldIrql );
 
-    for( i = 0; i < sizeof( ListHead ) / sizeof( ListHead[0] ); i++ ) {
-       for( Entry = ListHead[i]->Flink;
-            Entry != ListHead[i];
-            Entry = Entry->Flink ) {
-           Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
-
-           if( Bucket->Request.RequestContext == Irp ) {
-               RemoveEntryList( &Bucket->Entry );
-               PoolFreeBuffer( Bucket );
-               break;
-           }
-       }
+    for( i = 0; i < 4; i++ )
+    {
+        for( Entry = ListHead[i]->Flink;
+             Entry != ListHead[i];
+             Entry = Entry->Flink )
+        {
+            Bucket = CONTAINING_RECORD( Entry, TDI_BUCKET, Entry );
+            if( Bucket->Request.RequestContext == Irp )
+            {
+                RemoveEntryList( &Bucket->Entry );
+                exFreePool( Bucket );
+                break;
+            }
+        }
     }
 
     TcpipReleaseSpinLock( &Endpoint->Lock, OldIrql );