steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "unix.ffi: be more explicit about dirent64." 

This reverts commit edf456149330d44995b1c8bdf61a1c5d2617ed9c.
db4
John Benediktsson 2014-04-29 14:02:30 -07:00
parent 5dd26a9066
commit 4ca5b2ccb3
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/directories/unix/linux/linux.factor
View File

@ -12,6 +12,6 @@ IN: io.directories.unix.linux
M: linux (directory-entries) ( path -- seq ) M: linux (directory-entries) ( path -- seq )
[ [
dirent64 <struct> dirent <struct>
'[ _ _ next-dirent ] [ >directory-entry ] produce nip '[ _ _ next-dirent ] [ >directory-entry ] produce nip
] with-unix-directory ; ] with-unix-directory ;

9
basis/unix/ffi/linux/linux.factor
View File

@ -98,18 +98,17 @@ STRUCT: passwd
{ pw_dir c-string } { pw_dir c-string }
{ pw_shell c-string } ; { pw_shell c-string } ;
STRUCT: dirent64 ! dirent64
STRUCT: dirent
{ d_ino ulonglong } { d_ino ulonglong }
{ d_off longlong } { d_off longlong }
{ d_reclen ushort } { d_reclen ushort }
{ d_type uchar } { d_type uchar }
{ d_name char[256] } ; { d_name char[256] } ;
ALIAS: dirent dirent64
FUNCTION: int open64 ( c-string path, int flags, int prot ) ; FUNCTION: int open64 ( c-string path, int flags, int prot ) ;
FUNCTION: dirent64* readdir64 ( DIR* dirp ) ; FUNCTION: dirent* readdir64 ( DIR* dirp ) ;
FUNCTION: int readdir64_r ( void* dirp, dirent64* entry, dirent64** result ) ; FUNCTION: int readdir64_r ( void* dirp, dirent* entry, dirent** result ) ;
FUNCTION: ssize_t sendfile ( int out_fd, int in_fd, off_t* offset, size_t count ) ; FUNCTION: ssize_t sendfile ( int out_fd, int in_fd, off_t* offset, size_t count ) ;