source: clfs-sysroot/BOOK/stylesheets/lfs-xsl/docbook-xsl-snapshot/lib/lib.xsl@ a7229a9

Last change on this file since a7229a9 was ee92a8c, checked in by Manuel Canales Esparcia <manuel@…>, 17 years ago

Updated DocBook-XSL code to version 1.73.2
  • Property mode set to 100644
File size: 18.0 KB
RevLine 
[a18aefd]1<?xml version="1.0" encoding="ASCII"?>
2<!-- ********************************************************************
3 $Id$
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 ******************************************************************** -->
[ee92a8c]13<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
[a18aefd]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">
[ee92a8c]333 <ssb:token xmlns:ssb="http://sideshowbarker.net/ns"><xsl:value-of select="substring($string, 1, 1)"/></ssb:token>
[a18aefd]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)">
[ee92a8c]345 <ssb:token xmlns:ssb="http://sideshowbarker.net/ns"><xsl:value-of select="$string"/></ssb:token>
[a18aefd]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>
Note: See TracBrowser for help on using the repository browser.