[PATCH v2 1/2] WScript: Implement Sleep

[Anders Kjersem]

From: Anders Kjersem

---
 programs/wscript/host.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/programs/wscript/host.c b/programs/wscript/host.c
index 44336deac13..6bec73062e2 100644
--- a/programs/wscript/host.c
+++ b/programs/wscript/host.c
@@ -395,8 +395,10 @@ static HRESULT WINAPI Host_DisconnectObject(IHost *iface, IDispatch *Object)

static HRESULT WINAPI Host_Sleep(IHost *iface, LONG Time)
 {
-    WINE_FIXME("(%ld)\n", Time);
-    return E_NOTIMPL;
+    if (Time < 0)
+        return E_INVALIDARG;
+    Sleep(Time);
+    return S_OK;
 }

static HRESULT WINAPI Host_ConnectObject(IHost *iface, IDispatch *Object, BSTR Prefix)