source: clfs-embedded/BOOK/stylesheets/lfs-xsl/docbook-xsl-snapshot/common/table.xsl @ 00b1e11

Last change on this file since 00b1e11 was 00b1e11, checked in by Manuel Canales Esparcia <manuel@…>, 15 years ago

Merged r8226 from new-xsl branch.

  • Property mode set to 100644
File size: 17.7 KB
Line 
1<?xml version="1.0"?>
2<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
3                xmlns:doc="http://nwalsh.com/xsl/documentation/1.0"
4                exclude-result-prefixes="doc"
5                version="1.0">
6
7<!-- ********************************************************************
8     $Id$
9     ********************************************************************
10
11     This file is part of the XSL DocBook Stylesheet distribution.
12     See ../README or http://docbook.sf.net/release/xsl/current/ for
13     copyright and other information.
14
15     ******************************************************************** -->
16
17<!-- ==================================================================== -->
18
19<xsl:template name="blank.spans">
20  <xsl:param name="cols" select="1"/>
21  <xsl:if test="$cols &gt; 0">
22    <xsl:text>0:</xsl:text>
23    <xsl:call-template name="blank.spans">
24      <xsl:with-param name="cols" select="$cols - 1"/>
25    </xsl:call-template>
26  </xsl:if>
27</xsl:template>
28
29<xsl:template name="calculate.following.spans">
30  <xsl:param name="colspan" select="1"/>
31  <xsl:param name="spans" select="''"/>
32
33  <xsl:choose>
34    <xsl:when test="$colspan &gt; 0">
35      <xsl:call-template name="calculate.following.spans">
36        <xsl:with-param name="colspan" select="$colspan - 1"/>
37        <xsl:with-param name="spans" select="substring-after($spans,':')"/>
38      </xsl:call-template>
39    </xsl:when>
40    <xsl:otherwise>
41      <xsl:value-of select="$spans"/>
42    </xsl:otherwise>
43  </xsl:choose>
44</xsl:template>
45
46<xsl:template name="finaltd">
47  <xsl:param name="spans"/>
48  <xsl:param name="col" select="0"/>
49
50  <xsl:if test="$spans != ''">
51    <xsl:choose>
52      <xsl:when test="starts-with($spans,'0:')">
53        <xsl:call-template name="empty.table.cell">
54          <xsl:with-param name="colnum" select="$col"/>
55        </xsl:call-template>
56      </xsl:when>
57      <xsl:otherwise></xsl:otherwise>
58    </xsl:choose>
59
60    <xsl:call-template name="finaltd">
61      <xsl:with-param name="spans" select="substring-after($spans,':')"/>
62      <xsl:with-param name="col" select="$col+1"/>
63    </xsl:call-template>
64  </xsl:if>
65</xsl:template>
66
67<xsl:template name="sfinaltd">
68  <xsl:param name="spans"/>
69
70  <xsl:if test="$spans != ''">
71    <xsl:choose>
72      <xsl:when test="starts-with($spans,'0:')">0:</xsl:when>
73      <xsl:otherwise>
74        <xsl:value-of select="substring-before($spans,':')-1"/>
75        <xsl:text>:</xsl:text>
76      </xsl:otherwise>
77    </xsl:choose>
78
79    <xsl:call-template name="sfinaltd">
80      <xsl:with-param name="spans" select="substring-after($spans,':')"/>
81    </xsl:call-template>
82  </xsl:if>
83</xsl:template>
84
85<xsl:template name="entry.colnum">
86  <xsl:param name="entry" select="."/>
87
88  <xsl:choose>
89    <xsl:when test="$entry/@spanname">
90      <xsl:variable name="spanname" select="$entry/@spanname"/>
91      <xsl:variable name="spanspec"
92                    select="($entry/ancestor::tgroup/spanspec[@spanname=$spanname]
93                             |$entry/ancestor::entrytbl/spanspec[@spanname=$spanname])[last()]"/>
94      <xsl:variable name="colspec"
95                    select="($entry/ancestor::tgroup/colspec[@colname=$spanspec/@namest]
96                             |$entry/ancestor::entrytbl/colspec[@colname=$spanspec/@namest])[last()]"/>
97      <xsl:call-template name="colspec.colnum">
98        <xsl:with-param name="colspec" select="$colspec"/>
99      </xsl:call-template>
100    </xsl:when>
101    <xsl:when test="$entry/@colname">
102      <xsl:variable name="colname" select="$entry/@colname"/>
103      <xsl:variable name="colspec"
104                    select="($entry/ancestor::tgroup/colspec[@colname=$colname]
105                             |$entry/ancestor::entrytbl/colspec[@colname=$colname])[last()]"/>
106      <xsl:call-template name="colspec.colnum">
107        <xsl:with-param name="colspec" select="$colspec"/>
108      </xsl:call-template>
109    </xsl:when>
110    <xsl:when test="$entry/@namest">
111      <xsl:variable name="namest" select="$entry/@namest"/>
112      <xsl:variable name="colspec"
113                    select="($entry/ancestor::tgroup/colspec[@colname=$namest]
114                             |$entry/ancestor::entrytbl/colspec[@colname=$namest])[last()]"/>
115      <xsl:call-template name="colspec.colnum">
116        <xsl:with-param name="colspec" select="$colspec"/>
117      </xsl:call-template>
118    </xsl:when>
119    <!-- no idea, return 0 -->
120    <xsl:otherwise>0</xsl:otherwise>
121  </xsl:choose>
122</xsl:template>
123
124<doc:template name="entry.colnum" xmlns="">
125<refpurpose>Determine the column number in which a given entry occurs</refpurpose>
126<refdescription id="entry.colnum-desc">
127<para>If an <tag>entry</tag> has a
128<tag class="attribute">colname</tag> or
129<tag class="attribute">namest</tag> attribute, this template
130will determine the number of the column in which the entry should occur.
131For other <tag>entry</tag>s, nothing is returned.</para>
132</refdescription>
133<refparameter id="entry.colnum-params">
134<variablelist>
135<varlistentry><term>entry</term>
136<listitem>
137<para>The <tag>entry</tag>-element which is to be tested.</para>
138</listitem>
139</varlistentry>
140</variablelist>
141</refparameter>
142
143<refreturn id="entry.colnum-returns">
144<para>This template returns the column number if it can be determined,
145or 0 (the empty string)</para>
146</refreturn>
147</doc:template>
148
149<xsl:template name="colspec.colnum">
150  <xsl:param name="colspec" select="."/>
151  <xsl:choose>
152    <xsl:when test="$colspec/@colnum">
153      <xsl:value-of select="$colspec/@colnum"/>
154    </xsl:when>
155    <xsl:when test="$colspec/preceding-sibling::colspec">
156      <xsl:variable name="prec.colspec.colnum">
157        <xsl:call-template name="colspec.colnum">
158          <xsl:with-param name="colspec"
159                          select="$colspec/preceding-sibling::colspec[1]"/>
160        </xsl:call-template>
161      </xsl:variable>
162      <xsl:value-of select="$prec.colspec.colnum + 1"/>
163    </xsl:when>
164    <xsl:otherwise>1</xsl:otherwise>
165  </xsl:choose>
166</xsl:template>
167
168<xsl:template name="calculate.colspan">
169  <xsl:param name="entry" select="."/>
170  <xsl:variable name="spanname" select="$entry/@spanname"/>
171  <xsl:variable name="spanspec"
172                select="($entry/ancestor::tgroup/spanspec[@spanname=$spanname]
173                         |$entry/ancestor::entrytbl/spanspec[@spanname=$spanname])[last()]"/>
174
175  <xsl:variable name="namest">
176    <xsl:choose>
177      <xsl:when test="@spanname">
178        <xsl:value-of select="$spanspec/@namest"/>
179      </xsl:when>
180      <xsl:otherwise>
181        <xsl:value-of select="$entry/@namest"/>
182      </xsl:otherwise>
183    </xsl:choose>
184  </xsl:variable>
185
186  <xsl:variable name="nameend">
187    <xsl:choose>
188      <xsl:when test="@spanname">
189        <xsl:value-of select="$spanspec/@nameend"/>
190      </xsl:when>
191      <xsl:otherwise>
192        <xsl:value-of select="$entry/@nameend"/>
193      </xsl:otherwise>
194    </xsl:choose>
195  </xsl:variable>
196
197  <xsl:variable name="scol">
198    <xsl:call-template name="colspec.colnum">
199      <xsl:with-param name="colspec"
200                      select="($entry/ancestor::tgroup/colspec[@colname=$namest]
201                               |$entry/ancestor::entrytbl/colspec[@colname=$namest])[last()]"/>
202    </xsl:call-template>
203  </xsl:variable>
204
205  <xsl:variable name="ecol">
206    <xsl:call-template name="colspec.colnum">
207      <xsl:with-param name="colspec"
208                      select="($entry/ancestor::tgroup/colspec[@colname=$nameend]
209                               |$entry/ancestor::entrytbl/colspec[@colname=$nameend])[last()]"/>
210    </xsl:call-template>
211  </xsl:variable>
212
213  <xsl:choose>
214    <xsl:when test="$namest != '' and $nameend != ''">
215      <xsl:choose>
216        <xsl:when test="number($ecol) &gt;= number($scol)">
217          <xsl:value-of select="number($ecol) - number($scol) + 1"/>
218        </xsl:when>
219        <xsl:otherwise>
220          <xsl:value-of select="number($scol) - number($ecol) + 1"/>
221        </xsl:otherwise>
222      </xsl:choose>
223    </xsl:when>
224    <xsl:otherwise>1</xsl:otherwise>
225  </xsl:choose>
226</xsl:template>
227
228<xsl:template name="calculate.rowsep">
229  <xsl:param name="entry" select="."/>
230  <xsl:param name="colnum" select="0"/>
231
232  <xsl:call-template name="inherited.table.attribute">
233    <xsl:with-param name="entry" select="$entry"/>
234    <xsl:with-param name="colnum" select="$colnum"/>
235    <xsl:with-param name="attribute" select="'rowsep'"/>
236  </xsl:call-template>
237</xsl:template>
238
239<xsl:template name="calculate.colsep">
240  <xsl:param name="entry" select="."/>
241  <xsl:param name="colnum" select="0"/>
242
243  <xsl:call-template name="inherited.table.attribute">
244    <xsl:with-param name="entry" select="$entry"/>
245    <xsl:with-param name="colnum" select="$colnum"/>
246    <xsl:with-param name="attribute" select="'colsep'"/>
247  </xsl:call-template>
248</xsl:template>
249
250<xsl:template name="inherited.table.attribute">
251  <xsl:param name="entry" select="."/>
252  <xsl:param name="row" select="$entry/ancestor-or-self::row[1]"/>
253  <xsl:param name="colnum" select="0"/>
254  <xsl:param name="attribute" select="'colsep'"/>
255
256  <xsl:variable name="tgroup" select="$row/parent::*/parent::tgroup[1]"/>
257  <xsl:variable name="tbody" select="$row/parent::*[1]"/>
258
259  <xsl:variable name="table" select="($tgroup/ancestor::table
260                                     |$tgroup/ancestor::informaltable
261                                     |$entry/ancestor::entrytbl)[last()]"/>
262
263  <xsl:variable name="entry.value">
264    <xsl:call-template name="get-attribute">
265      <xsl:with-param name="element" select="$entry"/>
266      <xsl:with-param name="attribute" select="$attribute"/>
267    </xsl:call-template>
268  </xsl:variable>
269
270  <xsl:variable name="row.value">
271    <xsl:call-template name="get-attribute">
272      <xsl:with-param name="element" select="$row"/>
273      <xsl:with-param name="attribute" select="$attribute"/>
274    </xsl:call-template>
275  </xsl:variable>
276
277  <xsl:variable name="span.value">
278    <xsl:if test="$entry/@spanname">
279      <xsl:variable name="spanname" select="$entry/@spanname"/>
280      <xsl:variable name="spanspec"
281                    select="$tgroup/spanspec[@spanname=$spanname]"/>
282      <xsl:variable name="span.colspec"
283                    select="$tgroup/colspec[@colname=$spanspec/@namest]"/>
284
285      <xsl:variable name="spanspec.value">
286        <xsl:call-template name="get-attribute">
287          <xsl:with-param name="element" select="$spanspec"/>
288          <xsl:with-param name="attribute" select="$attribute"/>
289        </xsl:call-template>
290      </xsl:variable>
291
292      <xsl:variable name="scolspec.value">
293        <xsl:call-template name="get-attribute">
294          <xsl:with-param name="element" select="$span.colspec"/>
295          <xsl:with-param name="attribute" select="$attribute"/>
296        </xsl:call-template>
297      </xsl:variable>
298
299      <xsl:choose>
300        <xsl:when test="$spanspec.value != ''">
301          <xsl:value-of select="$spanspec.value"/>
302        </xsl:when>
303        <xsl:when test="$scolspec.value != ''">
304          <xsl:value-of select="$scolspec.value"/>
305        </xsl:when>
306        <xsl:otherwise></xsl:otherwise>
307      </xsl:choose>
308    </xsl:if>
309  </xsl:variable>
310
311  <xsl:variable name="namest.value">
312    <xsl:if test="$entry/@namest">
313      <xsl:variable name="namest" select="$entry/@namest"/>
314      <xsl:variable name="colspec"
315                    select="$tgroup/colspec[@colname=$namest]"/>
316
317      <xsl:variable name="inner.namest.value">
318        <xsl:call-template name="get-attribute">
319          <xsl:with-param name="element" select="$colspec"/>
320          <xsl:with-param name="attribute" select="$attribute"/>
321        </xsl:call-template>
322      </xsl:variable>
323
324      <xsl:choose>
325        <xsl:when test="$inner.namest.value">
326          <xsl:value-of select="$inner.namest.value"/>
327        </xsl:when>
328        <xsl:otherwise></xsl:otherwise>
329      </xsl:choose>
330    </xsl:if>
331  </xsl:variable>
332
333  <xsl:variable name="tgroup.value">
334    <xsl:call-template name="get-attribute">
335      <xsl:with-param name="element" select="$tgroup"/>
336      <xsl:with-param name="attribute" select="$attribute"/>
337    </xsl:call-template>
338  </xsl:variable>
339
340  <xsl:variable name="tbody.value">
341    <xsl:call-template name="get-attribute">
342      <xsl:with-param name="element" select="$tbody"/>
343      <xsl:with-param name="attribute" select="$attribute"/>
344    </xsl:call-template>
345  </xsl:variable>
346
347  <xsl:variable name="table.value">
348    <xsl:call-template name="get-attribute">
349      <xsl:with-param name="element" select="$table"/>
350      <xsl:with-param name="attribute" select="$attribute"/>
351    </xsl:call-template>
352  </xsl:variable>
353
354  <xsl:variable name="default.value">
355    <!-- This section used to say that rowsep and colsep have defaults based -->
356    <!-- on the frame setting. Further reflection and closer examination of the -->
357    <!-- CALS spec reveals I was mistaken. The default is "1" for rowsep and colsep. -->
358    <!-- For everything else, the default is the tgroup value -->
359    <xsl:choose>
360      <xsl:when test="$tgroup.value != ''">
361        <xsl:value-of select="$tgroup.value"/>
362      </xsl:when>
363      <xsl:when test="$attribute = 'rowsep'">1</xsl:when>
364      <xsl:when test="$attribute = 'colsep'">1</xsl:when>
365      <xsl:otherwise><!-- empty --></xsl:otherwise>
366    </xsl:choose>
367  </xsl:variable>
368
369  <xsl:variable name="calc.colvalue">
370    <xsl:if test="$colnum &gt; 0">
371      <xsl:call-template name="colnum.colspec">
372        <xsl:with-param name="colnum" select="$colnum"/>
373        <xsl:with-param name="attribute" select="$attribute"/>
374      </xsl:call-template>
375    </xsl:if>
376  </xsl:variable>
377
378  <xsl:choose>
379    <xsl:when test="$entry.value != ''">
380      <xsl:value-of select="$entry.value"/>
381    </xsl:when>
382    <xsl:when test="$row.value != ''">
383      <xsl:value-of select="$row.value"/>
384    </xsl:when>
385    <xsl:when test="$span.value != ''">
386      <xsl:value-of select="$span.value"/>
387    </xsl:when>
388    <xsl:when test="$namest.value != ''">
389      <xsl:value-of select="$namest.value"/>
390    </xsl:when>
391    <xsl:when test="$calc.colvalue != ''">
392      <xsl:value-of select="$calc.colvalue"/>
393    </xsl:when>
394    <xsl:when test="$tbody.value != ''">
395      <xsl:value-of select="$tbody.value"/>
396    </xsl:when>
397    <xsl:when test="$tgroup.value != ''">
398      <xsl:value-of select="$tgroup.value"/>
399    </xsl:when>
400    <xsl:when test="$table.value != ''">
401      <xsl:value-of select="$table.value"/>
402    </xsl:when>
403    <xsl:otherwise>
404      <xsl:value-of select="$default.value"/>
405    </xsl:otherwise>
406  </xsl:choose>
407</xsl:template>
408
409<xsl:template name="colnum.colspec">
410  <xsl:param name="colnum" select="0"/>
411  <xsl:param name="attribute" select="'colname'"/>
412  <xsl:param name="colspec.ancestor" 
413             select="(ancestor::tgroup|ancestor::entrytbl)
414                     [position() = last()]"/>
415  <xsl:param name="colspecs" select="$colspec.ancestor/colspec"/>
416  <xsl:param name="count" select="1"/>
417
418  <xsl:choose>
419    <xsl:when test="not($colspecs) or $count &gt; $colnum">
420      <!-- nop -->
421    </xsl:when>
422    <xsl:when test="$colspecs[1]/@colnum">
423      <xsl:choose>
424        <xsl:when test="$colspecs[1]/@colnum = $colnum">
425          <xsl:call-template name="get-attribute">
426            <xsl:with-param name="element" select="$colspecs[1]"/>
427            <xsl:with-param name="attribute" select="$attribute"/>
428          </xsl:call-template>
429        </xsl:when>
430        <xsl:otherwise>
431          <xsl:call-template name="colnum.colspec">
432            <xsl:with-param name="colnum" select="$colnum"/>
433            <xsl:with-param name="attribute" select="$attribute"/>
434            <xsl:with-param name="colspecs"
435                            select="$colspecs[position()&gt;1]"/>
436            <xsl:with-param name="count"
437                            select="$colspecs[1]/@colnum+1"/>
438          </xsl:call-template>
439        </xsl:otherwise>
440      </xsl:choose>
441    </xsl:when>
442    <xsl:otherwise>
443      <xsl:choose>
444        <xsl:when test="$count = $colnum">
445          <xsl:call-template name="get-attribute">
446            <xsl:with-param name="element" select="$colspecs[1]"/>
447            <xsl:with-param name="attribute" select="$attribute"/>
448          </xsl:call-template>
449        </xsl:when>
450        <xsl:otherwise>
451          <xsl:call-template name="colnum.colspec">
452            <xsl:with-param name="colnum" select="$colnum"/>
453            <xsl:with-param name="attribute" select="$attribute"/>
454            <xsl:with-param name="colspecs"
455                            select="$colspecs[position()&gt;1]"/>
456            <xsl:with-param name="count" select="$count+1"/>
457          </xsl:call-template>
458        </xsl:otherwise>
459      </xsl:choose>
460    </xsl:otherwise>
461  </xsl:choose>
462</xsl:template>
463
464<xsl:template name="get-attribute">
465  <xsl:param name="element" select="."/>
466  <xsl:param name="attribute" select="''"/>
467
468  <xsl:for-each select="$element/@*">
469    <xsl:if test="local-name(.) = $attribute">
470      <xsl:value-of select="."/>
471    </xsl:if>
472  </xsl:for-each>
473</xsl:template>
474
475<xsl:template name="consume-row">
476  <xsl:param name="spans"/>
477
478  <xsl:if test="contains($spans,':')">
479    <xsl:value-of select="substring-before($spans,':') - 1"/>
480    <xsl:text>:</xsl:text>
481    <xsl:call-template name="consume-row">
482      <xsl:with-param name="spans" select="substring-after($spans,':')"/>
483    </xsl:call-template>
484  </xsl:if>
485</xsl:template>
486
487<!-- Returns the table style for the context element -->
488<xsl:template name="tabstyle">
489  <xsl:param name="node" select="."/>
490
491  <xsl:variable name="tgroup" select="$node/tgroup[1] |
492                                      $node/ancestor-or-self::tgroup[1]"/>
493
494  <xsl:variable name="table" 
495                select="($node/ancestor-or-self::table |
496                         $node/ancestor-or-self::informaltable)[1]"/>
497
498  <xsl:variable name="tabstyle">
499    <xsl:choose>
500      <xsl:when test="$table/@tabstyle != ''">
501        <xsl:value-of select="normalize-space($table/@tabstyle)"/>
502      </xsl:when>
503      <xsl:when test="$tgroup/@tgroupstyle != ''">
504        <xsl:value-of select="normalize-space($tgroup/@tgroupstyle)"/>
505      </xsl:when>
506      <xsl:otherwise>
507      </xsl:otherwise>
508    </xsl:choose>
509  </xsl:variable>
510
511  <xsl:value-of select="$tabstyle"/>
512</xsl:template>
513
514</xsl:stylesheet>
Note: See TracBrowser for help on using the repository browser.