40 lines
1.1 KiB
Factor
40 lines
1.1 KiB
Factor
|
! Copyright (C) 2008 Slava Pestov
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien.syntax kernel threads init namespaces alien
|
||
|
|
core-foundation ;
|
||
|
|
IN: core-foundation.run-loop
|
||
|
|
|
||
|
|
: kCFRunLoopRunFinished 1 ; inline
|
||
|
|
: kCFRunLoopRunStopped 2 ; inline
|
||
|
|
: kCFRunLoopRunTimedOut 3 ; inline
|
||
|
|
: kCFRunLoopRunHandledSource 4 ; inline
|
||
|
|
|
||
|
|
TYPEDEF: void* CFRunLoopRef
|
||
|
|
|
||
|
|
FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
|
||
|
FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ;
|
||
|
|
|
||
|
|
FUNCTION: SInt32 CFRunLoopRunInMode (
|
||
|
|
CFStringRef mode,
|
||
|
|
CFTimeInterval seconds,
|
||
|
|
Boolean returnAfterSourceHandled
|
||
|
|
) ;
|
||
|
|
|
||
|
|
: CFRunLoopDefaultMode ( -- alien )
|
||
|
|
#! Ugly, but we don't have static NSStrings
|
||
|
|
\ CFRunLoopDefaultMode get-global dup expired? [
|
||
|
|
drop
|
||
|
|
"kCFRunLoopDefaultMode" <CFString>
|
||
|
|
dup \ CFRunLoopDefaultMode set-global
|
||
|
|
] when ;
|
||
|
|
|
||
|
|
: run-loop-thread ( -- )
|
||
|
|
CFRunLoopDefaultMode 0 f CFRunLoopRunInMode
|
||
|
|
kCFRunLoopRunHandledSource = [ 1000 sleep ] unless
|
||
|
|
run-loop-thread ;
|
||
|
|
|
||
|
|
: start-run-loop-thread ( -- )
|
||
|
|
[ run-loop-thread t ] "CFRunLoop dispatcher" spawn-server drop ;
|
||
|
|
|
||
|
|
[ start-run-loop-thread ] "core-foundation.run-loop" add-init-hook
|