basis/unix/statvfs/macosx/macosx.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types alien.syntax classes.struct unix.types ;
   4 IN: unix.statvfs.macosx
   5
   6 STRUCT: statvfs
   7     { f_bsize ulong }
   8     { f_frsize ulong }
   9     { f_blocks fsblkcnt_t }
  10     { f_bfree fsblkcnt_t }
  11     { f_bavail fsblkcnt_t }
  12     { f_files fsfilcnt_t }
  13     { f_ffree fsfilcnt_t }
  14     { f_favail fsfilcnt_t }
  15     { f_fsid ulong }
  16     { f_flag ulong }
  17     { f_namemax ulong } ;
  18
  19 ! Flags
  20 CONSTANT: ST_RDONLY   HEX: 1 ! Read-only file system
  21 CONSTANT: ST_NOSUID   HEX: 2 ! Does not honor setuid/setgid
  22
  23 FUNCTION: int statvfs ( char* path, statvfs* buf ) ;