namespace eval ::environment::temperature { }

# @brief Make a simulated temperature controller object.
#
# @param temp_sobj, name for temperature controller object.
proc ::environment::temperature::mkls340sim {temp_sobj} {
  EvFactory new $temp_sobj sim
  sicslist setatt $temp_sobj numsensors 4
  sicslist setatt $temp_sobj controlsensor sensora
  sicslist setatt $temp_sobj sensorlist sensora,sensorb,sensorc,sensord
  sicslist setatt $temp_sobj heateron 1
  sicslist setatt $temp_sobj range 2
  sicslist setatt $temp_sobj units kelvin
  sicslist setatt $temp_sobj klass @none
}

# @brief Make a lakeshore340 temperature controller object.
#
# @param temp_sobj, name for temperature controller object
# @param IP, (optional) IP address for temperature controller.
# @param port, (optional) port number for temperature controller.
proc ::environment::temperature::mkls340 {temp_sobj {IP 137.157.201.50} {port 4001}} {
  Makeasyncqueue sertemp1 LS340 $IP $port
  sertemp1 timeout 2000
  EvFactory new $temp_sobj ls340 sertemp1 1 D ABCD
  sicslist setatt $temp_sobj units kelvin
  sicslist setatt $temp_sobj klass @none
}