remove the rest of the unportable fields from dirent for now
parent
e3a3aea5de
commit
0ef5826b86
|
@ -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 )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue