From 8aba11dde6f56f81329943a3f4dbff0ee9366552 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 23 Sep 2003 12:06:54 +0000
Subject: [PATCH] Preliminary support for proof-tree enhanced: proof-trees are
 now shown as views over .con files.

---
 helm/on-line/xslt/ls2html.xsl | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/helm/on-line/xslt/ls2html.xsl b/helm/on-line/xslt/ls2html.xsl
index f0376baa5..0d551db35 100644
--- a/helm/on-line/xslt/ls2html.xsl
+++ b/helm/on-line/xslt/ls2html.xsl
@@ -114,6 +114,7 @@
  <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>
@@ -140,16 +141,35 @@
      <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($quoteduri,$quotedname)}','{$ann}','{$types}')"
       onMouseOver="window.status='{concat($quoteduri,$quotedname)}'; return true"
-   ><xsl:value-of select="$name"/></a>
+   >
+    <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"
-    >Body</a>
+    >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>
-- 
2.39.2