2008-12-01 23:31:15 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-12-15 02:13:35 -05:00
|
|
|
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/" [
|
2009-02-15 21:45:06 -05:00
|
|
|
[ file>xml drop ] each
|
2008-12-01 23:31:15 -05:00
|
|
|
] with-directory-files ;
|
|
|
|
|
|
|
|
MAIN: xml-benchmark
|