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

system-info.windows: fix load error

db4
Slava Pestov 2009-08-28 05:38:29 -05:00
parent 790e7ec0bc
commit ff4213003b
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/system-info/windows/nt/nt.factor
View File

@ -4,11 +4,11 @@ USING: alien alien.c-types alien.strings
kernel libc math namespaces system-info.backend kernel libc math namespaces system-info.backend
system-info.windows windows windows.advapi32 system-info.windows windows windows.advapi32
windows.kernel32 system byte-arrays windows.errors windows.kernel32 system byte-arrays windows.errors
classes classes.struct ; classes classes.struct accessors ;
IN: system-info.windows.nt IN: system-info.windows.nt
M: winnt cpus ( -- n ) M: winnt cpus ( -- n )
system-info SYSTEM_INFO-dwNumberOfProcessors ; system-info dwNumberOfProcessors>> ;
: memory-status ( -- MEMORYSTATUSEX ) : memory-status ( -- MEMORYSTATUSEX )
"MEMORYSTATUSEX" <struct> "MEMORYSTATUSEX" <struct>

8
extra/system-info/windows/windows.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types kernel libc math namespaces USING: alien alien.c-types classes.struct accessors kernel
windows windows.kernel32 windows.advapi32 math namespaces windows windows.kernel32 windows.advapi32 words
words combinators vocabs.loader system-info.backend combinators vocabs.loader system-info.backend system
system alien.strings windows.errors ; alien.strings windows.errors ;
IN: system-info.windows IN: system-info.windows
: system-info ( -- SYSTEM_INFO ) : system-info ( -- SYSTEM_INFO )