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

remove attribute if it's the same as the type

db4
Doug Coleman 2008-11-19 16:45:13 -06:00
parent 1ef21ba2d3
commit 4849636fd7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/io/windows/files/files.factor
View File

@ -178,7 +178,8 @@ M: windows >directory-entry ( byte-array -- directory-entry )
[ WIN32_FIND_DATA-cFileName utf16n alien>string ] [ WIN32_FIND_DATA-cFileName utf16n alien>string ]
[ WIN32_FIND_DATA-dwFileAttributes win32-file-type ] [ WIN32_FIND_DATA-dwFileAttributes win32-file-type ]
[ WIN32_FIND_DATA-dwFileAttributes win32-file-attributes ] [ WIN32_FIND_DATA-dwFileAttributes win32-file-attributes ]
tri windows-directory-entry boa ; tri
dupd remove windows-directory-entry boa ;
: WIN32_FIND_DATA>file-info ( WIN32_FIND_DATA -- file-info ) : WIN32_FIND_DATA>file-info ( WIN32_FIND_DATA -- file-info )
[ \ windows-file-info new ] dip [ \ windows-file-info new ] dip