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

Move function

db4
Slava Pestov 2008-04-11 13:20:03 -05:00
parent c5de818925
commit dc87e64387
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -85,5 +85,3 @@ FUNCTION: void CFRelease ( void* cf ) ;
] [ ] [
"Cannot load bundled named " prepend throw "Cannot load bundled named " prepend throw
] ?if ; ] ?if ;
FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;

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

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov ! Copyright (C) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax kernel threads init USING: alien.syntax kernel threads init namespaces alien
cocoa.application core-foundation ; core-foundation ;
IN: core-foundation.run-loop IN: core-foundation.run-loop
: kCFRunLoopRunFinished 1 ; inline : kCFRunLoopRunFinished 1 ; inline
@ -11,13 +11,21 @@ IN: core-foundation.run-loop
TYPEDEF: void* CFRunLoopRef TYPEDEF: void* CFRunLoopRef
FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
FUNCTION: SInt32 CFRunLoopRunInMode ( FUNCTION: SInt32 CFRunLoopRunInMode (
CFStringRef mode, CFStringRef mode,
CFTimeInterval seconds, CFTimeInterval seconds,
Boolean returnAfterSourceHandled Boolean returnAfterSourceHandled
) ; ) ;
: CFRunLoopDefaultMode "kCFRunLoopDefaultMode" <NSString> ; : 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 ( -- ) : run-loop-thread ( -- )
CFRunLoopDefaultMode 0 f CFRunLoopRunInMode CFRunLoopDefaultMode 0 f CFRunLoopRunInMode