1 ! Copyright (C) 2017 Alexander Ilin.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: arrays combinators.short-circuit formatting
4 io.directories io.encodings.utf8 io.files io.pathnames kernel
5 math namespaces prettyprint sequences vocabs.loader ;
9 : all-docs-files ( -- seq )
11 recursive-directory-files [ "-docs.factor" tail? ] filter
16 dup utf8 file-lines [ 1 + 2array ] map-index
19 { [ CHAR: space = ] [ CHAR: " = ] } 1||
25 [ first2 swap "%d: %s\n" printf ] each