Re: recursive replacing strings with nodes

Ok, I've been beating my brains out against this one for awhile trying
recursive analyze-string and replace() techniques in XSLT2 but just
can't get it to do what I want.

Let's say I have some input like:
====
    <root>
        <ab type="foo">
            <seg>abc def abc+def</seg><lb/>
            <seg>+def abcdef foo+def=blah</seg><lb/>
            <seg>foo+def=blah</seg>
        </ab>
        <ab type="foo">
            <seg>ab de ac+def</seg><lb/>
            <seg>+cdef abdef foo+def=blah</seg><lb/>
            <seg>foo+cdef=blah</seg>
        </ab>
    </root>
====

What I want to do is go through a lookup table of replacements for
certain strings in the text of the seg elements.  The replacements are
stored something like:

====
 <root>
    <choice>
        <abbr>abc</abbr>
        <expan>
            <w>ab<m>c</m></w>
        </expan>
    </choice>
        <choice>
            <abbr>foo+def=blah</abbr>
            <expan>
                <w>foo<m>def</m></w><w type="erg">blah</w>
            </expan>
        </choice>
        <choice>
        <abbr>+def</abbr>
        <expan>
            <w>de<m>f</m></w>
        </expan>
    </choice>
    </root>
 ====

<xsl:stylesheet
  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  version="2.0"
  xmlns:xsd="http://www.w3.org/2001/XMLSchema"
  xmlns:mf="http://example.com/2010/mf"
  xmlns:functx="http://www.functx.com"
  exclude-result-prefixes="xsd mf functx">

  <xsl:function name="functx:escape-for-regex" as="xsd:string"
                 >
    <xsl:param name="arg" as="xsd:string?"/>

    <xsl:sequence select="
     replace($arg,
             '(\.|\[|\]|\\|\||\-|\^|\$|\?|\*|\+|\{|\}|\(|\))','\\$1')
   "/>

  <xsl:template match="@* | node()">
    <xsl:copy>
      <xsl:apply-templates select="@*, node()"/>
    </xsl:copy>
  </xsl:template>

  <xsl:template match="seg">
    <xsl:copy>
      <xsl:sequence select="mf:replace(., $abbr)"/>
    </xsl:copy>
  </xsl:template>

	Martin Honnen
	http://msmvps.com/blogs/martin_honnen/