basis/io/directories/unix/linux/linux.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types io.directories.unix kernel system unix
   4 classes.struct unix.ffi ;
   5 IN: io.directories.unix.linux
   6
   7 M: linux find-next-file ( DIR* -- dirent )
   8     dirent <struct>
   9     f void* <ref>
  10     [ [ readdir64_r ] unix-system-call 0 = [ (io-error) ] unless ] 2keep
  11     void* deref [ drop f ] unless ;