From 4f81308f229463aa413a7a7cb483f65a91e7a8ad Mon Sep 17 00:00:00 2001
From: Ground0 <rene.linder@lihaso.ch>
Date: Sat, 28 Nov 2020 13:27:43 +0100
Subject: [PATCH] Add CloseSocket(SocketID)

---
 lsocket.pbi | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/lsocket.pbi b/lsocket.pbi
index ca253f4..79e68b9 100644
--- a/lsocket.pbi
+++ b/lsocket.pbi
@@ -41,7 +41,7 @@ DeclareModule lsocket
   Declare WaitSocket(ServerSocket.i)                        ;Return new SocketID
   Declare ReadSocket(ClientSocket.i, *Buffer, Length.i)     ;Return Effective Read
   Declare WriteSocket(ClientSocket.i, *Buffer, Length.i)    ;Return Effective Writen 
-  
+  Declare CloseSocket(Socket.i)
 EndDeclareModule
 
 Module lsocket
@@ -82,18 +82,22 @@ Module lsocket
     ProcedureReturn ClientSID
   EndProcedure
   
-  Procedure ReadSocket(ClientSocket.i, *Buffer, Length.i)     ;Return Effective Read
+  Procedure ReadSocket(ClientSocket.i, Buffer, Length.i)     ;Return Effective Read
     Protected Effective.i
-    Effective = read_(ClientSocket, *Buffer, Length)
+    Effective = read_(ClientSocket, Buffer, Length)
     ProcedureReturn Effective
   EndProcedure
   
-  Procedure WriteSocket(ClientSocket.i, *Buffer, Length.i)    ;Return Effective Writen 
+  Procedure WriteSocket(ClientSocket.i, Buffer, Length.i)    ;Return Effective Writen 
     Protected Effective.i
-    Effective = write_(ClientSocket, *Buffer, Length)
+    Effective = write_(ClientSocket, Buffer, Length)
     ProcedureReturn Effective
   EndProcedure
   
+  Procedure CloseSocket(Socket.i)
+    close_(Socket)  
+  EndProcedure
+