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

io.directories.windows: add size slot to windows-directory-entry tuple

modern-harvey2
Alexander Iljin 2017-06-05 13:18:22 +03:00 committed by John Benediktsson
parent 75d8c1e050
commit acf14a7bd1
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,7 @@ USING: system io.directories alien.strings
io.pathnames io.backend io.files.windows destructors io.pathnames io.backend io.files.windows destructors
kernel accessors calendar windows windows.errors kernel accessors calendar windows windows.errors
windows.kernel32 alien.c-types sequences splitting windows.kernel32 alien.c-types sequences splitting
fry continuations classes.struct ; fry continuations classes.struct windows.time ;
IN: io.directories.windows IN: io.directories.windows
M: windows touch-file ( path -- ) M: windows touch-file ( path -- )
@ -58,7 +58,7 @@ M: windows delete-directory ( path -- )
] unless drop f ] unless drop f
] when ; ] when ;
TUPLE: windows-directory-entry < directory-entry attributes ; TUPLE: windows-directory-entry < directory-entry attributes size ;
C: <windows-directory-entry> windows-directory-entry C: <windows-directory-entry> windows-directory-entry
@ -67,8 +67,10 @@ C: <windows-directory-entry> windows-directory-entry
[ [
dwFileAttributes>> dwFileAttributes>>
[ win32-file-type ] [ win32-file-attributes ] bi [ win32-file-type ] [ win32-file-attributes ] bi
] bi dupd remove
dupd remove <windows-directory-entry> ; inline ]
[ [ nFileSizeLow>> ] [ nFileSizeHigh>> ] bi >64bit ] tri
<windows-directory-entry> ; inline
M: windows (directory-entries) ( path -- seq ) M: windows (directory-entries) ( path -- seq )
"\\" ?tail drop "\\*" append "\\" ?tail drop "\\*" append