first moogle template checkin

[helm.git] / helm / on-line / xslt / ls2html.xsl
diff --git a/helm/on-line/xslt/ls2html.xsl b/helm/on-line/xslt/ls2html.xsl

index 4521eaaf46069aa55aa0d71ad576e87eb45d253c..0d551db35fe4cb04490eaf8677b5d057ce8a9e51 100644 (file)
--- a/helm/on-line/xslt/ls2html.xsl
+++ b/helm/on-line/xslt/ls2html.xsl
@@ -3,6 +3,8 @@
  
  <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  
+<xsl:import href="utils.xsl"/>
+
  <xsl:output method="html" encoding="iso-8859-1"/>
  
  <!-- uri must end with '/' -->
@@ -43,18 +45,28 @@
     <img border="0" src="{concat($interfaceURL,'/icons/',$icon)}" alt="[{$alt}]"/>
    </td>
    <td>
+    <xsl:variable name="quoteduri">
+     <xsl:call-template name="jsquote">
+      <xsl:with-param name="s" select="$uri"/>
+     </xsl:call-template>
+    </xsl:variable>
      <a
        onClick=
-       "top.{$target}uri='{$uri}';
+       "top.{$target}uri='{$quoteduri}';
          refresh{$target}Header('{$interfaceURL}/html/library/header.html');
-        this.search='?keys={$keys}' +
-         '&amp;xmluri=' + escape('{$getterURL}ls?format=xml'+'&amp;baseuri={$uri}')+
-         '&amp;param.uri={$uri}' +
+        var search='?keys={$keys}' +
+         '&amp;xmluri=' + escape('{$getterURL}ls?format=xml'+'&amp;baseuri={$quoteduri}')+
+         '&amp;param.uri={$quoteduri}' +
           '&amp;param.keys={$keys}' +
           '&amp;param.getterURL={$getterURL}' +
           '&amp;param.target={$target}' +
-         '&amp;param.interfaceURL={$interfaceURL}';"
-      onMouseOver="window.status='{$uri}'; return true"
+         '&amp;param.interfaceURL={$interfaceURL}';
+        var pathname = this.pathname;
+        if (pathname.charAt(0) != '/')
+         pathname = '/' + pathname;
+        this.href=
+         this.protocol + '//' + this.host + pathname + search + this.hash;"
+      onMouseOver="window.status='{$quoteduri}'; return true"
        href="apply"
     ><xsl:value-of select="$basename"/></a>
    </td>
@@ -66,6 +78,7 @@
    <head>
     <title>Index of <xsl:value-of select="$uri"/></title>
     <xsl:copy-of select="document(concat($interfaceURL,'/javascript/control.js_xml'))" />
+   <xsl:copy-of select="document(concat($interfaceURL,'/javascript/utils.js_xml'))" />
    </head>
    <body bgcolor="#ffffff" text="#000000">
     <table>
@@ -100,6 +113,8 @@
   <xsl:variable name="name" select="@name"/>
   <xsl:variable name="ann" select="ann/@value"/>
   <xsl:variable name="types" select="types/@value"/>
+ <xsl:variable name="body" select="body/@value"/>
+ <xsl:variable name="proof_tree" select="proof_tree/@value"/>
   <xsl:variable name="icon">
    <xsl:choose>
     <xsl:when test="$ann = 'YES'">text.gif</xsl:when>
@@ -111,10 +126,51 @@
     <img border="0" src="{concat($interfaceURL,'/icons/',$icon)}" alt="[{@name}]"/>
    </td>
    <td>
+   <xsl:variable name="quoteduri">
+    <xsl:call-template name="jsquote">
+     <xsl:with-param name="s" select="$uri"/>
+    </xsl:call-template>
+   </xsl:variable>
+   <xsl:variable name="quotedname">
+    <xsl:call-template name="jsquote">
+     <xsl:with-param name="s" select="$name"/>
+    </xsl:call-template>
+   </xsl:variable>
+   <xsl:variable name="quotedbodyname">
+    <xsl:call-template name="jsquote">
+     <xsl:with-param name="s" select="concat($name,'.body')"/>
+    </xsl:call-template>
+   </xsl:variable>
+   <xsl:variable name="quotedprooftreename">
+    <xsl:call-template name="jsquote">
+     <xsl:with-param name="s" select="concat($name,'.proof_tree')"/>
+    </xsl:call-template>
+   </xsl:variable>
+   <xsl:value-of select="$name"/>
+   <xsl:text> </xsl:text>
     <a href="" target="{$target}"
-      onClick="this.href=makeURL('{$target}','{concat($uri,$name)}','{$ann}','{$types}')"
-      onMouseOver="window.status='{concat($uri,$name)}'; return true"
-   ><xsl:value-of select="$name"/></a>
+      onClick="this.href=makeURL('{$target}','{concat($quoteduri,$quotedname)}','{$ann}','{$types}')"
+      onMouseOver="window.status='{concat($quoteduri,$quotedname)}'; return true"
+   >
+    <xsl:choose>
+     <xsl:when test="not($body='NO')">Statement</xsl:when>
+     <xsl:otherwise>Definition</xsl:otherwise>
+    </xsl:choose>
+   </a>
+   <xsl:if test="not($body='NO')">
+    <xsl:text> </xsl:text>
+    <a href="" target="{$target}"
+       onClick="this.href=makeURL('{$target}','{concat($quoteduri,$quotedbodyname)}','{$ann}','{$types}')"
+       onMouseOver="window.status='{concat($quoteduri,$quotedname)}'; return true"
+    >Proof term</a>
+   </xsl:if>
+   <xsl:if test="not($proof_tree='NO')">
+    <xsl:text> </xsl:text>
+    <a href="" target="{$target}"
+       onClick="this.href=makeURL('{$target}','{concat($quoteduri,$quotedprooftreename)}','{$ann}','{$types}')"
+       onMouseOver="window.status='{concat($quoteduri,$quotedname)}'; return true"
+    >Proof tree</a>
+   </xsl:if>
    </td>
   </tr>
  </xsl:template>