From 690314c1b4165b3dd3656a10bf74a0a206f51d00 Mon Sep 17 00:00:00 2001
From: Bob Stayton <bobs@sagehill.net>
Date: Fri, 19 Aug 2011 21:51:47 +0000
Subject: [PATCH] Added two utility templates to make lib.xsl work without
 reference to other modules since it is used that way with
 profiling/xsl2profile.xsl.

---
 xsl/lib/lib.xweb | 75 ++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 73 insertions(+), 2 deletions(-)

diff --git a/xsl/lib/lib.xweb b/xsl/lib/lib.xweb
index e000989c7..50f58f1f7 100644
--- a/xsl/lib/lib.xweb
+++ b/xsl/lib/lib.xweb
@@ -1004,13 +1004,13 @@ which would effectively move <quote>up</quote> the hierarchy.</para>
 
   <!-- Resolve any ../ in the path -->
   <xsl:variable name="trimmed.uriA">
-    <xsl:call-template name="strippath">
+    <xsl:call-template name="resolve.path">
       <xsl:with-param name="filename" select="$uriA"/>
     </xsl:call-template>
   </xsl:variable>
 
   <xsl:variable name="trimmed.uriB">
-    <xsl:call-template name="strippath">
+    <xsl:call-template name="resolve.path">
       <xsl:with-param name="filename" select="$uriB"/>
     </xsl:call-template>
   </xsl:variable>
@@ -1040,6 +1040,75 @@ which would effectively move <quote>up</quote> the hierarchy.</para>
 </refsect1>
 </refentry>
 
+<refentry xml:id="resolve.path">
+<refnamediv>
+<refname>resolve.path</refname>
+<refpurpose>Resolve any ../ in path, except leading ../</refpurpose>
+</refnamediv>
+
+<refsect1><title>Description</title>
+
+<para>This function resolves any relative ../ parts of a file path.</para>
+
+<src:fragment xml:id='resolve.path.frag'>
+<xsl:template name="resolve.path">
+  <xsl:param name="filename" select="''"/>
+  <xsl:choose>
+    <!-- Leading .. are not eliminated -->
+    <xsl:when test="starts-with($filename, '../')">
+      <xsl:value-of select="'../'"/>
+      <xsl:call-template name="resolve.path">
+        <xsl:with-param name="filename" select="substring-after($filename, '../')"/>
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:when test="contains($filename, '/../')">
+      <xsl:call-template name="resolve.path">
+        <xsl:with-param name="filename">
+          <xsl:call-template name="dirname">
+            <xsl:with-param name="filename" select="substring-before($filename, '/../')"/>
+          </xsl:call-template>
+          <xsl:value-of select="substring-after($filename, '/../')"/>
+        </xsl:with-param>
+      </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:value-of select="$filename"/>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+</src:fragment>
+
+</refsect1>
+</refentry>
+
+<refentry xml:id="dirname">
+<refnamediv>
+<refname>dirname</refname>
+<refpurpose>Return directory part of a path</refpurpose>
+</refnamediv>
+
+<refsect1><title>Description</title>
+
+<para>This function returns the directory part of a path.</para>
+
+<src:fragment xml:id='dirname.frag'>
+
+<xsl:template name="dirname">
+  <xsl:param name="filename" select="''"/>
+  <xsl:if test="contains($filename, '/')">
+    <xsl:value-of select="substring-before($filename, '/')"/>
+    <xsl:text>/</xsl:text>
+    <xsl:call-template name="dirname">
+      <xsl:with-param name="filename" select="substring-after($filename, '/')"/>
+    </xsl:call-template>
+  </xsl:if>
+</xsl:template>
+
+</src:fragment>
+
+</refsect1>
+</refentry>
+
 </reference>
 
 <!-- ================================================================== -->
@@ -1085,6 +1154,8 @@ around these functions.</para>
 <src:fragref linkend="apply-string-subst-map.frag"/>
 <src:fragref linkend="count.uri.path.depth.frag"/>
 <src:fragref linkend="trim.common.uri.paths.frag"/>
+<src:fragref linkend="resolve.path.frag"/>
+<src:fragref linkend="dirname.frag"/>
 <src:fragref linkend="trim.text.frag"/>
 
 </xsl:stylesheet>
-- 
2.40.0