34 lines
965 B
Factor
34 lines
965 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.syntax core-foundation kernel assocs
|
|
specialized-arrays math sequences accessors ;
|
|
IN: core-foundation.dictionaries
|
|
|
|
SPECIALIZED-ARRAY: void*
|
|
|
|
TYPEDEF: void* CFDictionaryRef
|
|
TYPEDEF: void* CFMutableDictionaryRef
|
|
TYPEDEF: void* CFDictionaryKeyCallBacks*
|
|
TYPEDEF: void* CFDictionaryValueCallBacks*
|
|
|
|
FUNCTION: CFDictionaryRef CFDictionaryCreate (
|
|
CFAllocatorRef allocator,
|
|
void** keys,
|
|
void** values,
|
|
CFIndex numValues,
|
|
CFDictionaryKeyCallBacks* keyCallBacks,
|
|
CFDictionaryValueCallBacks* valueCallBacks
|
|
) ;
|
|
|
|
FUNCTION: void* CFDictionaryGetValue (
|
|
CFDictionaryRef theDict,
|
|
void* key
|
|
) ;
|
|
|
|
: <CFDictionary> ( alist -- dictionary )
|
|
[ kCFAllocatorDefault ] dip
|
|
unzip [ >void*-array ] bi@
|
|
[ [ underlying>> ] bi@ ] [ nip length ] 2bi
|
|
&: kCFTypeDictionaryKeyCallBacks
|
|
&: kCFTypeDictionaryValueCallBacks
|
|
CFDictionaryCreate ; |