34 lines
945 B
Factor
34 lines
945 B
Factor
USING: kernel system combinators alien.syntax alien.c-types
|
|
math vocabs vocabs.loader unix classes.struct ;
|
|
IN: unix.stat
|
|
|
|
! File Types
|
|
|
|
CONSTANT: S_IFMT 0o170000 ! These bits determine file type.
|
|
|
|
CONSTANT: S_IFDIR 0o40000 ! Directory.
|
|
CONSTANT: S_IFCHR 0o20000 ! Character device.
|
|
CONSTANT: S_IFBLK 0o60000 ! Block device.
|
|
CONSTANT: S_IFREG 0o100000 ! Regular file.
|
|
CONSTANT: S_IFIFO 0o010000 ! FIFO.
|
|
CONSTANT: S_IFLNK 0o120000 ! Symbolic link.
|
|
CONSTANT: S_IFSOCK 0o140000 ! Socket.
|
|
CONSTANT: S_IFWHT 0o160000 ! Whiteout.
|
|
|
|
STRUCT: fsid
|
|
{ __val int[2] } ;
|
|
|
|
TYPEDEF: fsid __fsid_t
|
|
TYPEDEF: fsid fsid_t
|
|
|
|
<< os {
|
|
{ linux [ "unix.stat.linux" require ] }
|
|
{ macosx [ "unix.stat.macosx" require ] }
|
|
} case >>
|
|
|
|
: file-status ( pathname -- stat )
|
|
\ stat <struct> [ [ stat ] unix-system-call drop ] keep ;
|
|
|
|
: link-status ( pathname -- stat )
|
|
\ stat <struct> [ [ lstat ] unix-system-call drop ] keep ;
|