-<!-- 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 = "'"'>
- <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,'S')"/>
- </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: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: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="/">
- <!-- 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>
- <!-- 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,'&nonce=',generate-id(),'&PID=',$PID))"/>
- <xsl:apply-templates mode="loop" select="document(concat('http://phd.cs.unibo.it:8084/get_next?uri=',$CICURI,'&nonce=',generate-id(),'&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:apply-templates mode="first_time" select="document(concat($base_URL_of_CIC_URI,@value))/*">
- <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>
- <!-- 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,'&nonce=',generate-id(),'&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>
-
-<!-- CSC: uriType missing!!! -->
-<xsl:template match="*">
- <xsl:param name="currentCICURI" select="''"/>
- <xsl:param name="quotedCurrentCICURI" select="''"/>
- <xsl:if test="@uri">
- <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> -> </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,'&nonce=',generate-id(),'&PID=',$PID))"/>
- </xsl:if>
- <xsl:apply-templates>
- <xsl:with-param name="currentCICURI" select="$currentCICURI"/>
- <xsl:with-param name="quotedCurrentCICURI" select="$quotedCurrentCICURI"/>
- </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="text()"/>