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

  1. package require tdom
  2.  
  3. set data {<nonsense><bla/></nonsense>}
  4.  
  5. proc parsexml {data} {
  6. dom parse $data doc
  7. $doc documentElement root
  8. # return [process $root]
  9. tailcall process $root
  10. }
  11.  
  12. proc process {node} {
  13. puts [$node asXML -indent 2]
  14. }
  15.  
  16.  
  17. invalid command name "domNode0x211e8d0"
  18. while executing
  19. "$node asXML -indent 2"
  20. (procedure "process" line 2)
  21. invoked from within
  22. "process domNode0x211e8d0"
  23. invoked from within
  24. "parsexml $data"
  25. (file "./parsexml" line 17)
  26.