xml version encoding UTF-8 xsl stylesheet version xmlns xsl http www w

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
>
<xsl:template match="//code">
<xsl:call-template name="replace">
<xsl:with-param name="string" select="text()"/>
</xsl:call-template>
</xsl:template>
<xsl:template name="replace">
<xsl:param name="string"/>
<xsl:variable name="tag" select="substring-after(substring-before($string, '&gt;'), '&lt;')"/>
<xsl:variable name="head" select="substring-before($string, '&lt;')"/>
<xsl:variable name="tail" select="substring-after($string, '&gt;')"/>
<xsl:value-of select="$head"/>
<xsl:choose>
<xsl:when test="contains($tail, '&lt;') and contains($tail, '&gt;')">
<xsl:if test="not(starts-with($tag, '/'))">
<xsl:element name="{$tag}">
<xsl:call-template name="replace">
<xsl:with-param name="string" select="$tail"/>
</xsl:call-template>
</xsl:element>
</xsl:if>
</xsl:when>
<xsl:otherwise><xsl:value-of select="$tail"/></xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>