Sample code for 30+ languages & platforms
Tcl

Setting the XML DOCTYPE

See more XML Examples

Demonstrates setting an XML document's DOCTYPE. The sample code below produces the following XML output:
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
    <body>This is the HTML body</body>
</html>

Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

set root [new_CkXml]

CkXml_put_Tag $root "html"

CkXml_put_DocType $root "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">"

CkXml_NewChild2 $root "body" "This is the HTML body"

puts [CkXml_getXml $root]

delete_CkXml $root