steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2009-02-13 15:56:33 -06:00
parent 3cf4c6fee2 8223f42775
commit e64dcc3853
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/system-info/linux/linux.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: unix alien alien.c-types kernel math sequences strings USING: unix alien alien.c-types kernel math sequences strings
io.backend.unix splitting ; io.backend.unix splitting io.encodings.utf8 io.encodings.string ;
IN: system-info.linux IN: system-info.linux
: (uname) ( buf -- int ) : (uname) ( buf -- int )
@ -9,7 +9,7 @@ IN: system-info.linux
: uname ( -- seq ) : uname ( -- seq )
65536 "char" <c-array> [ (uname) io-error ] keep 65536 "char" <c-array> [ (uname) io-error ] keep
"\0" split harvest [ >string ] map "\0" split harvest [ utf8 decode ] map
6 "" pad-tail ; 6 "" pad-tail ;
: sysname ( -- string ) uname first ; : sysname ( -- string ) uname first ;