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

load file-info on windows by default 

fix the file type
add commented out file times
db4
Doug Coleman 2008-03-06 17:55:18 -06:00
parent ebc0127d01
commit 68f1b9432f
3 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/io/windows/ce/ce.factor
View File

@ -3,4 +3,5 @@ io.windows.ce.files io.windows.ce.sockets io.windows.ce.launcher
namespaces io.windows.mmap ; namespaces io.windows.mmap ;
IN: io.windows.ce IN: io.windows.ce
USE: io.windows.files
T{ windows-ce-io } set-io-backend T{ windows-ce-io } set-io-backend

20
extra/io/windows/files/files.factor
View File

@ -50,17 +50,20 @@ SYMBOL: +encrypted+
{ +encrypted+ FILE_ATTRIBUTE_ENCRYPTED } { +encrypted+ FILE_ATTRIBUTE_ENCRYPTED }
} get-flags ; } get-flags ;
: win32-file-type ( n -- symbol )
FILE_ATTRIBUTE_DIRECTORY mask? +directory+ +regular-file+ ? ;
: WIN32_FIND_DATA>file-info : WIN32_FIND_DATA>file-info
{ {
[ WIN32_FIND_DATA-dwFileAttributes win32-file-attributes ] [ WIN32_FIND_DATA-dwFileAttributes win32-file-type ]
[ [
[ WIN32_FIND_DATA-nFileSizeLow ] [ WIN32_FIND_DATA-nFileSizeLow ]
[ WIN32_FIND_DATA-nFileSizeHigh ] bi >64bit [ WIN32_FIND_DATA-nFileSizeHigh ] bi >64bit
] ]
[ WIN32_FIND_DATA-dwFileAttributes ] [ WIN32_FIND_DATA-dwFileAttributes ]
[ ! [ WIN32_FIND_DATA-ftCreationTime FILETIME>timestamp ]
WIN32_FIND_DATA-ftLastWriteTime FILETIME>timestamp [ WIN32_FIND_DATA-ftLastWriteTime FILETIME>timestamp ]
] ! [ WIN32_FIND_DATA-ftLastAccessTime FILETIME>timestamp ]
} cleave } cleave
\ file-info construct-boa ; \ file-info construct-boa ;
@ -73,16 +76,15 @@ SYMBOL: +encrypted+
: BY_HANDLE_FILE_INFORMATION>file-info : BY_HANDLE_FILE_INFORMATION>file-info
{ {
[ BY_HANDLE_FILE_INFORMATION-dwFileAttributes win32-file-attributes ] [ BY_HANDLE_FILE_INFORMATION-dwFileAttributes win32-file-type ]
[ [
[ BY_HANDLE_FILE_INFORMATION-nFileSizeLow ] [ BY_HANDLE_FILE_INFORMATION-nFileSizeLow ]
[ BY_HANDLE_FILE_INFORMATION-nFileSizeHigh ] bi >64bit [ BY_HANDLE_FILE_INFORMATION-nFileSizeHigh ] bi >64bit
] ]
[ BY_HANDLE_FILE_INFORMATION-dwFileAttributes ] [ BY_HANDLE_FILE_INFORMATION-dwFileAttributes ]
[ ! [ BY_HANDLE_FILE_INFORMATION-ftCreationTime FILETIME>timestamp ]
BY_HANDLE_FILE_INFORMATION-ftLastWriteTime [ BY_HANDLE_FILE_INFORMATION-ftLastWriteTime FILETIME>timestamp ]
FILETIME>timestamp ! [ BY_HANDLE_FILE_INFORMATION-ftLastAccessTime FILETIME>timestamp ]
]
} cleave } cleave
\ file-info construct-boa ; \ file-info construct-boa ;

1
extra/io/windows/nt/nt.factor
View File

@ -9,6 +9,7 @@ USE: io.windows.nt.launcher
USE: io.windows.nt.monitors USE: io.windows.nt.monitors
USE: io.windows.nt.sockets USE: io.windows.nt.sockets
USE: io.windows.mmap USE: io.windows.mmap
USE: io.windows.files
USE: io.backend USE: io.backend
T{ windows-nt-io } set-io-backend T{ windows-nt-io } set-io-backend