From b564f0671c133928e372e352d972a7663b6a9136 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 7 Mar 2001 11:05:20 +0000
Subject: [PATCH] Bug fixed: now propagates informations about inner-types
 usage and natural language when following hyperlinks.

WARNING: to create an hyperlink, it is no more enough to concatenate
 $header and the URI. You need to call the new makeURL() named-template.
---
 helm/style/content_to_html.xsl | 14 +++++++++---
 helm/style/html_init.xsl       | 40 +++++++++++++++++++++++++---------
 helm/style/html_reals.xsl      | 24 +++++++++++++++-----
 helm/style/html_set.xsl        |  8 +++++--
 4 files changed, 65 insertions(+), 21 deletions(-)

diff --git a/helm/style/content_to_html.xsl b/helm/style/content_to_html.xsl
index fffc45865..461dfddad 100644
--- a/helm/style/content_to_html.xsl
+++ b/helm/style/content_to_html.xsl
@@ -38,7 +38,7 @@
 
 <xsl:variable name="absPath"><xsl:value-of select="$getterURL"/>getciconly?uri=</xsl:variable>
 
-<xsl:variable name="header"><xsl:value-of select="$processorURL"/>/apply?keys=<xsl:value-of select="$keys"/>&#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>
+<xsl:variable name="header"><xsl:value-of select="$processorURL"/>/apply?keys=<xsl:value-of select="$keys"/>&#x26;param.naturalLanguage=<xsl:value-of select="$naturalLanguage"/>&#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>
 
 <xsl:include href="html_init.xsl"/>
 <xsl:include href="html_set.xsl"/>
@@ -46,6 +46,10 @@
 
 <xsl:variable name="showcast" select="0"/>
 
+<xsl:template name="makeURL">
+ <xsl:param name="url" select="''"/>
+ <xsl:value-of select="concat(string($header),string($url),'&#x26;param.CICURI=',string($url))"/>
+</xsl:template>
 
 <!--***********************************************************************-->
 <!-- HTML Head and Body                                                    -->
@@ -121,7 +125,9 @@
   <xsl:when test="boolean(@definitionURL)">
    <a>
    <xsl:attribute name="href">
-    <xsl:value-of select="concat(string($header),string(@definitionURL))"/>
+    <xsl:call-template name="makeURL">
+     <xsl:with-param name="url" select="@definitionURL"/>
+    </xsl:call-template>
    </xsl:attribute>
    <xsl:apply-templates/>
    </a>
@@ -821,7 +827,9 @@
   <xsl:when test="boolean(@definitionURL)">
    <a>
    <xsl:attribute name="href">
-    <xsl:value-of select="concat(string($header),string(@definitionURL))"/>
+    <xsl:call-template name="makeURL">
+     <xsl:with-param name="url" select="@definitionURL"/>
+    </xsl:call-template>
    </xsl:attribute>
    <xsl:apply-templates/>
    </a>
diff --git a/helm/style/html_init.xsl b/helm/style/html_init.xsl
index f52525ebf..26ddf68d2 100644
--- a/helm/style/html_init.xsl
+++ b/helm/style/html_init.xsl
@@ -77,7 +77,9 @@
   <xsl:apply-templates mode="inline" select="*[2]"/>
   <a>
    <xsl:attribute name="href">
-    <xsl:value-of select="concat(string($header),string($uri))"/>
+    <xsl:call-template name="makeURL">
+     <xsl:with-param name="url" select="$uri"/>
+    </xsl:call-template>
    </xsl:attribute>
    <FONT FACE="symbol" mathcolor="blue">
     <xsl:value-of select="$symbol"/>
@@ -97,7 +99,9 @@
    <xsl:when test="count(child::*)=2">
     <a>
     <xsl:attribute name="href">
-     <xsl:value-of select="concat(string($header),string($uri))"/>
+    <xsl:call-template name="makeURL">
+     <xsl:with-param name="url" select="$uri"/>
+    </xsl:call-template>
     </xsl:attribute>
     <xsl:text>-</xsl:text>
     </a>
@@ -108,7 +112,9 @@
     <xsl:apply-templates mode="inline" select="*[2]"/>
     <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <xsl:text>-</xsl:text>
     </a>
@@ -126,7 +132,9 @@
   </xsl:variable>
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <FONT FACE="symbol" mathcolor="blue">&#216;</FONT>
      </a>
