From c230c17a73e03225aa56c85b8eb5a2e6cc8fd8ca Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Tue, 13 Feb 2007 16:23:33 +1100
Subject: [PATCH] Set sicsdataprefix to Echidna Move nxcreatefile to
 nxscripts.tcl

r1479 | ffr | 2007-02-13 16:23:33 +1100 (Tue, 13 Feb 2007) | 3 lines
---
 .../instrument/hrpd/echidna_configuration.tcl | 21 ++++++-------------
 1 file changed, 6 insertions(+), 15 deletions(-)

diff --git a/site_ansto/instrument/hrpd/echidna_configuration.tcl b/site_ansto/instrument/hrpd/echidna_configuration.tcl
index a4b39e2d..18bf77f7 100644
--- a/site_ansto/instrument/hrpd/echidna_configuration.tcl
+++ b/site_ansto/instrument/hrpd/echidna_configuration.tcl
@@ -1,5 +1,5 @@
-# $Revision: 1.12 $
-# $Date: 2007-02-12 00:56:59 $
+# $Revision: 1.13 $
+# $Date: 2007-02-13 05:23:33 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by: $Author: ffr $
 
@@ -14,6 +14,9 @@ source server_config.tcl
 VarMake Instrument Text Internal 
 Instrument Echidna 
 Instrument lock
+VarMake SicsDataPrefix Text Internal 
+SicsDataPrefix [SplitReply [Instrument]] 
+SicsDataPrefix lock
 VarMake sics_bm_distance Float User
 VarMake sics_mono_crystal Text User
 
@@ -22,24 +25,12 @@ VarMake sics_mono_crystal Text User
 
 fileeval motor_configuration.tcl
 
-proc nxcreatefile {{type nx.hdf}} {
-  global dataFileName nxFileOpen;
-  SicsDataPostFix .$type;
-
-  array set nxmode [list nx.hdf create5 h5 create5 nx5 create5 xml createxml];
-  set dataFileName [nxscript makefilename]
-  nxscript $nxmode($type) $dataFileName echidna.dic;
-  set nxFileOpen true
-}
-
-publish nxcreatefile user
-
 ########
 source hipadaba_configuration.tcl
 source gumxml.tcl
 
 #source counter.tcl
 fileeval hmm_configuration.tcl
-fileeval scan.tcl
 fileeval nxscripts.tcl
+fileeval scan.tcl
 fileeval extraconfig.tcl