1 USING: alien.c-types arrays accessors combinators classes.struct
2 alien.syntax unix.time unix.types ;
16 { st_atimespec timespec }
17 { st_mtimespec timespec }
18 { st_ctimespec timespec }
19 { st_birthtimespec timespec }
21 { st_blocks blkcnt_t }
22 { st_blksize blksize_t }
23 { st_flags __uint32_t }
25 { st_lspare __int32_t }
26 { st_qspare0 __int64_t }
27 { st_qspare1 __int64_t } ;
29 FUNCTION: int stat64 ( char* pathname, stat* buf ) ;
30 FUNCTION: int lstat64 ( char* pathname, stat* buf ) ;
32 : stat ( path buf -- n ) stat64 ;
33 : lstat ( path buf -- n ) lstat64 ;