From 903e93c98ace01cbabffb10f6339cc0528c37402 Mon Sep 17 00:00:00 2001
From: Henrik Tidefelt <tidefelt@isy.liu.se>
Date: Tue, 18 Aug 2009 20:27:19 +0200
Subject: [PATCH] Doc infrastructure: Supporting documentation of
 continuations.

---
 doc/parts/dynamic/formats/html.xsl           | 15 +++++++++++++++
 doc/parts/formats/html.xsl                   | 16 ++++++++++++++--
 doc/parts/formats/language-elements-html.xsl |  9 +++++++--
 3 files changed, 36 insertions(+), 4 deletions(-)

diff --git a/doc/parts/dynamic/formats/html.xsl b/doc/parts/dynamic/formats/html.xsl
index 5ee9f342..0a17869b 100644
--- a/doc/parts/dynamic/formats/html.xsl
+++ b/doc/parts/dynamic/formats/html.xsl
@@ -59,6 +59,13 @@ xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 					</xsl:call-template>
 					  
 				</xsl:for-each>
+				<xsl:for-each select="/book/section/escape-continuation[@identifier]">
+					<xsl:sort select="@identifier" />
+					<xsl:call-template name="name-to-linked-continuation">
+						<xsl:with-param name="name"><xsl:value-of select="@identifier" /></xsl:with-param>
+					</xsl:call-template>
+					  
+				</xsl:for-each>
 			</div>
 			<hr class="thin"/>
 
@@ -78,8 +85,16 @@ xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 						</xsl:call-template>
 						  
 					</xsl:for-each>
+					<xsl:for-each select="escape-continuation[@identifier]">
+						<xsl:sort select="@identifier" />
+						<xsl:call-template name="name-to-linked-continuation">
+							<xsl:with-param name="name"><xsl:value-of select="@identifier" /></xsl:with-param>
+						</xsl:call-template>
+						  
+					</xsl:for-each>
 				</div>
 				<xsl:apply-templates select="dynamic-variable" />
+				<xsl:apply-templates select="escape-continuation" />
 			</xsl:for-each>
 
 			<xsl:call-template name="SF-placeholder" />
diff --git a/doc/parts/formats/html.xsl b/doc/parts/formats/html.xsl
index 2e2724df..5dc6b7eb 100644
--- a/doc/parts/formats/html.xsl
+++ b/doc/parts/formats/html.xsl
@@ -345,8 +345,20 @@ xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 	<xsl:param name="name" />
 	<b>C—</b><varname><xsl:value-of select="$name" /></varname>
 </xsl:template>
+<xsl:template name="name-to-linked-continuation">
+	<xsl:param name="name" />
+	<xsl:element name="a">
+		<xsl:attribute name="class">discrete</xsl:attribute>
+		<xsl:attribute name="href">
+			<xsl:call-template name="part-to-href"><xsl:with-param name="name">dynamic</xsl:with-param></xsl:call-template>#esc/<xsl:value-of select="$name" />
+		</xsl:attribute>
+		<xsl:call-template name="name-to-continuation">
+			<xsl:with-param name="name"><xsl:value-of select="$name" /></xsl:with-param>
+		</xsl:call-template>
+	</xsl:element>
+</xsl:template>
 <xsl:template match="continuation[@name]">
-	<xsl:call-template name="name-to-continuation">
+	<xsl:call-template name="name-to-linked-continuation">
 		<xsl:with-param name="name"><xsl:value-of select="@name" /></xsl:with-param>
 	</xsl:call-template>
 </xsl:template>
@@ -636,7 +648,7 @@ xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 </xsl:template>
 
 <xsl:template match="tight-table">
-  <table class="loose"><xsl:apply-templates select="head/tr | body/tr"/></table>
+  <table class="tight"><xsl:apply-templates select="head/tr | body/tr"/></table>
 </xsl:template>
 <xsl:template match="loose-table">
   <table class="loose"><xsl:apply-templates select="head/tr | body/tr"/></table>
diff --git a/doc/parts/formats/language-elements-html.xsl b/doc/parts/formats/language-elements-html.xsl
index 997e3672..ba18490a 100644
--- a/doc/parts/formats/language-elements-html.xsl
+++ b/doc/parts/formats/language-elements-html.xsl
@@ -147,7 +147,12 @@ xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 	<xsl:apply-templates select="see-also"/>
 </xsl:template>
 
-<xsl:template match="system-binding//see-also | dynamic-variable//see-also | system-state//see-also | core-state-type/see-also | mutator//see-also">
+<xsl:template match="system-binding[@identifier]/function/case/description/p/self">
+	<xsl:call-template name="name-to-binding"><xsl:with-param name="name"><xsl:value-of select="../../../../../@identifier" /></xsl:with-param></xsl:call-template>
+</xsl:template>
+
+
+<xsl:template match="system-binding//see-also | dynamic-variable//see-also | system-state//see-also | core-state-type/see-also | mutator//see-also | escape-continuation//see-also">
  	<tr>
 		<th class="horiz">See also:</th>
 		<td>
@@ -225,7 +230,7 @@ xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 	</tr>
 </xsl:template>
 
-<xsl:template match="dynamic-variable[@identifier]/description">
+<xsl:template match="dynamic-variable[@identifier]/description | escape-continuation[@identifier]/description">
 	<xsl:apply-templates />
 </xsl:template>
 
-- 
2.11.4.GIT