@@ -141,7 +149,9 @@
   </xsl:variable>
   <a>
    <xsl:attribute name="href">
-    <xsl:value-of select="concat(string($header),string($uri))"/>
+    <xsl:call-template name="makeURL">
+     <xsl:with-param name="url" select="$uri"/>
+    </xsl:call-template>
    </xsl:attribute>
    <FONT FACE="symbol" mathcolor="blue">&#36;</FONT>
   </a>
@@ -212,7 +222,9 @@
      </xsl:call-template>
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <FONT FACE="symbol" mathcolor="blue">
       <xsl:value-of select="$symbol"/>
@@ -241,7 +253,9 @@
    <xsl:when test="count(child::*)=2">
     <a>
     <xsl:attribute name="href">
-     <xsl:value-of select="concat(string($header),string($uri))"/>
+     <xsl:call-template name="makeURL">
+      <xsl:with-param name="url" select="$uri"/>
+     </xsl:call-template>
     </xsl:attribute>
     <xsl:text>-</xsl:text>
     </a>
@@ -265,7 +279,9 @@
       </xsl:call-template>
       <a>
       <xsl:attribute name="href">
-       <xsl:value-of select="concat(string($header),string($uri))"/>
+       <xsl:call-template name="makeURL">
+        <xsl:with-param name="url" select="$uri"/>
+       </xsl:call-template>
       </xsl:attribute>
       <xsl:text>-</xsl:text>
       </a>
@@ -292,7 +308,9 @@
   </xsl:variable>
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <FONT FACE="symbol" mathcolor="blue">&#216;</FONT>
      </a>
@@ -314,7 +332,9 @@
     <xsl:when test="$charlength > $framewidth">
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <FONT FACE="symbol" mathcolor="blue">&#36;</FONT>
      </a>
diff --git a/helm/style/html_reals.xsl b/helm/style/html_reals.xsl
index 2b4ca35e5..72d6dab7d 100644
--- a/helm/style/html_reals.xsl
+++ b/helm/style/html_reals.xsl
@@ -45,7 +45,9 @@
      </xsl:variable>
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <xsl:text>lim</xsl:text>
      </a>
@@ -65,7 +67,9 @@
      </xsl:variable>
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <SUP>d</SUP>
       <xsl:text>/</xsl:text>
@@ -138,7 +142,9 @@
   </xsl:variable>
   <a>
    <xsl:attribute name="href">
-    <xsl:value-of select="concat(string($header),string($uri))"/>
+    <xsl:call-template name="makeURL">
+     <xsl:with-param name="url" select="$uri"/>
+    </xsl:call-template>
    </xsl:attribute>
    <xsl:value-of select="$symbol"/>
   </a>
@@ -167,7 +173,9 @@
     <xsl:when test="$charlength > $framewidth">
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <xsl:text>lim</xsl:text>
      </a>
@@ -199,7 +207,9 @@
   </xsl:variable>
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <SUP>d</SUP>
       <xsl:text>/</xsl:text>
@@ -296,7 +306,9 @@
     <xsl:when test="$charlength > $framewidth">
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <xsl:value-of select="$symbol"/>
      </a>
diff --git a/helm/style/html_set.xsl b/helm/style/html_set.xsl
index 97e3b1e07..a8511d65d 100644
--- a/helm/style/html_set.xsl
+++ b/helm/style/html_set.xsl
@@ -123,7 +123,9 @@
   <xsl:apply-templates mode="inline" select="*[2]"/>
   <a>
    <xsl:attribute name="href">
-    <xsl:value-of select="concat(string($header),string($uri))"/>
+    <xsl:call-template name="makeURL">
+     <xsl:with-param name="url" select="$uri"/>
+    </xsl:call-template>
    </xsl:attribute>
    <FONT FACE="symbol" mathcolor="blue">
     <xsl:value-of select="$symbol"/>
@@ -182,7 +184,9 @@
      </xsl:call-template>
      <a>
      <xsl:attribute name="href">
-      <xsl:value-of select="concat(string($header),string($uri))"/>
+      <xsl:call-template name="makeURL">
+       <xsl:with-param name="url" select="$uri"/>
+      </xsl:call-template>
      </xsl:attribute>
      <FONT FACE="symbol" mathcolor="blue">
       <xsl:value-of select="$symbol"/>
-- 
2.39.2