steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/tools/deploy/libraries/windows/windows.factor

17 lines
526 B
Factor
Raw Normal View History

alien.libraries: add a "deploy-library" word that marks a library to have its dll deployed with applications that use it. add support to tools.deploy to find and copy deployed libraries into target bundle
2010-02-16 16:32:14 -05:00
! (c)2010 Joe Groff bsd license
specialized-arrays: performed some cleanup. Specifically, • Created >c-array to be replacement for >T-array. • Created cast-array to be generic replacement for all T-array-cast words. • Created c-array@ to be generic replacement for T-array@ words. • Replaced usages of <T-array> with T <c-array> • Replaced usages of <direct-T-array> with T <c-direct-array> • Replaced usages of >T-array with T >c-array • Replaced usages of T-array-cast with T cast-array • Replaced usages of malloc-T-array with T malloc-array. • Removed malloc-T-array. • Removed T-array-cast. • Removed T-array@. • Removed >T-array. I also added (but didn't change any code to use): • T c-array-type, returns T-array • T c-array?, returns T-array? • c-array{ T ... }, returns T-array{ ... } Bootstraps just find on Mac OS X. Also `load-all test-all` works for me.
2011-09-25 14:49:27 -04:00
USING: alien.data alien.strings byte-arrays io.encodings.utf16n
kernel specialized-arrays system tools.deploy.libraries
windows.kernel32 windows.types ;
alien.libraries: add a "deploy-library" word that marks a library to have its dll deployed with applications that use it. add support to tools.deploy to find and copy deployed libraries into target bundle
2010-02-16 16:32:14 -05:00
FROM: alien.c-types => ushort ;
SPECIALIZED-ARRAY: ushort
IN: tools.deploy.libraries.windows
M: windows find-library-file
f DONT_RESOLVE_DLL_REFERENCES LoadLibraryEx [
[
specialized-arrays: performed some cleanup. Specifically, • Created >c-array to be replacement for >T-array. • Created cast-array to be generic replacement for all T-array-cast words. • Created c-array@ to be generic replacement for T-array@ words. • Replaced usages of <T-array> with T <c-array> • Replaced usages of <direct-T-array> with T <c-direct-array> • Replaced usages of >T-array with T >c-array • Replaced usages of T-array-cast with T cast-array • Replaced usages of malloc-T-array with T malloc-array. • Removed malloc-T-array. • Removed T-array-cast. • Removed T-array@. • Removed >T-array. I also added (but didn't change any code to use): • T c-array-type, returns T-array • T c-array?, returns T-array? • c-array{ T ... }, returns T-array{ ... } Bootstraps just find on Mac OS X. Also `load-all test-all` works for me.
2011-09-25 14:49:27 -04:00
32768 ushort (c-array) [ 32768 GetModuleFileName drop ] keep
alien.libraries: add a "deploy-library" word that marks a library to have its dll deployed with applications that use it. add support to tools.deploy to find and copy deployed libraries into target bundle
2010-02-16 16:32:14 -05:00
utf16n alien>string
] [ FreeLibrary drop ] bi
] [ f ] if* ;