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

package require tdom

set doc [dom createDocument root]
set root [$doc documentElement]
set nodes [$root selectNodes {ancestor::node()}]

puts $nodes