framework-find ( name -- path )

Vocabulary

alien.libraries.finder.macos

Inputs

name

an object

Outputs

path

an object

Definition

USING: io.pathnames kernel sequences ;

IN: alien.libraries.finder.macos

: framework-find ( name -- path )
    dup dyld-find
    [ nip ] [
        dup ".framework" subseq-index
        [ dupd head ] [ [ ".framework" append ] keep ] if*
        file-name append-path dyld-find
    ] if* ;