add device-name and type to file-system-info
parent
4ddfc83423
commit
bccf9d9698
basis/unix/statfs/linux
core/io/files
|
@ -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 ;
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue