From 760927191338d0cfdda7edd369dd12d35941cd07 Mon Sep 17 00:00:00 2001
From: Tommy Reynolds <Tommy.Reynolds@MegaCoder.com>
Date: Sat, 25 Feb 2006 04:51:56 +0000
Subject: Added support for SYSTEM entities.

---
 common/entities/entities.xsl | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

(limited to 'common/entities/entities.xsl')

diff --git a/common/entities/entities.xsl b/common/entities/entities.xsl
index 952f9e4..9275a25 100644
--- a/common/entities/entities.xsl
+++ b/common/entities/entities.xsl
@@ -13,11 +13,30 @@
 
   <xsl:template match="entity">
     <xsl:variable name="name" select="name"/>
-    <xsl:variable name="desc" select="comment"/>
+    <xsl:variable name="desc">
+      <xsl:choose>
+        <xsl:when test="comment = ''">
+          WHO AM I?  WHAT AM I? I CAN'T REMEMBER!
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:value-of select="comment"/>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name="extra">
+      <xsl:choose>
+        <xsl:when test="@kind = 'system'">
+          <xsl:text> SYSTEM</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text></xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
     <xsl:variable name="body">
       <xsl:apply-templates/>
     </xsl:variable>
-    <xsl:value-of select="concat( '&lt;!ENTITY ', @name, ' &quot;', normalize-space($body), '&quot; &gt;  &lt;!-- ', normalize-space($desc), '--&gt;')" disable-output-escaping="yes"/>
+    <xsl:value-of select="concat( '&lt;!ENTITY ', @name, ' ', normalize-space($extra), ' &quot;', normalize-space($body), '&quot; &gt;  &lt;!-- ', normalize-space($desc), ' --&gt;')" disable-output-escaping="yes"/>
   </xsl:template>
 
   <xsl:template match="use">
-- 
cgit