! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax kernel unix.stat math unix
combinators system io.backend accessors alien.c-types
io.encodings.utf8 alien.strings unix.types unix.statfs io.files ;
IN: unix.statfs.netbsd

: _VFS_NAMELEN    32   ; inline
: _VFS_MNAMELEN   1024 ; inline

C-STRUCT: statvfs
    { "ulong"   "f_flag" }   
    { "ulong"   "f_bsize" }
    { "ulong"   "f_frsize" }  
    { "ulong"   "f_iosize" }  
    { "fsblkcnt_t" "f_blocks" }       
    { "fsblkcnt_t" "f_bfree" } 
    { "fsblkcnt_t" "f_bavail" }       
    { "fsblkcnt_t" "f_bresvd" }       
    { "fsfilcnt_t" "f_files" }
    { "fsfilcnt_t" "f_ffree" }
    { "fsfilcnt_t" "f_favail" }       
    { "fsfilcnt_t" "f_fresvd" }       
    { "uint64_t"   "f_syncreads" }    
    { "uint64_t"   "f_syncwrites" }   
    { "uint64_t"   "f_asyncreads" }   
    { "uint64_t"   "f_asyncwrites" }  
    { "fsid_t"    "f_fsidx" }
    { "ulong"   "f_fsid" }
    { "ulong"   "f_namemax" }      
    { "uid_t"   "f_owner" }
    { { "uint32_t" 4 } "f_spare" }     
    { { "char" _VFS_NAMELEN } "f_fstypename" }
    { { "char" _VFS_NAMELEN } "f_mntonname" }
    { { "char" _VFS_NAMELEN } "f_mntfromname" } ;

FUNCTION: int statvfs ( char* path, statvfs *buf ) ;

TUPLE: netbsd-file-system-info < file-system-info
flag bsize frsize io-size
blocks blocks-free blocks-available blocks-reserved
files ffree sync-reads sync-writes async-reads async-writes
fsidx fsid namemax owner spare fstype mnotonname mntfromname
file-system-type-name mount-from ;

M: netbsd >file-system-info ( byte-array -- netbsd-file-system-info )
    [ \ netbsd-file-system-info new ] dip
    {
        [
            [ statvfs-f_bsize ]
            [ statvfs-f_bavail ] bi * >>free-space
        ]
        [ statvfs-f_flag >>flag ]
        [ statvfs-f_bsize >>bsize ]
        [ statvfs-f_frsize >>frsize ]
        [ statvfs-f_iosize >>io-size ]
        [ statvfs-f_blocks >>blocks ]
        [ statvfs-f_bfree >>blocks-free ]
        [ statvfs-f_favail >>blocks-available ]
        [ statvfs-f_fresvd >>blocks-reserved ]
        [ statvfs-f_files >>files ]
        [ statvfs-f_ffree >>ffree ]
        [ statvfs-f_syncreads >>sync-reads ]
        [ statvfs-f_syncwrites >>sync-writes ]
        [ statvfs-f_asyncreads >>async-reads ]
        [ statvfs-f_asyncwrites >>async-writes ]
        [ statvfs-f_fsidx >>fsidx ]
        [ statvfs-f_namemax >>namemax ]
        [ 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-point ]
        [ statvfs-f_mntfromname utf8 alien>string >>mount-from ]
    } cleave ;

M: netbsd file-system-info
    normalize-path "statvfs" <c-object> tuck statvfs io-error 
    >file-system-info ;