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

Merge branch 'monotonic' of git://factorcode.org/git/factor into monotonic

db4
Doug Coleman 2009-11-15 00:02:23 -06:00
parent 9085f30b18 d0613cb79d
commit f3d301d1b9
12 changed files with 63 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/windows/kernel32/kernel32.factor
View File

@ -1622,8 +1622,8 @@ FUNCTION: HANDLE OpenProcess ( DWORD dwDesiredAccess, BOOL bInheritHandle, DWORD
! FUNCTION: QueryDosDeviceW
! FUNCTION: QueryInformationJobObject
! FUNCTION: QueryMemoryResourceNotification
! FUNCTION: QueryPerformanceCounter
! FUNCTION: QueryPerformanceFrequency
FUNCTION: BOOL QueryPerformanceCounter ( LARGE_INTEGER* lpPerformanceCount ) ;
FUNCTION: BOOL QueryPerformanceFrequency ( LARGE_INTEGER* lpFrequency ) ;
! FUNCTION: QueryWin31IniFilesMappedToRegistry
! FUNCTION: QueueUserAPC
! FUNCTION: QueueUserWorkItem

1
extra/monotonic-clock/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

7
extra/monotonic-clock/monotonic-clock.factor Executable file
View File

@ -0,0 +1,7 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: system ;
IN: monotonic-clock
HOOK: monotonic-count os ( -- n )

1
extra/monotonic-clock/unix/linux/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

4
extra/monotonic-clock/unix/linux/linux.factor Executable file
View File

@ -0,0 +1,4 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: ;
IN: monotonic-clock.unix.linux

1
extra/monotonic-clock/unix/linux/tags.txt Normal file
View File

@ -0,0 +1 @@
unportable

1
extra/monotonic-clock/unix/macosx/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

24
extra/monotonic-clock/unix/macosx/macosx.factor Executable file
View File

@ -0,0 +1,24 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
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 / * ;

1
extra/monotonic-clock/unix/macosx/tags.txt Normal file
View File

@ -0,0 +1 @@
unportable

1
extra/monotonic-clock/windows/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

1
extra/monotonic-clock/windows/tags.txt Normal file
View File

@ -0,0 +1 @@
unportable

19
extra/monotonic-clock/windows/windows.factor Executable file
View File

@ -0,0 +1,19 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.data fry kernel monotonic-clock
system windows.errors windows.kernel32 ;
IN: monotonic-clock.windows
<PRIVATE
: execute-performance-query ( word -- n )
[ "LARGE_INTEGER*" <c-object> ] dip
'[ _ execute win32-error=0/f ] keep *ulonglong ; inline
PRIVATE>
M: windows monotonic-count ( -- n )
\ QueryPerformanceCounter execute-performance-query ;
: cpu-frequency ( -- n )
\ QueryPerformanceFrequency execute-performance-query ;