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:variable name="absPath"><xsl:value-of select="$getterURL"/>getxml?uri=</xsl:variable>
  49
  50 <!-- quote() escapes white-spaces with %20 -->
  51 <xsl:template name="quote">
  52  <xsl:param name="s" select="''"/>
  53  <xsl:param name="news" select="''"/>
  54  <xsl:choose>
  55   <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
  56   <xsl:otherwise>
  57    <xsl:variable name="char" select="substring($s,1,1)"/>
  58    <xsl:choose>
  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,$char)"/>
  63      </xsl:call-template>
  64     </xsl:when>
  65     <xsl:otherwise>
  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,'%20')"/>
  69      </xsl:call-template>
  70     </xsl:otherwise>
  71    </xsl:choose>
  72   </xsl:otherwise>
  73  </xsl:choose>
  74 </xsl:template>
  75
  76 <xsl:variable name="escaped-doctype-public">
  77  <xsl:call-template name="quote">
  78   <xsl:with-param name="s" select="$doctype-public"/>
  79  </xsl:call-template>
  80 </xsl:variable>
  81
  82 <!-- makeURL() maps URIs into URLs -->
  83
  84 <xsl:variable name="header1"><xsl:value-of select="$processorURL"/>apply?keys=</xsl:variable>
  85 <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="$getterURL"/>&#x26;param.processorURL=<xsl:value-of select="$processorURL"/>&#x26;xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
  86
  87 <xsl:template name="makeURL">
  88 <xsl:param name="uri" select="''"/>
  89 <xsl:param name="type" select="0"/>
  90 <xsl:param name="theory" select="'no'"/>
  91  <xsl:variable name="mythkeys">
  92   <xsl:choose>
  93    <xsl:when test="$theory = 'yes'"><xsl:value-of select="$thkeys"/></xsl:when>
  94    <xsl:otherwise><xsl:value-of select="$keys"/></xsl:otherwise>
  95   </xsl:choose>
  96  </xsl:variable>
  97     <xsl:value-of select="concat(string($header1),string($mythkeys),string($header2),string($uri),'&#x26;param.CICURI=',string($uri),'&#x26;param.type=',string($type))"/>
  98 </xsl:template>
  99
 100 </xsl:stylesheet>