# Author: Ferdi Franceschini (ffr@ansto.gov.au)

# Required by server_config.tcl
VarMake Instrument Text Internal
Instrument bilby
Instrument lock

#START SERVER CONFIGURATION SECTION
source util/dmc2280/dmc2280_util.tcl
source server_config.tcl
MakeDrive
#END SERVER CONFIGURATION SECTION

########################################
# INSTRUMENT SPECIFIC CONFIGURATION

fileeval $cfPath(motors)/motor_configuration.tcl


fileeval $cfPath(source)/source.tcl
source $cfPath(hipadaba)/hipadaba_configuration.tcl
fileeval $cfPath(parameters)/parameters.tcl
fileeval $cfPath(plc)/plc.tcl
fileeval $cfPath(chopper)/chopper.tcl
fileeval $cfPath(chopper)/astrium_chopper_sct.tcl
fileeval $cfPath(optics)/optics.tcl
fileeval $cfPath(counter)/counter.tcl
fileeval $cfPath(environment)/temperature/sct_lakeshore_340.tcl
fileeval $cfPath(environment)/temperature/sct_lakeshore_336.tcl
fileeval $cfPath(hmm)/hmm_configuration.tcl
fileeval $cfPath(nexus)/nxscripts.tcl
fileeval $cfPath(hmm)/detector.tcl
fileeval $cfPath(scan)/scan.tcl
fileeval $cfPath(commands)/commands.tcl
fileeval $cfPath(anticollider)/anticollider.tcl
fileeval $cfPath(environment)/temperature/sct_julabo_lh45.tcl
fileeval $cfPath(environment)/temperature/sct_qlink.tcl
fileeval $cfPath(environment)/temperature/sct_watlow_st4.tcl
fileeval $cfPath(environment)/temperature/sct_watlow_rm.tcl
fileeval $cfPath(environment)/temperature/sct_rvasm2.tcl
fileeval $cfPath(environment)/temperature/sct_oxford_itc.tcl
fileeval $cfPath(environment)/magneticField/oxford_labview.tcl
fileeval $cfPath(environment)/magneticField/sct_bruker_BEC1.tcl
fileeval $cfPath(environment)/sct_protek_common.tcl
fileeval $cfPath(commands)/pulser.tcl
fileeval $cfPath(commands)/hvcommands.tcl

source gumxml.tcl

# Define 'enable' and 'disable' commands to allow or prevent control of some
# devices.
proc dev_control {dev allow} {
  switch $dev {
    "roughing" {
      if {$allow} {
        set ::scobj::shutters::rough_slits_enabled 1
      } else {
        set ::scobj::shutters::rough_slits_enabled 0
      }
    }
    "ss1" {
      if {$allow} {
        ss1d fixed -1
        ss1l fixed -1
        ss1r fixed -1
        ss1u fixed -1
      } else {
        ss1d fixed 1
        ss1l fixed 1
        ss1r fixed 1
        ss1u fixed 1
      }
    }
    "help" {
      clientput "Valid devices are roughing, ss1"
    }
    default {
      error "You cannot disable or enable control on $dev. Call with 'help' to get a list."
    }
  }
}
proc enable {dev} {
  dev_control $dev 1
}
publish enable mugger
proc disable {dev} {
  dev_control $dev 0
}
publish disable mugger
::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
sicspoll intervall /instrument/detector/max_binrate 1
sicspoll intervall /instrument/detector/total_maprate 1