From a4635809452d5ed38a02439968b3250d5c3f59eb Mon Sep 17 00:00:00 2001
From: joerg_wunsch <joerg_wunsch@81a1dc3b-b13d-400b-aceb-764788c761c2>
Date: Wed, 10 Jan 2018 06:59:26 +0000
Subject: [PATCH] patch #9506: Script to create device configuration stub from
 Atmel ATDF files

Thanks to Morten Engelhardt Olsen for his contribution!



git-svn-id: svn://svn.savannah.nongnu.org/avrdude/trunk/avrdude@1406 81a1dc3b-b13d-400b-aceb-764788c761c2
---
 ChangeLog                  |   6 +
 NEWS                       |   5 +-
 tools/atdf-to-avrdude.xslt | 224 +++++++++++++++++++++++++++++++++++++
 3 files changed, 234 insertions(+), 1 deletion(-)
 create mode 100644 tools/atdf-to-avrdude.xslt

diff --git a/ChangeLog b/ChangeLog
index 1f1bff35..b1c7a006 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2018-01-10  Joerg Wunsch <j.gnu@uriah.heep.sax.de>
+
+	Submitted by Morten Engelhardt Olsen
+	patch #9506: Script to create device configuration stub from Atmel ATDF files
+	* tools/atdf-to-avrdude.xslt: New script
+
 2018-01-10  Joerg Wunsch <j.gnu@uriah.heep.sax.de>
 
 	Submitted by Jan Egil Ruud <janegil.ruud@microchip.com>
diff --git a/NEWS b/NEWS
index 9b9671fd..2ca40b6a 100644
--- a/NEWS
+++ b/NEWS
@@ -41,8 +41,11 @@ Current:
     patch #9482: Add support for UPDI and AVR8X
     patch #9508: Add PowerDebugger and XPlained Mini in UPDI mode
     patch #9507: Fix UPDI chip erase
-
+    patch #9506: Script to create device configuration stub from Atmel
+                 ATDF files
   * Internals:
+    - New avrdude.conf keyword "family_id", used to verify SIB attributes
+      on AVR8X architecture if device is locked.
 
 
 Version 6.3:
