basis/system-info/system-info.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: combinators io kernel math math.parser system
   4 vocabs ;
   5 IN: system-info
   6
   7 HOOK: os-version os ( -- version )
   8 HOOK: cpus os ( -- n )
   9 HOOK: cpu-mhz os ( -- n )
  10 HOOK: memory-load os ( -- n )
  11 HOOK: physical-mem os ( -- n )
  12 HOOK: available-mem os ( -- n )
  13 HOOK: total-page-file os ( -- n )
  14 HOOK: available-page-file os ( -- n )
  15 HOOK: total-virtual-mem os ( -- n )
  16 HOOK: available-virtual-mem os ( -- n )
  17 HOOK: available-virtual-extended-mem os ( -- n )
  18
  19 : write-unit ( x n str -- )
  20     [ 2^ /f number>string write bl ] [ write ] bi* ;
  21
  22 : kb ( x -- ) 10 "kB" write-unit ;
  23 : megs ( x -- ) 20 "MB" write-unit ;
  24 : gigs ( x -- ) 30 "GB" write-unit ;
  25 : ghz ( x -- ) 1000000000 /f number>string write bl "GHz" write ;
  26
  27 : system-report. ( -- )
  28     "CPUs: " write cpus number>string write nl
  29     "CPU Speed: " write cpu-mhz ghz nl
  30     "Physical RAM: " write physical-mem megs nl ;
  31
  32 << {
  33     { [ os windows? ] [ "system-info.windows" ] }
  34     { [ os linux? ] [ "system-info.linux" ] }
  35     { [ os macosx? ] [ "system-info.macosx" ] }
  36 } cond [ require ] when* >>