From 5ab56f8ff3c304c60a7214e1adce8b90efe8cc8f Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Fri, 5 Jul 2013 08:52:10 +0200
Subject: [PATCH] Adding repeat and size (as stepsize) attribute of parent

---
 xml-db/xml-db.pl | 25 +++++++++++++++++++------
 1 file changed, 19 insertions(+), 6 deletions(-)

diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index 2ee4f0c..9f3366d 100755
--- a/xml-db/xml-db.pl
+++ b/xml-db/xml-db.pl
@@ -82,7 +82,8 @@ sub Main {
     #print Dumper($db->{'BasicStatus'});
     #print Dumper($db->{'ChannelEnable'});
     #print Dumper($db->{'ReadoutFSM'});
-    #print Dumper($db->{'JtagRunCounter'});
+    #print Dumper($db->{'JtagErrorCount1'});
+    #print Dumper($db->{'JtagLastDataChanged'});
     #print Dumper($db->{'IdleTime'});
     #print DumpTree($db);
     my $name = $doc->getDocumentElement->getAttribute('name');
@@ -177,10 +178,12 @@ sub MakeOrMergeDbItem {
     $dbitem->{$a} = $value->string_value if $value->string_value;
   }
 
-  # set description
-  foreach my $elem ($n->findnodes('(ancestor-or-self::*/description)[last()]')) {
-    $dbitem->{'description'} = SanitizedContent($elem);
-  }
+  # set description, we should always find one, but not more due to
+  # last() predicate
+  my $desc = $n->findnodes('(ancestor-or-self::*/description)[last()]');
+  PrintMessage($n, "Warning: Found more than one description, taking first one.")
+    if $warnings and $desc->size>1;
+  $dbitem->{'description'} = SanitizedContent($desc->get_node(1));
 
   # save enumItems (if any)
   foreach my $item ($n->findnodes('enumItem')) {
@@ -191,7 +194,17 @@ sub MakeOrMergeDbItem {
   PrintMessage($n, "Warning: Found enumItems although not format=enum")
     if $warnings and defined $dbitem->{'enumItems'} and $n->getAttribute('format') ne 'enum';
 
-  # determine size for repeatable???
+  # is this node in something repeatable?
+  my $repeats = $n->findnodes('ancestor::*[@repeat>1]');
+  PrintMessage($n, "Warning: Found more than one ancestor with repeat attribute, taking first one.")
+    if $warnings and $repeats->size>1;
+
+  if ($repeats->size>0) {
+    my $repeat = $repeats->get_node(1);
+    $dbitem->{'stepsize'} = $repeat->getAttribute('size');
+    $dbitem->{'repeat'} = $repeat->getAttribute('repeat');
+  }
+
 
   return $dbitem;
 }
-- 
2.43.0