57 lines
2.0 KiB
Tcl
57 lines
2.0 KiB
Tcl
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
|
|
# Required by server_config.tcl
|
|
VarMake Instrument Text Internal
|
|
Instrument wombat
|
|
Instrument lock
|
|
|
|
#START SERVER CONFIGURATION SECTION
|
|
source util/dmc2280/dmc2280_util.tcl
|
|
source sics_ports.tcl
|
|
source server_config.tcl
|
|
#END SERVER CONFIGURATION SECTION
|
|
|
|
########################################
|
|
# INSTRUMENT SPECIFIC CONFIGURATION
|
|
|
|
fileeval $cfPath(motors)/motor_configuration.tcl
|
|
source instrument_vars.tcl
|
|
|
|
fileeval $cfPath(source)/source.tcl
|
|
source $cfPath(hipadaba)/hipadaba_configuration.tcl
|
|
fileeval $cfPath(motors)/positmotor_configuration.tcl
|
|
fileeval $cfPath(plc)/plc.tcl
|
|
fileeval $cfPath(counter)/counter.tcl
|
|
#TODO Provide method for choosing environment controller
|
|
fileeval $cfPath(environment)/temperature/lakeshore340.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_lakeshore_3xx.tcl
|
|
fileeval $cfPath(environment)/temperature/west400.tcl
|
|
fileeval $cfPath(hmm)/hmm_configuration.tcl
|
|
fileeval $cfPath(nexus)/nxscripts.tcl
|
|
fileeval $cfPath(scan)/scan.tcl
|
|
fileeval $cfPath(commands)/commands.tcl
|
|
fileeval $cfPath(anticollider)/anticollider.tcl
|
|
fileeval $cfPath(hmm)/hmm_rapid.tcl
|
|
source gumxml.tcl
|
|
|
|
|
|
# Drivers for Lakeshore Temperature Controller
|
|
# old Lakeshore driver (c-code)
|
|
# ::environment::temperature::add_ls340 tc1 1
|
|
# ::environment::temperature::add_ls340 tc2 2
|
|
|
|
# New Lakeshore series driver for models 340 and 336 - (tcl-code, version 20090824) - beta status
|
|
# driverName shortName IP-address portOnMoxa temperatureTolerance LakeshoreModel
|
|
# ffr 2009-11-11: NOTE I've added a line terminator argument to the ls3xx setup.
|
|
# You need to set the line termintator to either "\r\n" for CRLF or "\r" for CR
|
|
# add_ls3xx tc1 137.157.201.85 7777 "\r\n" 0.5 336
|
|
# add_ls3xx tc2 137.157.201.85 4002 "\r\n" 0.5 340
|
|
|
|
|
|
#::environment::temperature::add_west400
|
|
server_init
|
|
###########################################
|
|
# WARNING: Do not add any code below server_init, if you do SICS may fail to initialise properly.
|
|
|
|
# You can add extra-configuration code in ../extraconfig.tcl
|