X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=senfscons%2Ffunctions.xsl;h=f0c5c4dd34095fd3e495ffc18133c776f1aa9b48;hb=801aaf1479e7749b4b7e0de2dbe7a086cc4a4622;hp=f8e22f48e06bdbf050c341f359c4ecf02354d7ca;hpb=032707d24b1059febe83ce56b11fd79df106c6e2;p=senf.git

diff --git a/senfscons/functions.xsl b/senfscons/functions.xsl
index f8e22f4..f0c5c4d 100644
--- a/senfscons/functions.xsl
+++ b/senfscons/functions.xsl
@@ -7,6 +7,68 @@
   xmlns:exsl="http://exslt.org/common"
   extension-element-prefixes="str exsl func">
   
+<func:function name="str:split">
+	<xsl:param name="string" select="''" />
+  <xsl:param name="pattern" select="' '" />
+  <xsl:choose>
+    <xsl:when test="not($string)">
+      <func:result select="/.." />
+    </xsl:when>
+    <xsl:when test="not(function-available('exsl:node-set'))">
+      <xsl:message terminate="yes">
+        ERROR: EXSLT - Functions implementation of str:split relies on exsl:node-set().
+      </xsl:message>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:variable name="tokens">
+        <xsl:choose>
+          <xsl:when test="not($pattern)">
+            <xsl:call-template name="str:_split-characters">
+              <xsl:with-param name="string" select="$string" />
+            </xsl:call-template>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:call-template name="str:_split-pattern">
+              <xsl:with-param name="string" select="$string" />
+              <xsl:with-param name="pattern" select="$pattern" />
+            </xsl:call-template>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:variable>
+      <func:result select="exsl:node-set($tokens)/token" />
+    </xsl:otherwise>
+  </xsl:choose>
+</func:function>
+
+<xsl:template name="str:_split-characters">
+  <xsl:param name="string" />
+  <xsl:if test="$string">
+    <token><xsl:value-of select="substring($string, 1, 1)" /></token>
+    <xsl:call-template name="str:_split-characters">
+      <xsl:with-param name="string" select="substring($string, 2)" />
+    </xsl:call-template>
+  </xsl:if>
+</xsl:template>
+
+<xsl:template name="str:_split-pattern">
+  <xsl:param name="string" />
+  <xsl:param name="pattern" />
+  <xsl:choose>
+    <xsl:when test="contains($string, $pattern)">
+      <xsl:if test="not(starts-with($string, $pattern))">
+        <token><xsl:value-of select="substring-before($string, $pattern)" /></token>
+      </xsl:if>
+      <xsl:call-template name="str:_split-pattern">
+        <xsl:with-param name="string" select="substring-after($string, $pattern)" />
+        <xsl:with-param name="pattern" select="$pattern" />
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+      <token><xsl:value-of select="$string" /></token>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
   <!-- ==================================================================== -->
   <!-- node-set str:replace(string,object,object)                           -->
   <!--                                                                      -->