Re: reversing html

Here's a solution off the top of my head. It can probably be made
more elegant, but it will do the job.

package require tdom

set file [open $inputfile r]
# fconfigure $file as necessary
set doc [dom parse -html -channel $file]
close $file

foreach row [$doc selectNodes {//tr}] {
set children [$row childNodes]
foreach child $children {
$row removeChild $child
}
foreach child [lreverse $children] {
$row appendChild $child
}
}

set file [open $outputfile w]
# fconfigure $file as necessary
puts $file [$doc asHTML]
close $file

.