# Stanford Research Systems SR630 Thermocouple Monitor
# vim: ts=8 sts=2 sw=2 expandtab nocindent autoindent smartindent
driver srs_sr630 = {
  vendor = StanfordResearchSystems; device=SR630;
  protocol = std;
  class = NXdetector;
  simulation_group = detector_simulation;

  group = {
    priv = user;
    var id = {
      readable = 600;
      type = text;
      fetch_function = fetch_id;
      read_function = read_id;
      read_command = "@";
      value = "UNKNOWN";
    }
    type = float;
    fetch_function = getSensor;
    read_function = readSensor;
    var sensor_01 = { readable = 60; read_command = "1"; }
    var sensor_02 = { readable = 600; read_command = "2"; }
    var sensor_03 = { readable = 600; read_command = "3"; }
    var sensor_04 = { readable = 600; read_command = "4"; }
    var sensor_05 = { readable = 600; read_command = "5"; }
    var sensor_06 = { readable = 600; read_command = "6"; }
    var sensor_07 = { readable = 600; read_command = "7"; }
    var sensor_08 = { readable = 600; read_command = "8"; }
  }
  code fetch_id = {%%
    if {[hval [sct]] == "UNKNOWN"} {
      set cmd "[clock format [clock seconds] -format "DATE %m,%d,%Y;TIME %H,%M,%S;*IDN?"]"
    } else {
      set cmd "*IDN?"
    }
  %%}
  code read_id = {%%
  %%}
  code getSensor = {%%
    set cmd "UNIT ${cmd_str},ABS;MEAS? ${cmd_str}"
  %%}
  code readSensor = {%%
  %%}
}