se/SE/schema/WPS_Functions/xsl_interface/p5xsl.ascii.xsl

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns:p5xsl="http://biuro.biall-net.pl/xmlschema_procesy5/WPS_Functions/xsl_interface/xsl_interface.xsd"
    exclude-result-prefixes="xs"
    version="2.0">
    
    
    <xsl:function name="p5xsl:ascii">
        <xsl:param name="char"/>
        <xsl:choose>
            <xsl:when test="lower-case($char)='a'"><xsl:value-of select="65"/></xsl:when>
            <xsl:when test="lower-case($char)='b'"><xsl:value-of select="66"/></xsl:when>
            <xsl:when test="lower-case($char)='c'"><xsl:value-of select="67"/></xsl:when>
            <xsl:when test="lower-case($char)='d'"><xsl:value-of select="68"/></xsl:when>
            <xsl:when test="lower-case($char)='e'"><xsl:value-of select="69"/></xsl:when>
            <xsl:when test="lower-case($char)='f'"><xsl:value-of select="70"/></xsl:when>
            <xsl:when test="lower-case($char)='g'"><xsl:value-of select="71"/></xsl:when>
            <xsl:when test="lower-case($char)='h'"><xsl:value-of select="72"/></xsl:when>
            <xsl:when test="lower-case($char)='i'"><xsl:value-of select="73"/></xsl:when>
            <xsl:when test="lower-case($char)='j'"><xsl:value-of select="74"/></xsl:when>
            <xsl:when test="lower-case($char)='k'"><xsl:value-of select="75"/></xsl:when>
            <xsl:when test="lower-case($char)='l'"><xsl:value-of select="76"/></xsl:when>
            <xsl:when test="lower-case($char)='m'"><xsl:value-of select="77"/></xsl:when>
            <xsl:when test="lower-case($char)='n'"><xsl:value-of select="78"/></xsl:when>
            <xsl:when test="lower-case($char)='o'"><xsl:value-of select="79"/></xsl:when>
            <xsl:when test="lower-case($char)='p'"><xsl:value-of select="80"/></xsl:when>
            <xsl:when test="lower-case($char)='q'"><xsl:value-of select="81"/></xsl:when>
            <xsl:when test="lower-case($char)='r'"><xsl:value-of select="82"/></xsl:when>
            <xsl:when test="lower-case($char)='s'"><xsl:value-of select="83"/></xsl:when>
            <xsl:when test="lower-case($char)='t'"><xsl:value-of select="84"/></xsl:when>
            <xsl:when test="lower-case($char)='u'"><xsl:value-of select="85"/></xsl:when>
            <xsl:when test="lower-case($char)='v'"><xsl:value-of select="86"/></xsl:when>
            <xsl:when test="lower-case($char)='y'"><xsl:value-of select="87"/></xsl:when>
            <xsl:when test="lower-case($char)='z'"><xsl:value-of select="88"/></xsl:when>
            <xsl:otherwise><xsl:value-of select="1"/></xsl:otherwise>
        </xsl:choose>
    </xsl:function>
    
    <xsl:function name="p5xsl:ascii.sum">
        <xsl:param name="text"/>
        <xsl:variable name="string">
            <string>
                <xsl:for-each select="1 to string-length($text)">
                    <char><xsl:value-of select=" p5xsl:ascii(substring($text, current(),1))"/></char>
                </xsl:for-each>
            </string>
        </xsl:variable>
        <xsl:value-of select="sum($string//char/text())"/>
    </xsl:function>
    
</xsl:stylesheet>