steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unix/statfs/linux/linux.factor
View File

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

2
basis/unix/statfs/macosx/macosx.factor
View File

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

2
basis/unix/statfs/statfs.factor
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: >file-system-info os ( struct -- statfs )
HOOK: mounted os ( -- array ) HOOK: file-systems os ( -- array )
os { os {
{ linux [ "unix.statfs.linux" require ] } { linux [ "unix.statfs.linux" require ] }