read-plist ( path -- assoc )

Vocabulary

cocoa.plists

Inputs

path

an object

Outputs

assoc

an object

Definition

USING: cocoa.application cocoa.classes cocoa.messages
cocoa.plists.private cocoa.runtime io.backend kernel ;

IN: cocoa.plists

: read-plist ( path -- assoc )
    normalize-path <NSString> NSData swap
    { id { id SEL id } } "dataWithContentsOfFile:" send
    [ (read-plist) plist> ] [ "read-plist failed" throw ] if* ;