lib.xsl

Revision 23dea7e00df87480acb58bb3398283c2bb227949, 19.3 kB (checked in by Theo Schlossnagle <jesus@omniti.com>, 2 years ago)
pull docs into master
Property mode set to `100644`

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

Note: See TracBrowser for help on using the browser.

root/docs/docbook-xsl/lib/lib.xsl

Download in other formats: