steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

whoops... missed core-foundation.run-loop!

db4
Joe Groff 2008-07-14 20:21:10 -07:00
parent a0ea307432
commit 55604878aa
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/core-foundation/core-foundation.factor
View File

@ -11,7 +11,6 @@ TYPEDEF: void* CFDictionaryRef
TYPEDEF: void* CFMutableDictionaryRef
TYPEDEF: void* CFNumberRef
TYPEDEF: void* CFBundleRef
TYPEDEF: void* CFRunLoopRef
TYPEDEF: void* CFSetRef
TYPEDEF: void* CFStringRef
TYPEDEF: void* CFURLRef
@ -80,9 +79,6 @@ FUNCTION: void CFRelease ( CFTypeRef cf ) ;
FUNCTION: CFTypeID CFGetTypeID ( CFTypeRef cf ) ;
FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ;
FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
: CF>array ( alien -- array )
dup CFArrayGetCount [ CFArrayGetValueAtIndex ] with map ;
@ -139,4 +135,3 @@ M: f <CFNumber>
"Cannot load bundled named " prepend throw
] ?if ;
: kCFRunLoopDefaultMode "kCFRunLoopDefaultMode" <CFString> ; inline

1
extra/core-foundation/run-loop/run-loop.factor
View File

@ -12,6 +12,7 @@ IN: core-foundation.run-loop
TYPEDEF: void* CFRunLoopRef
FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ;
FUNCTION: SInt32 CFRunLoopRunInMode (
CFStringRef mode,