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

io.directories.*: move of the qualified directory listing words to io.directories

char-rename
Björn Lindqvist 2016-07-30 15:02:37 +02:00
parent 9ba5419bef
commit ba4bb45d4d
3 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/io/directories/directories-docs.factor
View File

@ -45,9 +45,17 @@ HELP: directory-entries
{ $values { "path" "a pathname string" } { "seq" "a sequence of " { $link directory-entry } " objects" } } { $values { "path" "a pathname string" } { "seq" "a sequence of " { $link directory-entry } " objects" } }
{ $description "Outputs the contents of a directory named by " { $snippet "path" } "." } ; { $description "Outputs the contents of a directory named by " { $snippet "path" } "." } ;
HELP: qualified-directory-entries
{ $values { "path" "a pathname string" } { "seq" "a sequence of " { $link directory-entry } " objects" } }
{ $description "Outputs the contents of a directory named by " { $snippet "path" } ". using absolute file paths." } ;
HELP: directory-files HELP: directory-files
{ $values { "path" "a pathname string" } { "seq" "a sequence of filenames" } } { $values { "path" "a pathname string" } { "seq" "a sequence of filenames" } }
{ $description "Outputs the contents of a directory named by " { $snippet "path" } "." } ; { $description "Outputs the contents of a directory named by " { $snippet "path" } " as a sequence of filenames." } ;
HELP: qualified-directory-files
{ $values { "path" "a pathname string" } { "seq" "a sequence of filenames" } }
{ $description "Outputs the contents of a directory named by " { $snippet "path" } " as a sequence of absolute paths." } ;
HELP: with-directory-files HELP: with-directory-files
{ $values { "path" "a pathname string" } { "quot" quotation } } { $values { "path" "a pathname string" } { "quot" quotation } }
@ -148,6 +156,10 @@ ARTICLE: "io.directories.listing" "Directory listing"
directory-files directory-files
with-directory-entries with-directory-entries
with-directory-files with-directory-files
qualified-directory-entries
qualified-directory-files
with-qualified-directory-files
with-qualified-directory-entries
} ; } ;
ARTICLE: "io.directories.create" "Creating directories" ARTICLE: "io.directories.create" "Creating directories"

14
basis/io/directories/directories.factor
View File

@ -54,6 +54,20 @@ HOOK: (directory-entries) os ( path -- seq )
: with-directory-files ( path quot -- ) : with-directory-files ( path quot -- )
'[ "" directory-files @ ] with-directory ; inline '[ "" directory-files @ ] with-directory ; inline
: qualified-directory-entries ( path -- seq )
absolute-path
dup directory-entries [ [ append-path ] change-name ] with map! ;
: qualified-directory-files ( path -- seq )
absolute-path
dup directory-files [ append-path ] with map! ;
: with-qualified-directory-files ( path quot -- )
'[ "" qualified-directory-files @ ] with-directory ; inline
: with-qualified-directory-entries ( path quot -- )
'[ "" qualified-directory-entries @ ] with-directory ; inline
! Touching files ! Touching files
HOOK: touch-file io-backend ( path -- ) HOOK: touch-file io-backend ( path -- )

14
basis/io/directories/search/search.factor
View File

@ -6,20 +6,6 @@ kernel.private locals math sequences sequences.extras sorting
strings system unicode vocabs ; strings system unicode vocabs ;
IN: io.directories.search IN: io.directories.search
: qualified-directory-entries ( path -- seq )
absolute-path
dup directory-entries [ [ append-path ] change-name ] with map! ;
: qualified-directory-files ( path -- seq )
absolute-path
dup directory-files [ append-path ] with map! ;
: with-qualified-directory-files ( path quot -- )
'[ "" qualified-directory-files @ ] with-directory ; inline
: with-qualified-directory-entries ( path quot -- )
'[ "" qualified-directory-entries @ ] with-directory ; inline
<PRIVATE <PRIVATE
TUPLE: directory-iterator TUPLE: directory-iterator