32 lines
799 B
Factor
32 lines
799 B
Factor
! Copyright (C) 2006, 2008 Slava Pestov
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.syntax destructors accessors kernel ;
|
|
IN: core-foundation
|
|
|
|
TYPEDEF: void* CFTypeRef
|
|
|
|
TYPEDEF: void* CFAllocatorRef
|
|
: kCFAllocatorDefault f ; inline
|
|
|
|
TYPEDEF: bool Boolean
|
|
TYPEDEF: long CFIndex
|
|
TYPEDEF: int SInt32
|
|
TYPEDEF: uint UInt32
|
|
TYPEDEF: ulong CFTypeID
|
|
TYPEDEF: UInt32 CFOptionFlags
|
|
TYPEDEF: void* CFUUIDRef
|
|
|
|
FUNCTION: CFTypeRef CFRetain ( CFTypeRef cf ) ;
|
|
|
|
FUNCTION: void CFRelease ( CFTypeRef cf ) ;
|
|
|
|
TUPLE: CFRelease-destructor alien disposed ;
|
|
|
|
M: CFRelease-destructor dispose* alien>> CFRelease ;
|
|
|
|
: &CFRelease ( alien -- alien )
|
|
dup f CFRelease-destructor boa &dispose drop ; inline
|
|
|
|
: |CFRelease ( alien -- alien )
|
|
dup f CFRelease-destructor boa |dispose drop ; inline
|