1 ! Copyright (C) 2006, 2008 Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.syntax alien.c-types alien.destructors accessors kernel ;
6 TYPEDEF: void* CFTypeRef
8 TYPEDEF: void* CFAllocatorRef
9 CONSTANT: kCFAllocatorDefault f
16 TYPEDEF: ulong CFTypeID
17 TYPEDEF: UInt32 CFOptionFlags
18 TYPEDEF: void* CFUUIDRef
20 ALIAS: <CFIndex> <long>
24 { "CFIndex" "location" }
25 { "CFIndex" "length" } ;
27 : <CFRange> ( location length -- range )
29 [ set-CFRange-length ] keep
30 [ set-CFRange-location ] keep ;
32 FUNCTION: CFTypeRef CFRetain ( CFTypeRef cf ) ;
34 FUNCTION: void CFRelease ( CFTypeRef cf ) ;