Re: [xsl] How to convert a recursive function to a loop, using XSLT 2.0?

Subject: Re: [xsl] How to convert a recursive function to a loop, using XSLT 2.0?
From: "Dimitre Novatchev dnovatchev@xxxxxxxxx" <xsl-list-service@xxxxxxxxxxxxxxxxxxxxxx>
Date: Sat, 11 May 2019 19:55:29 -0000
Hi Roger,

Besides the obvious grouping solution, here is a short XPath 2.0 (plus some
XSLT 2.0) to do this in a non-recursive way.

Ideally I would use no XSLT and pure XPath 3 -- taking advantage of XPath
3.0 features such as the let - expression and maps, and also the ability to
generate XML as a string and then use the standard parse-xml() function to
construct a new XML document, using only XPath.

One can also produce an XSLT 1.0 solution, using keys.

This XSLT 2.0 transformation:

<xsl:stylesheet version="2.0" xmlns:xsl="";
 xmlns:xs=""; xmlns:my="my:my"
 exclude-result-prefixes="xs my">
 <xsl:output omit-xml-declaration="yes" indent="yes"/>

  <xsl:variable name="vHex2Dec">
    <tr from="48" to="72"/>
    <tr from="4A" to="74"/>
    <tr from="69" to="105"/>
    <tr from="6C" to="108"/>

  <xsl:template match="/">
    <xsl:variable name="vBytes" select="/*/Byte"/>
    <xsl:variable name="vEnds" select="index-of($vBytes, '00')"/>

    <xsl:sequence select=
    "for $vLastEnd in (0, $vEnds),
         $vThisEnd in $vEnds[. > $vLastEnd][1]
            for $pos in $vLastEnd+1 to $vThisEnd -1
        $vHex2Dec/*[@from = $vBytes[$pos]]/@to/xs:integer(.)


  <xsl:function name="my:makeString" as="element()">
    <xsl:param name="pCodepoints" as="xs:integer*"/>

      <xsl:sequence select="codepoints-to-string($pCodepoints)"/>

When applied on the provided XML fragment (made a wellformed XML document):


produces the wanted result:



On Fri, May 10, 2019 at 4:20 AM Costello, Roger L. costello@xxxxxxxxx <
xsl-list-service@xxxxxxxxxxxxxxxxxxxxxx> wrote:

> Hello XSLT experts!
> My input file consists of a sequence (sourceSeq) of <Byte> elements
> representing a sequence of null-terminated strings. I want to create a
> function that returns a sequence of <String> elements. For example, with
> this sourceSeq:
> <Byte>48</Byte>
> <Byte>69</Byte>
> <Byte>00</Byte>
> <Byte>4A</Byte>
> <Byte>69</Byte>
> <Byte>6C</Byte>
> <Byte>6C</Byte>
> <Byte>00</Byte>
> the function should return:
> <String>Hi</String>
> <String>Jill</String>
> The strings are of variable length.
> I do not know how many null-terminated strings are in sourceSeq. However,
> I do know the total number (total-size) of <Byte> elements within sourceSeq
> containing the null-terminated strings.
> Below is a recursive way to implement the function. Unfortunately,
> total-size can be quite large, which means the function recurses many
> times, resulting in a "Too many nested function calls" error. Is there an
> iterative way to implement the function?  /Roger
> <xsl:function name="f:make-string-table-entries" as="element(String)*">
>     <xsl:param name="total-size" as="xs:integer" />
>     <xsl:param name="current-size" as="xs:integer" />
>     <xsl:param name="current-position" as="xs:integer" />
>     <xsl:param name="sourceSeq" as="element(Byte)*" />
>     <xsl:choose>
>         <xsl:when test="$current-size ge $total-size" />
>         <xsl:otherwise>
>             <xsl:variable name="string"
> select="f:make-element-from-null-terminated-string('String',
> $current-position, $sourceSeq)" as="element(String)"/>
>             <xsl:sequence select="$string" />
>             <xsl:variable name="length"
> select="string-length($string/text()) + 1"/>  <!-- add 1 for the null byte
> -->
>             <xsl:sequence select="f:make-string-table-entries($total-size,
> xs:integer($current-size+$length), xs:integer($current-position+$length),
> $sourceSeq)" />
>         </xsl:otherwise>
>     </xsl:choose>
> </xsl:function>

Dimitre Novatchev
Truly great madness cannot be achieved without significant intelligence.
To invent, you need a good imagination and a pile of junk
Never fight an inanimate object
To avoid situations in which you might make mistakes may be the
biggest mistake of all
Quality means doing it right when no one is looking.
You've achieved success in your field when you don't know whether what
you're doing is work or play
To achieve the impossible dream, try going to sleep.
Facts do not cease to exist because they are ignored.
Typing monkeys will write all Shakespeare's works in 200yrs.Will they write
all patents, too? :)
Sanity is madness put to good use.
I finally figured out the only reason to be alive is to enjoy it.

Current Thread