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
package require tdom set doc [dom createDocument root] set root [$doc documentElement] set nodes [$root selectNodes {ancestor::node()}] puts $nodes