factor/basis/unix/statfs/statfs.factor

! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: sequences system vocabs.loader combinators accessors
kernel math.order sorting ;
IN: unix.statfs

TUPLE: mounted 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-on
mount-from ;

HOOK: mounted* os ( -- array )
HOOK: >mounted os ( byte-array -- mounted )

TUPLE: file-system-info root-directory total-free-size total-size ;

HOOK: >file-system-info os ( struct -- statfs )

: mounted ( -- array ) mounted* [ >file-system-info ] map ;      

: mounted-drive ( path -- mounted/f )
    mounted
    [ [ mount-on>> ] bi@ <=> ] sort <reversed>
    [ mount-on>> head? ] with find nip ;

os {
    { linux   [ "unix.statfs.linux"   require ] }
    { macosx  [ "unix.statfs.macosx"  require ] }
    { freebsd [ "unix.statfs.freebsd" require ] }
    { netbsd  [ "unix.statfs.netbsd"  require ] }
    { openbsd [ "unix.statfs.openbsd" require ] }
} case