Posted to tcl by mjanssen at Sat Feb 09 16:32:02 GMT 2008view pretty

package require tdom
set xml {
<A> <B a="4">test</B><B>test2</B></A>
}
set xslt {
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 <xsl:template match="//B">
 <xsl:element name="MyB">
  <xsl:copy-of select="@*"/>
  <xsl:apply-templates/>
 </xsl:element>
 </xsl:template>
<xsl:template match="*">
<xsl:element name="{local-name()}">
 <xsl:copy-of select="@*"/>
 <xsl:apply-templates/>
</xsl:element>
</xsl:template>
  </xsl:stylesheet>
}

dom parse $xml doc
dom parse $xslt xsltdoc

[$doc xslt $xsltdoc] asXML