1 ! (c)2010 Joe Groff bsd license
2 USING: alien.data alien.strings byte-arrays io.encodings.utf16n
3 kernel specialized-arrays system tools.deploy.libraries
4 windows.kernel32 windows.types ;
5 FROM: alien.c-types => ushort ;
6 SPECIALIZED-ARRAY: ushort
7 IN: tools.deploy.libraries.windows
9 M: windows find-library-file
10 f DONT_RESOLVE_DLL_REFERENCES LoadLibraryEx [
12 32768 ushort (c-array) [ 32768 GetModuleFileName drop ] keep
14 ] [ FreeLibrary drop ] bi