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

io.files.info: make access checks throw on file-does-not-exist.

db4
John Benediktsson 2012-10-24 17:39:19 -07:00
parent c458b7dcaf
commit 83b40e44d2
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/io/files/info/info-docs.factor
View File

@ -39,15 +39,18 @@ HELP: file-system-info
HELP: file-readable? HELP: file-readable?
{ $values { "path" "a pathname string" } { "?" boolean } } { $values { "path" "a pathname string" } { "?" boolean } }
{ $description "Returns whether the file specified by " { $snippet "path" } " exists and is readable by the current process." } ; { $description "Returns whether the file specified by " { $snippet "path" } " is readable by the current process." }
{ $errors "Throws an error if the file does not exist." } ;
HELP: file-writable? HELP: file-writable?
{ $values { "path" "a pathname string" } { "?" boolean } } { $values { "path" "a pathname string" } { "?" boolean } }
{ $description "Returns whether the file specified by " { $snippet "path" } " exists and is writable by the current process." } ; { $description "Returns whether the file specified by " { $snippet "path" } " is writable by the current process." }
{ $errors "Throws an error if the file does not exist." } ;
HELP: file-executable? HELP: file-executable?
{ $values { "path" "a pathname string" } { "?" boolean } } { $values { "path" "a pathname string" } { "?" boolean } }
{ $description "Returns whether the file specified by " { $snippet "path" } " exists and is executable by the current process." } ; { $description "Returns whether the file specified by " { $snippet "path" } " is executable by the current process." }
{ $errors "Throws an error if the file does not exist." } ;
ARTICLE: "io.files.info" "File system meta-data" ARTICLE: "io.files.info" "File system meta-data"
"File meta-data:" "File meta-data:"

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

@ -284,8 +284,8 @@ PRIVATE>
[ drop file-type>executable ] [ drop file-type>executable ]
} case ; } case ;
M: unix file-readable? normalize-path flags{ F_OK R_OK } access 0 = ; M: unix file-readable? normalize-path R_OK access io-error t ;
M: unix file-writable? normalize-path flags{ F_OK W_OK } access 0 = ; M: unix file-writable? normalize-path W_OK access io-error t ;
M: unix file-executable? normalize-path flags{ F_OK X_OK } access 0 = ; M: unix file-executable? normalize-path X_OK access io-error t ;
"io.files.info.unix." os name>> append require "io.files.info.unix." os name>> append require