3 <!-- Copyright (C) 2000, HELM Team -->
5 <!-- This file is part of HELM, an Hypertextual, Electronic -->
6 <!-- Library of Mathematics, developed at the Computer Science -->
7 <!-- Department, University of Bologna, Italy. -->
9 <!-- HELM is free software; you can redistribute it and/or -->
10 <!-- modify it under the terms of the GNU General Public License -->
11 <!-- as published by the Free Software Foundation; either version 2 -->
12 <!-- of the License, or (at your option) any later version. -->
14 <!-- HELM is distributed in the hope that it will be useful, -->
15 <!-- but WITHOUT ANY WARRANTY; without even the implied warranty of -->
16 <!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -->
17 <!-- GNU General Public License for more details. -->
19 <!-- You should have received a copy of the GNU General Public License -->
20 <!-- along with HELM; if not, write to the Free Software -->
21 <!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, -->
22 <!-- MA 02111-1307, USA. -->
24 <!-- For details, see the HELM World-Wide-Web page, -->
25 <!-- http://cs.unibo.it/helm/. -->
27 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
28 xmlns:m="http://www.w3.org/1998/Math/MathML">
30 <!--***********************************************************************-->
31 <!-- auxiliary functions -->
32 <!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
33 <!--***********************************************************************-->
35 <!-- * is used for objects -->
36 <!-- th* is used for theories -->
37 <!-- embed* is used for objects embedded in theories -->
39 <xsl:param name="getterURL" select="'http://localhost:8081/'"/>
40 <xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
41 <!-- URL to the frameset (control + output) -->
42 <xsl:param name="interfaceURL" select="''"/>
43 <xsl:param name="thinterfaceURL" select="''"/>
45 <xsl:param name="keys" select="'C1,HC2,L'"/>
46 <xsl:param name="embedkeys" select="'TC1,HC2,L'"/>
47 <xsl:param name="thkeys" select="'T1,T2,L,E'"/>
49 <xsl:param name="naturalLanguage" select="'yes'"/>
50 <xsl:param name="annotations" select="'no'"/>
52 <xsl:param name="media-type" select="'text/html'"/>
53 <xsl:param name="thmedia-type" select="'text/html'"/>
54 <xsl:param name="doctype-public" select="'-//W3C//DTD XHTML 1.0 Transitional//EN'"/>
55 <xsl:param name="encoding" select="'iso-8859-1'"/>
56 <xsl:param name="thencoding" select="'iso-8859-1'"/>
59 <xsl:template name="quote">
60 <xsl:param name="s" select="''"/>
61 <xsl:param name="news" select="''"/>
63 <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
65 <xsl:variable name="char" select="substring($s,1,1)"/>
67 <xsl:when test="$char = ' '">
68 <xsl:call-template name="quote">
69 <xsl:with-param name="s" select="substring($s,2)"/>
70 <xsl:with-param name="news" select="concat($news,'%20')"/>
73 <xsl:when test="$char = '&'">
74 <xsl:call-template name="quote">
75 <xsl:with-param name="s" select="substring($s,2)"/>
76 <xsl:with-param name="news" select="concat($news,'%26')"/>
79 <xsl:when test="$char = '?'">
80 <xsl:call-template name="quote">
81 <xsl:with-param name="s" select="substring($s,2)"/>
82 <xsl:with-param name="news" select="concat($news,'%3F')"/>
85 <xsl:when test="$char = '='">
86 <xsl:call-template name="quote">
87 <xsl:with-param name="s" select="substring($s,2)"/>
88 <xsl:with-param name="news" select="concat($news,'%3D')"/>
91 <xsl:when test="$char = '%'">
92 <xsl:call-template name="quote">
93 <xsl:with-param name="s" select="substring($s,2)"/>
94 <xsl:with-param name="news" select="concat($news,'%25')"/>
97 <xsl:when test="$char = ','">
98 <xsl:call-template name="quote">
99 <xsl:with-param name="s" select="substring($s,2)"/>
100 <xsl:with-param name="news" select="concat($news,'%2C')"/>
103 <!--CSC: This breaks all the rest ;-)
104 <xsl:when test="$char = ':'">
105 <xsl:call-template name="quote">
106 <xsl:with-param name="s" select="substring($s,2)"/>
107 <xsl:with-param name="news" select="concat($news,'%3A')"/>
112 <xsl:call-template name="quote">
113 <xsl:with-param name="s" select="substring($s,2)"/>
114 <xsl:with-param name="news" select="concat($news,$char)"/>
122 <xsl:variable name="absPath">
123 <xsl:call-template name="quote">
124 <xsl:with-param name="s"><xsl:value-of select="$getterURL"/>getxml?uri=</xsl:with-param>
128 <xsl:variable name="escaped-doctype-public">
129 <xsl:call-template name="quote">
130 <xsl:with-param name="s" select="$doctype-public"/>
134 <xsl:variable name="escaped-processorURL">
135 <xsl:call-template name="quote">
136 <xsl:with-param name="s" select="$processorURL"/>
140 <xsl:variable name="escaped-getterURL">
141 <xsl:call-template name="quote">
142 <xsl:with-param name="s" select="$getterURL"/>
146 <xsl:variable name="escaped-interfaceURL">
147 <xsl:call-template name="quote">
148 <xsl:with-param name="s" select="$interfaceURL"/>
152 <xsl:variable name="escaped-thinterfaceURL">
153 <xsl:call-template name="quote">
154 <xsl:with-param name="s" select="$thinterfaceURL"/>
158 <xsl:variable name="quotedthkeys">
159 <xsl:call-template name="quote">
160 <xsl:with-param name="s" select="$thkeys"/>
164 <xsl:variable name="quotedembedkeys">
165 <xsl:call-template name="quote">
166 <xsl:with-param name="s" select="$embedkeys"/>
170 <xsl:variable name="quotedkeys">
171 <xsl:call-template name="quote">
172 <xsl:with-param name="s" select="$keys"/>
176 <xsl:variable name="quotedquotedkeys">
177 <xsl:call-template name="quote">
178 <xsl:with-param name="s" select="$quotedkeys"/>
182 <xsl:variable name="quotedquotedthkeys">
183 <xsl:call-template name="quote">
184 <xsl:with-param name="s" select="$quotedthkeys"/>
188 <xsl:variable name="quotedquotedembedkeys">
189 <xsl:call-template name="quote">
190 <xsl:with-param name="s" select="$quotedembedkeys"/>
194 <xsl:variable name="header0"><xsl:value-of select="$interfaceURL"/>?url=</xsl:variable>
195 <xsl:variable name="thheader0"><xsl:value-of select="$thinterfaceURL"/>?url=</xsl:variable>
196 <xsl:variable name="header1"><xsl:value-of select="$escaped-processorURL"/>apply?keys=</xsl:variable>
197 <xsl:variable name="bothheader2">&param.naturalLanguage=<xsl:value-of select="$naturalLanguage"/>&param.annotations=<xsl:value-of select="$annotations"/>&prop.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&param.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&param.encoding=<xsl:value-of select="$encoding"/>&param.media-type=<xsl:value-of select="$media-type"/>&param.keys=<xsl:value-of select="$quotedkeys"/>&param.getterURL=<xsl:value-of select="$escaped-getterURL"/>&param.processorURL=<xsl:value-of select="$escaped-processorURL"/>&param.interfaceURL=<xsl:value-of select="$escaped-interfaceURL"/>&xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
198 <xsl:variable name="header2">&prop.media-type=<xsl:value-of select="$media-type"/>&prop.encoding=<xsl:value-of select="$encoding"/></xsl:variable>
199 <xsl:variable name="thheader2">&prop.media-type=<xsl:value-of select="$thmedia-type"/>&param.thmedia-type=<xsl:value-of select="$thmedia-type"/>&param.thkeys=<xsl:value-of select="$quotedthkeys"/>&param.embedkeys=<xsl:value-of select="$quotedembedkeys"/>&param.thinterfaceURL=<xsl:value-of select="$escaped-thinterfaceURL"/>&param.thencoding=<xsl:value-of select="$thencoding"/>&prop.encoding=<xsl:value-of select="$thencoding"/></xsl:variable>
201 <xsl:variable name="quotedheader1">
202 <xsl:call-template name="quote">
203 <xsl:with-param name="s" select="$header1"/>
207 <xsl:variable name="quotedbothheader2">
208 <xsl:call-template name="quote">
209 <xsl:with-param name="s" select="$bothheader2"/>
213 <xsl:variable name="quotedheader2">
214 <xsl:call-template name="quote">
215 <xsl:with-param name="s" select="$header2"/>
219 <xsl:variable name="quotedthheader2">
220 <xsl:call-template name="quote">
221 <xsl:with-param name="s" select="$thheader2"/>
225 <!-- makeURL() maps URIs into URLs -->
226 <!-- The target of the URL is the whole frameset -->
228 <xsl:variable name="biquotedfixedheader">
229 <xsl:value-of select="$header0"/>
230 <xsl:value-of select="$quotedheader1"/>
231 <xsl:value-of select="$quotedquotedkeys"/>
232 <xsl:value-of select="$quotedheader2"/>
233 <xsl:value-of select="$quotedbothheader2"/>
236 <xsl:variable name="biquotedthfixedheader">
237 <xsl:value-of select="$thheader0"/>
238 <xsl:value-of select="$quotedheader1"/>
239 <xsl:value-of select="$quotedquotedthkeys"/>
240 <xsl:value-of select="$quotedthheader2"/>
241 <xsl:value-of select="$quotedbothheader2"/>
244 <!-- NOTE: embedkeys and thkeys are propagated, but we are sure that -->
245 <!-- they won't never be used. -->
246 <!--CSC: fixare il punto sopra!!! -->
247 <!-- type, instead, is not propagated -->
248 <xsl:template name="makeURL">
249 <xsl:param name="uri" select="''"/>
250 <xsl:variable name="uri_after_sharp" select="substring-after($uri,'#')"/>
251 <xsl:variable name="cleanuri">
253 <xsl:when test="$uri_after_sharp">
254 <xsl:value-of select="substring-before($uri,'#')"/>
257 <xsl:value-of select="$uri"/>
261 <xsl:variable name="sharpsuffix">
263 <xsl:when test="$uri_after_sharp">%23<xsl:value-of select="$uri_after_sharp"/></xsl:when>
264 <xsl:otherwise></xsl:otherwise>
267 <xsl:value-of select="$biquotedfixedheader"/>
268 <xsl:value-of select="$cleanuri"/>%26param.CICURI%3D<xsl:value-of select="$cleanuri"/>
269 <xsl:value-of select="$sharpsuffix"/>
272 <xsl:template name="makeTheoryURL">
273 <xsl:param name="uri" select="''"/>
274 <xsl:variable name="uri_after_sharp" select="substring-after($uri,'#')"/>
275 <xsl:variable name="cleanuri">
277 <xsl:when test="$uri_after_sharp">
278 <xsl:value-of select="substring-before($uri,'#')"/>
281 <xsl:value-of select="$uri"/>
285 <xsl:variable name="sharpsuffix">
287 <xsl:when test="$uri_after_sharp">%23<xsl:value-of select="$uri_after_sharp"/></xsl:when>
288 <xsl:otherwise></xsl:otherwise>
291 <xsl:value-of select="$biquotedthfixedheader"/>
292 <xsl:value-of select="$cleanuri"/>%26param.CICURI%3D<xsl:value-of select="$cleanuri"/>
293 <xsl:value-of select="$sharpsuffix"/>
296 <!-- makeURL4embedding() maps URIs into URLs -->
297 <!-- The target of the URL is only the processed document -->
299 <xsl:template name="makeURL4embedding">
300 <xsl:param name="uri" select="''"/>
301 <xsl:param name="type" select="'standalone'"/>
302 <xsl:variable name="cleanuri">
304 <xsl:when test="$uri_after_sharp">
305 <xsl:value-of select="substring-before($uri,'#')"/>
308 <xsl:value-of select="$uri"/>
312 <xsl:variable name="sharpsuffix">
314 <xsl:when test="$uri_after_sharp">%23<xsl:value-of select="$uri_after_sharp"/></xsl:when>
315 <xsl:otherwise></xsl:otherwise>
318 <xsl:value-of select="$header1"/>
319 <xsl:value-of select="$quotedembedkeys"/>
320 <xsl:value-of select="$header2"/>
321 <xsl:value-of select="$bothheader2"/>
322 <xsl:value-of select="$cleanuri"/>&param.CICURI=<xsl:value-of select="$cleanuri"/>&param.type=<xsl:value-of select="$type"/>
323 <xsl:value-of select="$sharpsuffix"/>