1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax system math kernel calendar
4 core-foundation core-foundation.time ;
5 IN: core-foundation.timers
7 TYPEDEF: void* CFRunLoopTimerRef
8 TYPEDEF: void* CFRunLoopTimerCallBack
9 TYPEDEF: void* CFRunLoopTimerContext
11 FUNCTION: CFRunLoopTimerRef CFRunLoopTimerCreate (
12 CFAllocatorRef allocator,
13 CFAbsoluteTime fireDate,
14 CFTimeInterval interval,
17 CFRunLoopTimerCallBack callout,
18 CFRunLoopTimerContext* context
21 : <CFTimer> ( callback -- timer )
22 [ f now >CFAbsoluteTime 60 0 0 ] dip f CFRunLoopTimerCreate ;
24 FUNCTION: void CFRunLoopTimerInvalidate (
25 CFRunLoopTimerRef timer
28 FUNCTION: Boolean CFRunLoopTimerIsValid (
29 CFRunLoopTimerRef timer
32 FUNCTION: void CFRunLoopTimerSetNextFireDate (
33 CFRunLoopTimerRef timer,
34 CFAbsoluteTime fireDate