/extra/benchmark/xml/xml.factor

http://github.com/abeaumont/factor · Factor · 12 lines · 8 code · 2 blank · 2 comment · 0 complexity · 46cffc98f465e4d0cd87eb6d408d2677 MD5 · raw file 

    

  1. ! Copyright (C) 2008 Slava Pestov.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: io.encodings.utf8 io.directories io.files kernel
    4. 

  4. sequences xml ;
    5. 

  5. IN: benchmark.xml
    6. 

  6. 

  7. : xml-benchmark ( -- )
    8. 

  8.     "vocab:xmode/modes/" [
    9. 

  9.         [ file>xml drop ] each
    10. 

  10.     ] with-directory-files ;
    11. 

  11. 

  12. MAIN: xml-benchmark
    13.