641ed5227e
Now have hm and bm scans. r1354 | ffr | 2006-12-08 09:12:48 +1100 (Fri, 08 Dec 2006) | 3 lines
46 lines
1.1 KiB
Tcl
46 lines
1.1 KiB
Tcl
# $Revision: 1.9 $
|
|
# $Date: 2006-12-07 22:12:48 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by: $Author: ffr $
|
|
|
|
#START SERVER CONFIGURATION SECTION
|
|
source dmc2280_util.tcl
|
|
set quieckport quieck-echidna
|
|
set serverport server-echidna
|
|
set interruptport interrupt-echidna
|
|
set telnetport telnet-echidna
|
|
source server_config.tcl
|
|
#END SERVER CONFIGURATION SECTION
|
|
|
|
########################################
|
|
# INSTRUMENT SPECIFIC CONFIGURATION
|
|
VarMake Instrument Text Internal
|
|
Instrument Echidna
|
|
Instrument lock
|
|
VarMake bm_distance Float User
|
|
|
|
#MakeCounter simCtr SIM -1.0
|
|
#MakeScanCommand xxxscan simCtr echidna.hdd recover.bin
|
|
|
|
fileeval motor_configuration.tcl
|
|
|
|
proc nxcreatefile {{type nx5}} {
|
|
global dataFileName;
|
|
SicsDataPostFix .$type;
|
|
|
|
array set nxmode [list h5 create5 nx5 create5 xml createxml];
|
|
set dataFileName [nxscript makefilename]
|
|
nxscript $nxmode($type) $dataFileName echidna.dic;
|
|
nxscript close;
|
|
}
|
|
|
|
publish nxcreatefile user
|
|
|
|
########
|
|
source gen_hipadaba.tcl
|
|
#source counter.tcl
|
|
fileeval hmm_configuration.tcl
|
|
fileeval scan.tcl
|
|
fileeval nxscripts.tcl
|
|
fileeval extraconfig.tcl
|