1 ! Copyright (C) 2008 Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.syntax core-foundation kernel namespaces ;
4 IN: core-foundation.run-loop
6 : kCFRunLoopRunFinished 1 ; inline
7 : kCFRunLoopRunStopped 2 ; inline
8 : kCFRunLoopRunTimedOut 3 ; inline
9 : kCFRunLoopRunHandledSource 4 ; inline
11 TYPEDEF: void* CFRunLoopRef
12 TYPEDEF: void* CFRunLoopSourceRef
14 FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
15 FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ;
17 FUNCTION: SInt32 CFRunLoopRunInMode (
19 CFTimeInterval seconds,
20 Boolean returnAfterSourceHandled
23 FUNCTION: CFRunLoopSourceRef CFFileDescriptorCreateRunLoopSource (
24 CFAllocatorRef allocator,
25 CFFileDescriptorRef f,
29 FUNCTION: void CFRunLoopAddSource (
31 CFRunLoopSourceRef source,
35 : CFRunLoopDefaultMode ( -- alien )
36 #! Ugly, but we don't have static NSStrings
37 \ CFRunLoopDefaultMode get-global dup expired? [
39 "kCFRunLoopDefaultMode" <CFString>
40 dup \ CFRunLoopDefaultMode set-global