basis/tools/deploy/libraries/windows/windows.factor

   1 ! Copyright (C) 2010 Joe Groff.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.data alien.strings byte-arrays
   4 kernel specialized-arrays system tools.deploy.libraries
   5 windows.kernel32 windows.types ;
   6 FROM: alien.c-types => ushort ;
   7 SPECIALIZED-ARRAY: ushort
   8 IN: tools.deploy.libraries.windows
   9
  10 M: windows find-library-file
  11     f DONT_RESOLVE_DLL_REFERENCES LoadLibraryEx [
  12         [
  13             32768 ushort (c-array) [ 32768 GetModuleFileName drop ] keep
  14             alien>native-string
  15         ] [ FreeLibrary drop ] bi
  16     ] [ f ] if* ;