From 29daef32db2cd98ec860ddb1fc48685ad52c4cdc Mon Sep 17 00:00:00 2001
From: Joerg Wunsch <j@uriah.heep.sax.de>
Date: Sun, 13 Aug 2006 21:57:52 +0000
Subject: [PATCH] Pretty-print the control stack argument.

git-svn-id: svn://svn.savannah.nongnu.org/avrdude/trunk@604 81a1dc3b-b13d-400b-aceb-764788c761c2
---
 avrdude/tools/get-hv-params.xsl | 53 +++++++++++++++++++++++++++++++--
 1 file changed, 51 insertions(+), 2 deletions(-)

diff --git a/avrdude/tools/get-hv-params.xsl b/avrdude/tools/get-hv-params.xsl
index 4743db23..fe224284 100644
--- a/avrdude/tools/get-hv-params.xsl
+++ b/avrdude/tools/get-hv-params.xsl
@@ -43,7 +43,10 @@
                                      'PP')]">
         <xsl:if test="self::node()[name() = 'PPControlStack']"
         >    pp_controlstack     =
-        <xsl:value-of select="translate(current(), ' ', ',')" />;
+        <xsl:call-template name="format_cstack">
+            <xsl:with-param name="stack" select="." />
+            <xsl:with-param name="count" select="0" />
+        </xsl:call-template>;
 </xsl:if> <!-- PPControlStack -->
 
 	<xsl:if test="self::node()[name() = 'PpEnterProgMode']">
@@ -126,7 +129,10 @@
 
         <xsl:if test="self::node()[name() = 'HvspControlStack']"
         >    hvsp_controlstack   =
-        <xsl:value-of select="translate(current(), ' ', ',')" />;
+        <xsl:call-template name="format_cstack">
+            <xsl:with-param name="stack" select="." />
+            <xsl:with-param name="count" select="0" />
+        </xsl:call-template>;
 </xsl:if> <!-- HvspControlStack -->
 
         <xsl:if test="self::node()[name() = 'HvspEnterProgMode']">
@@ -202,4 +208,47 @@
     </xsl:for-each>  <!-- All nodes -->
 
     </xsl:template>
+
+    <!--
+     * Format the control stack argument: replace space-separated
+     * list by a list separated with commas, followed by either
+     * a space or a newline, dependend on the current argument
+     * count.
+     * This template calls itself recursively, until the entire
+     * argument $stack has been processed.
+    -->
+    <xsl:template name="format_cstack">
+        <xsl:param name="stack" />
+        <xsl:choose>
+            <xsl:when test="string-length($stack) &lt;= 4">
+                <!-- Last element, print it, and leave template. -->
+                <xsl:value-of select="$stack" />
+            </xsl:when>
+            <xsl:otherwise>
+                <!--
+                  * More arguments follow, print first value,
+                  * followed by a comma, decide whether a space
+                  * or a newline needs to be emitted, and recurse
+                  * with the remaining part of $stack.
+                -->
+                <xsl:value-of select="substring($stack, 1, 4)" />
+                <xsl:choose>
+                    <xsl:when test="$count mod 8 = 7">
+                        <!-- comma, newline, 8 spaces indentation -->
+                        <xsl:text>,
+        </xsl:text>
+                    </xsl:when>
+                    <xsl:otherwise>
+                        <!-- comma, space -->
+                        <xsl:text>, </xsl:text>
+                    </xsl:otherwise>
+                </xsl:choose>
+                <xsl:call-template name="format_cstack">
+                    <xsl:with-param name="stack" select="substring($stack, 6)"
+                    />
+                    <xsl:with-param name="count" select="$count + 1" />
+                </xsl:call-template>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:template>
 </xsl:stylesheet>