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

View File

@ -120,8 +120,7 @@ FUNCTION: int getmntinfo64 ( statfs64** mntbufp, int flags ) ;
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 flags filesystem-subtype
file-system-type-name mount-from ;
files-free file-system-id owner type-id flags filesystem-subtype ;
M: macosx mounted ( -- array )
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_fsid >>file-system-id ]
[ statfs64-f_owner >>owner ]
[ statfs64-f_type >>type ]
[ statfs64-f_type >>type-id ]
[ statfs64-f_flags >>flags ]
[ statfs64-f_fssubtype >>filesystem-subtype ]
[
statfs64-f_fstypename utf8 alien>string
>>file-system-type-name
>>type
]
[
statfs64-f_mntfromname
utf8 alien>string >>mount-from
utf8 alien>string >>device-name
]
} cleave ;