XML/DOM serialization: Difference between revisions

=={{header|Tcl}}==

Using [http://www.tdom.org tDOM]

<lang tcl>package require tdom

set d [dom createDocument root]

set root [$d firstChild]

$root appendChild [$d createElement element]

[$root firstChild] appendChild [$d createTextNode "Some text here"]

$d asXML</lang>

<pre><root>

<element>Some text here</element>

</root></pre>

Using [http://tclxml.sf.net TclDOM]

<lang tcl>package require dom

set doc [dom::DOMImplementation create]

set root [dom::document createElement $doc root]

set elem [dom::document createElement $root element]

set text [dom::document createTextNode $elem "Some text here"]

dom::DOMImplementation serialize $doc -newline {element}</lang>

<pre><?xml version='1.0'?>

<!DOCTYPE root>

<root>

<element>

Some text here

</element>

</root></pre>