Open
Description
<xsl:stylesheet version="2.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns:so="http://stackoverflow.com/questions/13768754"
exclude-result-prefixes="xsl xs so">
<xsl:output encoding="UTF-8" omit-xml-declaration="yes" indent="yes" />
<xsl:strip-space elements="*"/>
<xsl:variable name="cp-base" select="string-to-codepoints('0A')" as="xs:integer+" />
<xsl:template match="@*|node()">
<xsl:copy>
<xsl:apply-templates select="@*|node()" />
</xsl:copy>
</xsl:template>
<xsl:function name="so:utf8decode" as="xs:integer*">
<xsl:param name="bytes" as="xs:integer*" />
<xsl:choose>
<xsl:when test="empty($bytes)" />
<xsl:when test="$bytes[1] eq 0"><!-- The null character is not valid for XML. -->
<xsl:sequence select="so:utf8decode( remove( $bytes, 1))" />
</xsl:when>
<xsl:when test="$bytes[1] le 127">
<xsl:sequence select="$bytes[1], so:utf8decode( remove( $bytes, 1))" />
</xsl:when>
<xsl:when test="$bytes[1] lt 224">
<xsl:sequence select="
((($bytes[1] - 192) * 64) +
($bytes[2] - 128) ),
so:utf8decode( remove( remove( $bytes, 1), 1))" />
</xsl:when>
<xsl:when test="$bytes[1] lt 240">
<xsl:sequence select="
((($bytes[1] - 224) * 4096) +
(($bytes[2] - 128) * 64) +
($bytes[3] - 128) ),
so:utf8decode( remove( remove( remove( $bytes, 1), 1), 1))" />
</xsl:when>
<xsl:when test="$bytes[1] lt 248">
<xsl:sequence select="
((($bytes[1] - 240) * 262144) +
(($bytes[2] - 128) * 4096) +
(($bytes[3] - 128) * 64) +
($bytes[4] - 128) ),
so:utf8decode( $bytes[position() gt 4])" />
</xsl:when>
<xsl:otherwise>
<!-- Code-point valid for XML. -->
<xsl:sequence select="so:utf8decode( remove( $bytes, 1))" />
</xsl:otherwise>
</xsl:choose>
</xsl:function>
<xsl:template match="string/text()">
<xsl:analyze-string select="." regex="(%[0-9A-F]{{2}})+" flags="i">
<xsl:matching-substring>
<xsl:variable name="utf8-bytes" as="xs:integer+">
<xsl:analyze-string select="." regex="%([0-9A-F]{{2}})" flags="i">
<xsl:matching-substring>
<xsl:variable name="nibble-pair" select="
for $nibble-char in string-to-codepoints( upper-case(regex-group(1))) return
if ($nibble-char ge $cp-base[2]) then
$nibble-char - $cp-base[2] + 10
else
$nibble-char - $cp-base[1]" as="xs:integer+" />
<xsl
5B86
:sequence select="$nibble-pair[1] * 16 + $nibble-pair[2]" />
</xsl:matching-substring>
</xsl:analyze-string>
</xsl:variable>
<xsl:value-of select="codepoints-to-string( so:utf8decode( $utf8-bytes))" />
</xsl:matching-substring>
<xsl:non-matching-substring>
<xsl:value-of select="." />
</xsl:non-matching-substring>
<xsl:fallback>
<!-- For XSLT 1.0 operating in forward compatibility mode,
just echo -->
<xsl:value-of select="." />
</xsl:fallback>
</xsl:analyze-string>
</xsl:template>
</xsl:stylesheet>Metadata
Metadata
Assignees
Labels
No labels