basis/unix/stat/macosx/macosx.factor

   1 USING: kernel alien.syntax math unix math.bitwise
   2 alien.c-types alien sequences grouping accessors combinators ;
   3 IN: unix.stat
   4
   5 ! Mac OS X ppc
   6
   7 ! stat64 structure
   8 C-STRUCT: stat
   9     { "dev_t"      "st_dev" }
  10     { "mode_t"     "st_mode" }
  11     { "nlink_t"    "st_nlink" }
  12     { "ino64_t"    "st_ino" }
  13     { "uid_t"      "st_uid" }
  14     { "gid_t"      "st_gid" }
  15     { "dev_t"      "st_rdev" }
  16     { "timespec"   "st_atimespec" }
  17     { "timespec"   "st_mtimespec" }
  18     { "timespec"   "st_ctimespec" }
  19     { "timespec"   "st_birthtimespec" }
  20     { "off_t"      "st_size" }
  21     { "blkcnt_t"   "st_blocks" }
  22     { "blksize_t"  "st_blksize" }
  23     { "__uint32_t" "st_flags" }
  24     { "__uint32_t" "st_gen" }
  25     { "__int32_t"  "st_lspare" }
  26     { "__int64_t"  "st_qspare0" }
  27     { "__int64_t"  "st_qspare1" } ;
  28
  29 FUNCTION: int stat64  ( char* pathname, stat* buf ) ;
  30 FUNCTION: int lstat64 ( char* pathname, stat* buf ) ;
  31
  32 : stat ( path buf -- n ) stat64 ;
  33 : lstat ( path buf -- n ) lstat64 ;