cpee 1.5.22 → 1.5.27

data/cockpit/themes/compact/theme.js

@@ -65,7 +65,7 @@ function WFAdaptorManifestation(adaptor) {
         var schema = save['endpoints_cache'][$(node).attr('endpoint')].schema.documentElement;
         $(rng).find(' > element[name="parameters"] > element[name="arguments"]').replaceWith($(schema).clone());
       }
-      if (save['endpoints_list'][$(node).attr('endpoint')] && !save['endpoints_list'][$(node).attr('endpoint')].startsWith('http')) {
+      if (save['endpoints_list'][$(node).attr('endpoint')] && (!save['endpoints_list'][$(node).attr('endpoint')].startsWith('http') || save['endpoints_list'][$(node).attr('endpoint')].match(/^https?-/))) {
         $(rng).find(' > element[name="parameters"] > element[name="method"]').remove();
       }
       save['details'] = new RelaxNGui(rng,tab,self.adaptor.description.context_eval,true);

data/cockpit/themes/default/theme.js

@@ -65,7 +65,7 @@ function WFAdaptorManifestation(adaptor) {
         var schema = save['endpoints_cache'][$(node).attr('endpoint')].schema.documentElement;
         $(rng).find(' > element[name="parameters"] > element[name="arguments"]').replaceWith($(schema).clone());
       }
-      if (save['endpoints_list'][$(node).attr('endpoint')] && !save['endpoints_list'][$(node).attr('endpoint')].startsWith('http')) {
+      if (save['endpoints_list'][$(node).attr('endpoint')] && (!save['endpoints_list'][$(node).attr('endpoint')].startsWith('http') || save['endpoints_list'][$(node).attr('endpoint')].match(/^https?-/))) {
         $(rng).find(' > element[name="parameters"] > element[name="method"]').remove();
       }
       save['details'] = new RelaxNGui(rng,tab,self.adaptor.description.context_eval,true);

data/cockpit/themes/extended/rngs/call.rng

@@ -92,6 +92,12 @@
   </element>
   <element name="annotations" rngui:header="Annotations">
     <element name="_timing" rngui:header="Timing" rngui:fold="closed">
+      <element name="_timing_wait" rngui:label='ω - Wait'>
+        <data type='float' rngui:label='[0,1]' rngui:default='0.5'/>
+      </element>
+      <element name="_timing_threshold" rngui:label='κ - Threshold'>
+        <data type='float' rngui:label='[0,3,n]' rngui:default='3'/>
+      </element>
       <element name="_timing_min" rngui:label='Min in min'>
         <data type='float' rngui:label='Minutes'/>
       </element>

data/cockpit/themes/extended/rngs/callmanipulate.rng

@@ -115,6 +115,12 @@
   </element>
   <element name="annotations" rngui:header="Annotations">
     <element name="_timing" rngui:header="Timing" rngui:fold="closed">
+      <element name="_timing_wait" rngui:label='ω - Wait'>
+        <data type='float' rngui:label='[0,1]'/>
+      </element>
+      <element name="_timing_threshold" rngui:label='κ - Threshold'>
+        <data type='float' rngui:label='[0,3,n]'/>
+      </element>
       <element name="_timing_min" rngui:label='Min in min'>
         <data type='float' rngui:label='Minutes'/>
       </element>

data/cockpit/themes/extended/theme.js

@@ -65,7 +65,7 @@ function WFAdaptorManifestation(adaptor) {
         var schema = save['endpoints_cache'][$(node).attr('endpoint')].schema.documentElement;
         $(rng).find(' > element[name="parameters"] > element[name="arguments"]').replaceWith($(schema).clone());
       }
-      if (save['endpoints_list'][$(node).attr('endpoint')] && !save['endpoints_list'][$(node).attr('endpoint')].startsWith('http')) {
+      if (save['endpoints_list'][$(node).attr('endpoint')] && (!save['endpoints_list'][$(node).attr('endpoint')].startsWith('http') || save['endpoints_list'][$(node).attr('endpoint')].match(/^https?-/))) {
         $(rng).find(' > element[name="parameters"] > element[name="method"]').remove();
       }
       save['details'] = new RelaxNGui(rng,tab,self.adaptor.description.context_eval,true);
@@ -264,33 +264,18 @@ function WFAdaptorManifestation(adaptor) {
       'label': function(node){
         var rep = $('body').attr('current-resources');
         var ep = self.endpoints[$(node).attr('endpoint')];
-        var avg = $('_timing_avg',$(node).children('annotations')).text();
+        var wait = $('_timing_wait',$(node).children('annotations')).text();
+        var threshold = $('_timing_threshold',$(node).children('annotations')).text();
         var lab = $('> label',$(node).children('parameters')).text().replace(/^['"]/,'').replace(/['"]$/,'');
         var ret = [ { column: 'ID', value: $(node).attr('id') } ];
         if (lab != '') {
           ret.unshift( { column: 'Label', value: lab } );
         }
-        if (ep != undefined) {
-          var lnd = $(node).attr('endpoint');
-          ret.push({ column: 'Resource', value: lnd });
-          if (save['endpoints_cache'][lnd] && save['endpoints_cache'][lnd].properties) {
-            var prop = save['endpoints_cache'][lnd].properties;
-            if (prop.resource) {
-              if (prop.resource == 'exclusive' && prop.lock) {
-                ret.push({ column: 'RP', value: prop.resource + ' (' + prop.lock + ')' });
-              } else {
-                ret.push({ column: 'RP', value: prop.resource });
-              }
-            }
-            if (prop.alternatives) {
-              ret.push({ column: 'R#', value: prop.alternatives.length + 1});
-            } else {
-              ret.push({ column: 'R#', value: '1' });
-            }
-          }
+        if (wait != '') {
+          ret.push({ column: 'Wait', value: 'ω = ' + wait });
         }
-        if (avg != '') {
-          ret.push({ column: 'Average', value: avg + 'min' });
+        if (threshold != '') {
+          ret.push({ column: 'Threshold', value: 'κ = ' + threshold });
         }
         return ret;
       },

data/cockpit/themes/model/theme.js

@@ -65,7 +65,7 @@ function WFAdaptorManifestation(adaptor) {
         var schema = save['endpoints_cache'][$(node).attr('endpoint')].schema.documentElement;
         $(rng).find(' > element[name="parameters"] > element[name="arguments"]').replaceWith($(schema).clone());
       }
-      if (save['endpoints_list'][$(node).attr('endpoint')] && !save['endpoints_list'][$(node).attr('endpoint')].startsWith('http')) {
+      if (save['endpoints_list'][$(node).attr('endpoint')] && (!save['endpoints_list'][$(node).attr('endpoint')].startsWith('http') || save['endpoints_list'][$(node).attr('endpoint')].match(/^https?-/))) {
         $(rng).find(' > element[name="parameters"] > element[name="method"]').remove();
       }
       save['details'] = new RelaxNGui(rng,tab,self.adaptor.description.context_eval,true);

data/cockpit/themes/packed/rngs/call.rng

@@ -92,6 +92,12 @@
   </element>
   <element name="annotations" rngui:header="Annotations">
     <element name="_timing" rngui:header="Timing" rngui:fold="closed">
+      <element name="_timing_wait" rngui:label='ω - Wait'>
+        <data type='float' rngui:label='[0,1]' rngui:default='0.5'/>
+      </element>
+      <element name="_timing_threshold" rngui:label='κ - Threshold'>
+        <data type='float' rngui:label='[0,3,n]' rngui:default='3'/>
+      </element>
       <element name="_timing_min" rngui:label='Min in min'>
         <data type='float' rngui:label='Minutes'/>
       </element>

data/cockpit/themes/packed/rngs/callmanipulate.rng

@@ -115,6 +115,12 @@
   </element>
   <element name="annotations" rngui:header="Annotations">
     <element name="_timing" rngui:header="Timing" rngui:fold="closed">
+      <element name="_timing_wait" rngui:label='ω - Wait'>
+        <data type='float' rngui:label='[0,1]'/>
+      </element>
+      <element name="_timing_threshold" rngui:label='κ - Threshold'>
+        <data type='float' rngui:label='[0,3,n]'/>
+      </element>
       <element name="_timing_min" rngui:label='Min in min'>
         <data type='float' rngui:label='Minutes'/>
       </element>

data/cockpit/themes/packed/theme.js

@@ -65,7 +65,7 @@ function WFAdaptorManifestation(adaptor) {
         var schema = save['endpoints_cache'][$(node).attr('endpoint')].schema.documentElement;
         $(rng).find(' > element[name="parameters"] > element[name="arguments"]').replaceWith($(schema).clone());
       }
-      if (save['endpoints_list'][$(node).attr('endpoint')] && !save['endpoints_list'][$(node).attr('endpoint')].startsWith('http')) {
+      if (save['endpoints_list'][$(node).attr('endpoint')] && (!save['endpoints_list'][$(node).attr('endpoint')].startsWith('http') || save['endpoints_list'][$(node).attr('endpoint')].match(/^https?-/))) {
         $(rng).find(' > element[name="parameters"] > element[name="method"]').remove();
       }
       save['details'] = new RelaxNGui(rng,tab,self.adaptor.description.context_eval,true);

data/cockpit/themes/preset/rngs/call.rng

@@ -92,6 +92,12 @@
   </element>
   <element name="annotations" rngui:header="Annotations">
     <element name="_timing" rngui:header="Timing" rngui:fold="closed">
+      <element name="_timing_wait" rngui:label='ω - Wait'>
+        <data type='float' rngui:label='[0,1]' rngui:default='0.5'/>
+      </element>
+      <element name="_timing_threshold" rngui:label='κ - Threshold'>
+        <data type='float' rngui:label='[0,3,n]' rngui:default='3'/>
+      </element>
       <element name="_timing_min" rngui:label='Min in min'>
         <data type='float' rngui:label='Minutes'/>
       </element>

data/cockpit/themes/preset/rngs/callmanipulate.rng

@@ -115,6 +115,12 @@
   </element>
   <element name="annotations" rngui:header="Annotations">
     <element name="_timing" rngui:header="Timing" rngui:fold="closed">
+      <element name="_timing_wait" rngui:label='ω - Wait'>
+        <data type='float' rngui:label='[0,1]'/>
+      </element>
+      <element name="_timing_threshold" rngui:label='κ - Threshold'>
+        <data type='float' rngui:label='[0,3,n]'/>
+      </element>
       <element name="_timing_min" rngui:label='Min in min'>
         <data type='float' rngui:label='Minutes'/>
       </element>

data/cockpit/themes/preset/theme.js

@@ -65,7 +65,7 @@ function WFAdaptorManifestation(adaptor) {
         var schema = save['endpoints_cache'][$(node).attr('endpoint')].schema.documentElement;
         $(rng).find(' > element[name="parameters"] > element[name="arguments"]').replaceWith($(schema).clone());
       }
-      if (save['endpoints_list'][$(node).attr('endpoint')] && !save['endpoints_list'][$(node).attr('endpoint')].startsWith('http')) {
+      if (save['endpoints_list'][$(node).attr('endpoint')] && (!save['endpoints_list'][$(node).attr('endpoint')].startsWith('http') || save['endpoints_list'][$(node).attr('endpoint')].match(/^https?-/))) {
         $(rng).find(' > element[name="parameters"] > element[name="method"]').remove();
       }
       save['details'] = new RelaxNGui(rng,tab,self.adaptor.description.context_eval,true);

data/cpee.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name             = "cpee"
-  s.version          = "1.5.22"
+  s.version          = "1.5.27"
   s.platform         = Gem::Platform::RUBY
   s.license          = "LGPL-3.0"
   s.summary          = "Preliminary release of cloud process execution engine (cpee). If you just need workflow execution, without a rest/xmpp service exposing it, then use WEEL"

data/lib/cpee/controller.rb

@@ -373,7 +373,7 @@ module CPEE
         node = doc.find("/p:properties/p:state").first
         state = node.text
       end
-      if call_vote("state/change", :instance => @id, :info => info, :state => state)
+      if call_vote("state/change", :instance => @id, :info => info, :state => state, :attributes => attributes_translated)
         case state
           when 'stopping'
             stop

data/lib/cpee/instantiation.rb

@@ -34,7 +34,7 @@ module CPEE
           doc.register_namespace 'desc', 'http://cpee.org/ns/description/1.0'
           doc.register_namespace 'prop', 'http://riddl.org/ns/common-patterns/properties/1.0'
 
-          srv = Riddl::Client.new(cpee, cpee + "?riddl-description")
+          srv = Riddl::Client.new(cpee, File.join(cpee,'?riddl-description'))
           res = srv.resource("/")
           if name
             doc.find("/testset/attributes/prop:info").each do |e|
@@ -109,7 +109,7 @@ module CPEE
 
           if cb
             cbk = SecureRandom.uuid
-            srv = Riddl::Client.new(cpee, cpee + "?riddl-description")
+            srv = Riddl::Client.new(cpee, File.join(cpee,'?riddl-description'))
             status, response = srv.resource("/#{instance}/notifications/subscriptions/").post [
               Riddl::Parameter::Simple.new("url",File.join(selfurl,'callback',cbk)),
               Riddl::Parameter::Simple.new("topic","state"),
@@ -126,7 +126,7 @@ module CPEE
       private :handle_waiting
       def handle_starting(cpee,instance,behavior) #{{{
         if behavior =~ /_running$/
-          srv = Riddl::Client.new(cpee, cpee + "?riddl-description")
+          srv = Riddl::Client.new(cpee, File.join(cpee,'?riddl-description'))
           res = srv.resource("/#{instance}/properties/values")
           status, response = res.put [
             Riddl::Parameter::Simple.new('name', 'state'),
@@ -141,7 +141,7 @@ module CPEE
           JSON::parse(data).each do |k,v|
             content.root.add(k,v)
           end
-          srv = Riddl::Client.new(cpee, cpee + "?riddl-description")
+          srv = Riddl::Client.new(cpee, File.join(cpee,'?riddl-description'))
           res = srv.resource("/#{instance}/properties/values/dataelements/")
           status, response = res.patch [
             Riddl::Parameter::Complex.new('content','text/xml',content.to_s)
@@ -154,7 +154,7 @@ module CPEE
           JSON::parse(data).each do |k,v|
             content.root.add(k,v)
           end
-          srv = Riddl::Client.new(cpee, cpee + "?riddl-description")
+          srv = Riddl::Client.new(cpee, File.join(cpee,'?riddl-description'))
           res = srv.resource("/#{instance}/properties/values/endpoints/")
           status, response = res.patch [
             Riddl::Parameter::Complex.new('content','text/xml',content.to_s)
@@ -280,7 +280,7 @@ module CPEE
         cblist   = @a[2]
         instance = @p[1].value
 
-        srv = Riddl::Client.new(cpee, cpee + "?riddl-description")
+        srv = Riddl::Client.new(cpee, File.join(cpee,'?riddl-description'))
         res = srv.resource("/#{instance}/properties/values/attributes/uuid")
         status, response = res.get
 
@@ -296,7 +296,6 @@ module CPEE
 
     class ContinueTask < Riddl::Implementation #{{{
       def response
-        cpee         = @h['X_CPEE'] || @a[0]
         cblist       = @a[1]
         topic        = @p[1].value
         event_name   = @p[2].value
@@ -305,6 +304,8 @@ module CPEE
         key = @r.last
         cb, condition, instance, uuid, instance_url = cblist.lrange(key,0,-1)
 
+        cpee = File.dirname(instance_url)
+
         orisend = {
           'CPEE-INSTANCE' => instance,
           'CPEE-INSTANCE-URL' => instance_url,
@@ -315,7 +316,7 @@ module CPEE
 
         if notification['state'] == condition
           cblist.del(key)
-          srv = Riddl::Client.new(cpee, cpee + "?riddl-description")
+          srv = Riddl::Client.new(cpee, File.join(cpee,'?riddl-description'))
           res = srv.resource("/#{instance}/properties/values/dataelements")
           status, response = res.get
           if status >= 200 && status < 300

data/log/sic.rb

@@ -58,6 +58,7 @@ def help
   puts '  Copy: sic.rb https://centurio.work/log/865916c6-2b18-4e9d-81d4-0fab0df248f4.xes.yaml copy'
   puts '  Copy: sic.rb ~/Projects/cpee/log/logs/865916c6-2b18-4e9d-81d4-0fab0df248f4.xes.yaml copy'
   puts '  View: sic.rb 865916c6-2b18-4e9d-81d4-0fab0df248f4.xes.yaml'
+  true
 end
 
 react(ARGV[0]) || help

data/server/handlerwrappers/default.rb

@@ -16,7 +16,7 @@ class DefaultHandlerWrapper < WEEL::HandlerWrapperBase
   def self::inform_state_change(arguments,newstate) # {{{
     controller = arguments[0]
 		controller.serialize_state!
-		controller.notify("state/change", :instance => controller.instance, :instance_uuid => controller.uuid, :state => newstate, :timestamp => Time.now.strftime("%Y-%m-%dT%H:%M:%S.%L%:z"))
+		controller.notify("state/change", :instance => controller.instance, :instance_uuid => controller.uuid, :state => newstate, :timestamp => Time.now.strftime("%Y-%m-%dT%H:%M:%S.%L%:z"), :attributes => controller.attributes_translated)
 		controller.finalize_if_finished
   end # }}}
   def self::inform_syntax_error(arguments,err,code)# {{{

data/server/resources/transformation_dslx.xsl

@@ -390,9 +390,7 @@
         <xsl:text>]</xsl:text>
       </xsl:when>
       <xsl:when test="count(*) &gt; 0 and name()='report'">
-        <xsl:text>[</xsl:text>
         <xsl:apply-templates select="d:*" mode="plainmulti"/>
-        <xsl:text>]</xsl:text>
       </xsl:when>
       <xsl:when test="count(*) &gt; 0 and not(name()='arguments')">
         <xsl:text>{</xsl:text>
@@ -509,11 +507,11 @@
         <xsl:text>nil</xsl:text>
       </xsl:when>
       <xsl:when test="child::node()[not(self::text())]">
-        <!-- FUUUU, there is probably much more TODO -->
+        <!-- FUUUU, there is probably much more TODO. Updated Matthias und Juergen, we tested for ing-opcua/execute -->
         <xsl:choose>
-          <xsl:when test="child::*/child::* and count(child::*[not(name()=name(../child::*[1]))])=0">
+          <xsl:when test="child::* and name(child::*)=concat(name(.),'_item')  and count(child::*[not(name()=name(../child::*[1]))])=0">
             <xsl:text>"[ </xsl:text>
-            <xsl:apply-templates select="*" mode="JSON"/>
+            <xsl:apply-templates select="*" mode="JSONArrayItem"/>
             <xsl:text>]"</xsl:text>
           </xsl:when>
           <xsl:otherwise>
@@ -657,6 +655,15 @@
       <xsl:otherwise><xsl:text> </xsl:text></xsl:otherwise>
     </xsl:choose>
   </xsl:template>
+  <xsl:template match="*" mode="JSONArrayItem">
+    <xsl:call-template name="JSONProperties">
+      <xsl:with-param name="parent" select="'Yes'"></xsl:with-param>
+    </xsl:call-template>
+    <xsl:choose>
+      <xsl:when test="following-sibling::*">, </xsl:when>
+      <xsl:otherwise><xsl:text> </xsl:text></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
 
   <!-- JSON Object Properties -->
   <xsl:template name="JSONProperties">

data/server/transformation_dslx.xsl

@@ -0,0 +1,790 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:d="http://cpee.org/ns/description/1.0" xmlns:str="http://exslt.org/strings" version="1.0">
+  <xsl:output method="text"/>
+  <xsl:strip-space elements="*"/>
+  <xsl:variable name="myspacemultiplier">2</xsl:variable>
+  <xsl:template match="/">
+    <xsl:apply-templates select="//d:description"/>
+  </xsl:template>
+  <xsl:template match="//d:description">
+    <xsl:apply-templates>
+      <xsl:with-param name="myspace">
+        <xsl:value-of select="-1*$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:apply-templates>
+  </xsl:template>
+  <xsl:template match="*">
+    <xsl:param name="myspace"/>
+    <xsl:call-template name="print-space">
+      <xsl:with-param name="i">1</xsl:with-param>
+      <xsl:with-param name="count">
+        <xsl:value-of select="$myspace+$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:call-template>
+    <xsl:if test="name()='call' or name()='manipulate'">
+      <xsl:value-of select="name()"/>
+      <xsl:text> :</xsl:text>
+      <xsl:value-of select="@id"/>
+    </xsl:if>
+    <xsl:if test="name()='call'">
+      <xsl:text>, </xsl:text>
+      <xsl:choose>
+        <xsl:when test="count(str:tokenize(@endpoint,' ')) &gt; 1">
+          <xsl:text>[</xsl:text>
+          <xsl:for-each select="str:tokenize(@endpoint,' ')">
+            <xsl:if test="position() &gt;1">, </xsl:if>
+            <xsl:text>:</xsl:text>
+            <xsl:value-of select="."/>
+          </xsl:for-each>
+          <xsl:text>]</xsl:text>
+        </xsl:when>
+        <xsl:when test="count(str:tokenize(@endpoint,' ')) = 0">
+          <xsl:text>nil</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text>:</xsl:text>
+          <xsl:value-of select="@endpoint"/>
+        </xsl:otherwise>
+      </xsl:choose>
+      <xsl:text>, parameters: { </xsl:text>
+      <xsl:apply-templates select="d:parameters"/>
+      <xsl:text> }</xsl:text>
+      <xsl:if test="(d:finalize or d:code/d:finalize) and (d:finalize/text() or d:code/d:finalize/text())">
+        <xsl:text>, finalize: &lt;&lt;-END</xsl:text>
+      </xsl:if>
+      <xsl:if test="(d:update or d:code/d:update) and (d:update/text() or d:code/d:update/text())">
+        <xsl:text>, update: &lt;&lt;-END</xsl:text>
+      </xsl:if>
+      <xsl:if test="(d:prepare or d:code/d:prepare) and (d:prepare/text() or d:code/d:prepare/text())">
+        <xsl:text>, prepare: &lt;&lt;-END</xsl:text>
+      </xsl:if>
+      <xsl:if test="(d:rescue or d:code/d:rescue) and (d:rescue/text() or d:code/d:rescue/text())">
+        <xsl:text>, salvage: &lt;&lt;-END</xsl:text>
+      </xsl:if>
+      <xsl:apply-templates select="d:finalize | d:code/d:finalize" mode="part-of-call">
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:apply-templates select="d:update | d:code/d:update" mode="part-of-call">
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:apply-templates select="d:prepare | d:code/d:prepare" mode="part-of-call">
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:apply-templates select="d:rescue | d:code/d:rescue" mode="part-of-call">
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='manipulate'">
+      <xsl:if test="@label">
+        <xsl:text>, { :label => "</xsl:text>
+          <xsl:value-of select="@label"/>
+        <xsl:text>" }</xsl:text>
+      </xsl:if>
+      <xsl:call-template name="print-mcontent">
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='terminate'">
+      <xsl:text>terminate</xsl:text>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='stop'">
+      <xsl:text>stop :</xsl:text>
+      <xsl:value-of select="@id"/>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='escape'">
+      <xsl:text>escape</xsl:text>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='parallel'">
+      <xsl:text>parallel</xsl:text>
+      <xsl:if test="@wait">
+        <xsl:text> :wait =&gt; </xsl:text>
+        <xsl:value-of select="@wait"/>
+      </xsl:if>
+      <xsl:text> do</xsl:text>
+      <xsl:call-template name="print-newline"/>
+      <xsl:apply-templates>
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:text>end</xsl:text>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='loop'">
+      <xsl:text>loop </xsl:text>
+      <xsl:if test="@mode='pre_test'">
+        <xsl:choose>
+          <xsl:when test="@language='application/x-ruby'">
+            <xsl:text>pre_test{</xsl:text>
+            <xsl:value-of select="@condition"/>
+            <xsl:text>} </xsl:text>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:text>pre_test("</xsl:text>
+            <xsl:value-of select="str:replace(str:replace(@condition,'\','\\'),'&quot;','\&quot;')"/>
+            <xsl:text>")</xsl:text>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:if>
+      <xsl:if test="@mode='post_test'">
+        <xsl:choose>
+          <xsl:when test="@language='application/x-ruby'">
+            <xsl:text>post_test{</xsl:text>
+            <xsl:value-of select="@condition"/>
+            <xsl:text>} </xsl:text>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:text>post_test("</xsl:text>
+            <xsl:value-of select="str:replace(str:replace(@condition,'\','\\'),'&quot;','\&quot;')"/>
+            <xsl:text>")</xsl:text>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:if>
+      <xsl:for-each select="@*[not(name()='language' or name()='mode' or name()='condition' or name()='svg-label')]">
+        <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> do</xsl:text>
+      <xsl:call-template name="print-newline"/>
+      <xsl:apply-templates>
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:text>end</xsl:text>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='choose'">
+      <xsl:text>choose </xsl:text>
+      <xsl:choose>
+        <xsl:when test="@mode='exclusive'">
+          <xsl:text>:exclusive</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text>:inclusive</xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+      <xsl:text> do</xsl:text>
+      <xsl:call-template name="print-newline"/>
+      <xsl:apply-templates>
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:text>end</xsl:text>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='group'">
+      <xsl:apply-templates>
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+    <xsl:if test="name()='critical'">
+      <xsl:text>critical :</xsl:text>
+      <xsl:value-of select="@sid"/>
+      <xsl:text> do</xsl:text>
+      <xsl:call-template name="print-newline"/>
+      <xsl:apply-templates>
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:text>end</xsl:text>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+  </xsl:template>
+  <xsl:template match="d:alternative">
+    <xsl:param name="myspace"/>
+    <xsl:call-template name="print-space">
+      <xsl:with-param name="i">1</xsl:with-param>
+      <xsl:with-param name="count">
+        <xsl:value-of select="$myspace+$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:call-template>
+    <xsl:text>alternative </xsl:text>
+    <xsl:choose>
+      <xsl:when test="@language='application/x-ruby'">
+        <xsl:text>test{</xsl:text>
+        <xsl:value-of select="@condition"/>
+        <xsl:text>}</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:text>test("</xsl:text>
+        <xsl:value-of select="str:replace(str:replace(@condition,'\','\\'),'&quot;','\&quot;')"/>
+        <xsl:text>")</xsl:text>
+      </xsl:otherwise>
+    </xsl:choose>
+    <xsl:for-each select="@*[not(name()='language' or name()='condition' or name()='svg-label')]">
+      <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> do</xsl:text>
+    <xsl:call-template name="print-newline"/>
+    <xsl:apply-templates>
+      <xsl:with-param name="myspace">
+        <xsl:value-of select="$myspace+$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:apply-templates>
+    <xsl:call-template name="print-space">
+      <xsl:with-param name="i">1</xsl:with-param>
+      <xsl:with-param name="count">
+        <xsl:value-of select="$myspace+$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:call-template>
+    <xsl:text>end</xsl:text>
+    <xsl:call-template name="print-newline"/>
+  </xsl:template>
+  <xsl:template match="d:otherwise">
+    <xsl:param name="myspace"/>
+    <xsl:if test="*">
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:text>otherwise </xsl:text>
+      <xsl:for-each select="@*[not(name()='language' or name()='condition' or name()='svg-label')]">
+        <xsl:if test="position() &gt;1">, </xsl:if>
+        <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> do</xsl:text>
+      <xsl:call-template name="print-newline"/>
+      <xsl:apply-templates>
+        <xsl:with-param name="myspace">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:apply-templates>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:text>end</xsl:text>
+      <xsl:call-template name="print-newline"/>
+    </xsl:if>
+  </xsl:template>
+  <xsl:template match="d:parallel_branch">
+    <xsl:param name="myspace"/>
+    <xsl:call-template name="print-space">
+      <xsl:with-param name="i">1</xsl:with-param>
+      <xsl:with-param name="count">
+        <xsl:value-of select="$myspace+$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:call-template>
+    <xsl:text>parallel_branch</xsl:text>
+    <xsl:if test="@pass">
+      <xsl:text> </xsl:text>
+      <xsl:value-of select="@pass"/>
+    </xsl:if>
+    <xsl:text> do</xsl:text>
+    <xsl:if test="@local">
+      <xsl:text> |</xsl:text>
+      <xsl:value-of select="@local"/>
+      <xsl:text>|</xsl:text>
+    </xsl:if>
+    <xsl:call-template name="print-newline"/>
+    <xsl:apply-templates>
+      <xsl:with-param name="myspace">
+        <xsl:value-of select="$myspace+$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:apply-templates>
+    <xsl:call-template name="print-space">
+      <xsl:with-param name="i">1</xsl:with-param>
+      <xsl:with-param name="count">
+        <xsl:value-of select="$myspace+$myspacemultiplier"/>
+      </xsl:with-param>
+    </xsl:call-template>
+    <xsl:text>end</xsl:text>
+    <xsl:call-template name="print-newline"/>
+  </xsl:template>
+  <xsl:template match="d:parameters">
+    <xsl:apply-templates select="d:label" mode="parameter"/>
+    <xsl:apply-templates select="d:*[not(name()='label')]" mode="parameter"/>
+  </xsl:template>
+  <xsl:template match="d:label" mode="parameter">
+    <xsl:text>:</xsl:text>
+    <xsl:value-of select="name()"/>
+    <xsl:text> =&gt; "</xsl:text>
+    <xsl:value-of select="str:replace(str:replace(text(),'\','\\'),'&quot;','\&quot;')"/>
+    <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()"/>
+    <xsl:text> =&gt; </xsl:text>
+
+    <xsl:choose>
+      <xsl:when test="count(*) &gt; 0 and name()='arguments'">
+        <xsl:text>[</xsl:text>
+        <xsl:apply-templates select="d:*" mode="sub"/>
+        <xsl:text>]</xsl:text>
+      </xsl:when>
+      <xsl:when test="count(*) &gt; 0 and name()='sensors'">
+        <xsl:text>[</xsl:text>
+        <xsl:apply-templates select="d:*" mode="plainmulti"/>
+        <xsl:text>]</xsl:text>
+      </xsl:when>
+      <xsl:when test="count(*) &gt; 0 and name()='aggregators'">
+        <xsl:text>[</xsl:text>
+        <xsl:apply-templates select="d:*" mode="plainmulti"/>
+        <xsl:text>]</xsl:text>
+      </xsl:when>
+      <xsl:when test="count(*) &gt; 0 and name()='costs'">
+        <xsl:text>[</xsl:text>
+        <xsl:apply-templates select="d:*" mode="plainmulti"/>
+        <xsl:text>]</xsl:text>
+      </xsl:when>
+      <xsl:when test="count(*) &gt; 0 and name()='report'">
+        <xsl:apply-templates select="d:*" mode="plainmulti"/>
+      </xsl:when>
+      <xsl:when test="count(*) &gt; 0 and not(name()='arguments')">
+        <xsl:text>{</xsl:text>
+        <xsl:apply-templates select="d:*" mode="parameter"/>
+        <xsl:text>}</xsl:text>
+      </xsl:when>
+      <xsl:when test="not(node())">
+        <xsl:text>nil</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:value-of select="text()"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+  <xsl:template match="d:*" mode="plain">
+    <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 and count(*) = count(*[name()=name(../*[1])])">
+        <xsl:text>[</xsl:text>
+        <xsl:apply-templates select="d:*" mode="plainmulti"/>
+        <xsl:text>]</xsl:text>
+      </xsl:when>
+      <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 match="d:*" mode="plainmulti">
+    <xsl:if test="count(preceding-sibling::*) &gt; 0">, </xsl:if>
+    <xsl:text>{ </xsl:text>
+    <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:text> }</xsl:text>
+  </xsl:template>
+  <xsl:template name="format-name">
+    <xsl:param name="tname"/>
+    <xsl:choose>
+      <xsl:when test="contains($tname,'-')">
+        <xsl:text>'</xsl:text>
+        <xsl:value-of select="$tname"/>
+        <xsl:text>'</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:value-of select="$tname"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+  <xsl:template match="d:*" mode="sub">
+    <xsl:if test="count(preceding-sibling::*) &gt; 0">, </xsl:if>
+    <xsl:text>⭐(</xsl:text>
+    <xsl:text>:name =&gt; :</xsl:text>
+    <xsl:choose>
+      <xsl:when test="substring(name(),1,1) = '_'">
+        <xsl:call-template name="format-name">
+          <xsl:with-param name="tname">
+            <xsl:value-of select="substring(name(),2)"/>
+          </xsl:with-param>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="format-name">
+          <xsl:with-param name="tname">
+            <xsl:value-of select="name()"/>
+          </xsl:with-param>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+    <xsl:text>, :value =&gt; -&gt;{ </xsl:text>
+    <xsl:choose>
+      <xsl:when test="not(node())">
+        <xsl:text>nil</xsl:text>
+      </xsl:when>
+      <xsl:when test="child::node()[not(self::text())]">
+        <!-- FUUUU, there is probably much more TODO. Updated Matthias und Juergen, we tested for ing-opcua/execute -->
+        <xsl:choose>
+          <xsl:when test="child::* and name(child::*)=concat(name(.),'_item')  and count(child::*[not(name()=name(../child::*[1]))])=0">
+            <xsl:text>"[ </xsl:text>
+            <xsl:apply-templates select="*" mode="JSONArrayItem"/>
+            <xsl:text>]"</xsl:text>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:text>"{ </xsl:text>
+            <xsl:apply-templates select="*" mode="JSONSUB"/>
+            <xsl:text>}"</xsl:text>
+          </xsl:otherwise>
+        </xsl:choose>
+      </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:text> }</xsl:text>
+    <xsl:for-each select="@*">
+      <xsl:text>, :</xsl:text>
+      <xsl:value-of select="name()"/>
+      <xsl:text> =&gt; "</xsl:text>
+      <xsl:value-of select="string(.)"/>
+      <xsl:text>"</xsl:text>
+    </xsl:for-each>
+    <xsl:text>)</xsl:text>
+  </xsl:template>
+
+  <xsl:template match="d:finalize | d:update | d:prepare | d:rescue" mode="part-of-call">
+    <xsl:param name="myspace"/>
+    <xsl:call-template name="print-content">
+      <xsl:with-param name="myspace">
+        <xsl:value-of select="$myspace"/>
+      </xsl:with-param>
+    </xsl:call-template>
+  </xsl:template>
+  <xsl:template name="print-content">
+    <xsl:param name="myspace"/>
+    <xsl:if test="text()">
+      <xsl:for-each select="str:tokenize(text(), '&#x0A;')">
+        <xsl:value-of select="concat('&#x0A;',concat(str:padding($myspace+$myspacemultiplier+$myspacemultiplier),str:replace(str:replace(str:replace(string(.),'\','\\'),'&quot;','\&quot;'),'#','\#')))" />
+      </xsl:for-each>
+      <xsl:call-template name="print-newline"/>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:text>END</xsl:text>
+    </xsl:if>
+  </xsl:template>
+  <xsl:template name="print-mcontent">
+    <xsl:param name="myspace"/>
+    <xsl:if test="text()">
+      <xsl:choose>
+        <xsl:when test="@language='application/x-ruby'">
+          <xsl:text> do </xsl:text>
+          <xsl:if test="@output">
+            <xsl:text>|</xsl:text>
+            <xsl:value-of select="@output"/>
+            <xsl:text>|</xsl:text>
+          </xsl:if>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text>, &lt;&lt;-END</xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+      <xsl:for-each select="str:tokenize(text(), '&#x0A;')">
+        <xsl:value-of select="concat('&#x0A;',concat(str:padding($myspace+$myspacemultiplier+$myspacemultiplier),str:replace(str:replace(str:replace(string(.),'\','\\'),'&quot;','\&quot;'),'#','\#')))" />
+      </xsl:for-each>
+      <xsl:call-template name="print-newline"/>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">1</xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$myspace+$myspacemultiplier"/>
+        </xsl:with-param>
+      </xsl:call-template>
+      <xsl:choose>
+        <xsl:when test="@language='application/x-ruby'">
+          <xsl:text>end</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text>END</xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:if>
+  </xsl:template>
+  <xsl:template name="print-space">
+    <xsl:param name="i"/>
+    <xsl:param name="count"/>
+    <xsl:if test="$i &lt;= $count">
+      <xsl:text> </xsl:text>
+      <xsl:call-template name="print-space">
+        <xsl:with-param name="i">
+          <xsl:value-of select="$i + 1"/>
+        </xsl:with-param>
+        <xsl:with-param name="count">
+          <xsl:value-of select="$count"/>
+        </xsl:with-param>
+      </xsl:call-template>
+    </xsl:if>
+  </xsl:template>
+  <xsl:template name="print-newline">
+    <xsl:text>
+</xsl:text>
+  </xsl:template>
+
+  <!-- JSON Element -->
+  <xsl:template match="*" mode="JSON">
+    <xsl:call-template name="JSONProperties"/>
+    <xsl:choose>
+      <xsl:when test="following-sibling::*">, </xsl:when>
+      <xsl:otherwise><xsl:text> </xsl:text></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template match="*" mode="JSONSUB">
+    <xsl:text>\"</xsl:text>
+    <xsl:value-of select="name()"/>
+    <xsl:text>\": </xsl:text>
+    <xsl:call-template name="JSONProperties">
+      <xsl:with-param name="parent" select="'Yes'"></xsl:with-param>
+    </xsl:call-template>
+    <xsl:choose>
+      <xsl:when test="following-sibling::*">, </xsl:when>
+      <xsl:otherwise><xsl:text> </xsl:text></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- JSON Array Element -->
+  <xsl:template match="*" mode="JSONArrayElement">
+    <xsl:call-template name="JSONProperties"/>
+    <xsl:choose>
+      <xsl:when test="following-sibling::*">, </xsl:when>
+      <xsl:otherwise><xsl:text> </xsl:text></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+  <xsl:template match="*" mode="JSONArrayItem">
+    <xsl:call-template name="JSONProperties">
+      <xsl:with-param name="parent" select="'Yes'"></xsl:with-param>
+    </xsl:call-template>
+    <xsl:choose>
+      <xsl:when test="following-sibling::*">, </xsl:when>
+      <xsl:otherwise><xsl:text> </xsl:text></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- JSON Object Properties -->
+  <xsl:template name="JSONProperties">
+    <xsl:param name="parent"></xsl:param>
+    <xsl:variable name="childName" select="name(*[1])"/>
+    <xsl:choose>
+      <xsl:when test="not(*|@*)">
+        <xsl:choose>
+          <xsl:when test="$parent='Yes'">
+            <xsl:choose>
+              <xsl:when test="string(number(.)) = .">
+                <xsl:value-of select="."/>
+              </xsl:when>
+              <xsl:otherwise>
+                <xsl:choose>
+                  <xsl:when test="substring(.,1,1) = '!'">
+                    <xsl:text>#{</xsl:text>
+                    <xsl:value-of select="str:replace(str:replace(substring(.,2),'\','\\'),'&quot;','\\\&quot;')"/>
+                    <xsl:text>.to_json}</xsl:text>
+                  </xsl:when>
+                  <xsl:otherwise>
+                    <xsl:text>\"</xsl:text>
+                    <xsl:value-of select="str:replace(str:replace(.,'\','\\'),'&quot;','\\\&quot;')"/>
+                    <xsl:text>\"</xsl:text>
+                  </xsl:otherwise>
+                </xsl:choose>
+              </xsl:otherwise>
+            </xsl:choose>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:text>\"</xsl:text>
+            <xsl:value-of select="name()"/>
+            <xsl:text>\": </xsl:text>
+            <xsl:choose>
+              <xsl:when test="string(number(.)) = .">
+                <xsl:value-of select="."/>
+              </xsl:when>
+              <xsl:otherwise>
+                <xsl:text>\"</xsl:text>
+                <xsl:choose>
+                  <xsl:when test="substring(.,1,1) = '!'">
+                    <xsl:text>#{</xsl:text>
+                    <xsl:value-of select="str:replace(str:replace(substring(.,2),'\','\\'),'&quot;','\\\&quot;')"/>
+                    <xsl:text>}</xsl:text>
+                  </xsl:when>
+                  <xsl:otherwise>
+                    <xsl:value-of select="str:replace(str:replace(.,'\','\\'),'&quot;','\\\&quot;')"/>
+                  </xsl:otherwise>
+                </xsl:choose>
+                <xsl:text>\"</xsl:text>
+              </xsl:otherwise>
+            </xsl:choose>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:when>
+      <xsl:when test="count(*[name()=$childName]) > 1">
+        <xsl:text>{ \"</xsl:text>
+        <xsl:value-of select="$childName"/>
+        <xsl:text>\": [ </xsl:text>
+        <xsl:apply-templates select="*" mode="JSONArrayElement"/>
+        <xsl:text>] }</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:if test="text()[normalize-space(.)]">
+          <xsl:text>[ </xsl:text>
+        </xsl:if>
+        <xsl:text>{ </xsl:text>
+        <xsl:apply-templates select="@*" mode="JSONSUB"/>
+        <xsl:apply-templates select="*" mode="JSONSUB"/>
+        <xsl:text>}</xsl:text>
+        <xsl:if test="text()[normalize-space(.)]">
+          <xsl:text>, </xsl:text>
+          <xsl:text>\"</xsl:text>
+          <xsl:choose>
+            <xsl:when test="substring(.,1,1) = '!'">
+              <xsl:text>#{</xsl:text>
+              <xsl:value-of select="str:replace(str:replace(substring(.,2),'\','\\'),'&quot;','\\\&quot;')"/>
+              <xsl:text>}</xsl:text>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:value-of select="str:replace(str:replace(.,'\','\\'),'&quot;','\\\&quot;')"/>
+            </xsl:otherwise>
+          </xsl:choose>
+          <xsl:text>\"</xsl:text>
+          <xsl:text>]</xsl:text>
+        </xsl:if>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- JSON Attribute Property -->
+  <xsl:template match="@*" mode="JSONSUB">
+    <xsl:text>\"@</xsl:text>
+    <xsl:value-of select="name()"/>
+    <xsl:text>\": </xsl:text>
+    <xsl:choose>
+      <xsl:when test="number(.) = .">
+        <xsl:value-of select="."/>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:text>\"</xsl:text>
+        <xsl:choose>
+          <xsl:when test="substring(.,1,1) = '!'">
+            <xsl:text>#{</xsl:text>
+            <xsl:value-of select="str:replace(str:replace(substring(.,2),'\','\\'),'&quot;','\\\&quot;')"/>
+            <xsl:text>}</xsl:text>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:value-of select="str:replace(str:replace(.,'\','\\'),'&quot;','\\\&quot;')"/>
+          </xsl:otherwise>
+        </xsl:choose>
+        <xsl:text>\"</xsl:text>
+      </xsl:otherwise>
+    </xsl:choose>
+    <xsl:choose>
+      <xsl:when test="not(position() = last())">
+        <xsl:text>, </xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:text> </xsl:text>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+</xsl:stylesheet>