Subversion Repositories svn LFS-FR

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
7156 jlepiller 1
<?xml version="1.0" encoding="ASCII"?>
2
<!-- ********************************************************************
3
     $Id: lib.xsl 7429 2008-05-09 12:42:27Z randy $
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>