1 ! Copyright (C) 2013 Björn Lindqvist, Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license
3 USING: alien.libraries.finder arrays assocs
4 combinators.short-circuit environment io io.encodings.utf8
5 io.launcher kernel make sequences sets splitting system
7 IN: alien.libraries.finder.linux
12 { ppc.64 { "libc6" "64bit" } }
13 { x86.32 { "libc6" "x32" } }
14 { x86.64 { "libc6" "x86-64" } }
17 : parse-ldconfig-lines ( string -- triple )
19 "=>" split1 [ [ unicode:blank? ] trim ] bi@
21 " " split1 [ "()" in? ] trim "," split
22 [ [ unicode:blank? ] trim ] map
23 [ ": Linux" swap subseq? ] reject
27 : load-ldconfig-cache ( -- seq )
28 "/sbin/ldconfig -p" utf8 [ read-lines ] with-process-reader*
29 2drop [ f ] [ rest parse-ldconfig-lines ] if-empty ;
31 : ldconfig-arch ( -- str )
32 mach-map cpu of { "libc6" } or ;
34 : name-matches? ( lib triple -- ? )
35 first swap ?head [ ?first CHAR: . = ] [ drop f ] if ;
37 : arch-matches? ( lib triple -- ? )
38 [ drop ldconfig-arch ] [ second swap subset? ] bi* ;
40 : ldconfig-matches? ( lib triple -- ? )
41 { [ name-matches? ] [ arch-matches? ] } 2&& ;
43 : find-ldconfig ( name -- path/f )
44 "lib" prepend load-ldconfig-cache
45 [ ldconfig-matches? ] with find nip ?last ;
47 :: find-ld ( name -- path/f )
48 "LD_LIBRARY_PATH" os-env [
50 "ld" , "-t" , ":" split [ "-L" , , ] each
51 "-o" , "/dev/null" , "-l" name append ,
52 ] { } make utf8 [ read-lines ] with-process-reader* 2drop
53 "lib" name append '[ _ swap subseq? ] find nip
58 M: linux find-library*
59 { [ find-ldconfig ] [ find-ld ] } 1|| ;