#!/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 koala qld quokka sans platypus reflectometer pelican pas taipan tas];

  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;
}