beginning of a monotonic clock implementation. still needs linux and mac -- clock_gettime() and mach_absolute_time()

extra/monotonic-clock/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

extra/monotonic-clock/monotonic-clock.factor

@@ -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 )
+

extra/monotonic-clock/unix/linux/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

extra/monotonic-clock/unix/linux/linux.factor

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

extra/monotonic-clock/unix/linux/tags.txt

@@ -0,0 +1 @@
+unportable

extra/monotonic-clock/unix/macosx/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

extra/monotonic-clock/unix/macosx/macosx.factor

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

extra/monotonic-clock/unix/macosx/tags.txt

@@ -0,0 +1 @@
+unportable

extra/monotonic-clock/windows/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

extra/monotonic-clock/windows/tags.txt

@@ -0,0 +1 @@
+unportable

extra/monotonic-clock/windows/windows.factor

@@ -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 ;