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

17 lines
562 B
Factor
Raw Permalink Normal View History

Update some copyright headers to follow the current convention Had to look through the history to find years for some headers. Added authors to some files as well.
2017-08-25 18:34:26 -04:00
! Copyright (C) 2010 Joe Groff.
! See http://factorcode.org/license.txt for BSD license.
io.files.info.windows: Fix file-systems word in two ways. First, don't allocate 32k on the local alloc stack (which causes a 'double fault.') Second, if the volume doesnt look up to a real path, don't make a dummy object for that. volume Use alien>native-string and native-string>alien wherever possible instead of utf16n for Windows.
2012-06-21 11:32:53 -04:00
USING: alien.data alien.strings byte-arrays
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
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
io.files.info.windows: Fix file-systems word in two ways. First, don't allocate 32k on the local alloc stack (which causes a 'double fault.') Second, if the volume doesnt look up to a real path, don't make a dummy object for that. volume Use alien>native-string and native-string>alien wherever possible instead of utf16n for Windows.
2012-06-21 11:32:53 -04:00
alien>native-string
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
] [ FreeLibrary drop ] bi
] [ f ] if* ;