From 965067aacd2d18b090226792d785265b90c02017 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 18 Oct 2001 10:11:28 +0000
Subject: [PATCH] mk_dep_graph.xsl now differentiates the constructors from the
 inductive types producing "extended" URIs (e.g.
 ".../nat.ind#xpointer(1/1/1)")

---
 helm/style/mk_dep_graph.xsl | 43 +++++++++++++++++++++++++++++++++++--
 1 file changed, 41 insertions(+), 2 deletions(-)

diff --git a/helm/style/mk_dep_graph.xsl b/helm/style/mk_dep_graph.xsl
index 86933883c..c5c063aec 100644
--- a/helm/style/mk_dep_graph.xsl
+++ b/helm/style/mk_dep_graph.xsl
@@ -150,6 +150,32 @@
  </xsl:choose>
 </xsl:template>
 
+<!-- CSC: Next function has been copied from         -->
+<!-- CSC: metadata/xslt/occurrences.xsl and modified -->
+<xsl:template name="get_expanded_name">
+ <xsl:param name="node" select="/.."/>
+    <xsl:choose>
+     <xsl:when test="name($node)='CONST'">
+      <xsl:value-of select="$node/@uri"/>
+     </xsl:when>
+     <xsl:when test="name($node)='MUTIND'">
+      <xsl:variable name="noType" select="$node/@noType + 1"/>
+      <xsl:value-of select="concat($node/@uri,'#','xpointer(1/',
+            $noType,')')"/>
+     </xsl:when>
+     <xsl:when test="name($node)='MUTCONSTRUCT'">
+      <xsl:variable name="noType" select="$node/@noType + 1"/>
+      <xsl:value-of select="concat($node/@uri,'#','xpointer(1/',
+           $noType,'/',$node/@noConstr,')')"/>
+     </xsl:when>
+     <xsl:otherwise>
+      <!-- CSC: Is it possible to reach this branch? -->
+      <xsl:value-of select="$node/@uri"/>
+     </xsl:otherwise>
+    </xsl:choose>
+</xsl:template> 
+
+
 <xsl:template match="/">
  <!--
  <xsl:text>strict digraph L0 { size = "83,83"; concentrate=true; node [style=filled, shape = box];&CSCbr;</xsl:text>
@@ -225,11 +251,24 @@
  <xsl:if test="@uri">
   <xsl:variable name="quotedURI">
    <xsl:call-template name="quote">
-    <xsl:with-param name="s" select="@uri"/>
+    <xsl:with-param name="s">
+     <xsl:call-template name="get_expanded_name">
+      <xsl:with-param name="node" select="."/>
+     </xsl:call-template>
+    </xsl:with-param>
+   </xsl:call-template>
+  </xsl:variable>
+  <xsl:variable name="quoted_uri">
+   <xsl:call-template name="quote_url">
+    <xsl:with-param name="s">
+     <xsl:call-template name="get_expanded_name">
+      <xsl:with-param name="node" select="."/>
+     </xsl:call-template>
+    </xsl:with-param>
    </xsl:call-template>
   </xsl:variable>
   <!-- The nonce, quotedCurrentCICURI are used to force the document reload -->
-  <xsl:if test="not(name(document(concat($uri_set_queueURL,'add_if_not_in?uri=',@uri,'&amp;nonce=',generate-id(),'&amp;PID=',$PID,'&amp;quotedCurrentCICURI=',$quotedCurrentCICURI))/*)='not_added_because_already_too_many')">
+  <xsl:if test="not(name(document(concat($uri_set_queueURL,'add_if_not_in?uri=',$quoted_uri,'&amp;nonce=',generate-id(),'&amp;PID=',$PID,'&amp;quotedCurrentCICURI=',$quotedCurrentCICURI))/*)='not_added_because_already_too_many')">
    <xsl:text> </xsl:text>
    <xsl:value-of select="$quotedCurrentCICURI"/>
    <xsl:text> -&gt; </xsl:text>
-- 
2.39.2