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

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

Doug Coleman 2009-11-14 23:29:04 -06:00
parent 3f2e4e3ea2 d2bd17b056
commit 4d2683032b
12 changed files with 43 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

4
extra/monotonic-clock/unix/macosx/macosx.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.macosx

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 ;