17 lines
513 B
Factor
17 lines
513 B
Factor
! (c)2010 Joe Groff bsd license
|
|
USING: alien.strings byte-arrays io.encodings.utf16n kernel
|
|
specialized-arrays system tools.deploy.libraries windows.kernel32
|
|
windows.types ;
|
|
FROM: alien.c-types => ushort ;
|
|
SPECIALIZED-ARRAY: ushort
|
|
IN: tools.deploy.libraries.windows
|
|
|
|
M: windows find-library-file
|
|
f DONT_RESOLVE_DLL_REFERENCES LoadLibraryEx [
|
|
[
|
|
32768 (ushort-array) [ 32768 GetModuleFileName drop ] keep
|
|
utf16n alien>string
|
|
] [ FreeLibrary drop ] bi
|
|
] [ f ] if* ;
|
|
|