Unix.isatty: use caml_win32_isatty under Windows

ocaml · Nov 18, 2017 · 0f57ee8 · 0f57ee8
1 parent 0669c40
commit 0f57ee8
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/otherlibs/win32unix/isatty.c b/otherlibs/win32unix/isatty.c
@@ -12,13 +12,12 @@
 /*                                                                        */
 /**************************************************************************/
 
+#define CAML_INTERNALS
+
 #include <caml/mlvalues.h>
-#include "unixsupport.h"
+#include <caml/osdeps.h>
 
 CAMLprim value unix_isatty(value fd)
 {
-  DWORD lpMode;
-  HANDLE hFile = Handle_val(fd);
-  return (Val_bool((GetFileType(hFile) == FILE_TYPE_CHAR)
-                   && GetConsoleMode(hFile, &lpMode)));
+  return Val_bool(caml_win32_isatty(Int_val(fd)));
 }