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

better file-system-info on mac

db4
Doug Coleman 2008-10-22 20:32:39 -05:00
parent bccf9d9698
commit c9167e2ab2
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -120,8 +120,7 @@ FUNCTION: int getmntinfo64 ( statfs64** mntbufp, int flags ) ;
TUPLE: macosx-file-system-info < file-system-info 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 flags filesystem-subtype files-free file-system-id owner type-id flags filesystem-subtype ;
file-system-type-name mount-from ;
M: macosx mounted ( -- array ) M: macosx mounted ( -- array )
f <void*> dup 0 getmntinfo64 dup io-error f <void*> dup 0 getmntinfo64 dup io-error
@ -147,16 +146,16 @@ M: macosx >file-system-info ( byte-array -- file-system-info )
[ statfs64-f_ffree >>files-free ] [ statfs64-f_ffree >>files-free ]
[ statfs64-f_fsid >>file-system-id ] [ statfs64-f_fsid >>file-system-id ]
[ statfs64-f_owner >>owner ] [ statfs64-f_owner >>owner ]
[ statfs64-f_type >>type ] [ statfs64-f_type >>type-id ]
[ statfs64-f_flags >>flags ] [ statfs64-f_flags >>flags ]
[ statfs64-f_fssubtype >>filesystem-subtype ] [ statfs64-f_fssubtype >>filesystem-subtype ]
[ [
statfs64-f_fstypename utf8 alien>string statfs64-f_fstypename utf8 alien>string
>>file-system-type-name >>type
] ]
[ [
statfs64-f_mntfromname statfs64-f_mntfromname
utf8 alien>string >>mount-from utf8 alien>string >>device-name
] ]
} cleave ; } cleave ;