Posted to tcl by schelte at Mon Aug 25 15:03:40 GMT 2014view pretty

package require tdom

set data {<nonsense><bla/></nonsense>}

proc parsexml {data} {
    dom parse $data doc
    $doc documentElement root
    # return [process $root]
    tailcall process $root
}

proc process {node} {
    puts [$node asXML -indent 2]
}


invalid command name "domNode0x211e8d0"
    while executing
"$node asXML -indent 2"
    (procedure "process" line 2)
    invoked from within
"process domNode0x211e8d0"
    invoked from within
"parsexml $data"
    (file "./parsexml" line 17)