From 459c750a6b53d07000873fa8be3f99b41a4a71e3 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Tue, 2 Jul 2013 10:10:10 +0200
Subject: [PATCH] xml-db.pl: started repeat attribute implementation (but not
 finished at all)

---
 xml-db/xml-db.pl | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index a5da617..5f54796 100755
--- a/xml-db/xml-db.pl
+++ b/xml-db/xml-db.pl
@@ -3,6 +3,7 @@ use strict;
 use warnings;
 
 use XML::LibXML;
+use Storable;
 #use XML::LibXML::Debugging;
 #use XML::LibXML::Iterator;
 use Data::TreeDumper;
@@ -77,6 +78,8 @@ sub Main {
 
 sub WorkOnEntities($) {
   my $entities = shift;
+  # THIS IS NOT FINISHED AT ALL!
+
   # first, we need to expand the repeat/size statements and calculate
   # the "real" register address (but still relative to parent!). we do
   # this on a cloned copy of the document, since each trb node might
@@ -84,11 +87,11 @@ sub WorkOnEntities($) {
   foreach my $e (keys %$entities) {
     my $doc = $entities->{$e}->cloneNode(1);
     print $e,"\n";
+    # first expand registers. we replace the node with cloned copies
     foreach my $reg ($doc->findnodes('//register[@repeat]')) {
-      print $reg->getAttribute('repeat'),"\n";
+      my $repeat = $reg->getAttribute('repeat');
+      my $address = $reg->getAttribute('address'); # || PrintMessage($reg, 'Fatal Error: Register must have address attribute
     }
-    # first expand registers
-    
   }
 }
 
@@ -139,6 +142,15 @@ sub EvaluateTrbNode($$$) {
       PrintMessage($node,
                    "Fatal Error: Merged entity is not valid anymore:\n$@",1);
     }
+
+    # and we can check some more required fields
+    foreach my $n ($entity->findnodes('//field | //register | //memory | //fifo | //group')) {
+      if ($n->nodeName eq 'field') {
+        PrintMessage($n, 'Fatal Error: "start" attribute is required', 1) unless exists $n->{'start'};
+      } else {
+        PrintMessage($n, 'Fatal Error: "address" attribute is required', 1) unless exists $n->{'address'};
+      }
+    }
   }
 
   # the really relevant information is in the reference $merged,
-- 
2.43.0