mounted -> file-systems

db4
Doug Coleman 2008-11-11 13:30:12 -06:00
parent 65a844eb6b
commit bbaa8b95bd
3 changed files with 3 additions and 3 deletions

View File

@ -32,7 +32,7 @@ frequency pass-number ;
] with-scope
[ mtab-csv>mtab-entry ] map ;
M: linux mounted
M: linux file-systems
parse-mtab [
[ mount-point>> file-system-info ] keep
{

View File

@ -122,7 +122,7 @@ TUPLE: macosx-file-system-info < file-system-info
block-size io-size blocks blocks-free blocks-available files
files-free file-system-id owner type-id flags filesystem-subtype ;
M: macosx mounted ( -- array )
M: macosx file-systems ( -- array )
f <void*> dup 0 getmntinfo64 dup io-error
[ *void* ] dip
"statfs64" heap-size [ * memory>byte-array ] keep group

View File

@ -8,7 +8,7 @@ TUPLE: file-system-info root-directory total-free-size total-size ;
HOOK: >file-system-info os ( struct -- statfs )
HOOK: mounted os ( -- array )
HOOK: file-systems os ( -- array )
os {
{ linux [ "unix.statfs.linux" require ] }