1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: system io.directories alien.strings
4 io.pathnames io.backend io.files.windows destructors
5 kernel accessors calendar windows windows.errors
6 windows.kernel32 alien.c-types sequences splitting
7 fry continuations classes.struct windows.time ;
8 IN: io.directories.windows
10 M: windows touch-file ( path -- )
13 maybe-create-file [ &dispose ] dip
14 [ drop ] [ handle>> f now dup (set-file-times) ] if
17 M: windows move-file ( from to -- )
18 [ normalize-path ] bi@ MoveFile win32-error=0/f ;
20 M: windows move-file-atomically ( from to -- )
21 [ normalize-path ] bi@ 0 MoveFileEx win32-error=0/f ;
23 ERROR: file-delete-failed path error ;
25 : delete-file-throws ( path -- )
26 DeleteFile win32-error=0/f ;
28 : delete-read-only-file ( path -- )
29 [ set-file-normal-attribute ] [ delete-file-throws ] bi ;
31 : (delete-file) ( path -- )
33 GetLastError ERROR_ACCESS_DENIED =
34 [ delete-read-only-file ] [ win32-error ] if
37 M: windows delete-file ( path -- )
40 [ \ file-delete-failed boa rethrow ] recover ;
42 M: windows make-directory ( path -- )
44 f CreateDirectory win32-error=0/f ;
46 M: windows delete-directory ( path -- )
48 RemoveDirectory win32-error=0/f ;
50 : find-first-file ( path WIN32_FIND_DATA -- WIN32_FIND_DATA HANDLE )
51 [ nip ] [ FindFirstFile ] 2bi check-invalid-handle ;
53 : find-next-file ( HANDLE WIN32_FIND_DATA -- WIN32_FIND_DATA/f )
54 [ nip ] [ FindNextFile ] 2bi 0 = [
55 GetLastError ERROR_NO_MORE_FILES = [
60 TUPLE: windows-directory-entry < directory-entry attributes size ;
62 C: <windows-directory-entry> windows-directory-entry
64 : >windows-directory-entry ( WIN32_FIND_DATA -- directory-entry )
65 [ cFileName>> alien>native-string ]
68 [ win32-file-type ] [ win32-file-attributes ] bi
71 [ [ nFileSizeLow>> ] [ nFileSizeHigh>> ] bi >64bit ] tri
72 <windows-directory-entry> ; inline
74 M: windows (directory-entries) ( path -- seq )
75 "\\" ?tail drop "\\*" append
76 WIN32_FIND_DATA <struct>
78 [ >windows-directory-entry ] 2dip
81 [ _ _ find-next-file dup ]
82 [ >windows-directory-entry ]
84 over name>> "." = [ nip ] [ swap prefix ] if
86 ] [ drop '[ _ FindClose win32-error=0/f ] ] 2bi finally ;