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

io.directories.search: add quot stack effects, simplify find-all-files.

db4
John Benediktsson 2014-05-20 12:29:02 -07:00
parent 7e4f2ec618
commit 3fb1532bd6
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,25 +63,24 @@ TUPLE: directory-iterator
PRIVATE>
: each-file ( path bfs? quot -- )
: each-file ( path bfs? quot: ( ... name -- ... ) -- )
setup-traversal iterate-directory drop ; inline
: each-directory-entry ( path bfs? quot -- )
: each-directory-entry ( path bfs? quot: ( ... entry -- ... ) -- )
setup-traversal iterate-directory-entries drop ; inline
: recursive-directory-files ( path bfs? -- paths )
[ ] collector [ each-file ] dip ; inline
[ ] collector [ each-file ] dip ;
: recursive-directory-entries ( path bfs? -- directory-entries )
[ ] collector [ each-directory-entry ] dip ; inline
[ ] collector [ each-directory-entry ] dip ;
: find-file ( path bfs? quot -- path/f )
: find-file ( path bfs? quot: ( ... name -- ... ? ) -- path/f )
[ <directory-iterator> ] dip
[ keep and ] curry iterate-directory ; inline
: find-all-files ( path quot -- paths/f )
[ f <directory-iterator> ] dip selector
[ [ f ] compose iterate-directory drop ] dip ; inline
: find-all-files ( path quot: ( ... name -- ... ? ) -- paths )
f swap selector [ each-file ] dip ; inline
ERROR: file-not-found path bfs? quot ;