From 1b529d1ad34ed2dcde4f26cdac94ee248b628acf Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Tue, 6 May 2003 15:23:58 +0000
Subject: [PATCH] Make w2docbook escape markup in fragments

---
 litprog/weave.xweb | 40 +++++++++++++++++++++++++++++++++++++---
 1 file changed, 37 insertions(+), 3 deletions(-)

diff --git a/litprog/weave.xweb b/litprog/weave.xweb
index 3dd5ce9a6..2091d7d2f 100644
--- a/litprog/weave.xweb
+++ b/litprog/weave.xweb
@@ -1156,13 +1156,47 @@ aren't copied.
   </xsl:template>
 
   <xsl:template match="src:fragment" priority="2">
-    <programlisting id="@id">
-      <xsl:apply-templates/>
+    <programlisting id="{@id}">
+      <xsl:apply-templates mode="escaped"/>
     </programlisting>
   </xsl:template>
 
   <xsl:template match="src:fragref" priority="2">
-    <xref linkend="@linkend"/>
+    <xref linkend="{@linkend}"/>
+  </xsl:template>
+
+  <xsl:template match="*" mode="escaped">
+    <xsl:text>&lt;</xsl:text>
+    <xsl:value-of select="name(.)"/>
+    <xsl:for-each select="@*">
+      <xsl:text> </xsl:text>
+      <xsl:value-of select="name(.)"/>
+      <xsl:text>="</xsl:text>
+      <xsl:value-of select="."/>
+      <xsl:text>"</xsl:text>
+    </xsl:for-each>
+    <xsl:text>&gt;</xsl:text>
+    <xsl:apply-templates mode="escaped"/>
+    <xsl:text>&lt;/</xsl:text>
+    <xsl:value-of select="name(.)"/>
+    <xsl:text>&gt;</xsl:text>
+  </xsl:template>
+
+  <xsl:template match="comment()" mode="escaped">
+    <xsl:text>&lt;!--</xsl:text>
+    <xsl:value-of select="."/>
+    <xsl:text>--&gt;</xsl:text>
+  </xsl:template>
+
+  <xsl:template match="processing-instruction()" mode="escaped">
+    <xsl:text>&lt;?</xsl:text>
+    <xsl:value-of select="name(.)"/>
+    <xsl:value-of select="."/>
+    <xsl:text>?&gt;</xsl:text>
+  </xsl:template>
+
+  <xsl:template match="text()" mode="escaped">
+    <xsl:copy/>
   </xsl:template>
 </xsl:stylesheet>
 </src:fragment>
-- 
2.40.0