42 lines
1.1 KiB
Factor
42 lines
1.1 KiB
Factor
! Copyright (C) 2008 Slava Pestov
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien alien.syntax core-foundation kernel namespaces ;
|
|
IN: core-foundation.run-loop
|
|
|
|
: kCFRunLoopRunFinished 1 ; inline
|
|
: kCFRunLoopRunStopped 2 ; inline
|
|
: kCFRunLoopRunTimedOut 3 ; inline
|
|
: kCFRunLoopRunHandledSource 4 ; inline
|
|
|
|
TYPEDEF: void* CFRunLoopRef
|
|
TYPEDEF: void* CFRunLoopSourceRef
|
|
|
|
FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
|
|
FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ;
|
|
|
|
FUNCTION: SInt32 CFRunLoopRunInMode (
|
|
CFStringRef mode,
|
|
CFTimeInterval seconds,
|
|
Boolean returnAfterSourceHandled
|
|
) ;
|
|
|
|
FUNCTION: CFRunLoopSourceRef CFFileDescriptorCreateRunLoopSource (
|
|
CFAllocatorRef allocator,
|
|
CFFileDescriptorRef f,
|
|
CFIndex order
|
|
) ;
|
|
|
|
FUNCTION: void CFRunLoopAddSource (
|
|
CFRunLoopRef rl,
|
|
CFRunLoopSourceRef source,
|
|
CFStringRef mode
|
|
) ;
|
|
|
|
: CFRunLoopDefaultMode ( -- alien )
|
|
#! Ugly, but we don't have static NSStrings
|
|
\ CFRunLoopDefaultMode get-global dup expired? [
|
|
drop
|
|
"kCFRunLoopDefaultMode" <CFString>
|
|
dup \ CFRunLoopDefaultMode set-global
|
|
] when ;
|