make-framework-info ( filename -- info/f )

Vocabulary

alien.libraries.finder.macosx.private

Inputs

filename

an object

Outputs

info/f

an object

Definition

USING: accessors kernel sequences splitting ;

IN: alien.libraries.finder.macosx.private

: make-framework-info ( filename -- info/f )
    [ framework-info new ] dip "/" split dup
    [ ".framework" tail? ] find drop [
        cut
        [ [ "/" join ] bi@ [ >>location ] [ >>name ] bi* ] keep 
        [
            rest dup ?first "Versions" = [
                rest dup empty?
                [ unclip swap [ >>version ] dip ] unless
            ] when ?first "_" split1
            [ >>shortname ] [ >>suffix ] bi*
        ] unless-empty
    ] [ drop ] if* dup shortname>> empty? [ drop f ] when ;