31 lines
878 B
Factor
31 lines
878 B
Factor
|
! Copyright (C) 2008 Slava Pestov
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien.syntax kernel threads init
|
||
|
|
cocoa.application core-foundation ;
|
||
|
|
IN: core-foundation.run-loop
|
||
|
|
|
||
|
|
: kCFRunLoopRunFinished 1 ; inline
|
||
|
|
: kCFRunLoopRunStopped 2 ; inline
|
||
|
|
: kCFRunLoopRunTimedOut 3 ; inline
|
||
|
|
: kCFRunLoopRunHandledSource 4 ; inline
|
||
|
|
|
||
|
|
TYPEDEF: void* CFRunLoopRef
|
||
|
|
|
||
|
|
FUNCTION: SInt32 CFRunLoopRunInMode (
|
||
|
|
CFStringRef mode,
|
||
|
|
CFTimeInterval seconds,
|
||
|
|
Boolean returnAfterSourceHandled
|
||
|
|
) ;
|
||
|
|
|
||
|
|
: CFRunLoopDefaultMode "kCFRunLoopDefaultMode" <NSString> ;
|
||
|
|
|
||
|
|
: 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
|