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

Added nxfileopen flag and some sics variables

Browse Source 
r1388 | ffr | 2007-01-10 09:15:02 +1100 (Wed, 10 Jan 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-01-10 09:15:02 +11:00
committed by Douglas Clowes
parent 9ca1b3199a
commit eb79d3ae47
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,5 +1,5 @@
# $Revision: 1.9 $
# $Date: 2006-12-07 22:12:48 $
# $Revision: 1.10 $
# $Date: 2007-01-09 22:15:02 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
@@ -17,7 +17,8 @@ source server_config.tcl
VarMake Instrument Text Internal
Instrument Echidna
Instrument lock
VarMake bm_distance Float User
VarMake sics_bm_distance Float User
VarMake sics_mono_crystal Text User
#MakeCounter simCtr SIM -1.0
#MakeScanCommand xxxscan simCtr echidna.hdd recover.bin
@@ -25,13 +26,13 @@ VarMake bm_distance Float User
fileeval motor_configuration.tcl
proc nxcreatefile {{type nx5}} {
global dataFileName;
global dataFileName nxFileOpen;
SicsDataPostFix .$type;
array set nxmode [list h5 create5 nx5 create5 xml createxml];
set dataFileName [nxscript makefilename]
nxscript $nxmode($type) $dataFileName echidna.dic;
nxscript close;
set nxFileOpen true
}
publish nxcreatefile user