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

break out id into id0 and id1

db4
Doug Coleman 2008-12-02 21:39:09 -06:00
parent 201c02414a
commit 2b4e2776f1
1 changed files with 3 additions and 1 deletions
basis/io/unix/files

4
basis/io/unix/files/files.factor
View File

@ -80,7 +80,7 @@ TUPLE: unix-file-system-info < file-system-info
block-size preferred-block-size
blocks blocks-free blocks-available
files files-free files-available
name-max flags id ;
name-max flags id id0 id1 ;
HOOK: new-file-system-info os ( -- file-system-info )
@ -108,6 +108,8 @@ M: unix statvfs>file-system-info drop ;
[ dup [ blocks-free>> ] [ block-size>> ] bi * >>free-space drop ]
[ dup [ blocks>> ] [ block-size>> ] bi * >>total-space drop ]
[ dup [ total-space>> ] [ free-space>> ] bi - >>used-space drop ]
[ dup id>> 2 c-uint-array> first2 [ >>id0 ] [ >>id1 ] bi* drop ]
[ f >>id drop ]
[ ]
} cleave ;