2
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version='1.0'>
4
<!--############################################################################
5
XSLT Stylesheet DocBook -> LaTeX
6
############################################################################ -->
8
<xsl:template name="nolinkurl">
9
<xsl:param name="url" select="@url"/>
10
<xsl:text>\nolinkurl{</xsl:text>
11
<xsl:call-template name="scape-encode">
12
<xsl:with-param name="string" select="$url"/>
14
<xsl:text>}</xsl:text>
17
<!-- The funny thing is that in table cells, it fails if the URL ends with a
18
'\'. The workaround is to append a space. Moreover, the problem occurs only
19
if the ending '\'s are non a multiple of 2!
21
<xsl:template name="nolinkurl2">
22
<xsl:param name="url" select="@url"/>
23
<xsl:variable name="bscount">
24
<xsl:call-template name="bslash-end-count">
25
<xsl:with-param name="url" select="$url"/>
28
<xsl:text>\nolinkurl{</xsl:text>
29
<xsl:call-template name="scape-encode">
30
<xsl:with-param name="string" select="$url"/>
32
<xsl:if test="$bscount mod 2">
33
<xsl:text> </xsl:text>
35
<xsl:text>}</xsl:text>
39
<!-- Count the number of '\' ending the url (only for entries) -->
40
<xsl:template name="bslash-end-count">
41
<xsl:param name="count" select="0"/>
42
<xsl:param name="url"/>
45
<xsl:when test="$url = ''">
46
<xsl:value-of select="$count"/>
48
<xsl:when test="substring($url,string-length($url))='\'">
49
<xsl:call-template name="bslash-end-count">
50
<xsl:with-param name="url" select="substring($url,1,string-length($url)-1)"/>
51
<xsl:with-param name="count" select="$count + 1"/>
55
<xsl:value-of select="$count"/>
61
<!-- Only URLs in table cells must be escaped (mostly because of multicolumn) -->
62
<xsl:template name="nolinkurl-output">
63
<xsl:param name="url" select="@url"/>
65
<xsl:when test="ancestor::entry or ancestor::revision">
66
<xsl:call-template name="nolinkurl-escape">
67
<xsl:with-param name="url" select="$url"/>
69
<!-- FIXME: do something with '&' and revision if needed -->
72
<xsl:call-template name="nolinkurl">
73
<xsl:with-param name="url" select="$url"/>
80
<!-- Find the first special char position in the string -->
81
<xsl:template name="find-first">
82
<xsl:param name="string"/>
83
<xsl:param name="chars" select="'#%'"/>
86
<xsl:when test="$string = ''">
87
<xsl:value-of select="0"/>
89
<xsl:when test="string-length($chars)=1">
91
<xsl:when test="contains($string, $chars)">
92
<xsl:value-of select="string-length(substring-before($string, $chars))"/>
95
<xsl:value-of select="string-length($string)"/>
100
<xsl:variable name="charset" select="substring($chars, 2)"/>
101
<xsl:variable name="char" select="substring($chars, 1, 1)"/>
103
<xsl:when test="contains($string, $char)">
104
<xsl:call-template name="find-first">
105
<xsl:with-param name="string" select="substring-before($string, $char)"/>
106
<xsl:with-param name="chars" select="$charset"/>
110
<xsl:call-template name="find-first">
111
<xsl:with-param name="string" select="$string"/>
112
<xsl:with-param name="chars" select="$charset"/>
120
<xsl:template name="nolinkurl-escape">
121
<xsl:param name="escchars"/>
122
<xsl:param name="url"/>
124
<xsl:variable name="len" select="string-length($url)"/>
126
<xsl:variable name="pos">
127
<xsl:call-template name="find-first">
128
<xsl:with-param name="string" select="$url"/>
133
<xsl:when test="$pos = $len">
134
<xsl:if test="$escchars != ''">
135
<xsl:text>\texttt{</xsl:text>
136
<xsl:value-of select="$escchars"/>
137
<xsl:text>}</xsl:text>
139
<xsl:if test="$len != 0">
140
<xsl:call-template name="nolinkurl2">
141
<xsl:with-param name="url" select="$url"/>
145
<xsl:when test="$pos = 0">
146
<xsl:call-template name="nolinkurl-escape">
147
<xsl:with-param name="escchars"
148
select="concat($escchars, '\', substring($url,1,1))"/>
149
<xsl:with-param name="url" select="substring($url, 2)"/>
153
<xsl:if test="$escchars != ''">
154
<xsl:text>\texttt{</xsl:text>
155
<xsl:value-of select="$escchars"/>
156
<xsl:text>}</xsl:text>
158
<xsl:call-template name="nolinkurl2">
159
<xsl:with-param name="url" select="substring($url, 1, $pos)"/>
161
<xsl:call-template name="nolinkurl-escape">
162
<xsl:with-param name="escchars"
163
select="concat('\', substring($url,$pos+1,1))"/>
164
<xsl:with-param name="url" select="substring($url, $pos+2)"/>
171
<!-- Template for a unit-test:
173
<nolinkurl>ab%cde%#%fg</nolinkurl>
174
<nolinkurl>#ab%cde%#%fg###</nolinkurl>
175
<nolinkurl>nothing special</nolinkurl>
177
<nolinkurl>ab%cde%#%fg</nolinkurl>
178
<nolinkurl>#%#ab%cde%#%fg###</nolinkurl>
179
<nolinkurl>nothing special</nolinkurl>
180
<nolinkurl>#########</nolinkurl>
181
<nolinkurl>%%%%%%%%%</nolinkurl>
182
<nolinkurl>#%#%%#%##</nolinkurl>
186
<xsl:template match="nolinkurl">
187
<xsl:call-template name="nolinkurl-output">
188
<xsl:with-param name="url" select="."/>