add device-name and type to file-system-info

2008-10-22 20:28:30 -05:00 · 2008-10-22 20:28:30 -05:00 · bccf9d9698
parent 4ddfc83423
commit bccf9d9698
2 changed files with 7 additions and 3 deletions
--- a/basis/unix/statfs/linux/linux.factor
+++ b/basis/unix/statfs/linux/linux.factor
@ -34,6 +34,10 @@ frequency pass-number ;

 M: linux mounted
    parse-mtab [
-        mount-point>>
-        [ file-system-info ] keep >>name
+        [ mount-point>> file-system-info ] keep
+        {
+            [ file-system-name>> >>device-name ]
+            [ mount-point>> >>name ]
+            [ type>> >>type ]
+        } cleave
    ] map ;
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@ -184,7 +184,7 @@ SYMBOL: +unknown+

 ! File-system

-TUPLE: file-system-info name free-space ;
+TUPLE: file-system-info device-name name type free-space ;

 HOOK: file-system-info os ( path -- file-system-info )