Saxon » SaxonJS

<?xml version="1.0" encoding="UTF-8"?>

<xsl:stylesheet

expand-text="yes"

extension-element-prefixes="ixsl saxon"

version="3.0"

xmlns="http://www.w3.org/1999/xhtml"

xmlns:array="http://www.w3.org/2005/xpath-functions/array"

xmlns:f="function"

xmlns:fn="http://www.w3.org/2005/xpath-functions"

xmlns:ixsl="http://saxonica.com/ns/interactiveXSLT"

xmlns:js="http://saxonica.com/ns/globalJS"

xmlns:map="http://www.w3.org/2005/xpath-functions/map"

xmlns:saxon="http://saxon.sf.net/"

xmlns:xhtml="http://www.w3.org/1999/xhtml"

xmlns:xs="http://www.w3.org/2001/XMLSchema"

xmlns:xsl="http://www.w3.org/1999/XSL/Transform"

xpath-default-namespace="http://www.w3.org/1999/xhtml">

<xsl:template

name="xsl:initial-template">

<xsl:message>Entering initial-template</xsl:message>

<xsl:message>A&#9660;</xsl:message>

<xsl:message>A&#9650; {f:getCells() => f:msg1()}</xsl:message>

<xsl:message>B&#9660;</xsl:message>

<xsl:message>B&#9650; { f:getCells() => f:columnOrder() => f:msg2()}</xsl:message>

<xsl:message>C&#9660;</xsl:message>

<xsl:message>C&#9650; { f:getCells() => f:columnOrder() => f:swapWithTimestamp() => f:msg2()

}</xsl:message>

<xsl:message>D&#9660;</xsl:message>

<xsl:message>D&#9650; { f:getCells() => f:columnOrder() => f:swapNoTimestamp() => f:msg2() } </xsl:message>

</xsl:template>

<xsl:function

as="array(map(*))"

name="f:getCells">

<xsl:sequence

select="

array {

ixsl:page()/id('grid')//span ! map {

'val': ./text(),

'row': xs:integer(./count(preceding::span) idiv 3),

'col': xs:integer(./count(preceding::span) mod 3)

}

}" />

</xsl:function>

<xsl:function

as="array(array(map(*)))"

name="f:columnOrder">

<xsl:param

as="array(map(*))"

name="cells" />

<xsl:sequence

select="

array {

for $n in 0 to 2

return

array:filter($cells, function ($c) {

xs:integer(map:find($c, 'col')) = xs:integer($n)

})

}" />

</xsl:function>

<xsl:function

name="f:swapWithTimestamp">

<xsl:param

as="array(array(map(*))*)"

name="cells" />

<xsl:message>SwapWithTimestamp {saxon:timestamp()}: {array:size($cells)}</xsl:message>

<xsl:sequence

select="

array:for-each($cells, function ($c) {

f:swapRowCol($c, array {})

})" />

</xsl:function>

<xsl:function

name="f:swapNoTimestamp">

<xsl:param

as="array(array(map(*))*)"

name="cells" />

<xsl:message>SwapNoTimestamp: {array:size($cells)}</xsl:message>

<xsl:sequence

select="

array:for-each($cells, function ($c) {

f:swapRowCol($c, array {})

})" />

</xsl:function>

<xsl:function

as="array(map(*))"

name="f:swapRowCol">

<xsl:param

as="array(map(*))"

name="cells" />

<xsl:param

as="array(map(*))"

name="acc" />

<xsl:message>Swapping: {array:size($cells)} cells remaining</xsl:message>

<xsl:sequence

select="

if (array:size($cells) gt 0) then

let $h := array:head($cells)

return

f:swapRowCol(array:tail($cells), array:append($acc, map {

'val': $h('val'),

'row': $h('col'),

'col': $h('row')

}))

else

$acc" />

</xsl:function>

<xsl:function

name="f:msg1">

<xsl:param

as="array(map(*))"

name="cells" />

<xsl:message xml:space="preserve">{array:size($cells)} cells in the array:{array:for-each($cells,function($c){'&#10;val: '||$c('val')||' row: '||$c('row')||' col: '||$c('col')})}</xsl:message>

</xsl:function>

<xsl:function

name="f:msg2">

<xsl:param

as="array(array(map(*)*))"

name="cols" />

<xsl:message xml:space="preserve">{array:size($cols)} columns in the array:{array:for-each($cols,function($c){'&#10;'||array:size($c)||' cells in column'||f:msg1($c)})}</xsl:message>

</xsl:function>

</xsl:stylesheet>