diff --git a/tools/atdf-to-avrdude.xslt b/tools/atdf-to-avrdude.xslt
new file mode 100644
index 00000000..b4ad4037
--- /dev/null
+++ b/tools/atdf-to-avrdude.xslt
@@ -0,0 +1,224 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:xs="http://www.w3.org/2001/XMLSchema"
+    xmlns:f="http://functions"
+    exclude-result-prefixes="xs f"
+    version="2.0">
+
+    <!--
+        avrdude - A Downloader/Uploader for AVR device programmers
+        Copyright (C) 2018 Morten Engelhardt Olsen <meolsen@atmel.com>
+
+        This program is free software; you can redistribute it and/or modify
+        it under the terms of the GNU General Public License as published by
+        the Free Software Foundation; either version 2 of the License, or
+        (at your option) any later version.
+
+        This program is distributed in the hope that it will be useful,
+        but WITHOUT ANY WARRANTY; without even the implied warranty of
+        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+        GNU General Public License for more details.
+
+        You should have received a copy of the GNU General Public License
+        along with this program. If not, see <http://www.gnu.org/licenses/>.
+    -->
+
+    <xsl:output method="text"/>
+
+    <xsl:template match="/">
+
+        <xsl:variable name="architecture"
+            select="/avr-tools-device-file/devices/device/@architecture"/>
+
+        <xsl:choose>
+            <xsl:when test="$architecture = 'AVR8X'">
+                <xsl:call-template name="create-avr8x-config"/>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:message terminate="yes">No support for architecture '<xsl:value-of select="$architecture"/>'</xsl:message>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:template>
+
+    <xsl:template name="create-avr8x-config">
+
+        <xsl:variable name="device-name"
+            select="/avr-tools-device-file/devices/device/@name"/>
+        <xsl:variable name="device-id">
+            <xsl:call-template name="get-device-id">
+                <xsl:with-param name="device-name" select="$device-name"/>
+            </xsl:call-template>
+        </xsl:variable>
+        <xsl:variable name="parent-name">
+            <xsl:call-template name="get-parent-name">
+                <xsl:with-param name="device-name" select="$device-name"/>
+            </xsl:call-template>
+        </xsl:variable>
+        <xsl:variable name="device-signature">
+            <xsl:call-template name="get-device-signature">
+                <xsl:with-param name="device-name" select="$device-name"/>
+            </xsl:call-template>
+        </xsl:variable>
+
+        <xsl:call-template name="write-conf-header">
+            <xsl:with-param name="device-name" select="$device-name"/>
+        </xsl:call-template>
+
+        <xsl:text>part parent    "</xsl:text><xsl:value-of select="normalize-space($parent-name)"/><xsl:text>";&#xa;</xsl:text>
+        <xsl:text>    id        = "</xsl:text><xsl:value-of select="normalize-space($device-id)"/><xsl:text>";&#xa;</xsl:text>
+        <xsl:text>    desc      = "</xsl:text><xsl:value-of select="normalize-space($device-name)"/><xsl:text>";&#xa;</xsl:text>
+        <xsl:text>    signature = </xsl:text><xsl:value-of select="normalize-space($device-signature)"/><xsl:text>;&#xa;</xsl:text>
+
+        <xsl:call-template name="write-memories">
+            <xsl:with-param name="device-name" select="$device-name"/>
+        </xsl:call-template>
+
+        <xsl:text>;&#xa;</xsl:text>
+    </xsl:template>
+
+    <xsl:template name="write-memories">
+        <xsl:param name="device-name"/>
+
+        <xsl:call-template name="write-memory">
+            <xsl:with-param name="memory-name" select="'PROGMEM'"/>
+        </xsl:call-template>
+        <xsl:call-template name="write-memory">
+            <xsl:with-param name="memory-name" select="'EEPROM'"/>
+        </xsl:call-template>
+    </xsl:template>
+
+    <xsl:template name="write-memory">
+        <xsl:param name="memory-name"/>
+
+        <xsl:variable name="memory-segment" select="//memory-segment[@name = $memory-name]"/>
+        <xsl:choose>
+            <xsl:when test="not($memory-segment)">
+                <xsl:message terminate="yes">No memory-segment named '<xsl:value-of select="$memory-name"/>'</xsl:message>
+            </xsl:when>
+            <xsl:when test="count($memory-segment) > 1">
+                <xsl:message terminate="yes">More than one memory-segments named '<xsl:value-of select="$memory-name"/>'</xsl:message>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:call-template name="write-memory-segment">
+                    <xsl:with-param name="memory-segment" select="$memory-segment"/>
+                </xsl:call-template>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:template>
+
+    <xsl:template name="write-memory-segment">
+        <xsl:param name="memory-segment"/>
+
+        <xsl:variable name="size">
+            <xsl:value-of select="concat('0x', f:decimalToHex(f:hexToDec($memory-segment/@size)))"/>
+        </xsl:variable>
+
+        <xsl:variable name="offset">
+            <xsl:choose>
+                <xsl:when test="$memory-segment/@type = 'flash' and $memory-segment/ancestor::device/@architecture = 'AVR8X'">
+                    <xsl:variable name="progmem-base"
+                                  select="f:hexToDec($memory-segment/ancestor::device/property-groups/property-group[@name = 'UPDI_INTERFACE']/property[@name = 'PROGMEM_OFFSET']/@value)"/>
+                    <xsl:value-of select="concat('0x', f:decimalToHex(f:hexToDec($memory-segment/@start) + $progmem-base))"/>
+                </xsl:when>
+                <xsl:otherwise>
+                    <xsl:value-of select="concat('0x', f:decimalToHex(f:hexToDec($memory-segment/@start)))"/>
+                </xsl:otherwise>
+            </xsl:choose>
+        </xsl:variable>
+
+        <xsl:text>&#xa;</xsl:text>
+        <xsl:text>    memory "</xsl:text><xsl:value-of select="$memory-segment/@type"/><xsl:text>"&#xa;</xsl:text>
+        <xsl:text>        size      = </xsl:text><xsl:value-of select="$size"/><xsl:text>;&#xa;</xsl:text>
+        <xsl:text>        offset    = </xsl:text><xsl:value-of select="$offset"/><xsl:text>;&#xa;</xsl:text>
+        <xsl:text>        page_size = </xsl:text><xsl:value-of select="$memory-segment/@pagesize"/><xsl:text>;&#xa;</xsl:text>
+        <xsl:text>        readsize  = 0x100;&#xa;</xsl:text>
+        <xsl:text>    ;&#xa;</xsl:text>
+    </xsl:template>
+
+    <xsl:template name="write-conf-header">
+        <xsl:param name="device-name"/>
+
+        <xsl:text>#------------------------------------------------------------&#xa;</xsl:text>
+        <xsl:text># </xsl:text><xsl:value-of select="$device-name"/><xsl:text>&#xa;</xsl:text>
+        <xsl:text>#------------------------------------------------------------&#xa;</xsl:text>
+        <xsl:text>&#xa;</xsl:text>
+    </xsl:template>
+
+    <xsl:template name="get-device-id">
+        <xsl:param name="device-name"/>
+
+        <xsl:choose>
+            <xsl:when test="contains($device-name, 'ATtiny')">
+                <xsl:value-of select="replace($device-name, 'ATtiny', 't')"/>
+            </xsl:when>
+            <xsl:when test="contains($device-name, 'ATmega')">
+                <xsl:value-of select="replace($device-name, 'ATmega', 'm')"/>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:message terminate="yes">Unable to deduce device id from '<xsl:value-of select="$device-name"/>'</xsl:message>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:template>
+
+    <xsl:template name="get-parent-name">
+        <xsl:param name="device-name"/>
+
+        <xsl:choose>
+            <xsl:when test="contains($device-name, 'ATtiny')">.avr8x_tiny</xsl:when>
+            <xsl:when test="contains($device-name, 'ATmega')">.avr8x_mega</xsl:when>
+            <xsl:otherwise>
+                <xsl:message terminate="yes">Unable to deduce parent name from '<xsl:value-of select="$device-name"/>'</xsl:message>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:template>
+
+    <xsl:template name="get-device-signature">
+        <xsl:param name="device-name"/>
+
+        <xsl:variable name="signatures"
+            select="/avr-tools-device-file/devices/device/property-groups/property-group[@name = 'SIGNATURES']"/>
+
+        <xsl:for-each select="$signatures/property[contains(@name, 'SIGNATURE')]">
+            <xsl:value-of select="@value"/><xsl:text> </xsl:text>
+        </xsl:for-each>
+    </xsl:template>
+
+    <!-- Helper functions (from https://stackoverflow.com/questions/22905134/convert-a-hexadecimal-number-to-an-integer-in-xslt) -->
+    <xsl:function name="f:hexToDec">
+        <xsl:param name="hex"/>
+        <xsl:variable name="dec"
+            select="string-length(substring-before('0123456789ABCDEF', substring($hex,1,1)))"/>
+        <xsl:choose>
+            <xsl:when test="matches($hex, '([0-9]*|[A-F]*)')">
+                <xsl:value-of
+                    select="if ($hex = '') then 0
+                    else $dec * f:power(16, string-length($hex) - 1) + f:hexToDec(substring($hex,2))"/>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:message>Provided value is not hexadecimal...</xsl:message>
+                <xsl:value-of select="$hex"/>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:function>
+
+    <xsl:function name="f:power">
+        <xsl:param name="base"/>
+        <xsl:param name="exp"/>
+        <xsl:sequence
+            select="if ($exp lt 0) then f:power(1.0 div $base, -$exp)
+            else if ($exp eq 0)
+            then 1e0
+            else $base * f:power($base, $exp - 1)"
+        />
+    </xsl:function>
+
+    <xsl:function name="f:decimalToHex">
+        <xsl:param name="dec"/>
+        <xsl:if test="$dec > 0">
+            <xsl:value-of
+                select="f:decimalToHex(floor($dec div 16)),substring('0123456789ABCDEF', (($dec mod 16) + 1), 1)"
+                separator=""
+            />
+        </xsl:if>
+    </xsl:function>
+</xsl:stylesheet>