1 files changed, 79 insertions, 0 deletions
diff --git a/ocaml-binary-annot/otherlibs/win32unix/windir.c b/ocaml-binary-annot/otherlibs/win32unix/windir.c
new file mode 100644
index 0000000000..8b96589ec9
--- /dev/null
+++ b/ocaml-binary-annot/otherlibs/win32unix/windir.c
@@ -0,0 +1,79 @@
+/***********************************************************************/
+/*                                                                     */
+/*                           Objective Caml                            */
+/*                                                                     */
+/*   Pascal Cuoq and Xavier Leroy, 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$ */
+
+#include <mlvalues.h>
+#include <memory.h>
+#include <errno.h>
+#include <alloc.h>
+#include <fail.h>
+#include "unixsupport.h"
+
+CAMLprim value win_findfirst(name)
+     value name;
+{
+  HANDLE h;
+  value v;
+  WIN32_FIND_DATA fileinfo;
+  value valname = Val_unit;
+  value valh = Val_unit;
+
+  Begin_roots2 (valname,valh);
+    h = FindFirstFile(String_val(name),&fileinfo);
+    if (h == INVALID_HANDLE_VALUE) {
+      DWORD err = GetLastError();
+      if (err == ERROR_NO_MORE_FILES)
+        raise_end_of_file();
+      else {
+        win32_maperr(err);
+        uerror("opendir", Nothing);
+      }
+    }
+    valname = copy_string(fileinfo.cFileName);
+    valh = win_alloc_handle(h);
+    v = alloc_small(2, 0);
+    Field(v,0) = valname;
+    Field(v,1) = valh;
+  End_roots();
+  return v;
+}
+
+CAMLprim value win_findnext(valh)
+     value valh;
+{
+  WIN32_FIND_DATA fileinfo;
+  BOOL retcode;
+
+  retcode = FindNextFile(Handle_val(valh), &fileinfo);
+  if (!retcode) {
+    DWORD err = GetLastError();
+    if (err == ERROR_NO_MORE_FILES)
+      raise_end_of_file();
+    else {
+      win32_maperr(err);
+      uerror("readdir", Nothing);
+    }
+  }
+  return copy_string(fileinfo.cFileName);
+}
+
+CAMLprim value win_findclose(valh)
+     value valh;
+{
+  if (! FindClose(Handle_val(valh))) {
+    win32_maperr(GetLastError());
+    uerror("closedir", Nothing);
+  }
+  return Val_unit;
+}