Meilleure distinction handle/socket. Ajout lockf. Revu rename.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4765 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 10 insertions, 3 deletions

diff --git a/otherlibs/win32unix/close.c b/otherlibs/win32unix/close.c
index 076661723..48cd60e7a 100644
--- a/otherlibs/win32unix/close.c
+++ b/otherlibs/win32unix/close.c
@@ -18,9 +18,16 @@
 
 CAMLprim value unix_close(value fd)
 {
-  if (! CloseHandle(Handle_val(fd))) {
-    win32_maperr(GetLastError());
-    uerror("close", Nothing);
+  if (Descr_kind_val(fd) == KIND_SOCKET) {
+    if (closesocket(Socket_val(fd)) != 0) {
+      win32_maperr(WSAGetLastError());
+      uerror("close", Nothing);
+    }
+  } else {
+    if (! CloseHandle(Handle_val(fd))) {
+      win32_maperr(GetLastError());
+      uerror("close", Nothing);
+    }
   }
   return Val_unit;
 }