factor/basis/core-foundation/core-foundation.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

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
Mac OS X monitors work in progress 2008-02-12 03:21:47 -05:00			`! Copyright (C) 2006, 2008 Slava Pestov`
Initial import 2007-09-20 18:09:08 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
Move time-related words to core-foundation.time to remove number tower dependency from core-foundation; remove no longer used words from cocoa.application 2008-12-13 05:57:37 -05:00			`USING: alien.syntax destructors accessors kernel ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: core-foundation`

replace limited assoc>NSDictionary word with a >plist word that can convert any structure of numbers, strings, byte-arrays, hashtables, and sequences into the equivalent Cocoa objects 2008-07-13 22:19:16 -04:00			`TYPEDEF: void* CFTypeRef`
Split up core-foundation vocabulary since it was getting out of hand 2008-12-12 01:33:05 -05:00
			`TYPEDEF: void* CFAllocatorRef`
			`: kCFAllocatorDefault f ; inline`

Mac OS X monitors work in progress 2008-02-12 03:21:47 -05:00			`TYPEDEF: bool Boolean`
change cocoa and core foundation types to be 64-bit clean 2008-09-09 22:19:59 -04:00			`TYPEDEF: long CFIndex`
Do a runloop so that monitors work in terminal 2008-04-11 13:18:39 -04:00			`TYPEDEF: int SInt32`
replace limited assoc>NSDictionary word with a >plist word that can convert any structure of numbers, strings, byte-arrays, hashtables, and sequences into the equivalent Cocoa objects 2008-07-13 22:19:16 -04:00			`TYPEDEF: uint UInt32`
change cocoa and core foundation types to be 64-bit clean 2008-09-09 22:19:59 -04:00			`TYPEDEF: ulong CFTypeID`
Add some CFFileDescriptor-related functions 2008-12-06 18:35:04 -05:00			`TYPEDEF: UInt32 CFOptionFlags`
Initial import 2007-09-20 18:09:08 -04:00
replace limited assoc>NSDictionary word with a >plist word that can convert any structure of numbers, strings, byte-arrays, hashtables, and sequences into the equivalent Cocoa objects 2008-07-13 22:19:16 -04:00			`FUNCTION: CFTypeRef CFRetain ( CFTypeRef cf ) ;`
Initial import 2007-09-20 18:09:08 -04:00
Split up core-foundation vocabulary since it was getting out of hand 2008-12-12 01:33:05 -05:00			`FUNCTION: void CFRelease ( CFTypeRef cf ) ;`
HID manager callback convenience words. CFRunLoop function bindings 2008-07-14 23:12:06 -04:00
with-destructors variants of CFRelease and com-release. Remove platform check errors from windows.dinput and iokit 2008-07-16 09:37:36 -04:00			`TUPLE: CFRelease-destructor alien disposed ;`
Add some CFFileDescriptor-related functions 2008-12-06 18:35:04 -05:00
with-destructors variants of CFRelease and com-release. Remove platform check errors from windows.dinput and iokit 2008-07-16 09:37:36 -04:00			`M: CFRelease-destructor dispose* alien>> CFRelease ;`
Add some CFFileDescriptor-related functions 2008-12-06 18:35:04 -05:00
with-destructors variants of CFRelease and com-release. Remove platform check errors from windows.dinput and iokit 2008-07-16 09:37:36 -04:00			`: &CFRelease ( alien -- alien )`
			`dup f CFRelease-destructor boa &dispose drop ; inline`
Add some CFFileDescriptor-related functions 2008-12-06 18:35:04 -05:00
with-destructors variants of CFRelease and com-release. Remove platform check errors from windows.dinput and iokit 2008-07-16 09:37:36 -04:00			`: \|CFRelease ( alien -- alien )`
			`dup f CFRelease-destructor boa \|dispose drop ; inline`