1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.syntax core-foundation kernel assocs
4 specialized-arrays.alien math sequences accessors ;
5 IN: core-foundation.dictionaries
7 TYPEDEF: void* CFDictionaryRef
8 TYPEDEF: void* CFMutableDictionaryRef
9 TYPEDEF: void* CFDictionaryKeyCallBacks*
10 TYPEDEF: void* CFDictionaryValueCallBacks*
12 FUNCTION: CFDictionaryRef CFDictionaryCreate (
13 CFAllocatorRef allocator,
17 CFDictionaryKeyCallBacks* keyCallBacks,
18 CFDictionaryValueCallBacks* valueCallBacks
21 FUNCTION: void* CFDictionaryGetValue (
22 CFDictionaryRef theDict,
26 : <CFDictionary> ( alist -- dictionary )
27 [ kCFAllocatorDefault ] dip
28 unzip [ >void*-array ] bi@
29 [ [ underlying>> ] bi@ ] [ nip length ] 2bi
30 &: kCFTypeDictionaryKeyCallBacks
31 &: kCFTypeDictionaryValueCallBacks