mounton -> name
parent
278b55ee57
commit
46fbd8c520
|
@ -136,7 +136,7 @@ M: macosx >file-system-info ( byte-array -- file-system-info )
|
|||
[ statfs64-f_bavail ] [ statfs64-f_bsize ] bi *
|
||||
>>free-space
|
||||
]
|
||||
[ statfs64-f_mntonname utf8 alien>string >>mount-on ]
|
||||
[ statfs64-f_mntonname utf8 alien>string >>name ]
|
||||
[ statfs64-f_bsize >>block-size ]
|
||||
|
||||
[ statfs64-f_iosize >>io-size ]
|
||||
|
|
|
@ -1,8 +1,8 @@
|
|||
! Copyright (C) 2008 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: alien.syntax kernel io.files unix.stat math unix
|
||||
USING: alien.syntax kernel unix.stat math unix
|
||||
combinators system io.backend accessors alien.c-types
|
||||
io.encodings.utf8 alien.strings unix.types ;
|
||||
io.encodings.utf8 alien.strings unix.types unix.statfs io.files ;
|
||||
IN: unix.statfs.netbsd
|
||||
|
||||
: _VFS_NAMELEN 32 ; inline
|
||||
|
@ -69,7 +69,7 @@ M: netbsd >file-system-info ( byte-array -- netbsd-file-system-info )
|
|||
[ statvfs-f_owner >>owner ]
|
||||
[ statvfs-f_spare >>spare ]
|
||||
[ statvfs-f_fstypename utf8 alien>string >>file-system-type-name ]
|
||||
[ statvfs-f_mntonname utf8 alien>string >>mount-on ]
|
||||
[ statvfs-f_mntonname utf8 alien>string >>name ]
|
||||
[ statvfs-f_mntfromname utf8 alien>string >>mount-from ]
|
||||
} cleave ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue