steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add core-foundation.dictionaries

db4
Slava Pestov 2009-01-16 18:41:21 -06:00
parent 87d8a7db93
commit cf11be2d45
5 changed files with 56 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
basis/core-foundation/data/data.factor
View File

@ -4,34 +4,32 @@ USING: alien.syntax alien.c-types sequences kernel math ;
IN: core-foundation.data IN: core-foundation.data
TYPEDEF: void* CFDataRef TYPEDEF: void* CFDataRef
TYPEDEF: void* CFDictionaryRef
TYPEDEF: void* CFMutableDictionaryRef
TYPEDEF: void* CFNumberRef TYPEDEF: void* CFNumberRef
TYPEDEF: void* CFSetRef TYPEDEF: void* CFSetRef
TYPEDEF: int CFNumberType TYPEDEF: int CFNumberType
: kCFNumberSInt8Type 1 ; inline CONSTANT: kCFNumberSInt8Type 1
: kCFNumberSInt16Type 2 ; inline CONSTANT: kCFNumberSInt16Type 2
: kCFNumberSInt32Type 3 ; inline CONSTANT: kCFNumberSInt32Type 3
: kCFNumberSInt64Type 4 ; inline CONSTANT: kCFNumberSInt64Type 4
: kCFNumberFloat32Type 5 ; inline CONSTANT: kCFNumberFloat32Type 5
: kCFNumberFloat64Type 6 ; inline CONSTANT: kCFNumberFloat64Type 6
: kCFNumberCharType 7 ; inline CONSTANT: kCFNumberCharType 7
: kCFNumberShortType 8 ; inline CONSTANT: kCFNumberShortType 8
: kCFNumberIntType 9 ; inline CONSTANT: kCFNumberIntType 9
: kCFNumberLongType 10 ; inline CONSTANT: kCFNumberLongType 10
: kCFNumberLongLongType 11 ; inline CONSTANT: kCFNumberLongLongType 11
: kCFNumberFloatType 12 ; inline CONSTANT: kCFNumberFloatType 12
: kCFNumberDoubleType 13 ; inline CONSTANT: kCFNumberDoubleType 13
: kCFNumberCFIndexType 14 ; inline CONSTANT: kCFNumberCFIndexType 14
: kCFNumberNSIntegerType 15 ; inline CONSTANT: kCFNumberNSIntegerType 15
: kCFNumberCGFloatType 16 ; inline CONSTANT: kCFNumberCGFloatType 16
: kCFNumberMaxType 16 ; inline CONSTANT: kCFNumberMaxType 16
TYPEDEF: int CFPropertyListMutabilityOptions TYPEDEF: int CFPropertyListMutabilityOptions
: kCFPropertyListImmutable 0 ; inline CONSTANT: kCFPropertyListImmutable 0
: kCFPropertyListMutableContainers 1 ; inline CONSTANT: kCFPropertyListMutableContainers 1
: kCFPropertyListMutableContainersAndLeaves 2 ; inline CONSTANT: kCFPropertyListMutableContainersAndLeaves 2
FUNCTION: CFNumberRef CFNumberCreate ( CFAllocatorRef allocator, CFNumberType theType, void* valuePtr ) ; FUNCTION: CFNumberRef CFNumberCreate ( CFAllocatorRef allocator, CFNumberType theType, void* valuePtr ) ;

1
basis/core-foundation/dictionaries/authors.txt Normal file
View File

@ -0,0 +1 @@
Slava Pestov

6
basis/core-foundation/dictionaries/dictionaries-tests.factor Normal file
View File

@ -0,0 +1,6 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: tools.test core-foundation core-foundation.dictionaries ;
IN: core-foundation.dictionaries.tests
[ ] [ { } <CFDictionary> CFRelease ] unit-test

28
basis/core-foundation/dictionaries/dictionaries.factor Normal file
View File

@ -0,0 +1,28 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax core-foundation kernel assocs alien.c-types
specialized-arrays.alien math sequences accessors ;
IN: core-foundation.dictionaries
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
) ;
: <CFDictionary> ( alist -- dictionary )
[ kCFAllocatorDefault ] dip
unzip [ >void*-array ] bi@
dup length "void*" heap-size /i
[ [ underlying>> ] bi@ ] dip
&: kCFTypeDictionaryCallBacks
&: kCFTypeDictionaryValueCallbacks
CFDictionaryCreate ;

1
basis/core-foundation/dictionaries/tags.txt Normal file
View File

@ -0,0 +1 @@
unportable