(launch-services-path) ( string -- string' )

Vocabulary

core-foundation.launch-services

Inputs

string

an object

Outputs

string'

an object

Definition

USING: core-foundation core-foundation.strings destructors
kernel ;

IN: core-foundation.launch-services

: (launch-services-path) ( string -- string' )
    [
        kLSUnknownCreator swap <CFString> &CFRelease f FSRef new
        [ f LSFindApplicationForInfo cf-error ] keep
        fsref>string
    ] with-destructors ;