dyld-default-search ( name -- seq )

Vocabulary

alien.libraries.finder.macosx.private

Inputs

name

an object

Outputs

seq

an object

Definition

USING: accessors io.pathnames kernel make sequences ;

IN: alien.libraries.finder.macosx.private

:: dyld-default-search ( name -- seq )
    name make-framework-info :> framework name file-name
    :> basename "DYLD_FALLBACK_FRAMEWORK_PATH" dyld-paths
    :> fallback-framework-path "DYLD_FALLBACK_LIBRARY_PATH"
    dyld-paths :> fallback-library-path [
        name , framework
        [ name>> fallback-framework-path paths% ] when*
        basename fallback-library-path paths%
        framework fallback-framework-path empty? and
        [ framework name>> default-framework-fallback paths% ]
        when fallback-library-path empty?
        [ basename default-library-fallback paths% ] when
    ] { } make ;