From acf14a7bd1ce510ec423cfc7a9e12eaf80904ffa Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Mon, 5 Jun 2017 13:18:22 +0300 Subject: [PATCH] io.directories.windows: add size slot to windows-directory-entry tuple --- basis/io/directories/windows/windows.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor index 16f4724b30..93a7d6f969 100644 --- a/basis/io/directories/windows/windows.factor +++ b/basis/io/directories/windows/windows.factor @@ -4,7 +4,7 @@ USING: system io.directories alien.strings io.pathnames io.backend io.files.windows destructors kernel accessors calendar windows windows.errors windows.kernel32 alien.c-types sequences splitting -fry continuations classes.struct ; +fry continuations classes.struct windows.time ; IN: io.directories.windows M: windows touch-file ( path -- ) @@ -58,7 +58,7 @@ M: windows delete-directory ( path -- ) ] unless drop f ] when ; -TUPLE: windows-directory-entry < directory-entry attributes ; +TUPLE: windows-directory-entry < directory-entry attributes size ; C: windows-directory-entry @@ -67,8 +67,10 @@ C: windows-directory-entry [ dwFileAttributes>> [ win32-file-type ] [ win32-file-attributes ] bi - ] bi - dupd remove ; inline + dupd remove + ] + [ [ nFileSizeLow>> ] [ nFileSizeHigh>> ] bi >64bit ] tri + ; inline M: windows (directory-entries) ( path -- seq ) "\\" ?tail drop "\\*" append