factor/extra/benchmark/xml/xml.factor

13 lines
314 B
Factor
Raw Normal View History

2008-12-01 23:31:15 -05:00
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: io.encodings.utf8 io.directories io.files kernel
sequences xml ;
2008-12-01 23:31:15 -05:00
IN: benchmark.xml
: xml-benchmark ( -- )
2009-02-15 20:53:21 -05:00
"vocab:xmode/modes/" [
[ file>xml drop ] each
2008-12-01 23:31:15 -05:00
] with-directory-files ;
MAIN: xml-benchmark