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

io.files.info: Longer names for file-info predicates.

db4
Doug Coleman 2013-04-18 09:59:07 -07:00
parent 3ca65a2b47
commit 19002c93a6
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,13 +16,13 @@ HELP: directory?
{ $values { "file-info" file-info } { "?" "a boolean" } } { $values { "file-info" file-info } { "?" "a boolean" } }
{ $description "Tests if " { $snippet "file-info" } " is a directory." } ; { $description "Tests if " { $snippet "file-info" } " is a directory." } ;
HELP: file? HELP: regular-file?
{ $values { "file-info" file-info } { "?" "a boolean" } } { $values { "file-info" file-info } { "?" "a boolean" } }
{ $description "Tests if " { $snippet "file-info" } " is a file." } ; { $description "Tests if " { $snippet "file-info" } " is a normal file." } ;
HELP: symlink? HELP: symbolic-link?
{ $values { "file-info" file-info } { "?" "a boolean" } } { $values { "file-info" file-info } { "?" "a boolean" } }
{ $description "Tests if " { $snippet "file-info" } " is a symlink." } ; { $description "Tests if " { $snippet "file-info" } " is a symbolic link." } ;
HELP: file-systems HELP: file-systems
{ $values { "array" array } } { $values { "array" array } }
@ -67,8 +67,8 @@ ARTICLE: "io.files.info" "File system meta-data"
link-info link-info
exists? exists?
directory? directory?
file? regular-file?
symlink? symbolic-link?
} }
"File types:" "File types:"
{ $subsections "file-types" } { $subsections "file-types" }

4
basis/io/files/info/info.factor
View File

@ -13,8 +13,8 @@ HOOK: file-info os ( path -- info )
HOOK: link-info os ( path -- info ) HOOK: link-info os ( path -- info )
: directory? ( file-info -- ? ) type>> +directory+ = ; : directory? ( file-info -- ? ) type>> +directory+ = ;
: file? ( file-info -- ? ) type>> +regular-file+ = ; : regular-file? ( file-info -- ? ) type>> +regular-file+ = ;
: symlink? ( file-info -- ? ) type>> +symbolic-link+ = ; : symbolic-link? ( file-info -- ? ) type>> +symbolic-link+ = ;
: sparse-file? ( file-info -- ? ) : sparse-file? ( file-info -- ? )
[ size-on-disk>> ] [ size>> ] bi < ; [ size-on-disk>> ] [ size>> ] bi < ;