extra/benchmark/xml/xml.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io.encodings.utf8 io.directories io.files kernel
   4 sequences xml ;
   5 IN: benchmark.xml
   6
   7 : xml-benchmark ( -- )
   8     "resource:basis/xmode/modes/" [
   9         [ utf8 <file-reader> read-xml drop ] each
  10     ] with-directory-files ;
  11
  12 MAIN: xml-benchmark