Inital import

[l4.git] / l4 / pkg / ocaml / contrib / otherlibs / win32unix / listen.c

diff --git a/l4/pkg/ocaml/contrib/otherlibs/win32unix/listen.c b/l4/pkg/ocaml/contrib/otherlibs/win32unix/listen.c
new file mode 100644 (file)
index 0000000..cd61bdb
--- /dev/null
+++ b/l4/pkg/ocaml/contrib/otherlibs/win32unix/listen.c
@@ -0,0 +1,27 @@
+/***********************************************************************/
+/*                                                                     */
+/*                           Objective Caml                            */
+/*                                                                     */
+/*  Xavier Leroy and Pascal Cuoq, projet Cristal, INRIA Rocquencourt   */
+/*                                                                     */
+/*  Copyright 1996 Institut National de Recherche en Informatique et   */
+/*  en Automatique.  All rights reserved.  This file is distributed    */
+/*  under the terms of the GNU Library General Public License, with    */
+/*  the special exception on linking described in file ../../LICENSE.  */
+/*                                                                     */
+/***********************************************************************/
+
+/* $Id: listen.c 4765 2002-04-30 15:00:48Z xleroy $ */
+
+#include <mlvalues.h>
+#include "unixsupport.h"
+
+CAMLprim value unix_listen(sock, backlog)
+     value sock, backlog;
+{
+  if (listen(Socket_val(sock), Int_val(backlog)) == -1) {
+    win32_maperr(WSAGetLastError());
+    uerror("listen", Nothing);
+  }
+  return Val_unit;
+}