X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=senfscons%2Fxrefhtml.xslt;h=3c81bfda671109939b738a56cd9308012b110459;hb=0232acda50ed45ee5c7014e887267b64e8f1979b;hp=3d4dcbccc0758b5cbc5a945653639f19480a08cb;hpb=85ab07d100a382467a42e19d741d403a7a96c951;p=senf.git

diff --git a/senfscons/xrefhtml.xslt b/senfscons/xrefhtml.xslt
index 3d4dcbc..3c81bfd 100644
--- a/senfscons/xrefhtml.xslt
+++ b/senfscons/xrefhtml.xslt
@@ -4,7 +4,8 @@
   xmlns:fn="http://senf.berlios.de/xml/Extensions"
   xmlns:exsl="http://exslt.org/common"
   xmlns:str="http://exslt.org/strings"
-  extension-element-prefixes="str fn exsl"
+  xmlns:func="http://exslt.org/functions"
+  extension-element-prefixes="str fn exsl func"
   version="1.0">
 
   <xsl:include href="functions.xsl"/>
@@ -12,29 +13,61 @@
   <xsl:output method="html"/>
   <xsl:strip-space elements="*"/>
   <xsl:param name="title" select="''"/>
+  <xsl:param name="types" select="'bug fixme todo idea'"/>
 
   <xsl:template match="/">
-    <h1><xsl:value-of select="$title"/></h1>
-    <xsl:apply-templates/>
+    <div class="xref">
+      <h1><xsl:value-of select="$title"/></h1>
+      <xsl:variable name="doc" select="."/>
+      <div class="nav">
+        <xsl:text> -- </xsl:text>
+        <xsl:for-each select="str:split($types)">
+          <xsl:element name="a">
+            <xsl:attribute name="href">#<xsl:value-of select="."/></xsl:attribute>
+            <xsl:value-of select="translate(.,'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')"/><xsl:text>S</xsl:text>
+          </xsl:element>
+          <xsl:text> -- </xsl:text>
+        </xsl:for-each>
+      </div>
+      <xsl:for-each select="str:split($types)">
+        <xsl:variable name="type" select="string(.)"/>
+        <xsl:element name="div">
+          <xsl:attribute name="class"><xsl:value-of select="$type"/></xsl:attribute>
+          <xsl:element name="a">
+            <xsl:attribute name="name"><xsl:value-of select="$type"/></xsl:attribute>
+            <h2>Open <xsl:value-of select="translate($type,'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')"/>s</h2>
+          </xsl:element>
+          <xsl:for-each select="$doc//xreflist[@type=$type]">
+            <xsl:sort select="@module"/>
+            <h3><xsl:value-of select="@module"/> module</h3>
+            <dl>
+              <xsl:apply-templates/>
+            </dl>
+          </xsl:for-each>
+        </xsl:element>
+      </xsl:for-each>
+    </div>
   </xsl:template>
 
-  <xsl:template match="xreflist">
-    <xsl:if test="string(preceding::xreflist[1]/@module)!=string(@module)">
-      <xsl:if test="preceding::xreflist">
-        <hr/>
-      </xsl:if>
-      <h2>The <xsl:element name="a">
-        <xsl:attribute name="href">../../<xsl:value-of select="@module"/>/doc/html/index.html</xsl:attribute>
-        <xsl:value-of select="@module"/>
-      </xsl:element> module</h2>
-    </xsl:if>
-    <xsl:element name="dl">
-      <xsl:attribute name="class"><xsl:value-of select="@type"/></xsl:attribute>
-      <dt><h3><xsl:value-of select="translate(@type,'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')"/> items</h3></dt>
+  <xsl:template match="compound">
+    <dt>
+      <xsl:element name="a">
+        <xsl:attribute name="href"><xsl:value-of select="fn:id2url(@id)"/></xsl:attribute>
+        <b><xsl:value-of select="@name"/></b>
+      </xsl:element>
+    </dt>
+    <dd>
       <xsl:apply-templates/>
-    </xsl:element>
+    </dd>
   </xsl:template>
 
+  <xsl:template match="item">
+    <p><xsl:apply-templates/></p>
+  </xsl:template>
+  
+  <!-- ====================================================================== -->
+  <!-- Helper functions                                                       -->
+
   <fn:nsquote>
     <fn:replacement>
       <fn:match>_1_1</fn:match>
@@ -44,29 +77,18 @@
 
   <xsl:variable name="nsquote" select="document('')//fn:nsquote/fn:replacement"/>
   
-  <xsl:template match="compound">
+  <func:function name="fn:id2url">
+    <xsl:param name="id"/>
     <!-- Yuck ... I HATE this .. why doesn't xsltproc support XPath 2.0 ... grmpf -->
     <xsl:variable name="quoted">
-      <xsl:apply-templates select="str:replace(@id,$nsquote/fn:match,$nsquote/fn:replace)"/>
+      <xsl:apply-templates select="str:replace($id,$nsquote/fn:match,$nsquote/fn:replace)"/>
     </xsl:variable>
     <xsl:variable name="anchor" select="substring-after($quoted,'_1')"/>
     <xsl:variable name="file">
       <xsl:apply-templates select="str:replace(substring($quoted,1,string-length($quoted) - number(boolean($anchor))*2 - string-length($anchor)),$nsquote/fn:replace,$nsquote/fn:match)"/>
     </xsl:variable>
     <xsl:variable name="sep" select="substring('#',2-number(boolean($anchor)))"/>
-    <dt>
-      <xsl:element name="a">
-        <xsl:attribute name="href">../../<xsl:value-of select="ancestor::xreflist/@module"/>/doc/html/<xsl:value-of select="$file"/>.html<xsl:value-of select="$sep"/><xsl:value-of select="$anchor"/></xsl:attribute>
-        <b><xsl:value-of select="@name"/></b>
-      </xsl:element>
-    </dt>
-    <dd>
-      <xsl:apply-templates/>
-    </dd>
-  </xsl:template>
-
-  <xsl:template match="item">
-    <p><xsl:apply-templates/></p>
-  </xsl:template>
+    <func:result>../../<xsl:value-of select="ancestor::xreflist/@module"/>/doc/html/<xsl:value-of select="$file"/>.html<xsl:value-of select="$sep"/><xsl:value-of select="$anchor"/></func:result>
+  </func:function>
 
 </xsl:stylesheet>