2007-12-28 21:46:06 -05:00
|
|
|
USING: alien.syntax math prettyprint system combinators
|
|
|
|
|
vocabs.loader ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: hardware-info
|
|
|
|
|
|
|
|
|
|
SYMBOL: os
|
|
|
|
|
HOOK: cpus os ( -- n )
|
|
|
|
|
|
|
|
|
|
HOOK: memory-load os ( -- n )
|
|
|
|
|
HOOK: physical-mem os ( -- n )
|
|
|
|
|
HOOK: available-mem os ( -- n )
|
|
|
|
|
HOOK: total-page-file os ( -- n )
|
|
|
|
|
HOOK: available-page-file os ( -- n )
|
|
|
|
|
HOOK: total-virtual-mem os ( -- n )
|
|
|
|
|
HOOK: available-virtual-mem os ( -- n )
|
|
|
|
|
HOOK: available-virtual-extended-mem os ( -- n )
|
|
|
|
|
|
|
|
|
|
: kb. ( x -- ) 10 2^ /f . ;
|
|
|
|
|
: megs. ( x -- ) 20 2^ /f . ;
|
|
|
|
|
: gigs. ( x -- ) 30 2^ /f . ;
|
|
|
|
|
|
2007-12-28 21:46:06 -05:00
|
|
|
{
|
|
|
|
|
{ [ windows? ] [ "hardware-info.windows" ] }
|
|
|
|
|
{ [ linux? ] [ "hardware-info.linux" ] }
|
|
|
|
|
{ [ macosx? ] [ "hardware-info.macosx" ] }
|
|
|
|
|
} cond require
|
2007-09-20 18:09:08 -04:00
|
|
|
|
