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

core-foundation.run-loop: define a CALLBACK and use it.

db4
John Benediktsson 2014-08-05 15:53:02 -07:00
parent aaeb3f357e
commit 37af86428f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/core-foundation/run-loop/run-loop.factor
View File

@ -56,6 +56,11 @@ FUNCTION: void CFRunLoopRemoveTimer (
CFStringRef mode CFStringRef mode
) ; ) ;
CALLBACK: void CFRunLoopTimerCallBack (
CFRunLoopTimerRef timer,
void *info
) ;
CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode" CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode"
TUPLE: run-loop-state fds sources timers ; TUPLE: run-loop-state fds sources timers ;
@ -121,8 +126,7 @@ PRIVATE>
[ fds>> [ enable-all-callbacks ] each ] bi ; [ fds>> [ enable-all-callbacks ] each ] bi ;
: timer-callback ( -- callback ) : timer-callback ( -- callback )
void { CFRunLoopTimerRef void* } cdecl [ drop reset-timer yield ] CFRunLoopTimerCallBack ;
[ drop reset-timer yield ] alien-callback ;
: init-thread-timer ( -- ) : init-thread-timer ( -- )
60 timer-callback <CFTimer> add-timer-to-run-loop ; 60 timer-callback <CFTimer> add-timer-to-run-loop ;