source: clfs-embedded/BOOK/stylesheets/lfs-xsl/docbook-xsl-snapshot/xhtml/html-rtf.xsl@ b057d7e2

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

Added the new lfs-xsl stylesheets.
  • Property mode set to 100644
File size: 11.1 KB
Line 
1<?xml version="1.0" encoding="ASCII"?>
2<!--This file was created automatically by html2xhtml-->
3<!--from the HTML stylesheets.-->
4<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:exsl="http://exslt.org/common" xmlns:set="http://exslt.org/sets" xmlns="http://www.w3.org/1999/xhtml" exclude-result-prefixes="exsl set" version="1.0">
5
6<!-- ********************************************************************
7 $Id$
8 ********************************************************************
9
10 This file is part of the XSL DocBook Stylesheet distribution.
11 See ../README or http://docbook.sf.net/release/xsl/current/ for
12 copyright and other information.
13
14 ******************************************************************** -->
15
16<!-- ==================================================================== -->
17
18<!-- This module contains templates that match against HTML nodes. It is used
19 to post-process result tree fragments for some sorts of cleanup.
20 These templates can only ever be fired by a processor that supports
21 exslt:node-set(). -->
22
23<!-- ==================================================================== -->
24
25<!-- insert.html.p mode templates insert a particular RTF at the beginning
26 of the first paragraph in the primary RTF. -->
27
28<xsl:template match="/" mode="insert.html.p">
29 <xsl:param name="mark" select="'?'"/>
30 <xsl:apply-templates mode="insert.html.p">
31 <xsl:with-param name="mark" select="$mark"/>
32 </xsl:apply-templates>
33</xsl:template>
34
35<xsl:template match="*" mode="insert.html.p">
36 <xsl:param name="mark" select="'?'"/>
37 <xsl:copy>
38 <xsl:copy-of select="@*"/>
39 <xsl:apply-templates mode="insert.html.p">
40 <xsl:with-param name="mark" select="$mark"/>
41 </xsl:apply-templates>
42 </xsl:copy>
43</xsl:template>
44
45<xsl:template xmlns:html="http://www.w3.org/1999/xhtml" match="html:p|p" mode="insert.html.p">
46 <xsl:param name="mark" select="'?'"/>
47 <xsl:copy>
48 <xsl:copy-of select="@*"/>
49 <xsl:if test="not(preceding::p|preceding::html:p)">
50 <xsl:copy-of select="$mark"/>
51 </xsl:if>
52 <xsl:apply-templates mode="insert.html.p">
53 <xsl:with-param name="mark" select="$mark"/>
54 </xsl:apply-templates>
55 </xsl:copy>
56</xsl:template>
57
58<xsl:template match="text()|processing-instruction()|comment()" mode="insert.html.p">
59 <xsl:param name="mark" select="'?'"/>
60 <xsl:copy/>
61</xsl:template>
62
63<!-- ==================================================================== -->
64
65<!-- insert.html.text mode templates insert a particular RTF at the beginning
66 of the first text-node in the primary RTF. -->
67
68<xsl:template match="/" mode="insert.html.text">
69 <xsl:param name="mark" select="'?'"/>
70 <xsl:apply-templates mode="insert.html.text">
71 <xsl:with-param name="mark" select="$mark"/>
72 </xsl:apply-templates>
73</xsl:template>
74
75<xsl:template match="*" mode="insert.html.text">
76 <xsl:param name="mark" select="'?'"/>
77 <xsl:copy>
78 <xsl:copy-of select="@*"/>
79 <xsl:apply-templates mode="insert.html.text">
80 <xsl:with-param name="mark" select="$mark"/>
81 </xsl:apply-templates>
82 </xsl:copy>
83</xsl:template>
84
85<xsl:template match="text()|processing-instruction()|comment()" mode="insert.html.text">
86 <xsl:param name="mark" select="'?'"/>
87
88 <xsl:if test="not(preceding::text())">
89 <xsl:copy-of select="$mark"/>
90 </xsl:if>
91
92 <xsl:copy/>
93</xsl:template>
94
95<xsl:template match="processing-instruction()|comment()" mode="insert.html.text">
96 <xsl:param name="mark" select="'?'"/>
97 <xsl:copy/>
98</xsl:template>
99
100<!-- ==================================================================== -->
101
102<!-- unwrap.p mode templates remove blocks from HTML p elements (and
103 other places where blocks aren't allowed) -->
104
105<xsl:template name="unwrap.p">
106 <xsl:param name="p"/>
107 <xsl:choose>
108 <xsl:when test="function-available('exsl:node-set') and function-available('set:leading') and function-available('set:trailing')">
109 <xsl:apply-templates select="exsl:node-set($p)" mode="unwrap.p"/>
110 </xsl:when>
111 <xsl:otherwise>
112 <xsl:copy-of select="$p"/>
113 </xsl:otherwise>
114 </xsl:choose>
115</xsl:template>
116
117<xsl:template xmlns:html="http://www.w3.org/1999/xhtml" match="html:p|p" mode="unwrap.p">
118 <!-- xmlns:html is necessary for the xhtml stylesheet case -->
119 <xsl:variable name="blocks" select="address|blockquote|div|hr|h1|h2|h3|h4|h5|h6 |layer|p|pre|table|dl|menu|ol|ul|form |html:address|html:blockquote|html:div|html:hr |html:h1|html:h2|html:h3|html:h4|html:h5|html:h6 |html:layer|html:p|html:pre|html:table|html:dl |html:menu|html:ol|html:ul|html:form"/>
120 <xsl:choose>
121 <xsl:when test="$blocks">
122 <xsl:call-template name="unwrap.p.nodes">
123 <xsl:with-param name="wrap" select="."/>
124 <xsl:with-param name="first" select="1"/>
125 <xsl:with-param name="nodes" select="node()"/>
126 <xsl:with-param name="blocks" select="$blocks"/>
127 </xsl:call-template>
128 </xsl:when>
129 <xsl:otherwise>
130 <xsl:copy>
131 <xsl:copy-of select="@*"/>
132 <xsl:apply-templates mode="unwrap.p"/>
133 </xsl:copy>
134 </xsl:otherwise>
135 </xsl:choose>
136</xsl:template>
137
138<xsl:template match="*" mode="unwrap.p">
139 <xsl:copy>
140 <xsl:copy-of select="@*"/>
141 <xsl:apply-templates mode="unwrap.p"/>
142 </xsl:copy>
143</xsl:template>
144
145<xsl:template match="text()|processing-instruction()|comment()" mode="unwrap.p">
146 <xsl:copy/>
147</xsl:template>
148
149<xsl:template name="unwrap.p.nodes">
150 <xsl:param name="wrap" select="."/>
151 <xsl:param name="first" select="0"/>
152 <xsl:param name="nodes"/>
153 <xsl:param name="blocks"/>
154 <xsl:variable name="block" select="$blocks[1]"/>
155
156 <!-- This template should never get called if these functions aren't available -->
157 <!-- but this test is still necessary so that processors don't choke on the -->
158 <!-- function calls if they don't support the set: functions -->
159 <xsl:if test="function-available('set:leading') and function-available('set:trailing')">
160 <xsl:choose>
161 <xsl:when test="$blocks">
162 <xsl:variable name="leading" select="set:leading($nodes,$block)"/>
163 <xsl:variable name="trailing" select="set:trailing($nodes,$block)"/>
164
165 <xsl:if test="(($wrap/@id or $wrap/@xml:id) and $first = 1) or $leading">
166 <xsl:element name="{local-name($wrap)}" namespace="http://www.w3.org/1999/xhtml">
167 <xsl:for-each select="$wrap/@*">
168 <xsl:if test="$first != 0 or local-name(.) != 'id'">
169 <xsl:copy/>
170 </xsl:if>
171 </xsl:for-each>
172 <xsl:apply-templates select="$leading" mode="unwrap.p"/>
173 </xsl:element>
174 </xsl:if>
175
176 <xsl:apply-templates select="$block" mode="unwrap.p"/>
177
178 <xsl:if test="$trailing">
179 <xsl:call-template name="unwrap.p.nodes">
180 <xsl:with-param name="wrap" select="$wrap"/>
181 <xsl:with-param name="nodes" select="$trailing"/>
182 <xsl:with-param name="blocks" select="$blocks[position() &gt; 1]"/>
183 </xsl:call-template>
184 </xsl:if>
185 </xsl:when>
186
187 <xsl:otherwise>
188 <xsl:if test="(($wrap/@id or $wrap/@xml:id) and $first = 1) or $nodes">
189 <xsl:element name="{local-name($wrap)}" namespace="http://www.w3.org/1999/xhtml">
190 <xsl:for-each select="$wrap/@*">
191 <xsl:if test="$first != 0 or local-name(.) != 'id'">
192 <xsl:copy/>
193 </xsl:if>
194 </xsl:for-each>
195 <xsl:apply-templates select="$nodes" mode="unwrap.p"/>
196 </xsl:element>
197 </xsl:if>
198 </xsl:otherwise>
199 </xsl:choose>
200 </xsl:if>
201</xsl:template>
202
203<!-- ==================================================================== -->
204<!-- make.verbatim.mode replaces spaces and newlines -->
205
206<xsl:template match="/" mode="make.verbatim.mode">
207 <xsl:apply-templates mode="make.verbatim.mode"/>
208</xsl:template>
209
210<xsl:template match="*" mode="make.verbatim.mode">
211 <xsl:copy>
212 <xsl:copy-of select="@*"/>
213 <xsl:apply-templates mode="make.verbatim.mode"/>
214 </xsl:copy>
215</xsl:template>
216
217<xsl:template match="processing-instruction()|comment()" mode="make.verbatim.mode">
218 <xsl:copy/>
219</xsl:template>
220
221<xsl:template match="text()" mode="make.verbatim.mode">
222 <xsl:variable name="text" select="translate(., ' ', '&#160;')"/>
223
224 <xsl:choose>
225 <xsl:when test="not(contains($text, '&#10;'))">
226 <xsl:value-of select="$text"/>
227 </xsl:when>
228
229 <xsl:otherwise>
230 <xsl:variable name="len" select="string-length($text)"/>
231
232 <xsl:choose>
233 <xsl:when test="$len = 1">
234 <br/><xsl:text>
235</xsl:text>
236 </xsl:when>
237
238 <xsl:otherwise>
239 <xsl:variable name="half" select="$len div 2"/>
240 <xsl:call-template name="make-verbatim-recursive">
241 <xsl:with-param name="text" select="substring($text, 1, $half)"/>
242 </xsl:call-template>
243 <xsl:call-template name="make-verbatim-recursive">
244 <xsl:with-param name="text" select="substring($text, ($half + 1), $len)"/>
245 </xsl:call-template>
246 </xsl:otherwise>
247 </xsl:choose>
248 </xsl:otherwise>
249 </xsl:choose>
250</xsl:template>
251
252<xsl:template name="make-verbatim-recursive">
253 <xsl:param name="text" select="''"/>
254
255 <xsl:choose>
256 <xsl:when test="not(contains($text, '&#10;'))">
257 <xsl:value-of select="$text"/>
258 </xsl:when>
259
260 <xsl:otherwise>
261 <xsl:variable name="len" select="string-length($text)"/>
262
263 <xsl:choose>
264 <xsl:when test="$len = 1">
265 <br/><xsl:text>
266</xsl:text>
267 </xsl:when>
268
269 <xsl:otherwise>
270 <xsl:variable name="half" select="$len div 2"/>
271 <xsl:call-template name="make-verbatim-recursive">
272 <xsl:with-param name="text" select="substring($text, 1, $half)"/>
273 </xsl:call-template>
274 <xsl:call-template name="make-verbatim-recursive">
275 <xsl:with-param name="text" select="substring($text, ($half + 1), $len)"/>
276 </xsl:call-template>
277 </xsl:otherwise>
278 </xsl:choose>
279 </xsl:otherwise>
280 </xsl:choose>
281</xsl:template>
282
283<!-- ==================================================================== -->
284
285<!-- remove.empty.div mode templates remove empty blocks -->
286
287<xsl:template name="remove.empty.div">
288 <xsl:param name="div"/>
289 <xsl:choose>
290 <xsl:when test="function-available('exsl:node-set')">
291 <xsl:apply-templates select="exsl:node-set($div)" mode="remove.empty.div"/>
292 </xsl:when>
293 <xsl:otherwise>
294 <xsl:copy-of select="$div"/>
295 </xsl:otherwise>
296 </xsl:choose>
297</xsl:template>
298
299<xsl:template xmlns:html="http://www.w3.org/1999/xhtml" match="html:p|p|html:div|div" mode="remove.empty.div">
300 <xsl:if test="node()">
301 <xsl:copy>
302 <xsl:copy-of select="@*"/>
303 <xsl:apply-templates mode="remove.empty.div"/>
304 </xsl:copy>
305 </xsl:if>
306</xsl:template>
307
308<xsl:template match="*" mode="remove.empty.div">
309 <xsl:copy>
310 <xsl:copy-of select="@*"/>
311 <xsl:apply-templates mode="remove.empty.div"/>
312 </xsl:copy>
313</xsl:template>
314
315<xsl:template match="text()|processing-instruction()|comment()" mode="remove.empty.div">
316 <xsl:copy/>
317</xsl:template>
318
319<!-- ==================================================================== -->
320
321</xsl:stylesheet>
Note: See TracBrowser for help on using the repository browser.