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

fix hardware-info for windows

db4
Doug Coleman 2008-01-29 11:40:50 -06:00
parent cdb4c5f698
commit 374f8acae2
4 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/hardware-info/backend/backend.factor
View File

@ -11,4 +11,3 @@ HOOK: available-page-file os ( -- n )
HOOK: total-virtual-mem os ( -- n ) HOOK: total-virtual-mem os ( -- n )
HOOK: available-virtual-mem os ( -- n ) HOOK: available-virtual-mem os ( -- n )
HOOK: available-virtual-extended-mem os ( -- n ) HOOK: available-virtual-extended-mem os ( -- n )

6
extra/hardware-info/windows/backend/backend.factor Normal file
View File

@ -0,0 +1,6 @@
IN: hardware-info.windows.backend
TUPLE: wince ;
TUPLE: winnt ;
UNION: windows wince winnt ;

2
extra/hardware-info/windows/nt/nt.factor
View File

@ -1,4 +1,4 @@
USING: alien alien.c-types hardware-info hardware-info.windows USING: alien alien.c-types hardware-info.windows.backend
kernel libc math namespaces hardware-info.backend kernel libc math namespaces hardware-info.backend
windows windows.advapi32 windows.kernel32 ; windows windows.advapi32 windows.kernel32 ;
IN: hardware-info.windows.nt IN: hardware-info.windows.nt

4
extra/hardware-info/windows/windows.factor
View File

@ -1,11 +1,9 @@
USING: alien alien.c-types kernel libc math namespaces USING: alien alien.c-types kernel libc math namespaces
windows windows.kernel32 windows.advapi32 windows windows.kernel32 windows.advapi32
hardware-info.windows.backend
words combinators vocabs.loader hardware-info.backend ; words combinators vocabs.loader hardware-info.backend ;
IN: hardware-info.windows IN: hardware-info.windows
TUPLE: wince ;
TUPLE: winnt ;
UNION: windows wince winnt ;
USE: system USE: system
: system-info ( -- SYSTEM_INFO ) : system-info ( -- SYSTEM_INFO )