Posted to tcl by evilotto at Wed Jul 23 23:48:21 GMT 2014view raw
- package require tdom
- set u urn:foo
- dom createDocumentNS $u Foo foo
- $foo createElementNS $u Bar bar
- $foo createElementNS $u Baz baz
- # swap the next 2 lines and the extra namespace declaration disappears
- $bar appendChild $baz
- [$foo documentElement] appendChild $bar
- puts [$foo asXML -indent 4]