include mount point in file-system-info
parent
89e9fa8b6b
commit
278b55ee57
|
@ -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 ;
|
||||
|
|
|
@ -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 )
|
||||
|
|
|
@ -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 )
|
||||
|
||||
|
|
Loading…
Reference in New Issue