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

oops, forgot to update a struct

db4
Doug Coleman 2009-08-29 14:37:09 -05:00
parent f4d8a61461
commit b8164120f5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/io/directories/windows/windows.factor
View File

@ -48,10 +48,11 @@ M: windows delete-directory ( path -- )
TUPLE: windows-directory-entry < directory-entry attributes ; TUPLE: windows-directory-entry < directory-entry attributes ;
M: windows >directory-entry ( byte-array -- directory-entry ) M: windows >directory-entry ( byte-array -- directory-entry )
[ WIN32_FIND_DATA-cFileName utf16n alien>string ] [ cFileName>> utf16n alien>string ]
[ WIN32_FIND_DATA-dwFileAttributes win32-file-type ] [
[ WIN32_FIND_DATA-dwFileAttributes win32-file-attributes ] dwFileAttributes>>
tri [ win32-file-type ] [ win32-file-attributes ] bi
] bi
dupd remove windows-directory-entry boa ; dupd remove windows-directory-entry boa ;
M: windows (directory-entries) ( path -- seq ) M: windows (directory-entries) ( path -- seq )