add device-name and type to file-system-info
parent
4ddfc83423
commit
bccf9d9698
|
@ -34,6 +34,10 @@ frequency pass-number ;
|
|||
|
||||
M: linux mounted
|
||||
parse-mtab [
|
||||
mount-point>>
|
||||
[ file-system-info ] keep >>name
|
||||
[ mount-point>> file-system-info ] keep
|
||||
{
|
||||
[ file-system-name>> >>device-name ]
|
||||
[ mount-point>> >>name ]
|
||||
[ type>> >>type ]
|
||||
} cleave
|
||||
] map ;
|
||||
|
|
|
@ -184,7 +184,7 @@ SYMBOL: +unknown+
|
|||
|
||||
! 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 )
|
||||
|
||||
|
|
Loading…
Reference in New Issue