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