Поддержка дополнительных языков программирования во внедренных скриптах XSLT

    <my:wshscript implements-prefix="vbs" language="vbs">
        <![CDATA[
        Function TestVBS(input)
        
            TestVBS = "VBS got " & input
        End Function
        ]]>
    </my:wshscript>
 
    <my:wshscript implements-prefix="js" language="js">
        <![CDATA[
        function testJS(input)
        {
            return "JScript got " + input;
        }
        ]]>
    </my:wshscript>

    <my:jintscript implements-prefix="jint">
        <![CDATA[
        function quadsFromString(input)
        {
            input.MoveNext();
            return  input.Current.Value.split(",").map(function(i){ return (+i * +i).toString();}).join(",");
        }
        
        function between(n, start, end)
        {
            return n >= start && n <= end;
        }
        
        function textFromFile()
        {
            var io = importNamespace('System.IO')
            var path = io.Path.GetDirectoryName(EngineLocation)
            var txt = io.File.ReadAllText(io.Path.Combine(path, "TextFile1.txt"));
            return txt;
        }
        ]]>
    </my:jintscript>

    <my:ipscript implements-prefix="ip">
        <![CDATA[
def factorial(number):
    result = 1
    for i in xrange(2, number + 1):
        result *= i
    return result
        
def intsum(nodes):
    sum = 0
    for n in nodes:
        sum += n.ValueAsInt
    return sum
        
        ]]>
    </my:ipscript>

    <my:external 
        assembly-path="C:\path\to\HelperLibrary.dll"
        implements-prefix="ext"
        type="HelperLibrary.XsltHelper"/>

<?xml version="1.0" encoding="utf-8" ?>
<input>
    <pow base="5" exp="3"/>
    <dblstr>ma</dblstr>
    <mid start="9" length="5">This is input string</mid>
    <split>string1,string2,string3</split>
    <testVBS>vbsinput</testVBS>
    <testJS>jsinput</testJS>
    <quadsFromString>1,2,3,4,5,6,7,8,9</quadsFromString>
    <csv>
        <v>1</v>
        <v>2</v>
        <v>3</v>
        <v>4</v>
        <v>5</v>
    </csv>
    <factorial>6</factorial>
</input>

