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

Change to instrument source dir to generate xml.

Browse Source 
r1267 | ffr | 2006-11-09 17:10:16 +1100 (Thu, 09 Nov 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-11-09 17:10:16 +11:00
committed by Douglas Clowes
parent 2df0200228
commit 3d2223b247
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -12,8 +12,9 @@ proc genXML {instrument} {
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];
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;