# vim: ts=8 sts=2 sw=2 expandtab autoindent smartindent nocindent
driver mercury_pres = {
  vendor = oxford; device = mercury; protocol = std;
  class = environment; simulation_group = environment_simulation;
  add_args = '{id 99} {tol 1}'
  make_args = 'id tol'

  group Loop8 = {
    priv = user; type = float; readable = 5;
    var sensor = { readable = 1; read_command = 'READ:DEV:DB8.P1:PRES:SIG:PRES'; permlink = 'P.S08'; units = "mB"; }
    var nick = { type=text; readable = 15; read_command = 'READ:DEV:DB8.P1:PRES:NICK'; read_function = rdText; }
    var setpoint = { read_command = 'READ:DEV:DB8.P1:PRES:LOOP:TSET';
      driveable = Loop8/sensor; lowerlimit = 0; upperlimit = 333; tolerance = '${tol}'; property settle_time = 15;
      writeable = 1; write_function = setPoint; write_command = 'SET:DEV:DB8.P1:PRES:LOOP:TSET:';
      permlink = 'P.SP08'; units = "mB";
    }
  }

  code read_function rdValue = {
@    scan [lindex [split "$data" ":"] end] "%g" data
  }

  code read_function rdText = {
@    scan [lindex [split "$data" ":"] end] "%s" data
  }

  code Write_function setPoint = {%%
    # TODO: Check if we can/must put the "mB" on this line
  %%}

}