<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:msxsl="urn:schemas-microsoft-com:xslt" exclude-result-prefixes="msxsl s1 s2 my math str vbs js jint ip ext"
xmlns:s1="urn:included-script:s1"
xmlns:s2="urn:included-script:s2"
xmlns:vbs="urn:included-script:vbs"
xmlns:js="urn:included-script:js"
xmlns:jint="urn:included-script:jint"
xmlns:ip="urn:included-script:ironpython"
xmlns:my="urn:my-xslt-extension-object-generator"
xmlns:math="urn:my-xslt-extension-object-generator:math"
xmlns:str="urn:my-xslt-extension-object-generator:strings"
xmlns:ext="urn:my-xslt-extension-object-generator:ext"
                                >
    <xsl:output method="xml" indent="yes"/>
 
    <xsl:template match="@* | node()">
        <xsl:copy>
            <xsl:apply-templates select="@* | node()"/>
        </xsl:copy>
    </xsl:template>
 
    <xsl:template match="/">
        <result>
            <pow>
                <xsl:value-of select="s1:pow(*/pow/@base, */pow/@exp)"/>
            </pow>
            <dblstr>
                <xsl:value-of select="s2:dblstr(*/dblstr/text())"/>
            </dblstr>
            <exp>
                <xsl:value-of select="math:Exp(1)"/>
            </exp>
            <mid>
                <xsl:value-of select="str:Mid(*/mid/text(), */mid/@start, */mid/@length)"/>
            </mid>
            <split>
                <xsl:for-each select="str:Split(*/split/text(), ',', -1, 1)">
                    <fragment>
                        <xsl:value-of select="."/>
                    </fragment>
                </xsl:for-each>
            </split>
            <testVBS>
                <xsl:value-of select="vbs:TestVBS('qwerty')"/>
            </testVBS>
            <testJS>
                <xsl:value-of select="js:testJS(string(*/testJS/text()))"/>
            </testJS>
            <quadsFromString>
                <xsl:value-of select="jint:quadsFromString(*/quadsFromString/text())"/>
            </quadsFromString>
            <between>
                <xsl:value-of select="jint:between(5,3,8)"/>
            </between>
            <textFromFile>
                <xsl:value-of select="jint:textFromFile()"/>
            </textFromFile>
            <csv>
                <xsl:value-of select="ext:Csv(*/csv/v)"/>
            </csv>
            <factorial>
                <xsl:value-of select="ip:factorial(number(*/factorial/text()))"/>
            </factorial>
            <intsum>
                <xsl:value-of select="ip:intsum(*/csv/v)"/>
            </intsum>
        </result>
    </xsl:template>
 
    <my:static-object assembly-name="mscorlib" type="System.Math" implements-prefix="math"/>
    <my:static-object assembly-name="Microsoft.VisualBasic" type="Microsoft.VisualBasic.Strings" implements-prefix="str"/>
    <my:external 
        assembly-path="C:\path\to\HelperLibrary.dll"
        implements-prefix="ext"
        type="HelperLibrary.XsltHelper"/>
    <msxsl:script implements-prefix="s1" language="visualbasic">
        <![CDATA[
        Public Function pow(base As Double, exp As Double)
            Return Math.Pow(base, exp)
        End Function
        ]]>
    </msxsl:script>
 
    <msxsl:script implements-prefix="s2" language="csharp">
        <![CDATA[
        public string dblstr(string input)
        {
            return input + input;
        }
        ]]>
    </msxsl:script>
 
    <my:wshscript implements-prefix="vbs" language="vbs">
        <![CDATA[
        Function TestVBS(input)
        
            TestVBS = "VBS got " & input
        End Function
        ]]>
    </my:wshscript>
 
    <my:wshscript implements-prefix="js" language="js">
        <![CDATA[
        function testJS(input)
        {
            return "JScript got " + input;
        }
        ]]>
    </my:wshscript>
 
    <my:jintscript implements-prefix="jint">
        <![CDATA[
        function quadsFromString(input)
        {
            input.MoveNext();
            return  input.Current.Value.split(",").map(function(i){ return (+i * +i).toString();}).join(",");
        }
        
        function between(n, start, end)
        {
            return n >= start && n <= end;
        }
        
        function textFromFile()
        {
            var io = importNamespace('System.IO')
            var path = io.Path.GetDirectoryName(EngineLocation)
            var txt = io.File.ReadAllText(io.Path.Combine(path, "TextFile1.txt"));
            return txt;
        }
        ]]>
    </my:jintscript>
    <my:ipscript implements-prefix="ip">
        <![CDATA[
def factorial(number):
    result = 1
    for i in xrange(2, number + 1):
        result *= i
    return result
        
def intsum(nodes):
    sum = 0
    for n in nodes:
        sum += n.ValueAsInt
    return sum
        
        ]]>
    </my:ipscript>
</xsl:stylesheet>

<?xml version="1.0" encoding="utf-16"?>
<result>
    <pow>125</pow>
    <dblstr>mama</dblstr>
    <exp>2.718281828459045</exp>
    <mid>input</mid>
    <split>
        <fragment>string1</fragment>
        <fragment>string2</fragment>
        <fragment>string3</fragment>
    </split>
    <testVBS>VBS got qwerty</testVBS>
    <testJS>JScript got jsinput</testJS>
    <quadsFromString>1,4,9,16,25,36,49,64,81</quadsFromString>
    <between>true</between>
    <textFromFile>Текст из обновленного файла</textFromFile>
    <csv>1,2,3,4,5</csv>
    <factorial>720</factorial>
    <intsum>15</intsum>
</result>

    <my:external 
        assembly-path="C:\path\to\HelperLibrary.dll"
        implements-prefix="ext"
        type="HelperLibrary.XsltHelper"/>

<xsl:value-of select="ext:Csv(*/csv/v)"/>