# $Revision: 1.11 $
# $Date: 2007-01-12 00:46:57 $
# 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 sics_bm_distance Float User
VarMake sics_mono_crystal Text User

#MakeCounter simCtr SIM -1.0
#MakeScanCommand  xxxscan simCtr echidna.hdd recover.bin

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 gen_hipadaba.tcl
#source counter.tcl
fileeval hmm_configuration.tcl
fileeval scan.tcl
fileeval nxscripts.tcl
fileeval extraconfig.tcl