windows: Attempt to fix circularity.

[factor.git] / basis / windows / windows.factor

diff --git a/basis/windows/windows.factor b/basis/windows/windows.factor
index 9a91a6fe20415211cbd4b95bd9259edbdea4a66d..758238d70b20c12eb8b4caa35993da0ecc4d8667 100644 (file)
--- a/basis/windows/windows.factor
+++ b/basis/windows/windows.factor
@@ -1,6 +1,8 @@
 ! Copyright (C) 2005, 2006 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien sequences alien.libraries ;
+USING: alien alien.data alien.libraries arrays kernel math
+sequences ;
+QUALIFIED-WITH: alien.c-types c
 IN: windows
 
 CONSTANT: MAX_UNICODE_PATH 32768
@@ -23,3 +25,7 @@ CONSTANT: MAX_UNICODE_PATH 32768
     { "usp10"       "usp10.dll"          stdcall }
     { "psapi"       "psapi.dll"          stdcall }
 } [ first3 add-library ] each
+
+: lo-word ( wparam -- lo ) c:short <ref> c:short deref ; inline
+: hi-word ( wparam -- hi ) -16 shift lo-word ; inline
+: >lo-hi ( WORD -- array ) [ lo-word ] [ hi-word ] bi 2array ; inline