1 USING: kernel alien.syntax math sequences unix
2 alien.c-types arrays accessors combinators ;
10 { "nlink_t" "st_nlink" }
11 { "mode_t" "st_mode" }
17 { "blksize_t" "st_blksize" }
18 { "blkcnt_t" "st_blocks" }
19 { "timespec" "st_atimespec" }
20 { "timespec" "st_mtimespec" }
21 { "timespec" "st_ctimespec" }
22 { "long" "__unused0" }
23 { "long" "__unused1" }
24 { "long" "__unused2" } ;
26 FUNCTION: int __xstat ( int ver, char* pathname, stat* buf ) ;
27 FUNCTION: int __lxstat ( int ver, char* pathname, stat* buf ) ;
29 : stat ( pathname buf -- int ) [ 1 ] 2dip __xstat ;
30 : lstat ( pathname buf -- int ) [ 1 ] 2dip __lxstat ;