26 lines
650 B
Tcl
26 lines
650 B
Tcl
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
|
|
# Required by server_config.tcl
|
|
VarMake Instrument Text Internal
|
|
Instrument bare_dingo
|
|
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
|
|
fileeval $cfPath(source)/source.tcl
|
|
fileeval $cfPath(plc)/plc.tcl
|
|
fileeval $cfPath(motors)/motor_configuration.tcl
|
|
fileeval $cfPath(scan)/scan.tcl
|
|
|
|
server_init
|
|
exe batchpath ../batch
|
|
exe syspath ../batch
|
|
clientput "serverport [get_portnum $::serverport]"
|