X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fstyle%2Fmk_meta_graph.xsl;h=020a64af52758c95b0f13a5057900c4b43971589;hb=cf9a0add389780f349ecb995da010a17d00cb8d4;hp=117353cae5a264a11d3f82d3fb6c8b94dea616ee;hpb=4a425bad0eb873df58457d4cb72d8d20a21b4c57;p=helm.git

diff --git a/helm/style/mk_meta_graph.xsl b/helm/style/mk_meta_graph.xsl
index 117353cae..020a64af5 100644
--- a/helm/style/mk_meta_graph.xsl
+++ b/helm/style/mk_meta_graph.xsl
@@ -30,18 +30,24 @@
 ">
 ]>
 
-<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">
+<xsl:stylesheet version="0.1"
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+  xmlns:h="http:/www.cs.unibo.it/helm/schemas/schema-h.rdf#">
 
 <xsl:output method="text"/>
 
 <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//')"/>
+<xsl:param name="uri_set_queueURL" select="''"/>
+<xsl:param name="uri_set_size" select="30"/>
+<xsl:variable name="base_URL_of_URI" select="concat($getterURL,'getxml?uri=')"/>
 
-<!-- CSC: next function because I don't remember the name of the    -->
+<!-- CSC: next functions because I don't remember the name of the    -->
 <!-- CSC: subst function of xslt and I don't have the specs with me -->
+
+<!-- The next function is used to quote URIs for dotty -->
 <xsl:template name="quote">
  <xsl:param name="s" select="''"/>
  <xsl:param name="news" select="''"/>
@@ -83,19 +89,19 @@
     <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,'S')"/>
+      <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,'P1')"/>
+      <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,'P2')"/>
+      <xsl:with-param name="news" select="concat($news,'C')"/>
      </xsl:call-template>
     </xsl:when>
     <xsl:otherwise>
@@ -109,30 +115,76 @@
  </xsl:choose>
 </xsl:template>
 
+<!-- The next function is used to quote URIs to embed them in an URL -->
+<xsl:template name="quote_url">
+ <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_url">
+      <xsl:with-param name="s" select="substring($s,2)"/>
+      <xsl:with-param name="news" select="concat($news,'%23')"/>
+     </xsl:call-template>
+    </xsl:when>
+    <xsl:otherwise>
+     <xsl:call-template name="quote_url">
+      <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 name="RDFURI_of_CICURI">
+ <xsl:param name="uri" select="''"/>
+ <xsl:variable name="base_RDF_URI" select="'helm:rdf:www.cs.unibo.it/helm/rdf/backward//'"/>
+ <xsl:variable name="before" select="substring-before($uri,'#xpointer(1/')"/>
+ <xsl:value-of select="$base_RDF_URI"/>
+ <xsl:choose>
+  <xsl:when test="$before=''">
+   <xsl:value-of select="$uri"/>
+  </xsl:when>
+  <xsl:otherwise>
+   <xsl:value-of select="concat($before,',')"/>
+   <xsl:variable name="after" select="substring-after($uri,'#xpointer(1/')"/>
+   <xsl:value-of select="translate(substring-before($after,')'),'/',',')"/>
+  </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
 <xsl:template match="/">
- <!-- draw_graph_url -->
- <xsl:text>http://phd.cs.unibo.it:8083&CSCbr;</xsl:text>
- <!-- dep_url_scheme -->
- <xsl:text>http://phd.cs.unibo.it:8083/draw?url=http%3A//phd.cs.unibo.it%3A8080/helm/servlet/uwobo/apply%3Fxmluri%3Dhttp%3A//phd.cs.unibo.it%3A8081/getxml%253Furi%253D</xsl:text><xsl:value-of select="'#uri#'"/><xsl:text>%26keys%3DMDG%26param.getterURL%3Dhttp%253A//phd.cs.unibo.it%253A8081/%26prop.media-type%3Dtext/plain%26param.CICURI%3D</xsl:text><xsl:value-of select="'#uri#'"/><xsl:text>&CSCbr;</xsl:text>
- <!-- meta_url_scheme -->
- <xsl:text>http://phd.cs.unibo.it:8083/draw?url=http%3A%2F%2Fphd.cs.unibo.it%3A8080%2Fhelm%2Fservlet%2Fuwobo%2Fapply%3Fxmluri%3Dhttp%3A%2F%2Fphd.cs.unibo.it%3A8081%2Fgetxml%253Furi%253Dhelm%3Ardf%3Awww%2Ecs%2Eunibo.it/helm/rdf/rdfprova//</xsl:text><xsl:value-of select="'#uri#'"/><xsl:text>%26keys%3DMMG%26param.getterURL%3Dhttp%253A//phd.cs.unibo.it%253A8081/%26prop.media-type%3Dtext/plain%26param.CICURI%3D</xsl:text><xsl:value-of select="'#uri#'"/><xsl:text>%26keys%3DMMG%26param%2EgetterURL%3Dhttp%253A%2F%2Fphd.cs.unibo.it%253A8081%2F%26prop%2Emedia%2Dtype%3Dtext%2Fplain%26param%2ECICURI%3D</xsl:text><xsl:value-of select="'#uri#'"/><xsl:text>&CSCbr;</xsl:text>
- <!-- cic_url_scheme -->
- <xsl:text>file:///projects/helm/on-line/html/cic/index.html?url=http://phd.cs.unibo.it:8080/helm/servlet/uwobo/apply%3Fkeys%3DC1%252CHC2%252CL%26prop.media-type%3Dtext/html%26prop.encoding%3Diso-8859-1%26param.naturalLanguage%3Dyes%26param.UNICODEvsSYMBOL%3Dsymbol%26param.annotations%3DNO%26prop.doctype-public%3D-//W3C//DTD%2520XHTML%25201.0%2520Transitional//EN%26param.doctype-public%3D-//W3C//DTD%2520XHTML%25201.0%2520Transitional//EN%26param.encoding%3Diso-8859-1%26param.media-type%3Dtext/html%26param.keys%3DC1%252CHC2%252CL%26param.getterURL%3Dhttp://phd.cs.unibo.it:8081/%26param.processorURL%3Dhttp://phd.cs.unibo.it:8080/helm/servlet/uwobo/%26param.interfaceURL%3Dfile:///projects/helm/on-line/html/cic/index.html%26param.topurl%3Dfile:///projects/helm/on-line%26xmluri%3Dhttp://phd.cs.unibo.it:8081/getxml%253Furi%253D</xsl:text><xsl:value-of select="'#uri#'"/><xsl:text>%26param.CICURI%3D</xsl:text><xsl:value-of select="'#uri#'"/><xsl:text>&CSCbr;</xsl:text>
  <!--
  <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>
