factor/basis/alien/libraries/finder/finder.factor

USING: accessors kernel sequences system vocabs ;
IN: alien.libraries.finder

HOOK: find-library* os ( name -- path/f )

: find-library ( name -- path/library-not-found )
    dup find-library* [ nip ] when* ;

! Try to find the library from a list, but if it's not found,
! try to open a library that is the first name in that list anyway
! or "library_not_found" as a last resort for better debugging.
: find-library-from-list ( seq -- path/f )
    dup [ find-library* ] map-find drop
    [ nip ] [ ?first "library_not_found" or ] if* ;

"alien.libraries.finder." os name>> append require
basis/extra: switch to "vocab." os name>> append require. 2014-11-13 16:00:44 -05:00			`USING: accessors kernel sequences system vocabs ;`
alien.libraries.finder: split into sub-vocabularies and implement macosx better. 2013-11-16 14:58:37 -05:00			`IN: alien.libraries.finder`
alien.libraries.finder: linux code path for find-library /sbin/ldconfig -p is used to figure out what the correct lib name is. It is the same method as used in python ctypes. 2013-11-07 18:30:23 -05:00
alien.libraries.finder: Make find-library return the string passed in instead of f if the library is not found. We want vocabularies to load no matter what instead of throwing a missing library error. Also, print dlerror in the error message and take away the redundant line about possible missing libraries. Fixes #986. 2014-06-07 23:48:09 -04:00			`HOOK: find-library* os ( name -- path/f )`

			`: find-library ( name -- path/library-not-found )`
			`dup find-library* [ nip ] when* ;`
alien.libraries.finder: More robust finder code that doesn't return f to a string slot and error out. Use it in yaml.ffi. 2014-07-08 13:40:33 -04:00
			`! Try to find the library from a list, but if it's not found,`
			`! try to open a library that is the first name in that list anyway`
factor: Trim whitespace after ! comments and a few USING: lines that got skipped before. 2015-07-18 23:14:22 -04:00			`! or "library_not_found" as a last resort for better debugging.`
alien.libraries.finder: Add find-library-from-list utility word. 2014-07-08 13:21:50 -04:00			`: find-library-from-list ( seq -- path/f )`
alien.libraries.finder: How many patches does it take... I was dropping the wrong value from map-find. 2014-07-08 14:58:34 -04:00			`dup [ find-library* ] map-find drop`
alien.libraries.finder: map-find was what I wanted all along. 2014-07-08 14:13:41 -04:00			`[ nip ] [ ?first "library_not_found" or ] if* ;`
alien.libraries.finder: automatically find library files based on library names To make it easier to support cross-platform library bindings use the find-library word. Factor is then supposed to automatically locate the correct library file depending on the users' platform. Then you dont have to specify the full so-name on unixes which breaks if the user has a newer library version. The same library lookups that ctypes.find_library uses will be implemented in future commits. 2013-11-04 11:28:45 -05:00
basis/extra: switch to "vocab." os name>> append require. 2014-11-13 16:00:44 -05:00			`"alien.libraries.finder." os name>> append require`