X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fxml%2Fld-html-library.xsl;fp=helm%2Fsoftware%2Flambda-delta%2Fxml%2Fld-html-library.xsl;h=2094c2a87929dbae5278af3b6bcf71e22ada6fad;hb=4ab08405286d0e1409893ee6477ac4686bacf103;hp=86e7c449de06431f4ba8b5b84667f180b4eff374;hpb=b512c5a623a411cf8473367ac5bb6d8c9c7f7721;p=helm.git

diff --git a/helm/software/lambda-delta/xml/ld-html-library.xsl b/helm/software/lambda-delta/xml/ld-html-library.xsl
index 86e7c449d..2094c2a87 100644
--- a/helm/software/lambda-delta/xml/ld-html-library.xsl
+++ b/helm/software/lambda-delta/xml/ld-html-library.xsl
@@ -22,10 +22,18 @@
    <xsl:text> </xsl:text>
 </xsl:template>
 
+<xsl:template name="cm">
+   <xsl:text>, </xsl:text>
+</xsl:template>
+
 <xsl:template name="sl">
    <xsl:text>/</xsl:text>
 </xsl:template>
 
+<xsl:template name="plus">
+   <xsl:text>+</xsl:text>
+</xsl:template>
+
 <xsl:template name="fs">
    <xsl:text>.&#x200B;</xsl:text>
 </xsl:template>
@@ -38,6 +46,18 @@
    <xsl:text>)</xsl:text>
 </xsl:template>
 
+<xsl:template name="ob">
+   <span style="{$binder}">
+      <xsl:text>[</xsl:text>
+   </span>
+</xsl:template>
+
+<xsl:template name="cb">
+   <span style="{$binder}">
+      <xsl:text>]</xsl:text>
+   </span>
+</xsl:template>
+
 <xsl:template name="oa">
    <span style="{$cast}">
       <xsl:text>&lt;</xsl:text>
@@ -63,25 +83,38 @@
 </xsl:template>
 
 <xsl:template name="lambda">
-   <span style="{$binder}">
-      <xsl:text disable-output-escaping="yes">&amp;lambda;</xsl:text>
-   </span>
+   <a name="" title="{@mark}">
+      <span style="{$binder}">
+         <xsl:text disable-output-escaping="yes">&amp;lambda;</xsl:text>
+      </span>
+   </a>
 </xsl:template>
 
 <xsl:template name="delta">
-   <span style="{$binder}">
-      <xsl:text disable-output-escaping="yes">&amp;delta;</xsl:text>
-   </span>
+   <a name="" title="{@mark}">
+      <span style="{$binder}">
+         <xsl:text disable-output-escaping="yes">&amp;delta;</xsl:text>
+      </span>
+   </a>
 </xsl:template>
 
 <xsl:template name="chi">
-   <span style="{$binder}">
-      <xsl:text disable-output-escaping="yes">&amp;chi;</xsl:text>
-   </span>
+   <a name="" title="{@mark}">
+      <span style="{$binder}">
+         <xsl:text disable-output-escaping="yes">&amp;chi;</xsl:text>
+      </span>
+   </a>
 </xsl:template>
 
 <xsl:template name="position">
-   <a name="" title="{@position}">
+   <xsl:variable name="index">
+      <xsl:value-of select="@position"/>
+      <xsl:if test="@offset != 0">
+         <xsl:call-template name="plus"/>         
+	 <xsl:value-of select="@offset"/>      
+      </xsl:if>
+   </xsl:variable>
+   <a name="" title="{$index}">
       <xsl:value-of select="@name"/>
    </a>
 </xsl:template>
@@ -95,10 +128,6 @@
    <a href="{$url}" title="{@uri}"><xsl:value-of select="@name"/></a>
 </xsl:template>
 
-<xsl:template name="binder">
-   <xsl:value-of select="@name"/>
-</xsl:template>
-
 <xsl:template name="global">
    <span style="{$global}">
       <a name="" title="{@mark}">
@@ -107,6 +136,89 @@
    </span>
 </xsl:template>
 
