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 <xsl:param name="getterURL" select="'http://localhost:8081/'"/>
36 <xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
37 <!-- Keys contains the keys of the stylesheets to be applied following links-->
38 <xsl:param name="keys" select="'C1,HC2,L'"/>
39 <!-- Thkeys contains the keys of the stylesheets to be applied at the first
40 step for expanding objects -->
41 <xsl:param name="thkeys" select="'TC1,HC2,L'"/>
42 <xsl:param name="naturalLanguage" select="'yes'"/>
43 <xsl:param name="annotations" select="'no'"/>
44 <xsl:param name="media-type" select="'text/html'"/>
45 <xsl:param name="doctype-public" select="'-//W3C//DTD XHTML 1.0 Transitional//EN'"/>
46 <xsl:param name="encoding" select="'iso-8859-1'"/>
48 <xsl:variable name="absPath"><xsl:value-of select="$getterURL"/>getxml?uri=</xsl:variable>
50 <!-- quote() escapes white-spaces with %20 -->
51 <xsl:template name="quote">
52 <xsl:param name="s" select="''"/>
53 <xsl:param name="news" select="''"/>
55 <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
57 <xsl:variable name="char" select="substring($s,1,1)"/>
59 <xsl:when test="$char = ' '">
60 <xsl:call-template name="quote">
61 <xsl:with-param name="s" select="substring($s,2)"/>
62 <xsl:with-param name="news" select="concat($news,'%20')"/>
65 <xsl:when test="$char = '&'">
66 <xsl:call-template name="quote">
67 <xsl:with-param name="s" select="substring($s,2)"/>
68 <xsl:with-param name="news" select="concat($news,'%26')"/>
72 <xsl:call-template name="quote">
73 <xsl:with-param name="s" select="substring($s,2)"/>
74 <xsl:with-param name="news" select="concat($news,$char)"/>
82 <xsl:variable name="escaped-doctype-public">
83 <xsl:call-template name="quote">
84 <xsl:with-param name="s" select="$doctype-public"/>
88 <xsl:variable name="escaped-processorURL">
89 <xsl:call-template name="quote">
90 <xsl:with-param name="s" select="$processorURL"/>
94 <xsl:variable name="escaped-getterURL">
95 <xsl:call-template name="quote">
96 <xsl:with-param name="s" select="$getterURL"/>
100 <!-- makeURL() maps URIs into URLs -->
102 <xsl:variable name="header1"><xsl:value-of select="$processorURL"/>apply?keys=</xsl:variable>
103 <xsl:variable name="header2">&param.naturalLanguage=<xsl:value-of select="$naturalLanguage"/>&param.annotations=<xsl:value-of select="$annotations"/>&prop.media-type=<xsl:value-of select="$media-type"/>&param.media-type=<xsl:value-of select="$media-type"/>&prop.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&param.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&prop.encoding=<xsl:value-of select="$encoding"/>&param.encoding=<xsl:value-of select="$encoding"/>&param.keys=<xsl:value-of select="$keys"/>&param.getterURL=<xsl:value-of select="$escaped-getterURL"/>&param.processorURL=<xsl:value-of select="$escaped-processorURL"/>&xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
105 <xsl:template name="makeURL">
106 <xsl:param name="uri" select="''"/>
107 <xsl:param name="type" select="0"/>
108 <xsl:param name="theory" select="'no'"/>
109 <xsl:variable name="mythkeys">
111 <xsl:when test="$theory = 'yes'"><xsl:value-of select="$thkeys"/></xsl:when>
112 <xsl:otherwise><xsl:value-of select="$keys"/></xsl:otherwise>
115 <xsl:value-of select="concat(string($header1),string($mythkeys),string($header2),string($uri),'&param.CICURI=',string($uri),'&param.type=',string($type))"/>