Stub out ::sleep for win32 (#5947)

Just calls LibC.Sleep for now, which blocks the whole program.
crystal-lang · Apr 15, 2018 · 68c8051 · 68c8051
1 parent 19360bc
commit 68c8051
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 1 deletion.
diff --git a/src/lib_c/x86_64-windows-msvc/c/synchapi.cr b/src/lib_c/x86_64-windows-msvc/c/synchapi.cr
@@ -0,0 +1,5 @@
+require "c/int_safe"
+
+lib LibC
+  fun Sleep(dwMilliseconds : DWORD)
+end
diff --git a/src/prelude.cr b/src/prelude.cr
@@ -18,7 +18,9 @@ require "lib_c"
 require "macros"
 require "object"
 require "comparable"
-require "windows_stubs"
+{% if flag?(:win32) %}
+  require "windows_stubs"
+{% end %}
 require "exception"
 require "iterable"
 require "iterator"

diff --git a/src/windows_stubs.cr b/src/windows_stubs.cr
@@ -1,3 +1,5 @@
+require "c/synchapi"
+
 struct CallStack
   def self.skip(*args)
     # do nothing
@@ -63,3 +65,11 @@ class Process
     LibC.exit(status)
   end
 end
+
+def sleep(seconds : Number)
+  sleep(seconds.seconds)
+end
+
+def sleep(time : Time::Span)
+  LibC.Sleep(time.total_milliseconds)
+end