extra/hardware-info/hardware-info.factor

   1 USING: alien.syntax math prettyprint system ;
   2 IN: hardware-info
   3
   4 SYMBOL: os
   5 HOOK: cpus os ( -- n )
   6
   7 HOOK: memory-load os ( -- n )
   8 HOOK: physical-mem os ( -- n )
   9 HOOK: available-mem os ( -- n )
  10 HOOK: total-page-file os ( -- n )
  11 HOOK: available-page-file os ( -- n )
  12 HOOK: total-virtual-mem os ( -- n )
  13 HOOK: available-virtual-mem os ( -- n )
  14 HOOK: available-virtual-extended-mem os ( -- n )
  15
  16 : kb. ( x -- ) 10 2^ /f . ;
  17 : megs. ( x -- ) 20 2^ /f . ;
  18 : gigs. ( x -- ) 30 2^ /f . ;
  19
  20 USE-IF: windows? hardware-info.windows
  21 USE-IF: linux? hardware-info.linux
  22 USE-IF: macosx? hardware-info.macosx
  23