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