From 6e494188824c3c0603e42caa1ae2855232fd0f55 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Mon, 1 Jul 2013 10:17:13 +0200
Subject: [PATCH] Added very minimal CTS and TrbNet database files, just to
 make a valid trb-setup.xml for xml-db.pl

---
 xml-db/database/CTS.xml         | 16 ++++++++++++++++
 xml-db/database/TrbNet.xml      | 24 ++++++++++++++++++++++++
 xml-db/database/TrbNetSetup.xsd | 20 ++++++--------------
 xml-db/trb-setup.xml            |  3 ++-
 xml-db/xml-db.pl                | 29 +++++++++++++++++++++++------
 5 files changed, 71 insertions(+), 21 deletions(-)
 create mode 100644 xml-db/database/CTS.xml
 create mode 100644 xml-db/database/TrbNet.xml

diff --git a/xml-db/database/CTS.xml b/xml-db/database/CTS.xml
new file mode 100644
index 0000000..ed6fc52
--- /dev/null
+++ b/xml-db/database/CTS.xml
@@ -0,0 +1,16 @@
+<?xml version="1.0"  encoding="utf-8" ?>
+<TrbNetEntity xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+              xsi:noNamespaceSchemaLocation="TrbNetEntity.xsd"
+              name="CTS"
+              address="a000"
+              >
+  <description>Registers for the Central Trigger System (CTS)</description>
+
+  <!-- this is just a very minimal version -->
+
+  <register name="TriggerAssertedCounter" address="0000" purpose="statistics">
+    <description>Number of clock cycles with trigger asserted</description>
+    <field name="TriggerAssertedCounter" start="0" size="32" format="unsigned" />
+  </register>
+
+</TrbNetEntity>
diff --git a/xml-db/database/TrbNet.xml b/xml-db/database/TrbNet.xml
new file mode 100644
index 0000000..8c5beb3
--- /dev/null
+++ b/xml-db/database/TrbNet.xml
@@ -0,0 +1,24 @@
+<?xml version="1.0"  encoding="utf-8" ?>
+<TrbNetEntity xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+              xsi:noNamespaceSchemaLocation="TrbNetEntity.xsd"
+              name="TrbNet"
+              address="7000"
+              >
+  <description>Registers for the TrbNet itself</description>
+
+  <!-- this is just a very minimal version -->
+
+  <register name="IPUHandlerStatus" address="0202" purpose="status">
+    <description>IPU handler status register</description>
+    <field name="IPUHandlerStatusState" start="0" size="4" format="enum">
+      <description>FSM state bits</description>
+      <enumItem value="0">IDLE</enumItem>
+      <enumItem value="1">WaitForLength</enumItem>
+      <enumItem value="2">GotLength</enumItem>
+      <enumItem value="3">SendDHDR</enumItem>
+      <enumItem value="4">ReadData</enumItem>
+      <enumItem value="5">EndReadout</enumItem>
+    </field>
+  </register>
+
+</TrbNetEntity>
diff --git a/xml-db/database/TrbNetSetup.xsd b/xml-db/database/TrbNetSetup.xsd
index d5716e1..370f951 100644
--- a/xml-db/database/TrbNetSetup.xsd
+++ b/xml-db/database/TrbNetSetup.xsd
@@ -25,14 +25,14 @@
   <xs:element name="trb">
     <xs:complexType>
       <xs:choice maxOccurs="unbounded">
-        <xs:element name="entity" type="entitytype"/>
-        <xs:element ref="external" />
+        <xs:element name="entity" type="trbitemtype" />
+        <xs:element name="external" type="trbitemtype" />
       </xs:choice>
-      <xs:attribute ref="address" />
+      <xs:attribute ref="address" use="required" />
     </xs:complexType>
   </xs:element>
 
-  <xs:complexType name="entitytype">
+  <xs:complexType name="trbitemtype">
     <!-- the entity may contain similar elements as the TrbNetEntity
          element, but without a complex grouping mechanism. This is
          why we defined some sparse elements in TrbNetCommon.xsd,
@@ -45,18 +45,10 @@
       <xs:element name="field" type="fieldtype" />
     </xs:choice>
     <xs:attribute name="type" type="xs:string" use="required" />
+    <xs:attribute name="address" type="addresstype" />
   </xs:complexType>
 
-  <xs:element name="external">
-    <xs:complexType>
-      <xs:complexContent>
-        <xs:extension base="entitytype">
-          <xs:attribute name="address" type="addresstype" use="required" />
-        </xs:extension>
-      </xs:complexContent>
-    </xs:complexType>
-  </xs:element>
-
+  
   <xs:attribute name="endpoint">
     <xs:simpleType>
       <xs:restriction base="xs:integer">
diff --git a/xml-db/trb-setup.xml b/xml-db/trb-setup.xml
index 7a2fef1..41bdfd1 100644
--- a/xml-db/trb-setup.xml
+++ b/xml-db/trb-setup.xml
@@ -62,7 +62,8 @@
        are identified by their type and address (if specified) -->
   <trb address="0200">
     <entity type="TDC">
-      <!-- this field is a bitmask, so there's a converter to easily set single bits -->
+      <!-- this field is a bitmask, so there's a converter to easily
+           set single bits -->
       <field name="ChannelEnable">
         0-15 => 1, <!-- enables channels 0-15 -->
         34 => 1, <!-- enables channel 34 -->
diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index 6fa5e57..98c285f 100755
--- a/xml-db/xml-db.pl
+++ b/xml-db/xml-db.pl
@@ -43,18 +43,35 @@ sub Main {
   my ($db,$files) = &LoadDBAndFiles;
 
   #print Dumper($files);
-  
   foreach my $item (@$files) {
     my $file = $item->[0];
-    my $doc = $item->[1];
-    print "Working on $file...\n" if $verbose;
-    
+    my $doc = $item->[1]; print "Working on $file...\n" if $verbose;
+    my $merged = {};
+    foreach my $trbnode ($doc->getDocumentElement->findnodes('trb')) {
+      my $trbaddress = $trbnode->getAttribute('address');
+      print $trbaddress,"\n";
+      foreach my $entitynode ($trbnode->findnodes('entity')) {
+        my $type = $entitynode->getAttribute('type');
+        # check if we know this type
+        FatalError($entitynode, "Entity type $type not found in database")
+          unless defined $db->{"$type.xml"};
+        
+        print $type,"\n";
+      }
+    }
   }
-
   # testing...
   #DumpDatabase($db);
 }
 
+sub FatalError($$) {
+  my $node = shift;
+  my $file = $node->ownerDocument->URI;
+  my $line = $node->line_number;
+  my $msg = shift;
+  print "$file:$line: Fatal Error: $msg\n";
+  exit 1;
+}
 
 sub DumpDatabase($) {
   my $db = shift;
@@ -98,7 +115,7 @@ sub DumpDocument($) {
                $field->getAttribute('size') || 1,
                $name, $field->getAttribute('name')
               );
-        
+
         #print $field->getAttribute('errorflag') || 'false',"\n";
       }
     }
-- 
2.43.0