add psapi stub to windows.nt

diff --git a/basis/windows/nt/nt.factor b/basis/windows/nt/nt.factor
index e05a409e67e4f479ab29aef8183fcd8115df6ed7..abc728ed19cfe456aea82652b042bd887afe88ea 100644 (file)
--- a/basis/windows/nt/nt.factor
+++ b/basis/windows/nt/nt.factor
@@ -14,4 +14,5 @@ USING: alien sequences alien.libraries ;
     { "glu"      "glu32.dll"    "stdcall" }
     { "ole32"    "ole32.dll"    "stdcall" }
     { "usp10"    "usp10.dll"    "stdcall" }
+    { "psapi"    "psapi.dll"    "stdcall" }
 } [ first3 add-library ] each

diff --git a/basis/windows/psapi/authors.txt b/basis/windows/psapi/authors.txt
new file mode 100755 (executable)
index 0000000..b4bd0e7
--- /dev/null
+++ b/basis/windows/psapi/authors.txt
@@ -0,0 +1 @@
+Doug Coleman
\ No newline at end of file

diff --git a/basis/windows/psapi/psapi.factor b/basis/windows/psapi/psapi.factor
new file mode 100755 (executable)
index 0000000..b45928f
--- /dev/null
+++ b/basis/windows/psapi/psapi.factor
@@ -0,0 +1,12 @@
+! Copyright (C) 2009 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien.syntax windows.types ;
+IN: windows.psapi
+
+LIBRARY: psapi
+
+FUNCTION: BOOL EnumDeviceDrivers ( LPVOID* lpImageBase, DWORD cb, LPDWORD lpcbNeeded ) ;
+
+FUNCTION: DWORD GetDeviceDriverBaseNameW ( LPVOID ImageBase, LPTSTR lpBaseName, DWORD nSize ) ;
+
+ALIAS: GetDeviceDriverBaseName GetDeviceDriverBaseNameW