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

io.files.info.unix: errno EACCES should be handled separately.

db4
John Benediktsson 2012-10-24 17:50:45 -07:00
parent 43fb3fb174
commit 04e783a886
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/io/files/info/unix/unix.factor
View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data arrays calendar USING: accessors alien.c-types alien.data arrays calendar
calendar.unix classes.struct combinators calendar.unix classes.struct combinators
combinators.short-circuit io.backend combinators.short-circuit io.backend io.files.info
io.files.info io.files.types kernel literals math math.bitwise io.files.types kernel libc literals math math.bitwise
sequences specialized-arrays strings system unix unix.ffi sequences specialized-arrays strings system unix unix.ffi
unix.groups unix.stat unix.time unix.users vocabs ; unix.groups unix.stat unix.time unix.users vocabs ;
IN: io.files.info.unix IN: io.files.info.unix
@ -284,8 +284,17 @@ PRIVATE>
[ drop file-type>executable ] [ drop file-type>executable ]
} case ; } case ;
M: unix file-readable? normalize-path R_OK access io-error t ; <PRIVATE
M: unix file-writable? normalize-path W_OK access io-error t ;
M: unix file-executable? normalize-path X_OK access io-error t ; : access? ( path mode -- ? )
[ normalize-path ] [ access ] bi* 0 < [
errno EACCES = [ f ] [ (io-error) ] if
] [ t ] if ;
PRIVATE>
M: unix file-readable? R_OK access? ;
M: unix file-writable? W_OK access? ;
M: unix file-executable? X_OK access? ;
"io.files.info.unix." os name>> append require "io.files.info.unix." os name>> append require