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
basis/io/directories/unix

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

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