27 lines
683 B
Tcl
Executable File
27 lines
683 B
Tcl
Executable File
#!/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;
|
|
cd $instPath($instrument);
|
|
source hipadaba_configuration.tcl;
|
|
set fh [open 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;
|
|
}
|