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

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

db4
erg 2008-10-22 20:28:30 -05:00
parent 4ddfc83423
commit bccf9d9698
2 changed files with 7 additions and 3 deletions
basis/unix/statfs/linux
core/io/files

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

@ -34,6 +34,10 @@ frequency pass-number ;
M: linux mounted M: linux mounted
parse-mtab [ parse-mtab [
mount-point>> [ mount-point>> file-system-info ] keep
[ file-system-info ] keep >>name {
[ file-system-name>> >>device-name ]
[ mount-point>> >>name ]
[ type>> >>type ]
} cleave
] map ; ] map ;

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

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