linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adding counter support.

Browse Source 
r1343 | ffr | 2006-12-04 09:46:43 +1100 (Mon, 04 Dec 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-12-04 09:46:43 +11:00
committed by Douglas Clowes
parent 31f0fca6f5
commit 602a1a5f1b
6 changed files with 273 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
site_ansto/instrument/hipadaba/gen_hpdbxml.tcl
View File

@@ -1,9 +1,20 @@
#!/usr/bin/tclsh
# Generates the instrument description XML file "InstXML.xml"
# by first installing the hmake and makeHdb<device> commands
# defined in the hpdbxml.tcl script, and then sourcing the
# hipadaba_configuration.tcl script to call them and create the DOM.
set instName [lindex $argv 0];
proc clientput {msg code} {puts $msg}
# Load the parameter lists required by hpdbxml.tcl
rename ::unknown _unknown
proc ::unknown {args} {}
source hipadaba/ParList.tcl
rename ::unknown ""
rename _unknown ::unknown
#Install the hmake and makeHdb<device> commands which generate
# the XML DOM.
source hipadaba/hpdbxml.tcl
array set accesscode [list 0 READ_ONLY 1 MANAGER 2 USER 3 SPY ];
@@ -13,8 +24,10 @@ proc genXML {instrument} {
instrumentXML $instrument;
cd $instPath($instrument);
# hipadaba_configuration.tcl is generated by gen_hipadaba_config.tcl
source hipadaba_configuration.tcl;
set fh [open InstXML.tcl w];
set fh [open InstXML.xml w];
puts -nonewline $fh "<?xml version = '1.0' encoding = 'UTF-8'?>";
puts -nonewline $fh [$doc asXML -indent none];
close $fh;