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

vocabs.hierarchy: much faster using directory entries.

db4
John Benediktsson 2012-08-13 11:12:15 -07:00
parent 29f3043061
commit 231b791da1
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/vocabs/hierarchy/hierarchy.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators.short-circuit fry USING: accessors arrays assocs combinators.short-circuit fry
io.directories io.files io.files.info io.pathnames kernel make io.directories io.files io.files.types io.pathnames kernel make
memoize namespaces sequences sorting splitting vocabs sets memoize namespaces sequences sorting splitting vocabs sets
vocabs.loader vocabs.metadata vocabs.errors ; vocabs.loader vocabs.metadata vocabs.errors ;
RENAME: child-vocabs vocabs => vocabs:child-vocabs RENAME: child-vocabs vocabs => vocabs:child-vocabs
@ -18,9 +18,12 @@ M: vocab-prefix vocab-name name>> ;
: vocab-subdirs ( dir -- dirs ) : vocab-subdirs ( dir -- dirs )
[ [
[ [
{ [ link-info directory? ] [ "." head? not ] } 1&& {
] filter [ type>> +directory+ = ]
] with-directory-files natural-sort ; [ name>> "." head? not ]
} 1&&
] filter [ name>> ] map!
] with-directory-entries natural-sort ;
: vocab-dir? ( root name -- ? ) : vocab-dir? ( root name -- ? )
over over