io.files.info.windows: Implement file-readable?, writable?, and executable?

diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor
index a16461bb2be8181df1f0cb3a7c699c5e681a98c3..9bf987c93bc2aad44514ebfb4ff99cd23d6bf026 100755 (executable)
--- a/basis/io/files/info/windows/windows.factor
+++ b/basis/io/files/info/windows/windows.factor
@@ -7,7 +7,7 @@ combinators generalizations system alien.strings
 sequences splitting windows.errors fry
 continuations destructors calendar ascii
 combinators.short-circuit literals locals classes.struct
-specialized-arrays alien.data libc ;
+specialized-arrays alien.data libc windows.shell32 ;
 SPECIALIZED-ARRAY: ushort
 QUALIFIED: sequences
 IN: io.files.info.windows
@@ -214,3 +214,7 @@ M: windows file-systems ( -- array )
 
 : set-file-write-time ( path timestamp -- )
     [ f f ] dip set-file-times ;
+
+M: windows file-readable? file-info >boolean ;
+M: windows file-writable? file-info attributes>> +read-only+ swap member? not ;
+M: windows file-executable? file-executable-type windows-executable? ;