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

remove the rest of the unportable fields from dirent for now

db4
Doug Coleman 2009-05-11 22:03:07 -05:00
parent e3a3aea5de
commit 0ef5826b86
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/io/directories/unix/unix.factor
View File

@ -55,15 +55,11 @@ M: unix find-next-file ( DIR* -- byte-array )
[ drop +unknown+ ] [ drop +unknown+ ]
} case ; } case ;
TUPLE: unix-directory-entry < directory-entry ino reclen ;
M: unix >directory-entry ( byte-array -- directory-entry ) M: unix >directory-entry ( byte-array -- directory-entry )
{ {
[ dirent-d_name utf8 alien>string ] [ dirent-d_name utf8 alien>string ]
[ dirent-d_type dirent-type>file-type ] [ dirent-d_type dirent-type>file-type ]
[ dirent-d_ino ] } cleave directory-entry boa ;
[ dirent-d_reclen ]
} cleave unix-directory-entry boa ;
M: unix (directory-entries) ( path -- seq ) M: unix (directory-entries) ( path -- seq )
[ [