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

Set sicsdataprefix to Echidna

Browse Source 
Move nxcreatefile to nxscripts.tcl

r1479 | ffr | 2007-02-13 16:23:33 +1100 (Tue, 13 Feb 2007) | 3 lines
This commit is contained in:
Ferdi Franceschini
2007-02-13 16:23:33 +11:00
committed by Douglas Clowes
parent 3ed95df1a5
commit c230c17a73
1 changed files with 6 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
site_ansto/instrument/hrpd/echidna_configuration.tcl
View File

@ -1,5 +1,5 @@
# $Revision: 1.12 $ # $Revision: 1.13 $
# $Date: 2007-02-12 00:56:59 $ # $Date: 2007-02-13 05:23:33 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $ # Last revision by: $Author: ffr $
@ -14,6 +14,9 @@ source server_config.tcl
VarMake Instrument Text Internal VarMake Instrument Text Internal
Instrument Echidna Instrument Echidna
Instrument lock Instrument lock
VarMake SicsDataPrefix Text Internal
SicsDataPrefix [SplitReply [Instrument]]
SicsDataPrefix lock
VarMake sics_bm_distance Float User VarMake sics_bm_distance Float User
VarMake sics_mono_crystal Text User VarMake sics_mono_crystal Text User
@ -22,24 +25,12 @@ VarMake sics_mono_crystal Text User
fileeval motor_configuration.tcl 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 hipadaba_configuration.tcl
source gumxml.tcl source gumxml.tcl
#source counter.tcl #source counter.tcl
fileeval hmm_configuration.tcl fileeval hmm_configuration.tcl
fileeval scan.tcl
fileeval nxscripts.tcl fileeval nxscripts.tcl
fileeval scan.tcl
fileeval extraconfig.tcl fileeval extraconfig.tcl