Do not use _isatty

ocaml · Nov 18, 2017 · 0669c40 · 0669c40
1 parent 2b82404
commit 0669c40
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/byterun/win32.c b/byterun/win32.c
@@ -967,5 +967,9 @@ static int caml_win32_ismsystty(int fd)
 
 CAMLexport int caml_win32_isatty(int fd)
 {
-  return _isatty(fd) || caml_win32_ismsystty(fd);
+  DWORD lpMode;
+  HANDLE hFile = (HANDLE)_get_osfhandle(fd);
+  return (hFile != INVALID_HANDLE_VALUE &&
+          GetFileType(hFile) == FILE_TYPE_CHAR &&
+          GetConsoleMode(hFile, &lpMode)) || caml_win32_ismsystty(fd);
 }