hipadaba prototype support files.

They generate hipadaba paths for devices along with the xml description.

r1236 | ffr | 2006-11-07 08:34:20 +1100 (Tue, 07 Nov 2006) | 3 lines

site_ansto/instrument/hipadaba/gen_hpdbxml.tcl

@@ -0,0 +1,25 @@
+#!/usr/bin/tclsh
+
+set instName [lindex $argv 0];
+
+proc clientput {msg code} {puts $msg}
+source hipadaba/ParList.tcl
+source hipadaba/hpdbxml.tcl
+array set accesscode [list 0 READ_ONLY 1 MANAGER 2 USER 3 SPY ];
+
+proc genXML {instrument} {
+  global doc;
+  array set instPath [list Echidna hrpd Wombat hipd];
+
+  instrumentXML $instrument;
+  source $instPath($instrument)/hipadaba_configuration.tcl;
+  set fh [open $instPath($instrument)/InstXML.tcl w];
+  puts -nonewline $fh "<?xml version = '1.0' encoding = 'UTF-8'?>";
+  puts -nonewline $fh [$doc asXML -indent none];
+  close $fh;
+}
+
+
+if {$tcl_interactive==0} {
+  genXML $instName;
+}