steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/system-info/system-info.factor

34 lines
1.0 KiB
Factor
Raw Normal View History

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 )
system-info: Add hyperthreads. Windows needs to implement this. The whole system-info needs a better api in general. At least this patch fixes cli.git on macOS.
2017-08-26 02:10:04 -04:00
HOOK: hyperthreads os ( -- n )
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: 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