X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fstyle%2Fmk_meta_graph.xsl;h=aecf9ef3ea6619e8fece7fa0f9caeb6e90c94257;hb=fde0ad77237a2fbdfb5621d5b5085fe7c82e3f92;hp=e19e8daa22f0ab0785c4c7cfcbfd3b74d4f2986b;hpb=7246805f9eac4bf302ce352ee14d85124b70ba69;p=helm.git

diff --git a/helm/style/mk_meta_graph.xsl b/helm/style/mk_meta_graph.xsl
index e19e8daa2..aecf9ef3e 100644
--- a/helm/style/mk_meta_graph.xsl
+++ b/helm/style/mk_meta_graph.xsl
@@ -24,177 +24,15 @@
 <!-- For details, see the HELM World-Wide-Web page,                    -->
 <!-- http://cs.unibo.it/helm/.                                         -->
 
-<!-- CSC: Sostituire l'andata a capo con la entity numerica opportuna -->
-<!DOCTYPE html [
- <!ENTITY CSCbr "
-">
-]>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 
-<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:ht="http://www.cs.unibo.it/helm/namespaces/helm-theory">
+ <!-- Note: the param processorURL is not available. It has been -->
+ <!-- removed to keep the final URL short enought to make I.E.   -->
+ <!-- work with it.                                              -->
 
-<xsl:output method="text"/>
+ <xsl:import href="mk_meta_and_dep_graph.xsl"/>
 
-<xsl:param name="CICURI" select="''"/>
-<xsl:param name="PID" select="''"/>
-<xsl:param name="getterURL" select="''"/>
-<xsl:variable name="RDF_base_URL_of_CIC_URI" select="concat($getterURL,'getxml?uri=helm:rdf:www.cs.unibo.it/helm/rdf/rdfprova//')"/>
-
-<!-- CSC: next function because I don't remember the name of the    -->
-<!-- CSC: subst function of xslt and I don't have the specs with me -->
-<xsl:template name="quote">
- <xsl:param name="s" select="''"/>
- <xsl:param name="news" select="''"/>
- <xsl:choose>
-  <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="char" select="substring($s,1,1)"/>
-   <xsl:choose>
-    <xsl:when test="$char = '/'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'X')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = ':'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'Y')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '.'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'Z')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test='$char = "&apos;"'>
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'W')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '-'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'J')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '#'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'G')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '('">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'O')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = ')'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'C')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,$char)"/>
-     </xsl:call-template>
-    </xsl:otherwise>
-   </xsl:choose>
-  </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>
- -->
- <xsl:text>strict digraph L0 { size = "83,83"; node [style=filled, shape = box];&CSCbr;</xsl:text>
- <!-- The nonce is used to force the document reload -->
- <xsl:variable name="dummy1" select="document(concat('http://phd.cs.unibo.it:8084/add_if_not_in?uri=',$CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
- <xsl:apply-templates mode="loop" select="document(concat('http://phd.cs.unibo.it:8084/get_next?uri=',$CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
- <xsl:variable name="dummy2" select="document(concat('http://phd.cs.unibo.it:8084/reset_to_empty?PID=',$PID))"/>
- <xsl:text>}</xsl:text>
-</xsl:template>
-
-<xsl:template mode="loop" match="empty"/>
-
-<xsl:template mode="loop" match="uri|marked_uri">
- <xsl:variable name="document" select="document(concat($RDF_base_URL_of_CIC_URI,@value))"/>
- <xsl:choose>
-  <xsl:when test="$document/*">
-   <xsl:apply-templates mode="first_time" select="$document/*">
-    <xsl:with-param name="currentCICURI" select="@value"/>
-    <xsl:with-param name="quotedCurrentCICURI">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="@value"/>
-     </xsl:call-template>
-    </xsl:with-param>
-    <xsl:with-param name="do_not_visit" select="name(.)"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-templates mode="first_time" select=".">
-    <xsl:with-param name="currentCICURI" select="@value"/>
-    <xsl:with-param name="quotedCurrentCICURI">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="@value"/>
-     </xsl:call-template>
-    </xsl:with-param>
-    <xsl:with-param name="do_not_visit" select="'no_deps'"/>
-   </xsl:apply-templates>
-  </xsl:otherwise>
- </xsl:choose>
- <!-- The couple (uri,nonce) is used to force the document reload -->
- <xsl:apply-templates mode="loop" select="document(concat('http://phd.cs.unibo.it:8084/get_next?uri=',@value,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
-</xsl:template>
-
-
-<xsl:template mode="first_time" match="*">
- <xsl:param name="currentCICURI" select="''"/>
- <xsl:param name="quotedCurrentCICURI" select="''"/>
- <xsl:param name="do_not_visit" select="'uri'"/>
- <xsl:text> </xsl:text>
- <xsl:value-of select="$quotedCurrentCICURI"/>
-<!-- <xsl:text> [fontname="LucidaSansRegular",color=red,label="</xsl:text> -->
- <xsl:text> [label="</xsl:text>
- <xsl:value-of select="$currentCICURI"/>
- <xsl:text>",URL="</xsl:text>
- <xsl:value-of select="$currentCICURI"/>
- <xsl:text>"</xsl:text>
- <xsl:if test="$do_not_visit='marked_uri'">
-  <xsl:text>,color=red</xsl:text>
- </xsl:if>
- <xsl:text>];&CSCbr;</xsl:text>
- <xsl:if test="$do_not_visit='uri'">
-  <xsl:apply-templates select=".">
-   <xsl:with-param name="currentCICURI" select="$currentCICURI"/>
-   <xsl:with-param name="quotedCurrentCICURI" select="$quotedCurrentCICURI"/>
-  </xsl:apply-templates>
- </xsl:if>
-</xsl:template>
-
-<xsl:template match="occurs">
- <xsl:param name="currentCICURI" select="''"/>
- <xsl:param name="quotedCurrentCICURI" select="''"/>
- <xsl:for-each select="*">
-  <xsl:variable name="quotedURI">
-   <xsl:call-template name="quote">
-    <xsl:with-param name="s" select="@uri"/>
-   </xsl:call-template>
-  </xsl:variable>
-  <xsl:text> </xsl:text>
-  <xsl:value-of select="$quotedCurrentCICURI"/>
-  <xsl:text> -&gt; </xsl:text>
-  <xsl:value-of select="$quotedURI"/>
-  <xsl:text>;&CSCbr;</xsl:text>
-  <!-- The nonce is used to force the document reload -->
-  <xsl:variable name="dummy" select="document(concat('http://phd.cs.unibo.it:8084/add_if_not_in?uri=',@uri,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
- </xsl:for-each>
-</xsl:template>
+ <xsl:variable name="base_RDF_URI" select="'helm:rdf:www.cs.unibo.it/helm/rdf/backward//'"/>
+ <xsl:variable name="link_direction" select="' [dir=back]'"/>
 
 </xsl:stylesheet>
