]> gitweb.factorcode.org Git - factor.git/blob - basis/unix/stat/netbsd/32/32.factor
fb0d61b7e9efcbd3e10cd2de48ecd4c428acc517
[factor.git] / basis / unix / stat / netbsd / 32 / 32.factor
1 USING: kernel alien.c-types alien.syntax math classes.struct
2 unix.time unix.types ;
3 IN: unix.stat
4
5 ! NetBSD 4.0
6
7 STRUCT: stat
8     { st_dev dev_t }
9     { st_mode mode_t }
10     { st_ino ino_t }
11     { st_nlink nlink_t }
12     { st_uid uid_t }
13     { st_gid gid_t }
14     { st_rdev dev_t }
15     { st_atimespec timespec }
16     { st_mtimespec timespec }
17     { st_ctimespec timespec }
18     { st_birthtimespec timespec }
19     { st_size off_t }
20     { st_blocks blkcnt_t }
21     { st_blksize blksize_t }
22     { st_flags uint32_t }
23     { st_gen uint32_t }
24     { st_qspare uint32_t[2] } ;
25
26 FUNCTION: int __stat30  ( char* pathname, stat* buf ) ;
27 FUNCTION: int __lstat30 ( char* pathname, stat* buf ) ;
28
29 : stat ( pathname buf -- n ) __stat30 ;
30 : lstat ( pathname buf -- n ) __lstat30 ;