USING: alien.c-types alien.syntax classes.struct unix.time
unix.types ;
IN: unix.stat

! Mac OS X

! stat64 structure
STRUCT: stat
    { st_dev dev_t }
    { st_mode mode_t }
    { st_nlink nlink_t }
    { st_ino ino64_t }
    { st_uid uid_t }
    { st_gid gid_t }
    { st_rdev dev_t }
    { st_atimespec timespec }
    { st_mtimespec timespec }
    { st_ctimespec timespec }
    { st_birthtimespec timespec }
    { st_size off_t }
    { st_blocks blkcnt_t }
    { st_blksize blksize_t }
    { st_flags __uint32_t }
    { st_gen __uint32_t }
    { st_lspare __int32_t }
    { st_qspare0 __int64_t }
    { st_qspare1 __int64_t } ;

FUNCTION: int stat64  ( c-string pathname, stat* buf ) ;
FUNCTION: int lstat64 ( c-string pathname, stat* buf ) ;
FUNCTION: int fstat64 ( int fd, stat* buf ) ;

: stat-func ( path buf -- n ) stat64 ;
: lstat ( path buf -- n ) lstat64 ;
: fstat ( fd buf -- n ) fstat64 ;