67745b7f99
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
26 lines
632 B
Tcl
Executable File
26 lines
632 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];
|
|
|
|
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;
|
|
}
|