From 8ab66ba51e43976ae57c27dbf1587bd68ff67735 Mon Sep 17 00:00:00 2001
From: Daniel James <daniel@calamity.org.uk>
Date: Sun, 15 Aug 2010 16:49:58 +0000
Subject: [PATCH] Fix some comment issues in the boostbook syntax highlighter.

[SVN r64833]
---
 .../more/tests/syntax-highlight/comments.gold | 26 +++++++++++
 test/more/tests/syntax-highlight/comments.xml | 24 +++++++++++
 xsl/source-highlight.xsl                      | 43 +++++++++++++------
 3 files changed, 81 insertions(+), 12 deletions(-)
 create mode 100644 test/more/tests/syntax-highlight/comments.gold
 create mode 100644 test/more/tests/syntax-highlight/comments.xml

diff --git a/test/more/tests/syntax-highlight/comments.gold b/test/more/tests/syntax-highlight/comments.gold
new file mode 100644
index 0000000..a2b1633
--- /dev/null
+++ b/test/more/tests/syntax-highlight/comments.gold
@@ -0,0 +1,26 @@
+<!DOCTYPE section PUBLIC "-//OASIS//DTD DocBook XML V4.2//EN" "http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd">
+<section id="header.example_hpp"><title>Header &lt;<ulink url="../../example.hpp">example.hpp</ulink>&gt;</title><para>
+    Fake reference documentation, so that the syntax highlighter will kick in.
+  </para><synopsis xmlns:xi="http://www.w3.org/2001/XInclude">
+
+<link linkend="foo">foo</link></synopsis>
+  
+
+  <refentry xmlns:xi="http://www.w3.org/2001/XInclude" id="foo"><refmeta><refentrytitle>Macro foo</refentrytitle><manvolnum>3</manvolnum></refmeta><refnamediv><refname>foo</refname><refpurpose/></refnamediv><refsynopsisdiv><synopsis><phrase role="comment">// In header: &lt;<link linkend="header.example_hpp">example.hpp</link>&gt;
+
+</phrase>foo</synopsis></refsynopsisdiv><refsect1><title>Description</title>
+      <programlisting><phrase role="comment">/* C style comment */</phrase></programlisting>
+      <programlisting><phrase role="comment">/* Broken C style comment</phrase></programlisting>
+      <programlisting>
+<phrase role="comment">/* Multi-line
+ *comment
+ */</phrase></programlisting>
+      <programlisting><phrase role="comment">/*/ Tricky comment */</phrase></programlisting>
+      <programlisting><phrase role="comment">/**/</phrase></programlisting>
+      <programlisting><phrase role="comment">/***/</phrase></programlisting>
+      <programlisting><phrase role="comment">// Single line comment</phrase></programlisting>
+      <programlisting><phrase role="comment">// Single line comment</phrase>
+</programlisting>
+    </refsect1></refentry>
+
+</section>
\ No newline at end of file
diff --git a/test/more/tests/syntax-highlight/comments.xml b/test/more/tests/syntax-highlight/comments.xml
new file mode 100644
index 0000000..276205b
--- /dev/null
+++ b/test/more/tests/syntax-highlight/comments.xml
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8"?>
+<header name="example.hpp">
+  <para>
+    Fake reference documentation, so that the syntax highlighter will kick in.
+  </para>
+
+  <macro name="foo">
+    <description>
+      <programlisting>/* C style comment */</programlisting>
+      <programlisting>/* Broken C style comment</programlisting>
+      <programlisting>
+/* Multi-line
+ *comment
+ */</programlisting>
+      <programlisting>/*/ Tricky comment */</programlisting>
+      <programlisting>/**/</programlisting>
+      <programlisting>/***/</programlisting>
+      <programlisting>// Single line comment</programlisting>
+      <programlisting>// Single line comment
+</programlisting>
+    </description>
+  </macro>
+
+</header>
diff --git a/xsl/source-highlight.xsl b/xsl/source-highlight.xsl
index 03894c6..b3903e5 100644
--- a/xsl/source-highlight.xsl
+++ b/xsl/source-highlight.xsl
@@ -363,20 +363,39 @@
         </xsl:call-template>
       </xsl:when>
       <xsl:when test="substring($text, 1, 2) = '//'">
-        <xsl:call-template name="highlight-comment">
-          <xsl:with-param name="text" select="substring-before($text, '&#xA;')"/>
-        </xsl:call-template>
-        <xsl:call-template name="highlight-text-impl-root">
-          <xsl:with-param name="text" select="concat('&#xA;', substring-after($text, '&#xA;'))"/>
-        </xsl:call-template>
+        <xsl:choose>
+          <xsl:when test="contains($text, '&#xA;')">
+            <xsl:call-template name="highlight-comment">
+              <xsl:with-param name="text" select="substring-before($text, '&#xA;')"/>
+            </xsl:call-template>
+            <xsl:call-template name="highlight-text-impl-root">
+              <xsl:with-param name="text" select="concat('&#xA;', substring-after($text, '&#xA;'))"/>
+            </xsl:call-template>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:call-template name="highlight-comment">
+              <xsl:with-param name="text" select="$text"/>
+            </xsl:call-template>
+          </xsl:otherwise>
+        </xsl:choose>
       </xsl:when>
       <xsl:when test="substring($text, 1, 2) = '/*'">
-        <xsl:call-template name="highlight-comment">
-          <xsl:with-param name="text" select="concat(substring-before($text, '*/'), '*/')"/>
-        </xsl:call-template>
-        <xsl:call-template name="highlight-text-impl-root">
-          <xsl:with-param name="text" select="substring-after($text, '*/')"/>
-        </xsl:call-template>
+        <xsl:variable name="after-start" select="substring($text, 3)" />
+        <xsl:choose>
+          <xsl:when test="contains($after-start, '*/')">
+            <xsl:call-template name="highlight-comment">
+              <xsl:with-param name="text" select="concat('/*', substring-before($after-start, '*/'), '*/')"/>
+            </xsl:call-template>
+            <xsl:call-template name="highlight-text-impl-root">
+              <xsl:with-param name="text" select="substring-after($after-start, '*/')"/>
+            </xsl:call-template>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:call-template name="highlight-comment">
+              <xsl:with-param name="text" select="$text"/>
+            </xsl:call-template>
+          </xsl:otherwise>
+        </xsl:choose>
       </xsl:when>
       <xsl:when test="contains('&#xA;&#xD;', substring($text, 1, 1))">
         <xsl:value-of select="substring($text, 1, 1)"/>