48 lines
1.3 KiB
Factor
Executable File
48 lines
1.3 KiB
Factor
Executable File
! Copyright (C) 2008 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien alien.c-types alien.strings
|
|
kernel libc math namespaces system-info.backend
|
|
system-info.windows windows windows.advapi32
|
|
windows.kernel32 system byte-arrays windows.errors
|
|
classes classes.struct accessors ;
|
|
IN: system-info.windows.nt
|
|
|
|
M: winnt cpus ( -- n )
|
|
system-info dwNumberOfProcessors>> ;
|
|
|
|
: memory-status ( -- MEMORYSTATUSEX )
|
|
"MEMORYSTATUSEX" <struct>
|
|
dup class heap-size >>dwLength
|
|
dup GlobalMemoryStatusEx win32-error=0/f ;
|
|
|
|
M: winnt memory-load ( -- n )
|
|
memory-status dwMemoryLoad>> ;
|
|
|
|
M: winnt physical-mem ( -- n )
|
|
memory-status ullTotalPhys>> ;
|
|
|
|
M: winnt available-mem ( -- n )
|
|
memory-status ullAvailPhys>> ;
|
|
|
|
M: winnt total-page-file ( -- n )
|
|
memory-status ullTotalPageFile>> ;
|
|
|
|
M: winnt available-page-file ( -- n )
|
|
memory-status ullAvailPageFile>> ;
|
|
|
|
M: winnt total-virtual-mem ( -- n )
|
|
memory-status ullTotalVirtual>> ;
|
|
|
|
M: winnt available-virtual-mem ( -- n )
|
|
memory-status ullAvailVirtual>> ;
|
|
|
|
: computer-name ( -- string )
|
|
MAX_COMPUTERNAME_LENGTH 1 +
|
|
[ <byte-array> dup ] keep <uint>
|
|
GetComputerName win32-error=0/f alien>native-string ;
|
|
|
|
: username ( -- string )
|
|
UNLEN 1 +
|
|
[ <byte-array> dup ] keep <uint>
|
|
GetUserName win32-error=0/f alien>native-string ;
|