mounted -> file-systems
parent
65a844eb6b
commit
bbaa8b95bd
|
@ -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
|
||||
{
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 ] }
|
||||
|
|
Loading…
Reference in New Issue