+<xsl:template name="mk_names">
+   <xsl:param name="names">
+      <xsl:value-of select="normalize-space(@name)"/>
+      <xsl:call-template name="sp"/>   
+   </xsl:param>
+   <xsl:param name="sep" select="false()"/>  
+   <xsl:if test="$names and $sep">
+      <xsl:call-template name="cm"/>
+   </xsl:if>
+   <xsl:if test="$names">
+      <xsl:value-of select="substring-before($names, ' ')"/>
+      <xsl:call-template name="mk_names">
+         <xsl:with-param name="names" select="substring-after($names, ' ')"/>
+         <xsl:with-param name="sep" select="true()"/>
+      </xsl:call-template>
+   </xsl:if>
+</xsl:template>
+
+<xsl:template name="mk_terms">
+   <xsl:for-each select="*">
+      <xsl:apply-templates select="."/>
+      <xsl:if test="(name()='Sort' or name()='LRef' or name()='GRef') and position()!=last()">
+         <xsl:call-template name="cm"/>
+      </xsl:if>
+   </xsl:for-each>
+</xsl:template>
+
+<xsl:template name="mk_binder">
+   <xsl:param name="sep-seq"/>
+   <xsl:call-template name="ob"/>
+   <xsl:call-template name="mk_binder_rec1">
+      <xsl:with-param name="sep-seq" select="$sep-seq"/>
+   </xsl:call-template>
+   <xsl:call-template name="cb"/>
+   <xsl:call-template name="fs"/>
+</xsl:template>
+
+<xsl:template name="mk_binder_rec1">
+   <xsl:param name="sep-seq"/>
+   <xsl:param name="names">
+      <xsl:value-of select="normalize-space(@name)"/>
+      <xsl:call-template name="sp"/>   
+   </xsl:param>
+   <xsl:param name="sep" select="false()"/>
+   <xsl:param name="start" select="true()"/>
+   <xsl:param name="pos" select="1"/>
+   <xsl:choose>
+      <xsl:when test="$start and $pos &lt;= count(*)">
+         <xsl:if test="$names and $sep">
+            <xsl:call-template name="cm"/>
+         </xsl:if>
+         <xsl:value-of select="substring-before($names, ' ')"/>
+         <xsl:copy-of select="$sep-seq"/>
+	 <xsl:call-template name="mk_binder_rec2">
+            <xsl:with-param name="names" select="substring-after($names, ' ')"/>
+            <xsl:with-param name="pos" select="$pos"/>
+            <xsl:with-param name="sep-seq" select="$sep-seq"/>
+         </xsl:call-template>
+      </xsl:when>
+      <xsl:when test="not($start) and $pos &lt;= count(*)">
+         <xsl:call-template name="mk_binder_rec2">
+            <xsl:with-param name="names" select="$names"/>
+            <xsl:with-param name="pos" select="$pos"/>
+            <xsl:with-param name="sep-seq" select="$sep-seq"/>
+         </xsl:call-template>      
+      </xsl:when>
+   </xsl:choose>
+</xsl:template>
+
+<xsl:template name="mk_binder_rec2">
+   <xsl:param name="sep-seq"/>
+   <xsl:param name="names"/>
+   <xsl:param name="pos"/>
+   <xsl:apply-templates select="*[$pos]"/>
+   <xsl:call-template name="mk_binder_rec1">
+      <xsl:with-param name="sep-seq" select="$sep-seq"/>
+      <xsl:with-param name="names" select="$names"/>
+      <xsl:with-param name="sep" select="true()"/>
+      <xsl:with-param name="start" select="name(*[$pos])='Sort' or name(*[$pos])='LRef' or name(*[$pos])='GRef'"/>
+      <xsl:with-param name="pos" select="$pos+1"/>
+   </xsl:call-template>      
+</xsl:template>
+
 <xsl:template name="mk_segment">
    <xsl:param name="path"/>
    <xsl:param name="name"/>
@@ -152,4 +264,8 @@
    <div>Informal description: "<xsl:value-of select="@meta"/>"</div><h2/>
 </xsl:template>
 
+<xsl:template name="ld">
+   <xsl:text disable-output-escaping="yes">&amp;lambda;&amp;delta;</xsl:text>
+</xsl:template>
+
 </xsl:stylesheet>