From c458b7dcaff9da8ac6d9627ae4ecd956b7876144 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 24 Oct 2012 17:28:50 -0700
Subject: [PATCH] io.files.info.windows: Implement file-readable?, writable?,
and executable?
---
basis/io/files/info/windows/windows.factor | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor
index a16461bb2b..9bf987c93b 100755
--- 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? ;