16e744be12
This lets us make run and drive wrappers for the fermi motors on pelican by renaming the SICS run and drive.
47 lines
1.5 KiB
Tcl
47 lines
1.5 KiB
Tcl
# Author: Jing Chen (jgn@ansto.gov.au)
|
|
|
|
# Required by server_config.tcl
|
|
VarMake Instrument Text Internal
|
|
Instrument pelican
|
|
Instrument lock
|
|
|
|
#START SERVER CONFIGURATION SECTION
|
|
source util/dmc2280/dmc2280_util.tcl
|
|
source sics_ports.tcl
|
|
source server_config.tcl
|
|
MakeDrive sicsdrive sicsrun
|
|
#END SERVER CONFIGURATION SECTION
|
|
|
|
########################################
|
|
# INSTRUMENT SPECIFIC CONFIGURATION
|
|
|
|
source $cfPath(hipadaba)/hipadaba_configuration.tcl
|
|
|
|
fileeval $cfPath(source)/source.tcl
|
|
fileeval $cfPath(motors)/motor_configuration.tcl
|
|
fileeval $cfPath(motors)/positmotor_configuration.tcl
|
|
#fileeval $cfPath(motors)/extraconfig.tcl
|
|
fileeval $cfPath(plc)/plc.tcl
|
|
fileeval $cfPath(counter)/counter.tcl
|
|
fileeval $cfPath(beamline)/sct_power.tcl
|
|
fileeval $cfPath(hmm)/hmm_configuration.tcl
|
|
fileeval $cfPath(hmm)/sct_hv.tcl
|
|
fileeval $cfPath(nexus)/nxscripts.tcl
|
|
fileeval $cfPath(scan)/scan.tcl
|
|
fileeval $cfPath(commands)/commands.tcl
|
|
fileeval $cfPath(commands)/monodrive.tcl
|
|
fileeval $cfPath(anticollider)/anticollider.tcl
|
|
fileeval $cfPath(chopper)/sct_fermichopper.tcl
|
|
fileeval $cfPath(chopper)/fermimot.tcl
|
|
|
|
source gumxml.tcl
|
|
|
|
::utility::mkVar ::anticollider::protect_detector text manager protect_detector false detector true false
|
|
::anticollider::protect_detector "true"
|
|
|
|
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
|