[project @ 2005-05-06 00:30:56 by sof]

[ghc-base.git] / cbits / consUtils.c

diff --git a/cbits/consUtils.c b/cbits/consUtils.c
index af29b59..bb9e154 100644 (file)
--- a/cbits/consUtils.c
+++ b/cbits/consUtils.c
@@ -64,4 +64,17 @@ get_console_echo__(int fd)
     return -1;
 }
 
+int
+flush_input_console__(int fd)
+{
+    HANDLE h;
+    if ( (h = (HANDLE)_get_osfhandle(fd)) != INVALID_HANDLE_VALUE ) {
+       if ( FlushConsoleInputBuffer(h) ) {
+           return 0;
+       }
+    }
+    /* ToDo: translate GetLastError() into something errno-friendly */
+    return -1;
+}
+
 #endif /* defined(mingw32_HOST_OS) || ... */