alien.libraries.finder.windows: more like MSDN search order.
parent
45af0bc563
commit
302df73686
|
@ -0,0 +1 @@
|
|||
windows
|
|
@ -1,22 +1,32 @@
|
|||
! Copyright (C) 2013 Björn Lindqvist
|
||||
! Copyright (C) 2013 Björn Lindqvist, John Benediktsson
|
||||
! See http://factorcode.org/license.txt for BSD license
|
||||
|
||||
USING: alien.libraries alien.libraries.finder arrays combinators
|
||||
kernel sequences system ;
|
||||
USING: alien.libraries.finder arrays combinators.short-circuit
|
||||
environment io.files io.files.info io.pathnames kernel sequences
|
||||
splitting system system-info.windows ;
|
||||
|
||||
IN: alien.libraries.finder.windows
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: candidate-paths ( name -- paths )
|
||||
{
|
||||
[ ".dll" append ]
|
||||
[ "lib" ".dll" surround ]
|
||||
[ "dlls/" ".dll" surround ]
|
||||
[ "dlls/lib" ".dll" surround ]
|
||||
} cleave 4array ;
|
||||
: search-paths ( -- seq )
|
||||
"resource:" system-directory windows-directory 3array
|
||||
"PATH" os-env [ ";" split ] [ f ] if* append ;
|
||||
|
||||
: candidate-paths ( name -- seq )
|
||||
search-paths over ".dll" tail? [
|
||||
[ prepend-path ] with map
|
||||
] [
|
||||
[
|
||||
[ prepend-path ]
|
||||
[ [ ".dll" append ] [ prepend-path ] bi* ] 2bi
|
||||
2array
|
||||
] with map concat
|
||||
] if ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
M: windows find-library
|
||||
candidate-paths [ dlopen dll-valid? ] map-find nip ;
|
||||
candidate-paths [
|
||||
{ [ exists? ] [ file-info regular-file? ] } 1&&
|
||||
] map-find nip ;
|
||||
|
|
Loading…
Reference in New Issue