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

more WIN32_FIND_DATA structs

db4
Doug Coleman 2009-08-29 19:43:56 -05:00
parent 57673db7ca
commit dedc1eb0cb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,7 @@ USING: system io.directories io.encodings.utf16n 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 ; fry continuations classes.struct ;
IN: io.directories.windows IN: io.directories.windows
M: windows touch-file ( path -- ) M: windows touch-file ( path -- )
@ -33,12 +33,12 @@ M: windows delete-directory ( path -- )
RemoveDirectory win32-error=0/f ; RemoveDirectory win32-error=0/f ;
: find-first-file ( path -- WIN32_FIND_DATA handle ) : find-first-file ( path -- WIN32_FIND_DATA handle )
"WIN32_FIND_DATA" <c-object> WIN32_FIND_DATA <struct>
[ nip ] [ FindFirstFile ] 2bi [ nip ] [ FindFirstFile ] 2bi
[ INVALID_HANDLE_VALUE = [ win32-error-string throw ] when ] keep ; [ INVALID_HANDLE_VALUE = [ win32-error-string throw ] when ] keep ;
: find-next-file ( path -- WIN32_FIND_DATA/f ) : find-next-file ( path -- WIN32_FIND_DATA/f )
"WIN32_FIND_DATA" <c-object> WIN32_FIND_DATA <struct>
[ nip ] [ FindNextFile ] 2bi 0 = [ [ nip ] [ FindNextFile ] 2bi 0 = [
GetLastError ERROR_NO_MORE_FILES = [ GetLastError ERROR_NO_MORE_FILES = [
win32-error win32-error