alien.libraries.finder: Add utiltity word find-first-library to find a shared library from a list of library stem names.
parent
32cd600ffb
commit
ce9db9fb84
|
@ -1,10 +1,13 @@
|
||||||
|
|
||||||
USING: combinators system vocabs ;
|
USING: combinators kernel sequences system vocabs ;
|
||||||
|
|
||||||
IN: alien.libraries.finder
|
IN: alien.libraries.finder
|
||||||
|
|
||||||
HOOK: find-library os ( name -- path/f )
|
HOOK: find-library os ( name -- path/f )
|
||||||
|
|
||||||
|
: find-first-library ( seq -- path/f )
|
||||||
|
[ find-library ] find nip ;
|
||||||
|
|
||||||
{
|
{
|
||||||
{ [ os macosx? ] [ "alien.libraries.finder.macosx" ] }
|
{ [ os macosx? ] [ "alien.libraries.finder.macosx" ] }
|
||||||
{ [ os linux? ] [ "alien.libraries.finder.linux" ] }
|
{ [ os linux? ] [ "alien.libraries.finder.linux" ] }
|
||||||
|
|
Loading…
Reference in New Issue