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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/unix/statfs/linux/linux.factor
View File

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

5
basis/unix/statfs/statfs.factor
View File

@ -4,11 +4,6 @@ USING: sequences system vocabs.loader combinators accessors
kernel math.order sorting ; kernel math.order sorting ;
IN: unix.statfs 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 ; TUPLE: file-system-info root-directory total-free-size total-size ;
HOOK: >file-system-info os ( struct -- statfs ) HOOK: >file-system-info os ( struct -- statfs )

2
core/io/files/files.factor
View File

@ -184,7 +184,7 @@ SYMBOL: +unknown+
! File-system ! 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 ) HOOK: file-system-info os ( path -- file-system-info )