]> git.stg.codes - stg.git/blob - doc/xslt/lib/lib.xsl
Version bump
[stg.git] / doc / xslt / lib / lib.xsl
1 <?xml version="1.0" encoding="ASCII"?>
2 <!-- ********************************************************************
3      $Id: lib.xweb 7102 2007-07-20 15:35:24Z xmldoc $
4      ********************************************************************
5
6      This file is part of the XSL DocBook Stylesheet distribution.
7      See ../README or http://docbook.sf.net/release/xsl/current/ for
8      copyright and other information.
9
10      This module implements DTD-independent functions
11
12      ******************************************************************** -->
13 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
14
15 <xsl:template name="dot.count">
16   <!-- Returns the number of "." characters in a string -->
17   <xsl:param name="string"/>
18   <xsl:param name="count" select="0"/>
19   <xsl:choose>
20     <xsl:when test="contains($string, '.')">
21       <xsl:call-template name="dot.count">
22         <xsl:with-param name="string" select="substring-after($string, '.')"/>
23         <xsl:with-param name="count" select="$count+1"/>
24       </xsl:call-template>
25     </xsl:when>
26     <xsl:otherwise>
27       <xsl:value-of select="$count"/>
28     </xsl:otherwise>
29   </xsl:choose>
30 </xsl:template>
31 <xsl:template name="copy-string">
32   <!-- returns 'count' copies of 'string' -->
33   <xsl:param name="string"/>
34   <xsl:param name="count" select="0"/>
35   <xsl:param name="result"/>
36
37   <xsl:choose>
38     <xsl:when test="$count&gt;0">
39       <xsl:call-template name="copy-string">
40         <xsl:with-param name="string" select="$string"/>
41         <xsl:with-param name="count" select="$count - 1"/>
42         <xsl:with-param name="result">
43           <xsl:value-of select="$result"/>
44           <xsl:value-of select="$string"/>
45         </xsl:with-param>
46       </xsl:call-template>
47     </xsl:when>
48     <xsl:otherwise>
49       <xsl:value-of select="$result"/>
50     </xsl:otherwise>
51   </xsl:choose>
52 </xsl:template>
53 <xsl:template name="string.subst">
54   <xsl:param name="string"/>
55   <xsl:param name="target"/>
56   <xsl:param name="replacement"/>
57
58   <xsl:choose>
59     <xsl:when test="contains($string, $target)">
60       <xsl:variable name="rest">
61         <xsl:call-template name="string.subst">
62           <xsl:with-param name="string" select="substring-after($string, $target)"/>
63           <xsl:with-param name="target" select="$target"/>
64           <xsl:with-param name="replacement" select="$replacement"/>
65         </xsl:call-template>
66       </xsl:variable>
67       <xsl:value-of select="concat(substring-before($string, $target),                                    $replacement,                                    $rest)"/>
68     </xsl:when>
69     <xsl:otherwise>
70       <xsl:value-of select="$string"/>
71     </xsl:otherwise>
72   </xsl:choose>
73 </xsl:template>
74 <xsl:template name="xpointer.idref">
75   <xsl:param name="xpointer">http://...</xsl:param>
76   <xsl:choose>
77     <xsl:when test="starts-with($xpointer, '#xpointer(id(')">
78       <xsl:variable name="rest" select="substring-after($xpointer, '#xpointer(id(')"/>
79       <xsl:variable name="quote" select="substring($rest, 1, 1)"/>
80       <xsl:value-of select="substring-before(substring-after($xpointer, $quote), $quote)"/>
81     </xsl:when>
82     <xsl:when test="starts-with($xpointer, '#')">
83       <xsl:value-of select="substring-after($xpointer, '#')"/>
84     </xsl:when>
85     <!-- otherwise it's a pointer to some other document -->
86   </xsl:choose>
87 </xsl:template>
88 <xsl:template name="length-magnitude">
89   <xsl:param name="length" select="'0pt'"/>
90
91   <xsl:choose>
92     <xsl:when test="string-length($length) = 0"/>
93     <xsl:when test="substring($length,1,1) = '0'                     or substring($length,1,1) = '1'                     or substring($length,1,1) = '2'                     or substring($length,1,1) = '3'                     or substring($length,1,1) = '4'                     or substring($length,1,1) = '5'                     or substring($length,1,1) = '6'                     or substring($length,1,1) = '7'                     or substring($length,1,1) = '8'                     or substring($length,1,1) = '9'                     or substring($length,1,1) = '.'">
94       <xsl:value-of select="substring($length,1,1)"/>
95       <xsl:call-template name="length-magnitude">
96         <xsl:with-param name="length" select="substring($length,2)"/>
97       </xsl:call-template>
98     </xsl:when>
99   </xsl:choose>
100 </xsl:template>
101 <xsl:template name="length-units">
102   <xsl:param name="length" select="'0pt'"/>
103   <xsl:param name="default.units" select="'px'"/>
104   <xsl:variable name="magnitude">
105     <xsl:call-template name="length-magnitude">
106       <xsl:with-param name="length" select="$length"/>
107     </xsl:call-template>
108   </xsl:variable>
109
110   <xsl:variable name="units">
111     <xsl:value-of select="substring($length, string-length($magnitude)+1)"/>
112   </xsl:variable>
113
114   <xsl:choose>
115     <xsl:when test="$units = ''">
116       <xsl:value-of select="$default.units"/>
117     </xsl:when>
118     <xsl:otherwise>
119       <xsl:value-of select="$units"/>
120     </xsl:otherwise>
121   </xsl:choose>
122 </xsl:template>
123 <xsl:template name="length-spec">
124   <xsl:param name="length" select="'0pt'"/>
125   <xsl:param name="default.units" select="'px'"/>
126
127   <xsl:variable name="magnitude">
128     <xsl:call-template name="length-magnitude">
129       <xsl:with-param name="length" select="$length"/>
130     </xsl:call-template>
131   </xsl:variable>
132
133   <xsl:variable name="units">
134     <xsl:value-of select="substring($length, string-length($magnitude)+1)"/>
135   </xsl:variable>
136
137   <xsl:value-of select="$magnitude"/>
138   <xsl:choose>
139     <xsl:when test="$units='cm'                     or $units='mm'                     or $units='in'                     or $units='pt'                     or $units='pc'                     or $units='px'                     or $units='em'">
140       <xsl:value-of select="$units"/>
141     </xsl:when>
142     <xsl:when test="$units = ''">
143       <xsl:value-of select="$default.units"/>
144     </xsl:when>
145     <xsl:otherwise>
146       <xsl:message>
147         <xsl:text>Unrecognized unit of measure: </xsl:text>
148         <xsl:value-of select="$units"/>
149         <xsl:text>.</xsl:text>
150       </xsl:message>
151     </xsl:otherwise>
152   </xsl:choose>
153 </xsl:template>
154 <xsl:template name="length-in-points">
155   <xsl:param name="length" select="'0pt'"/>
156   <xsl:param name="em.size" select="10"/>
157   <xsl:param name="pixels.per.inch" select="90"/>
158
159   <xsl:variable name="magnitude">
160     <xsl:call-template name="length-magnitude">
161       <xsl:with-param name="length" select="$length"/>
162     </xsl:call-template>
163   </xsl:variable>
164
165   <xsl:variable name="units">
166     <xsl:value-of select="substring($length, string-length($magnitude)+1)"/>
167   </xsl:variable>
168
169   <xsl:choose>
170     <xsl:when test="$units = 'pt'">
171       <xsl:value-of select="$magnitude"/>
172     </xsl:when>
173     <xsl:when test="$units = 'cm'">
174       <xsl:value-of select="$magnitude div 2.54 * 72.0"/>
175     </xsl:when>
176     <xsl:when test="$units = 'mm'">
177       <xsl:value-of select="$magnitude div 25.4 * 72.0"/>
178     </xsl:when>
179     <xsl:when test="$units = 'in'">
180       <xsl:value-of select="$magnitude * 72.0"/>
181     </xsl:when>
182     <xsl:when test="$units = 'pc'">
183       <xsl:value-of select="$magnitude * 12.0"/>
184     </xsl:when>
185     <xsl:when test="$units = 'px'">
186       <xsl:value-of select="$magnitude div $pixels.per.inch * 72.0"/>
187     </xsl:when>
188     <xsl:when test="$units = 'em'">
189       <xsl:value-of select="$magnitude * $em.size"/>
190     </xsl:when>
191     <xsl:otherwise>
192       <xsl:message>
193         <xsl:text>Unrecognized unit of measure: </xsl:text>
194         <xsl:value-of select="$units"/>
195         <xsl:text>.</xsl:text>
196       </xsl:message>
197     </xsl:otherwise>
198   </xsl:choose>
199 </xsl:template>
200 <xsl:template name="pi-attribute">
201   <xsl:param name="pis" select="processing-instruction('BOGUS_PI')"/>
202   <xsl:param name="attribute">filename</xsl:param>
203   <xsl:param name="count">1</xsl:param>
204
205   <xsl:choose>
206     <xsl:when test="$count&gt;count($pis)">
207       <!-- not found -->
208     </xsl:when>
209     <xsl:otherwise>
210       <xsl:variable name="pi">
211         <xsl:value-of select="$pis[$count]"/>
212       </xsl:variable>
213       <xsl:variable name="pivalue">
214         <xsl:value-of select="concat(' ', normalize-space($pi))"/>
215       </xsl:variable>
216       <xsl:choose>
217         <xsl:when test="contains($pivalue,concat(' ', $attribute, '='))">
218           <xsl:variable name="rest" select="substring-after($pivalue,concat(' ', $attribute,'='))"/>
219           <xsl:variable name="quote" select="substring($rest,1,1)"/>
220           <xsl:value-of select="substring-before(substring($rest,2),$quote)"/>
221         </xsl:when>
222         <xsl:otherwise>
223           <xsl:call-template name="pi-attribute">
224             <xsl:with-param name="pis" select="$pis"/>
225             <xsl:with-param name="attribute" select="$attribute"/>
226             <xsl:with-param name="count" select="$count + 1"/>
227           </xsl:call-template>
228         </xsl:otherwise>
229       </xsl:choose>
230     </xsl:otherwise>
231   </xsl:choose>
232 </xsl:template>
233 <xsl:template name="lookup.key">
234   <xsl:param name="key" select="''"/>
235   <xsl:param name="table" select="''"/>
236
237   <xsl:if test="contains($table, ' ')">
238     <xsl:choose>
239       <xsl:when test="substring-before($table, ' ') = $key">
240         <xsl:variable name="rest" select="substring-after($table, ' ')"/>
241         <xsl:choose>
242           <xsl:when test="contains($rest, ' ')">
243             <xsl:value-of select="substring-before($rest, ' ')"/>
244           </xsl:when>
245           <xsl:otherwise>
246             <xsl:value-of select="$rest"/>
247           </xsl:otherwise>
248         </xsl:choose>
249       </xsl:when>
250       <xsl:otherwise>
251         <xsl:call-template name="lookup.key">
252           <xsl:with-param name="key" select="$key"/>
253           <xsl:with-param name="table" select="substring-after(substring-after($table,' '), ' ')"/>
254         </xsl:call-template>
255       </xsl:otherwise>
256     </xsl:choose>
257   </xsl:if>
258 </xsl:template>
259 <xsl:template name="xpath.location">
260   <xsl:param name="node" select="."/>
261   <xsl:param name="path" select="''"/>
262
263   <xsl:variable name="next.path">
264     <xsl:value-of select="local-name($node)"/>
265     <xsl:if test="$path != ''">/</xsl:if>
266     <xsl:value-of select="$path"/>
267   </xsl:variable>
268
269   <xsl:choose>
270     <xsl:when test="$node/parent::*">
271       <xsl:call-template name="xpath.location">
272         <xsl:with-param name="node" select="$node/parent::*"/>
273         <xsl:with-param name="path" select="$next.path"/>
274       </xsl:call-template>
275     </xsl:when>
276     <xsl:otherwise>
277       <xsl:text>/</xsl:text>
278       <xsl:value-of select="$next.path"/>
279     </xsl:otherwise>
280   </xsl:choose>
281 </xsl:template>
282 <xsl:template name="comment-escape-string">
283   <xsl:param name="string" select="''"/>
284
285   <xsl:if test="starts-with($string, '-')">
286     <xsl:text> </xsl:text>
287   </xsl:if>
288
289   <xsl:call-template name="comment-escape-string.recursive">
290     <xsl:with-param name="string" select="$string"/>
291   </xsl:call-template>
292
293   <xsl:if test="substring($string, string-length($string), 1) = '-'">
294     <xsl:text> </xsl:text>
295   </xsl:if>
296 </xsl:template>
297 <xsl:template name="comment-escape-string.recursive">
298   <xsl:param name="string" select="''"/>
299   <xsl:choose>
300     <xsl:when test="contains($string, '--')">
301       <xsl:value-of select="substring-before($string, '--')"/>
302       <xsl:value-of select="'- -'"/>
303       <xsl:call-template name="comment-escape-string.recursive">
304         <xsl:with-param name="string" select="substring-after($string, '--')"/>
305       </xsl:call-template>
306     </xsl:when>
307     <xsl:otherwise>
308       <xsl:value-of select="$string"/>
309     </xsl:otherwise>
310   </xsl:choose>
311 </xsl:template>
312   <xsl:template name="str.tokenize.keep.delimiters">
313     <xsl:param name="string" select="''"/>
314     <xsl:param name="delimiters" select="' '"/>
315     <xsl:choose>
316       <xsl:when test="not($string)"/>
317       <xsl:when test="not($delimiters)">
318         <xsl:call-template name="str.tokenize.keep.delimiters-characters">
319           <xsl:with-param name="string" select="$string"/>
320         </xsl:call-template>
321       </xsl:when>
322       <xsl:otherwise>
323         <xsl:call-template name="str.tokenize.keep.delimiters-delimiters">
324           <xsl:with-param name="string" select="$string"/>
325           <xsl:with-param name="delimiters" select="$delimiters"/>
326         </xsl:call-template>
327       </xsl:otherwise>
328     </xsl:choose>
329   </xsl:template>
330   <xsl:template name="str.tokenize.keep.delimiters-characters">
331     <xsl:param name="string"/>
332     <xsl:if test="$string">
333       <ssb:token xmlns:ssb="http://sideshowbarker.net/ns"><xsl:value-of select="substring($string, 1, 1)"/></ssb:token>
334       <xsl:call-template name="str.tokenize.keep.delimiters-characters">
335         <xsl:with-param name="string" select="substring($string, 2)"/>
336       </xsl:call-template>
337     </xsl:if>
338   </xsl:template>
339   <xsl:template name="str.tokenize.keep.delimiters-delimiters">
340     <xsl:param name="string"/>
341     <xsl:param name="delimiters"/>
342     <xsl:variable name="delimiter" select="substring($delimiters, 1, 1)"/>
343     <xsl:choose>
344       <xsl:when test="not($delimiter)">
345         <ssb:token xmlns:ssb="http://sideshowbarker.net/ns"><xsl:value-of select="$string"/></ssb:token>
346       </xsl:when>
347       <xsl:when test="contains($string, $delimiter)">
348         <xsl:if test="not(starts-with($string, $delimiter))">
349           <xsl:call-template name="str.tokenize.keep.delimiters-delimiters">
350             <xsl:with-param name="string" select="substring-before($string, $delimiter)"/>
351             <xsl:with-param name="delimiters" select="substring($delimiters, 2)"/>
352           </xsl:call-template>
353         </xsl:if>
354         <!-- output each delimiter -->
355         <xsl:value-of select="$delimiter"/>
356         <xsl:call-template name="str.tokenize.keep.delimiters-delimiters">
357           <xsl:with-param name="string" select="substring-after($string, $delimiter)"/>
358           <xsl:with-param name="delimiters" select="$delimiters"/>
359         </xsl:call-template>
360       </xsl:when>
361       <xsl:otherwise>
362         <xsl:call-template name="str.tokenize.keep.delimiters-delimiters">
363           <xsl:with-param name="string" select="$string"/>
364           <xsl:with-param name="delimiters" select="substring($delimiters, 2)"/>
365         </xsl:call-template>
366       </xsl:otherwise>
367     </xsl:choose>
368   </xsl:template>
369     <xsl:template name="apply-string-subst-map">
370       <xsl:param name="content"/>
371       <xsl:param name="map.contents"/>
372       <xsl:variable name="replaced_text">
373         <xsl:call-template name="string.subst">
374           <xsl:with-param name="string" select="$content"/>
375           <xsl:with-param name="target" select="$map.contents[1]/@oldstring"/>
376           <xsl:with-param name="replacement" select="$map.contents[1]/@newstring"/>
377         </xsl:call-template>
378       </xsl:variable>
379       <xsl:choose>
380         <xsl:when test="$map.contents[2]">
381           <xsl:call-template name="apply-string-subst-map">
382             <xsl:with-param name="content" select="$replaced_text"/>
383             <xsl:with-param name="map.contents" select="$map.contents[position() &gt; 1]"/>
384           </xsl:call-template>
385         </xsl:when>
386         <xsl:otherwise>
387           <xsl:value-of select="$replaced_text"/>
388         </xsl:otherwise>
389       </xsl:choose>
390     </xsl:template>
391   
392 <xsl:template name="count.uri.path.depth">
393   <xsl:param name="filename" select="''"/>
394   <xsl:param name="count" select="0"/>
395
396   <xsl:choose>
397     <xsl:when test="contains($filename, '/')">
398       <xsl:call-template name="count.uri.path.depth">
399         <xsl:with-param name="filename" select="substring-after($filename, '/')"/>
400         <xsl:with-param name="count" select="$count + 1"/>
401       </xsl:call-template>
402     </xsl:when>
403     <xsl:otherwise>
404       <xsl:value-of select="$count"/>
405     </xsl:otherwise>
406   </xsl:choose>
407 </xsl:template>
408 <xsl:template name="trim.common.uri.paths">
409   <xsl:param name="uriA" select="''"/>
410   <xsl:param name="uriB" select="''"/>
411   <xsl:param name="return" select="'A'"/>
412
413   <xsl:choose>
414     <xsl:when test="contains($uriA, '/') and contains($uriB, '/')                     and substring-before($uriA, '/') = substring-before($uriB, '/')">
415       <xsl:call-template name="trim.common.uri.paths">
416         <xsl:with-param name="uriA" select="substring-after($uriA, '/')"/>
417         <xsl:with-param name="uriB" select="substring-after($uriB, '/')"/>
418         <xsl:with-param name="return" select="$return"/>
419       </xsl:call-template>
420     </xsl:when>
421     <xsl:otherwise>
422       <xsl:choose>
423         <xsl:when test="$return = 'A'">
424           <xsl:value-of select="$uriA"/>
425         </xsl:when>
426         <xsl:otherwise>
427           <xsl:value-of select="$uriB"/>
428         </xsl:otherwise>
429       </xsl:choose>
430     </xsl:otherwise>
431   </xsl:choose>
432 </xsl:template>
433
434   <xsl:template name="trim.text">
435     <xsl:param name="contents" select="."/>
436     <xsl:variable name="contents-left-trimmed">
437       <xsl:call-template name="trim-left">
438         <xsl:with-param name="contents" select="$contents"/>
439       </xsl:call-template>
440     </xsl:variable>
441     <xsl:variable name="contents-trimmed">
442       <xsl:call-template name="trim-right">
443         <xsl:with-param name="contents" select="$contents-left-trimmed"/>
444       </xsl:call-template>
445     </xsl:variable>
446     <xsl:value-of select="$contents-trimmed"/>
447   </xsl:template>
448
449   <xsl:template name="trim-left">
450     <xsl:param name="contents"/>
451     <xsl:choose>
452       <xsl:when test="starts-with($contents,'&#10;') or                       starts-with($contents,'&#13;') or                       starts-with($contents,' ') or                       starts-with($contents,'&#9;')">
453         <xsl:call-template name="trim-left">
454           <xsl:with-param name="contents" select="substring($contents, 2)"/>
455         </xsl:call-template>
456       </xsl:when>
457       <xsl:otherwise>
458         <xsl:value-of select="$contents"/>
459       </xsl:otherwise>
460     </xsl:choose>
461   </xsl:template>
462
463   <xsl:template name="trim-right">
464     <xsl:param name="contents"/>
465     <xsl:variable name="last-char">
466       <xsl:value-of select="substring($contents, string-length($contents), 1)"/>
467     </xsl:variable>
468     <xsl:choose>
469       <xsl:when test="($last-char = '&#10;') or                       ($last-char = '&#13;') or                       ($last-char = ' ') or                       ($last-char = '&#9;')">
470         <xsl:call-template name="trim-right">
471           <xsl:with-param name="contents" select="substring($contents, 1, string-length($contents) - 1)"/>
472         </xsl:call-template>
473       </xsl:when>
474       <xsl:otherwise>
475         <xsl:value-of select="$contents"/>
476       </xsl:otherwise>
477     </xsl:choose>
478   </xsl:template>
479
480 </xsl:stylesheet>