include mount point in file-system-info

db4
erg 2008-10-22 20:04:10 -05:00
parent 89e9fa8b6b
commit 278b55ee57
3 changed files with 5 additions and 7 deletions

View File

@ -33,4 +33,7 @@ frequency pass-number ;
[ mtab-csv>mtab-entry ] map ;
M: linux mounted
parse-mtab [ mount-point>> file-system-info ] map ;
parse-mtab [
mount-point>>
[ file-system-info ] keep >>name
] map ;

View File

@ -4,11 +4,6 @@ USING: sequences system vocabs.loader combinators accessors
kernel math.order sorting ;
IN: unix.statfs
TUPLE: mounted block-size io-size blocks blocks-free
blocks-available files files-free file-system-id owner type
flags filesystem-subtype file-system-type-name mount-on
mount-from ;
TUPLE: file-system-info root-directory total-free-size total-size ;
HOOK: >file-system-info os ( struct -- statfs )

View File

@ -184,7 +184,7 @@ SYMBOL: +unknown+
! File-system
TUPLE: file-system-info mount-on free-space ;
TUPLE: file-system-info name free-space ;
HOOK: file-system-info os ( path -- file-system-info )