add psapi stub to windows.nt

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

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