From a2cf84e4753fcfc25bbdc51fd2c09ce912644d3b Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Wed, 9 Jan 2002 13:27:41 +0000
Subject: [PATCH] Added length-units template to extract units from lengths

---
 xsl/lib/lib.xsl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/xsl/lib/lib.xsl b/xsl/lib/lib.xsl
index b5d7825f9..1dfbeba19 100644
--- a/xsl/lib/lib.xsl
+++ b/xsl/lib/lib.xsl
@@ -193,6 +193,39 @@ unqualified length ("20" for "20pt") from a dimension.
 
 <!-- ================================================================== -->
 
+<doc:template name="length-units" xmlns="">
+<refpurpose>Return the units from a length specification</refpurpose>
+<refdescription>
+<para>The <function>length-units</function> template returns the
+units ("pt" for "20pt") from a length. If no units are supplied on the
+length, the <parameter>defauilt.units</parameter> are returned.</para>
+</refdescription>
+</doc:template>
+
+<xsl:template name="length-units">
+  <xsl:param name="length" select="'0pt'"/>
+  <xsl:param name="default.units" select="'pt'"/>
+  <xsl:variable name="magnitude">
+    <xsl:call-template name="length-magnitude">
+      <xsl:with-param name="length" select="$length"/>
+    </xsl:call-template>
+  </xsl:variable>
+  <xsl:variable name="units">
+    <xsl:value-of select="substring($length, string-length($magnitude)+1)"/>
+  </xsl:variable>
+
+  <xsl:choose>
+    <xsl:when test="$units = ''">
+      <xsl:value-of select="$default.units"/>
+    </xsl:when>
+    <xsl:otherwise>
+      <xsl:value-of select="$units"/>
+    </xsl:otherwise>
+  </xsl:choose>
+</xsl:template>
+
+<!-- ================================================================== -->
+
 <doc:template name="length-spec" xmlns="">
 <refpurpose>Return a fully qualified length specification</refpurpose>
 <refdescription>
-- 
2.40.0