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

  group Loop1 = {
    priv = user; type = float; readable = 5;
    var sensor = { readable = 1; read_command = 'READ:DEV:MB1.T1:TEMP:SIG:TEMP'; permlink = 'T.S01'; }
    var nick = { type=text; readable = 15; read_command = 'READ:DEV:MB1.T1:TEMP:NICK'; read_function = rdText; }
    var power = { read_command = 'READ:DEV:MB0.H1:HTR:SIG:POWR'; }
    var setpoint = { read_command = 'READ:DEV:MB1.T1:TEMP:LOOP:TSET';
      driveable = Loop1/sensor; lowerlimit = 0; upperlimit = 333; tolerance = '${tol}'; property settle_time = 15;
      writeable = 1; write_function = setPoint; write_command = 'SET:DEV:MB1.T1:TEMP:LOOP:TSET:';
      permlink = 'T.SP01';
    }
  }
  group Loop2 = {
    priv = user; type = float; readable = 5;
    var sensor = { readable = 1; read_command = 'READ:DEV:DB6.T1:TEMP:SIG:TEMP'; permlink = 'T.S02'; }
    var nick = { type=text; readable = 15; read_command = 'READ:DEV:DB6.T1:TEMP:NICK'; read_function = rdText; }
    var power = { read_command = 'READ:DEV:DB1.H1:HTR:SIG:POWR'; }
    var setpoint = { read_command = 'READ:DEV:DB6.T1:TEMP:LOOP:TSET';
      driveable = Loop2/sensor; lowerlimit = 0; upperlimit = 333; tolerance = '${tol}'; property settle_time = 15;
      writeable = 1; write_function = setPoint; write_command = 'SET:DEV:DB6.T1:TEMP:LOOP:TSET:';
      permlink = 'T.SP02';
    }
  }
  group Loop3 = {
    priv = user; type = float; readable = 5;
    var sensor = { readable = 1; read_command = 'READ:DEV:DB7.T1:TEMP:SIG:TEMP'; permlink = 'T.S03'; }
    var nick = { type=text; readable = 15; read_command = 'READ:DEV:DB7.T1:TEMP:NICK'; read_function = rdText; }
    var power = { read_command = 'READ:DEV:DB2.H1:HTR:SIG:POWR'; }
    var setpoint = { read_command = 'READ:DEV:DB7.T1:TEMP:LOOP:TSET';
      driveable = Loop3/sensor; lowerlimit = 0; upperlimit = 333; tolerance = '${tol}'; property settle_time = 15;
      writeable = 1; write_function = setPoint; write_command = 'SET:DEV:DB7.T1:TEMP:LOOP:TSET:';
      permlink = 'T.SP03';
    }
  }

  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 = {
  }

}