helm/style/links_library.xsl

   1 <?xml version="1.0"?>
   2
   3 <!-- Copyright (C) 2000, HELM Team                                     -->
   4 <!--                                                                   -->
   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.                         -->
   8 <!--                                                                   -->
   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.            -->
  13 <!--                                                                   -->
  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.                      -->
  18 <!--                                                                   -->
  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.                                              -->
  23 <!--                                                                   -->
  24 <!-- For details, see the HELM World-Wide-Web page,                    -->
  25 <!-- http://cs.unibo.it/helm/.                                         -->
  26
  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">
  29
  30 <!--***********************************************************************-->
  31 <!-- auxiliary functions                                                   -->
  32 <!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                      -->
  33 <!--***********************************************************************-->
  34
  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'"/>
  47
  48 <xsl:template name="quote">
  49  <xsl:param name="s" select="''"/>
  50  <xsl:param name="news" select="''"/>
  51  <xsl:choose>
  52   <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
  53   <xsl:otherwise>
  54    <xsl:variable name="char" select="substring($s,1,1)"/>
  55    <xsl:choose>
  56     <xsl:when test="$char = ' '">
  57      <xsl:call-template name="quote">
  58       <xsl:with-param name="s" select="substring($s,2)"/>
  59       <xsl:with-param name="news" select="concat($news,'%20')"/>
  60      </xsl:call-template>
  61     </xsl:when>
  62     <xsl:when test="$char = '&amp;'">
  63      <xsl:call-template name="quote">
  64       <xsl:with-param name="s" select="substring($s,2)"/>
  65       <xsl:with-param name="news" select="concat($news,'%26')"/>
  66      </xsl:call-template>
  67     </xsl:when>
  68     <xsl:when test="$char = '?'">
  69      <xsl:call-template name="quote">
  70       <xsl:with-param name="s" select="substring($s,2)"/>
  71       <xsl:with-param name="news" select="concat($news,'%3F')"/>
  72      </xsl:call-template>
  73     </xsl:when>
  74     <xsl:otherwise>
  75      <xsl:call-template name="quote">
  76       <xsl:with-param name="s" select="substring($s,2)"/>
  77       <xsl:with-param name="news" select="concat($news,$char)"/>
  78      </xsl:call-template>
  79     </xsl:otherwise>
  80    </xsl:choose>
  81   </xsl:otherwise>
  82  </xsl:choose>
  83 </xsl:template>
  84
  85 <xsl:variable name="absPath">
  86  <xsl:call-template name="quote">
  87   <xsl:with-param name="s"><xsl:value-of select="$getterURL"/>getxml?uri=</xsl:with-param>
  88  </xsl:call-template>
  89 </xsl:variable>
  90
  91 <xsl:variable name="escaped-doctype-public">
  92  <xsl:call-template name="quote">
  93   <xsl:with-param name="s" select="$doctype-public"/>
  94  </xsl:call-template>
  95 </xsl:variable>
  96
  97 <xsl:variable name="escaped-processorURL">
  98  <xsl:call-template name="quote">
  99   <xsl:with-param name="s" select="$processorURL"/>
 100  </xsl:call-template>
 101 </xsl:variable>
 102
 103 <xsl:variable name="escaped-getterURL">
 104  <xsl:call-template name="quote">
 105   <xsl:with-param name="s" select="$getterURL"/>
 106  </xsl:call-template>
 107 </xsl:variable>
 108
 109 <!-- makeURL() maps URIs into URLs -->
 110
 111 <xsl:variable name="header1"><xsl:value-of select="$processorURL"/>apply?keys=</xsl:variable>
 112 <xsl:variable name="header2">&#x26;param.naturalLanguage=<xsl:value-of select="$naturalLanguage"/>&#x26;param.annotations=<xsl:value-of select="$annotations"/>&#x26;prop.media-type=<xsl:value-of select="$media-type"/>&#x26;param.media-type=<xsl:value-of select="$media-type"/>&#x26;prop.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;param.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;prop.encoding=<xsl:value-of select="$encoding"/>&#x26;param.encoding=<xsl:value-of select="$encoding"/>&#x26;param.keys=<xsl:value-of select="$keys"/>&#x26;param.getterURL=<xsl:value-of select="$escaped-getterURL"/>&#x26;param.processorURL=<xsl:value-of select="$escaped-processorURL"/>&#x26;xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
 113
 114 <xsl:template name="makeURL">
 115 <xsl:param name="uri" select="''"/>
 116 <xsl:param name="type" select="0"/>
 117 <xsl:param name="theory" select="'no'"/>
 118  <xsl:variable name="mythkeys">
 119   <xsl:choose>
 120    <xsl:when test="$theory = 'yes'"><xsl:value-of select="$thkeys"/></xsl:when>
 121    <xsl:otherwise><xsl:value-of select="$keys"/></xsl:otherwise>
 122   </xsl:choose>
 123  </xsl:variable>
 124     <xsl:value-of select="concat(string($header1),string($mythkeys),string($header2),string($uri),'&#x26;param.CICURI=',string($uri),'&#x26;param.type=',string($type))"/>
 125 </xsl:template>
 126
 127 </xsl:stylesheet>