scryfall: better moxfield words

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

diff --git a/basis/windows/windows.factor b/basis/windows/windows.factor
index 758238d70b20c12eb8b4caa35993da0ecc4d8667..c70ee9090fb46ac030c30bf533bc40b2d53ac82d 100644 (file)
--- a/basis/windows/windows.factor
+++ b/basis/windows/windows.factor
@@ -1,8 +1,6 @@
 ! Copyright (C) 2005, 2006 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.data alien.libraries arrays kernel math
-sequences ;
-QUALIFIED-WITH: alien.c-types c
+! See https://factorcode.org/license.txt for BSD license.
+USING: alien alien.libraries sequences ;
 IN: windows
 
 CONSTANT: MAX_UNICODE_PATH 32768
@@ -16,16 +14,17 @@ CONSTANT: MAX_UNICODE_PATH 32768
     { "mswsock"     "mswsock.dll"        stdcall }
     { "shell32"     "shell32.dll"        stdcall }
     { "iphlpapi"    "iphlpapi.dll"       stdcall }
-    { "libc"        "msvcrt.dll"         cdecl   }
-    { "libm"        "msvcrt.dll"         cdecl   }
+    { "libc"        "ucrtbase.dll"       cdecl   }
+    { "libm"        "ucrtbase.dll"       cdecl   }
     { "gdiplus"     "gdiplus.dll"        stdcall }
     { "gl"          "opengl32.dll"       stdcall }
     { "glu"         "glu32.dll"          stdcall }
     { "ole32"       "ole32.dll"          stdcall }
+    { "shcore"      "shcore.dll"         stdcall }
     { "usp10"       "usp10.dll"          stdcall }
     { "psapi"       "psapi.dll"          stdcall }
+    { "winmm"       "winmm.dll"          stdcall }
+    { "ntdll"       "ntdll.dll"          stdcall }
+    { "crypt32"     "crypt32.dll"        stdcall }
+    { "powrprof"    "powrprof.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