Implement (MSEC) using usleep() (#125)

[debian/pforth] / csrc / win32 / pf_io_win32.c

diff --git a/csrc/win32/pf_io_win32.c b/csrc/win32/pf_io_win32.c
index ea2150819fcb252221220242bbeb8a545954f8cc..89b6fd9ae1fad9cb8886f8896f9510ac6fb0e224 100644 (file)
--- a/csrc/win32/pf_io_win32.c
+++ b/csrc/win32/pf_io_win32.c
@@ -24,6 +24,7 @@
 #include "../pf_all.h"
 
 #include <conio.h>
+#include <synchapi.h>   /* for Sleep() */
 
 /* Use console mode I/O so that KEY and ?TERMINAL will work. */
 #if defined(WIN32) || defined(__NT__)
@@ -72,4 +73,12 @@ void sdTerminalInit( void )
 void sdTerminalTerm( void )
 {
 }
+
+cell_t sdSleepMillis(cell_t msec)
+{
+    if (msec < 0) return 0;
+    Sleep((DWORD)msec);
+    return 0;
+}
+
 #endif