16e744be12
This lets us make run and drive wrappers for the fermi motors on pelican by renaming the SICS run and drive.
68 lines
2.4 KiB
Tcl
68 lines
2.4 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
|
|
MakeDrive
|
|
#END SERVER CONFIGURATION SECTION
|
|
|
|
########################################
|
|
# INSTRUMENT SPECIFIC CONFIGURATION
|
|
|
|
source $cfPath(hipadaba)/hipadaba_configuration.tcl
|
|
fileeval $cfPath(motors)/motor_configuration.tcl
|
|
fileeval $cfPath(motors)/sct_oscmotor.tcl
|
|
source instrument_vars.tcl
|
|
|
|
fileeval $cfPath(source)/source.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/sct_lakeshore_336.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_lakeshore_340.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_julabo_lh45.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_qlink.tcl
|
|
fileeval $cfPath(environment)/temperature/west400.tcl
|
|
fileeval $cfPath(environment)/magneticField/sct_oxford_labview.tcl
|
|
fileeval $cfPath(environment)/magneticField/sct_green_magnet.tcl
|
|
fileeval $cfPath(hmm)/hmm_configuration.tcl
|
|
fileeval $cfPath(nexus)/nxscripts.tcl
|
|
fileeval $cfPath(scan)/scan.tcl
|
|
fileeval $cfPath(commands)/commands.tcl
|
|
fileeval $cfPath(commands)/pulser.tcl
|
|
fileeval $cfPath(commands)/hvcommands.tcl
|
|
fileeval $cfPath(commands)/eulerscan.tcl
|
|
fileeval $cfPath(anticollider)/anticollider.tcl
|
|
fileeval $cfPath(hmm)/hmm_rapid.tcl
|
|
source gumxml.tcl
|
|
|
|
|
|
##########################################################
|
|
# Current driver for Lakeshore temperature controllers #
|
|
##########################################################
|
|
# driverName shortName IP-address port LineTerminator Tolerance1 Tolerance2 optional_Verbose
|
|
add_sct_ls340 tc1 137.157.201.86 4001 "\r" 5.0 5.0
|
|
# add_sct_ls336 tc1 137.157.201.85 7777 "\r\n" 5.0 5.0
|
|
|
|
# add_sct_ls336 tc1 137.157.201.86 7777 "\r\n" 5.0 5.0
|
|
|
|
# The Alice Thing
|
|
add_qlink qlink 137.157.201.86 4004 5
|
|
add_sct_ls340 tc1 137.157.201.86 4001 "\r" 5.0 5.0
|
|
add_lh45 tc2 137.157.201.86 4003 1
|
|
|
|
# ::environment::temperature::add_west400 137.157.201.88
|
|
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
|