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

IN: unix.stat

STRUCT: stat
{ st_dev dev_t initial: 0 } { st_ino ino_t initial: 0 }
{ st_nlink nlink_t initial: 0 }
{ st_mode mode_t initial: 0 } { st_uid uid_t initial: 0 }
{ st_gid gid_t initial: 0 } { pad0 int initial: 0 }
{ st_rdev dev_t initial: 0 } { st_size off64_t initial: 0 }
{ st_blksize blksize_t initial: 0 }
{ st_blocks blkcnt64_t initial: 0 } {
st_atimespec timespec initial:
S{ timespec { sec 0 } { nsec 0 } }
} {
st_mtimespec timespec initial:
S{ timespec { sec 0 } { nsec 0 } }
} {
st_ctimespec timespec initial:
S{ timespec { sec 0 } { nsec 0 } }
} { __unused0 long[3] } ;

USING: classes.struct classes.struct.private kernel unix.stat ;

M: stat clone clone-underlying \ stat memory>struct ; inline

USING: accessors classes.struct combinators combinators.smart
unix.stat ;

M: stat struct-slot-values
[
{
[ st_dev>> ]
[ st_ino>> ]
[ st_nlink>> ]
[ st_mode>> ]
[ st_uid>> ]
[ st_gid>> ]
[ pad0>> ]
[ st_rdev>> ]
[ st_size>> ]
[ st_blksize>> ]
[ st_blocks>> ]
[ st_atimespec>> ]
[ st_mtimespec>> ]
[ st_ctimespec>> ]
[ __unused0>> ]
} cleave
] output>array ; inline