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 alien.c-types alien.destructors accessors kernel ;
IN: core-foundation

TYPEDEF: void* CFTypeRef

TYPEDEF: void* CFAllocatorRef
CONSTANT: kCFAllocatorDefault f

TYPEDEF: bool Boolean
TYPEDEF: long CFIndex
TYPEDEF: char UInt8
TYPEDEF: int SInt32
TYPEDEF: uint UInt32
TYPEDEF: ulong CFTypeID
TYPEDEF: UInt32 CFOptionFlags
TYPEDEF: void* CFUUIDRef

ALIAS: <CFIndex> <long>
ALIAS: *CFIndex *long

C-STRUCT: CFRange
{ "CFIndex" "location" }
{ "CFIndex" "length" } ;

: <CFRange> ( location length -- range )
    "CFRange" <c-object>
    [ set-CFRange-length ] keep
    [ set-CFRange-location ] keep ;

FUNCTION: CFTypeRef CFRetain ( CFTypeRef cf ) ;

FUNCTION: void CFRelease ( CFTypeRef cf ) ;

DESTRUCTOR: CFRelease
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.`
Fix <CFString> and CF>string to allow null bytes 2009-01-25 20:02:59 -05:00			`USING: alien.syntax alien.c-types alien.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`
Fix <CFString> and CF>string to allow null bytes 2009-01-25 20:02:59 -05:00			`CONSTANT: kCFAllocatorDefault f`
Split up core-foundation vocabulary since it was getting out of hand 2008-12-12 01:33:05 -05:00
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`
Fix <CFString> and CF>string to allow null bytes 2009-01-25 20:02:59 -05:00			`TYPEDEF: char UInt8`
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`
Updating unit tests for I/O re-organization 2008-12-14 22:21:44 -05:00			`TYPEDEF: void* CFUUIDRef`
Initial import 2007-09-20 18:09:08 -04:00
Fix <CFString> and CF>string to allow null bytes 2009-01-25 20:02:59 -05:00			`ALIAS: <CFIndex> <long>`
			`ALIAS: CFIndex long`

			`C-STRUCT: CFRange`
			`{ "CFIndex" "location" }`
			`{ "CFIndex" "length" } ;`

			`: <CFRange> ( location length -- range )`
			`"CFRange" <c-object>`
			`[ set-CFRange-length ] keep`
			`[ set-CFRange-location ] keep ;`

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
New alien.destructors vocab defines a functor which generalizes &CFRelease; flesh out core-graphics and core-text bindings 2009-01-16 23:37:56 -05:00			`DESTRUCTOR: CFRelease`