2008-02-12 03:21:47 -05:00
|
|
|
! Copyright (C) 2006, 2008 Slava Pestov
|
2007-09-20 18:09:08 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-08-29 13:22:55 -04:00
|
|
|
USING: alien.syntax alien.c-types alien.destructors accessors classes.struct kernel ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: core-foundation
|
|
|
|
|
2008-07-13 22:19:16 -04:00
|
|
|
TYPEDEF: void* CFTypeRef
|
2008-12-12 01:33:05 -05:00
|
|
|
|
|
|
|
TYPEDEF: void* CFAllocatorRef
|
2009-01-25 20:02:59 -05:00
|
|
|
CONSTANT: kCFAllocatorDefault f
|
2008-12-12 01:33:05 -05:00
|
|
|
|
2009-09-12 20:43:57 -04:00
|
|
|
TYPEDEF: bool Boolean
|
|
|
|
TYPEDEF: long CFIndex
|
|
|
|
TYPEDEF: uchar UInt8
|
|
|
|
TYPEDEF: ushort UInt16
|
|
|
|
TYPEDEF: uint UInt32
|
|
|
|
TYPEDEF: ulonglong UInt64
|
|
|
|
TYPEDEF: char SInt8
|
|
|
|
TYPEDEF: short SInt16
|
|
|
|
TYPEDEF: int SInt32
|
|
|
|
TYPEDEF: longlong SInt64
|
2008-09-09 22:19:59 -04:00
|
|
|
TYPEDEF: ulong CFTypeID
|
2008-12-06 18:35:04 -05:00
|
|
|
TYPEDEF: UInt32 CFOptionFlags
|
2008-12-14 22:21:44 -05:00
|
|
|
TYPEDEF: void* CFUUIDRef
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2009-01-25 20:02:59 -05:00
|
|
|
ALIAS: <CFIndex> <long>
|
|
|
|
ALIAS: *CFIndex *long
|
|
|
|
|
2009-08-29 13:22:55 -04:00
|
|
|
STRUCT: CFRange
|
|
|
|
{ location CFIndex }
|
|
|
|
{ length CFIndex } ;
|
2009-01-25 20:02:59 -05:00
|
|
|
|
|
|
|
: <CFRange> ( location length -- range )
|
2009-08-29 13:22:55 -04:00
|
|
|
CFRange <struct-boa> ;
|
2009-01-25 20:02:59 -05:00
|
|
|
|
2008-07-13 22:19:16 -04:00
|
|
|
FUNCTION: CFTypeRef CFRetain ( CFTypeRef cf ) ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-12-12 01:33:05 -05:00
|
|
|
FUNCTION: void CFRelease ( CFTypeRef cf ) ;
|
2008-07-14 23:12:06 -04:00
|
|
|
|
2009-08-29 13:22:55 -04:00
|
|
|
DESTRUCTOR: CFRelease
|
2009-09-12 20:43:57 -04:00
|
|
|
|