windows: Add cpu-mhz on Windows

[factor.git] / basis / system-info / windows / windows.factor

diff --git a/basis/system-info/windows/windows.factor b/basis/system-info/windows/windows.factor
index d9f9317fb843c5903f39573043cbf099171049d4..7e344d3c574950174a490555396631cb3eca4897 100644 (file)
--- a/basis/system-info/windows/windows.factor
+++ b/basis/system-info/windows/windows.factor
@@ -2,9 +2,10 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien alien.c-types alien.data alien.strings
 arrays byte-arrays classes.struct combinators kernel math
-namespaces specialized-arrays system
-vocabs.loader windows windows.advapi32
-windows.errors windows.kernel32 words system-info ;
+namespaces sequences specialized-arrays
+specialized-arrays.instances.alien.c-types.ushort system
+system-info vocabs.loader windows windows.advapi32
+windows.errors windows.kernel32 windows.powrprof words ;
 SPECIALIZED-ARRAY: ushort
 IN: system-info.windows
 
@@ -70,6 +71,9 @@ M: windows os-version
 M: windows cpus
     system-info dwNumberOfProcessors>> ;
 
+M: windows cpu-mhz
+    get-processor-power-information first MaxMhz>> 1,000,000 * ;
+
 : memory-status ( -- MEMORYSTATUSEX )
     MEMORYSTATUSEX <struct>
     MEMORYSTATUSEX heap-size >>dwLength