Merge branch 'specialized-arrays'

[factor.git] / basis / io / unix / files / files.factor

diff --git a/basis/io/unix/files/files.factor b/basis/io/unix/files/files.factor
index 8e7e37134b879f0bba9958ca03626e8692884bd1..4b570b6a89f3f6739270e18d019fcde85ece05f4 100644 (file)
--- a/basis/io/unix/files/files.factor
+++ b/basis/io/unix/files/files.factor
@@ -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 )
 
@@ -104,9 +104,12 @@ M: unix statvfs>file-system-info drop ;
 
 : file-system-calculations ( file-system-info -- file-system-info' )
     {
-        [ dup [ blocks-available>> ] [ block-size>> ] bi * >>free-space drop ]
+        [ dup [ blocks-available>> ] [ block-size>> ] bi * >>available-space 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 ;