2008-02-04 18:10:49 -05:00
|
|
|
USING: alien.syntax kernel math prettyprint
|
|
|
|
|
combinators vocabs.loader hardware-info.backend system ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: hardware-info
|
|
|
|
|
|
|
|
|
|
: kb. ( x -- ) 10 2^ /f . ;
|
|
|
|
|
: megs. ( x -- ) 20 2^ /f . ;
|
|
|
|
|
: gigs. ( x -- ) 30 2^ /f . ;
|
|
|
|
|
|
2008-04-02 20:23:37 -04:00
|
|
|
<< {
|
2008-04-02 19:25:33 -04:00
|
|
|
{ [ os windows? ] [ "hardware-info.windows" ] }
|
|
|
|
|
{ [ os linux? ] [ "hardware-info.linux" ] }
|
|
|
|
|
{ [ os macosx? ] [ "hardware-info.macosx" ] }
|
2008-01-14 16:42:21 -05:00
|
|
|
{ [ t ] [ f ] }
|
|
|
|
|
} cond [ require ] when* >>
|