+ <xsl:variable name="quoted_CICURI">
+  <xsl:call-template name="quote_url">
+   <xsl:with-param name="s" select="$CICURI"/>
+  </xsl:call-template>
+ </xsl:variable>
  <!-- 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:variable name="dummy0" select="document(concat($uri_set_queueURL,'set_uri_set_size?uri=',$quoted_CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID,'&amp;size=',$uri_set_size))"/>
+ <xsl:variable name="dummy1" select="document(concat($uri_set_queueURL,'add_if_not_in?uri=',$quoted_CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
+ <xsl:apply-templates mode="loop" select="document(concat($uri_set_queueURL,'get_next?uri=',$quoted_CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
+ <xsl:variable name="dummy2" select="document(concat($uri_set_queueURL,'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:variable name="rdfuri">
+  <xsl:call-template name="RDFURI_of_CICURI">
+   <xsl:with-param name="uri" select="@value"/>
+  </xsl:call-template>
+ </xsl:variable>
+ <xsl:variable name="document" select="document(concat($base_URL_of_URI,$rdfuri))"/>
  <xsl:choose>
   <xsl:when test="$document/*">
    <xsl:apply-templates mode="first_time" select="$document/*">
@@ -157,8 +209,13 @@
    </xsl:apply-templates>
   </xsl:otherwise>
  </xsl:choose>
+ <xsl:variable name="quoted_value">
+  <xsl:call-template name="quote_url">
+   <xsl:with-param name="s" select="@value"/>
+  </xsl:call-template>
+ </xsl:variable>
  <!-- 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:apply-templates mode="loop" select="document(concat($uri_set_queueURL,'get_next?uri=',$quoted_value,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
 </xsl:template>
 
 
@@ -166,6 +223,12 @@
  <xsl:param name="currentCICURI" select="''"/>
  <xsl:param name="quotedCurrentCICURI" select="''"/>
  <xsl:param name="do_not_visit" select="'uri'"/>
+ <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:text> </xsl:text>
  <xsl:value-of select="$quotedCurrentCICURI"/>
 <!-- <xsl:text> [fontname="LucidaSansRegular",color=red,label="</xsl:text> -->
@@ -174,34 +237,34 @@
  <xsl:text>",URL="</xsl:text>
  <xsl:value-of select="$currentCICURI"/>
  <xsl:text>"</xsl:text>
- <xsl:if test="$do_not_visit='marked_uri'">
+ <xsl:if test="name(document(concat($uri_set_queueURL,'is_overflowed?uri=',$quotedCurrentCICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))/*)='true'">
   <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:template match="*">
  <xsl:param name="currentCICURI" select="''"/>
  <xsl:param name="quotedCurrentCICURI" select="''"/>
- <xsl:for-each select="*">
+ <xsl:for-each select="*/*/*">
   <xsl:variable name="quotedURI">
    <xsl:call-template name="quote">
-    <xsl:with-param name="s" select="@uri"/>
+    <xsl:with-param name="s" select="@rdf:value"/>
+   </xsl:call-template>
+  </xsl:variable>
+  <xsl:variable name="quoted_uri">
+   <xsl:call-template name="quote_url">
+    <xsl:with-param name="s" select="@rdf:value"/>
    </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))"/>
+  <!-- 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=',$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>
+   <xsl:value-of select="$quotedURI"/>
+   <xsl:text>;&CSCbr;</xsl:text>
+  </xsl:if>
  </xsl:for-each>
 </xsl:template>