1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.data classes.struct fry
4 io.directories io.directories.unix kernel libc math sequences
6 IN: io.directories.unix.linux
8 : next-dirent ( DIR* dirent* -- dirent* ? )
10 readdir64_r [ (throw-errno) ] unless-zero
11 ] 2keep void* deref ; inline
13 M: linux (directory-entries)
16 '[ _ _ next-dirent ] [ >directory-entry ] produce nip
17 ] with-unix-directory ;