Re: [xsl] parsing parens in the park

["G. Ken Holman" <gkholman@xxxxxxxxxxxxxxxxxxxx>]

I missed something, Syd ...

At 2008-09-28 15:50 -0400, I wrote:
> I think I may have solved it below ... please let me know if there 
> are edge cases I didn't think of.

When I went to file this away I discovered a mistake.  The code below 
appears to work better than my earlier post.

. . . . . . . .  Ken


t:\ftemp>type syd.xml
<?xml version="1.0" encoding="US-ASCII"?>
<tests>
  <test>name1(value1)name2(with(nested(parens((inside)of) 
value))name3(abc)</test>
  <test>name1(value1)name2( with(nested(parens((inside)of) 
value)more)name3()</test>
  <test>name1 (value1) name2 (value2) name3 (value3)</test>
  <test>name1 (value1)name2 () name3(value3)</test>
</tests>

t:\ftemp>call xslt2 syd.xml syd.xsl syd.out

t:\ftemp>type syd.out
<?xml version="1.0" encoding="UTF-8"?>
<results>
   <result name1="value1" name2="with(nested(parens((inside)of) 
value))" name3="abc"/>
   <result name1="value1" name2=" with(nested(parens((inside)of) 
value)more)" name3=""/>
   <result name1="value1" name2="value2" name3="value3"/>
   <result name1="value1" name2="" name3="value3"/>
</results>
t:\ftemp>type syd.xsl
<?xml version="1.0" encoding="US-ASCII"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform";
                xmlns:c="uri:x-Crane"
                exclude-result-prefixes="c"
                version="2.0">

<xsl:output indent="yes"/>

<xsl:template match="tests">
  <results>
    <xsl:apply-templates select="test"/>
  </results>
</xsl:template>

<xsl:template match="test">
  <!--
  Debug: <xsl:value-of select="."/>
  <xsl:text>
</xsl:text>
  -->
  <result>
    <!--use a called template because of the need to generate structure-->
    <xsl:call-template name="c:values"/>
  </result>
</xsl:template>

<!--process a name/value specification-->
<xsl:template name="c:name-value-pair">
  <xsl:param name="name"/>
  <xsl:param name="value"/>

  <xsl:attribute name="{$name}" select="$value"/>
</xsl:template>

<!--find the first value specification in a string of value specifications-->
<xsl:template name="c:values">
  <xsl:param name="rest" select="."/>
  <xsl:if test="$rest">
    <!--walk through the string-->
    <xsl:analyze-string select="$rest" regex="\s*(\i\c*)\s*\((.*?)([()])(.*)">
      <xsl:matching-substring>
        <xsl:choose>
          <xsl:when test="regex-group(3)='('">
            <!--at the start of a nested parenthesized value, so find it-->
            <xsl:variable name="this-rest"
                          select="c:nested-value('',regex-group(4),1)"/>
            <!--process the name/value pair-->
            <xsl:call-template name="c:name-value-pair">
              <xsl:with-param name="name" select="regex-group(1)"/>
              <xsl:with-param name="value" select="concat(regex-group(2),'(',
                                                          $this-rest[1],')')"/>
            </xsl:call-template>
            <!--find the next value specification-->
            <xsl:call-template name="c:values">
              <xsl:with-param name="rest" select="$this-rest[2]"/>
            </xsl:call-template>
          </xsl:when>
          <xsl:otherwise>
            <!--process the name/value pair-->
            <xsl:call-template name="c:name-value-pair">
              <xsl:with-param name="name" select="regex-group(1)"/>
              <xsl:with-param name="value" select="regex-group(2)"/>
            </xsl:call-template>
            <!--find the next value specification-->
            <xsl:call-template name="c:values">
              <xsl:with-param name="rest" select="regex-group(4)"/>
            </xsl:call-template>
          </xsl:otherwise>
        </xsl:choose>
      </xsl:matching-substring>
      <xsl:non-matching-substring>
        <xsl:message>
          <xsl:text>Whoops!  What happened here? Not expected: </xsl:text>
          <xsl:value-of select="."/>
        </xsl:message>
      </xsl:non-matching-substring>
    </xsl:analyze-string>
  </xsl:if>
</xsl:template>

<!--recursively determine a parenthesized value assuming balanced parens-->
<xsl:function name="c:nested-value">
  <!--returning a sequence of two values: the value and the rest-->
  <xsl:param name="this"/>
  <xsl:param name="rest"/>
  <xsl:param name="depth"/>
  <xsl:if test="$rest">
    <!--there is still more to do-->
    <xsl:analyze-string select="$rest" regex="(.*?)([()])(.*)">
      <xsl:matching-substring>
        <xsl:choose>
          <xsl:when test="regex-group(2)='('">
            <!--yet another nested value-->
            <xsl:sequence select="c:nested-value( concat($this,regex-group(1),
                                                         '('),
                                                  regex-group(3),
                                                  $depth + 1)"/>
          </xsl:when>
          <xsl:when test="$depth=1">
            <!--found the last balanced parenthesis-->
            <xsl:sequence select="concat($this,regex-group(1)),
                                  regex-group(3)"/>
          </xsl:when>
          <xsl:otherwise>
            <!--found a nested balanced parenthesis-->
            <xsl:sequence select="c:nested-value(concat($this,regex-group(1),
                                                        ')'),
                                                 regex-group(3),
                                                 $depth - 1)"/>
          </xsl:otherwise>
        </xsl:choose>
      </xsl:matching-substring>
      <xsl:non-matching-substring>
        <xsl:message>
          <xsl:text>Nested whops!  Not expected:</xsl:text>
          <xsl:value-of select="."/>
        </xsl:message>
      </xsl:non-matching-substring>
    </xsl:analyze-string>
  </xsl:if>
</xsl:function>

</xsl:stylesheet>
t:\ftemp>rem Done!



--
Upcoming XSLT/XSL-FO hands-on courses:      Wellington, NZ 2009-01
Training tools: Comprehensive interactive XSLT/XPath 1.0/2.0 video
G. Ken Holman                 mailto:gkholman@xxxxxxxxxxxxxxxxxxxx
Crane Softwrights Ltd.          http://www.CraneSoftwrights.com/s/
Male Cancer Awareness Nov'07  http://www.CraneSoftwrights.com/s/bc
Legal business disclaimers:  http://www.CraneSoftwrights.com/legal