dsl_to_dslx.xsl in cpee-2.1.27

- old
+ new

@@ -415,11 +415,13 @@
   </xsl:template>
   <xsl:template match="d:annotations" mode="annotations">
     <xsl:text>:</xsl:text>
     <xsl:value-of select="name()"/>
     <xsl:text> =&gt; </xsl:text>
-    <xsl:apply-templates select="d:*" mode="plainmulti"/>
+    <xsl:text>{ </xsl:text>
+    <xsl:apply-templates select="d:*" mode="simplemulti"/>
+    <xsl:text> }</xsl:text>
   </xsl:template>
   <xsl:template match="d:*[not(name()='label')]" mode="parameter">
     <xsl:if test="count(preceding-sibling::*) &gt; 0">, </xsl:if>
     <xsl:text>:</xsl:text>
     <xsl:value-of select="name()"/>
@@ -504,9 +506,37 @@
           </xsl:otherwise>
         </xsl:choose>
       </xsl:otherwise>
     </xsl:choose>
     <xsl:text> }</xsl:text>
+  </xsl:template>
+  <xsl:template match="d:*" mode="simplemulti">
+    <xsl:if test="count(preceding-sibling::*) &gt; 0">, </xsl:if>
+    <xsl:text>:</xsl:text>
+    <xsl:value-of select="name()"/>
+    <xsl:text> =&gt; </xsl:text>
+    <xsl:choose>
+      <xsl:when test="count(*) &gt; 0">
+        <xsl:text>{</xsl:text>
+        <xsl:apply-templates select="d:*" mode="plain"/>
+        <xsl:text>}</xsl:text>
+      </xsl:when>
+      <xsl:when test="not(node())">
+        <xsl:text>nil</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:choose>
+          <xsl:when test="substring(text(),1,1) = '!'">
+            <xsl:value-of select="substring(text(),2)"/>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:text>"</xsl:text>
+            <xsl:value-of select="str:replace(str:replace(text(),'\','\\'),'&quot;','\&quot;')"/>
+            <xsl:text>"</xsl:text>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:otherwise>
+    </xsl:choose>
   </xsl:template>
   <xsl:template name="format-name">
     <xsl:param name="tname"/>
     <xsl:choose>
       <xsl:when test="contains($tname,'-')">