<CFDictionary> ( alist -- dictionary )

Vocabulary

core-foundation.dictionaries

Inputs

alist

an object

Outputs

dictionary

an object

Definition

USING: accessors alien.c-types alien.data alien.libraries assocs
core-foundation kernel sequences ;

IN: core-foundation.dictionaries

: <CFDictionary> ( alist -- dictionary )
    [ kCFAllocatorDefault ] dip unzip [ void* >c-array ] bi@
    [ [ underlying>> ] bi@ ] [ nip length ] 2bi
    "kCFTypeDictionaryKeyCallBacks" f address-of
    "kCFTypeDictionaryValueCallBacks" f address-of
    CFDictionaryCreate ;