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

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

db4
Doug Coleman 2012-10-24 17:28:50 -07:00
parent 379f060636
commit c458b7dcaf
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/io/files/info/windows/windows.factor
View File

@ -7,7 +7,7 @@ combinators generalizations system alien.strings
sequences splitting windows.errors fry sequences splitting windows.errors fry
continuations destructors calendar ascii continuations destructors calendar ascii
combinators.short-circuit literals locals classes.struct combinators.short-circuit literals locals classes.struct
specialized-arrays alien.data libc ; specialized-arrays alien.data libc windows.shell32 ;
SPECIALIZED-ARRAY: ushort SPECIALIZED-ARRAY: ushort
QUALIFIED: sequences QUALIFIED: sequences
IN: io.files.info.windows IN: io.files.info.windows
@ -214,3 +214,7 @@ M: windows file-systems ( -- array )
: set-file-write-time ( path timestamp -- ) : set-file-write-time ( path timestamp -- )
[ f f ] dip set-file-times ; [ 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? ;