12 lines
327 B
Factor
12 lines
327 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: io.encodings.utf8 io.files kernel sequences xml ;
|
||
|
|
IN: benchmark.xml
|
||
|
|
|
||
|
|
: xml-benchmark ( -- )
|
||
|
|
"resource:basis/xmode/modes/" [
|
||
|
|
[ utf8 <file-reader> read-xml drop ] each
|
||
|
|
] with-directory-files ;
|
||
|
|
|
||
|
|
MAIN: xml-benchmark
|