io.files.info: Longer names for file-info predicates.
parent
3ca65a2b47
commit
19002c93a6
|
@ -16,13 +16,13 @@ HELP: directory?
|
|||
{ $values { "file-info" file-info } { "?" "a boolean" } }
|
||||
{ $description "Tests if " { $snippet "file-info" } " is a directory." } ;
|
||||
|
||||
HELP: file?
|
||||
HELP: regular-file?
|
||||
{ $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" } }
|
||||
{ $description "Tests if " { $snippet "file-info" } " is a symlink." } ;
|
||||
{ $description "Tests if " { $snippet "file-info" } " is a symbolic link." } ;
|
||||
|
||||
HELP: file-systems
|
||||
{ $values { "array" array } }
|
||||
|
@ -67,8 +67,8 @@ ARTICLE: "io.files.info" "File system meta-data"
|
|||
link-info
|
||||
exists?
|
||||
directory?
|
||||
file?
|
||||
symlink?
|
||||
regular-file?
|
||||
symbolic-link?
|
||||
}
|
||||
"File types:"
|
||||
{ $subsections "file-types" }
|
||||
|
|
|
@ -13,8 +13,8 @@ HOOK: file-info os ( path -- info )
|
|||
HOOK: link-info os ( path -- info )
|
||||
|
||||
: directory? ( file-info -- ? ) type>> +directory+ = ;
|
||||
: file? ( file-info -- ? ) type>> +regular-file+ = ;
|
||||
: symlink? ( file-info -- ? ) type>> +symbolic-link+ = ;
|
||||
: regular-file? ( file-info -- ? ) type>> +regular-file+ = ;
|
||||
: symbolic-link? ( file-info -- ? ) type>> +symbolic-link+ = ;
|
||||
|
||||
: sparse-file? ( file-info -- ? )
|
||||
[ size-on-disk>> ] [ size>> ] bi < ;
|
||||
|
|
Loading…
Reference in New Issue