Posted to tcl by pooryorick at Fri Apr 06 10:00:08 GMT 2018view raw

  1. package require tdom
  2.  
  3. set doc [dom createDocument root]
  4. set root [$doc documentElement]
  5. set nodes [$root selectNodes {ancestor::node()}]
  6.  
  7. puts $nodes
  8.