32 lines
923 B
Factor
32 lines
923 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: combinators io.directories io.files io.pathnames kernel
|
|
make sequences vocabs.loader ;
|
|
IN: vocabs.files
|
|
|
|
: vocab-tests-path ( vocab -- path/f )
|
|
dup "-tests.factor" append-vocab-dir vocab-append-path ;
|
|
|
|
: vocab-tests-dir ( vocab -- paths )
|
|
dup vocab-dir "tests" append-path vocab-append-path [
|
|
dup exists? [
|
|
dup directory-files [ ".factor" tail? ] filter
|
|
[ append-path ] with map
|
|
] [ drop f ] if
|
|
] [ f ] if* ;
|
|
|
|
: vocab-tests ( vocab -- paths )
|
|
[
|
|
[ vocab-tests-path [ dup exists? [ , ] [ drop ] if ] when* ]
|
|
[ vocab-tests-dir % ] bi
|
|
] { } make ;
|
|
|
|
: vocab-files ( vocab -- paths )
|
|
[
|
|
{
|
|
[ vocab-source-path [ , ] when* ]
|
|
[ vocab-docs-path [ , ] when* ]
|
|
[ vocab-tests % ]
|
|
} cleave
|
|
] { } make ;
|