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

monotonic-count on mac

db4
Doug Coleman 2009-11-15 00:47:27 -06:00
parent c608ef1f0f
commit d0613cb79d
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/monotonic-clock/unix/macosx/macosx.factor
View File

@ -1,4 +1,24 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: ;
USING: accessors alien.syntax classes.struct kernel math
monotonic-clock system unix.types ;
IN: monotonic-clock.unix.macosx
STRUCT: mach_timebase_info
{ numer uint32_t }
{ denom uint32_t } ;
TYPEDEF: mach_timebase_info* mach_timebase_info_t
TYPEDEF: mach_timebase_info mach_timebase_info_data_t
FUNCTION: uint64_t mach_absolute_time ( ) ;
FUNCTION: kern_return_t mach_timebase_info ( mach_timebase_info_t info ) ;
FUNCTION: kern_return_t mach_wait_until ( uint64_t deadline ) ;
ERROR: mach-timebase-info ret ;
M: macosx monotonic-count
mach_absolute_time
\ mach_timebase_info <struct> [
mach_timebase_info [ mach-timebase-info ] unless-zero
] keep [ numer>> ] [ denom>> ] bi / * ;