factor/basis/system-info/system-info.factor

! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors io kernel math math.parser sequences system
vocabs ;
IN: system-info

HOOK: os-version os ( -- version )
HOOK: cpus os ( -- n )
HOOK: cpu-mhz 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 )

: write-unit ( x n str -- )
    [ 2^ /f number>string write bl ] [ write ] bi* ;

: kb ( x -- ) 10 "kB" write-unit ;
: megs ( x -- ) 20 "MB" write-unit ;
: gigs ( x -- ) 30 "GB" write-unit ;
: ghz ( x -- ) 1000000000 /f number>string write bl "GHz" write ;

: system-report. ( -- )
    "CPUs: " write cpus number>string write nl
    "CPU Speed: " write cpu-mhz ghz nl
    "Physical RAM: " write physical-mem megs nl ;

"system-info." os name>> append require
rename hardware-info to system-info 2008-12-06 23:58:19 -05:00			`! Copyright (C) 2008 Doug Coleman.`
			`! See http://factorcode.org/license.txt for BSD license.`
basis/extra: switch to "vocab." os name>> append require. 2014-11-13 16:00:44 -05:00			`USING: accessors io kernel math math.parser sequences system`
Make "foo.private" require load foo instead. Move require from vocabs.loader to vocabs. Update everything. Fixes #201. 2011-11-02 14:23:41 -04:00			`vocabs ;`
rename hardware-info to system-info 2008-12-06 23:58:19 -05:00			`IN: system-info`
Initial import 2007-09-20 18:09:08 -04:00
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file. 2015-06-29 19:43:15 -04:00			`HOOK: os-version os ( -- version )`
Add os-version hook to system-info which returns f on every platform except windows, where it returns { 5 1 } for xp and { 6 1 } for win7. Eventually do more here, like identify Snow Leopard, Lion, etc, but it's good enough to make ping tests pass. Move system-info platform loader into system-info.backend Add win7? and winxp? words to system-info, clean up ping-tests with new word Merge system-info.backend into system-info. Will throw an exception when loading on *bsd now 2011-09-08 17:07:12 -04:00			`HOOK: cpus os ( -- n )`
			`HOOK: cpu-mhz 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 )`

refactor hardware-info a bit 2008-04-03 02:48:29 -04:00			`: write-unit ( x n str -- )`
better cpu report 2008-04-04 00:35:57 -04:00			`[ 2^ /f number>string write bl ] [ write ] bi* ;`
refactor hardware-info a bit 2008-04-03 02:48:29 -04:00
			`: kb ( x -- ) 10 "kB" write-unit ;`
			`: megs ( x -- ) 20 "MB" write-unit ;`
			`: gigs ( x -- ) 30 "GB" write-unit ;`
better cpu report 2008-04-04 00:35:57 -04:00			`: ghz ( x -- ) 1000000000 /f number>string write bl "GHz" write ;`
Initial import 2007-09-20 18:09:08 -04:00
Add os-version hook to system-info which returns f on every platform except windows, where it returns { 5 1 } for xp and { 6 1 } for win7. Eventually do more here, like identify Snow Leopard, Lion, etc, but it's good enough to make ping tests pass. Move system-info platform loader into system-info.backend Add win7? and winxp? words to system-info, clean up ping-tests with new word Merge system-info.backend into system-info. Will throw an exception when loading on *bsd now 2011-09-08 17:07:12 -04:00			`: system-report. ( -- )`
			`"CPUs: " write cpus number>string write nl`
			`"CPU Speed: " write cpu-mhz ghz nl`
			`"Physical RAM: " write physical-mem megs nl ;`
basis/extra: switch to "vocab." os name>> append require. 2014-11-13 16:00:44 -05:00
			`"system-info." os name>> append require`