"lib/xml.ey" include

{ ==indent ==elem
  indent { " " sys .out .writeall } rep
  elem .name "" eq {
    elem .text sys .out .writeall "\n" sys .out .writeall
  } {
    elem .name sys .out .writeall "\n" sys .out .writeall
    elem .children {
      indent 2 add dumpTree
    } each
  } ? *
} /dumpTree deffst

sys .file ":" via
  "xml.test.xml" :open
  65536 :read ==content
  :close

1 ==success
{
  content xml .parse
} {
  "Error during parse, remaining content: " dump
  .remaining dump
  0 =success
} ?!parse

success { 0 dumpTree } rep

# vim: syn=elymas