diff options
| author | Drahflow <drahflow@gmx.de> | 2014-04-08 01:21:24 +0200 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2014-04-08 01:21:24 +0200 |
| commit | 2eff6f053091983e658557af6c851c2f78725699 (patch) | |
| tree | 52b54dbf66323e2867f6269afadedb6cded00685 /examples/working-loaded | |
| parent | b9d46d5efded759fe4f45002c057f9bb9a4f79de (diff) | |
Some more library support
Diffstat (limited to 'examples/working-loaded')
| -rw-r--r-- | examples/working-loaded/xml.test | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/examples/working-loaded/xml.test b/examples/working-loaded/xml.test index 8375638..000697f 100644 --- a/examples/working-loaded/xml.test +++ b/examples/working-loaded/xml.test @@ -2,10 +2,14 @@ { ==indent ==elem indent { " " sys .out .writeall } rep - elem .name sys .out .writeall "\n" sys .out .writeall - elem .children { - indent 2 add dumpTree - } each + 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 @@ -13,11 +17,15 @@ sys .file ":" via 65536 :read ==content :close +1 ==success { - content xml .parse 0 dumpTree + content xml .parse } { - "Error during parse: " dump + "Error during parse, remaining content: " dump .remaining dump + 0 =success } ?!parse +success { 0 dumpTree } rep + # vim: syn=elymas |