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