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

View File

@ -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 ;

View File

@ -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 )